$fs=.5;$fa=1;

fn=250;
h=30;
a=25;
a2=1;
a3=.5;
d=12;
f=6;
f2=12;
s=2;

for(rot=[0:30:360])rotate(rot)
for(i=[0:fn-1]){

 hull()for(ii=[i,i+1])Profil(ii,delta=rot%60?0:180,
delta2=rot%60?0:180);
 }
 
 module Profil(i,delta,delta2)rotate(sin(f*360/fn*i+delta)*a)translate([d/2+sin(f2*360/fn*i+delta2)*a2,0,i*h/fn])sphere(.5);