#macro D()#declare#end D()L=4;#while(L<25) D()C=6.28*L; D()N=int(C); D()R=mod(C,1); D()J=1+R/N; D()G=1;#while(G<.4,.4,.01> translate<0,-L,50> rotate z*(360*G*J/C) pigment{radial poly_wave 5} finish{ambient.4} } D()G=G+1;#end D()L=L+1;#end