| $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);
|