vase3.scad

$fn=200;

phi = (1+sqrt(5))/2;
radius = 50;
sphere_radius = 10;
height = 200;
count = 600;

function r(i) = radius/3*sin(i/count*360)+radius/2;

intersection(){
    union(){
        for(i=[1:count]){
            angle = i*360/phi;
            translate([sin(angle)*r(i), cos(angle)*r(i), i*height/count])
                rotate(-angle)
                rotate([0,90,0])
                sphere(sphere_radius, $fn=4);

            translate([0,0,(i-1)*height/count])
                cylinder(h=height/count, r1=r(i-1), r2=r(i));
        }
        cylinder(h=2, r=r(1)+sphere_radius/3);

    }
    cylinder(h=height, r=radius+sphere_radius);
}

vase3.stl