union#macro S(P,R)#local i=999*R.x;#while(i)cone{P-15+R*y*.8,R.x/8,P-15+R*vrotate(z,i*<9.07,31,7>),0}#local i=i-1;#end#end{S(0,6)S(6*y,4)S(9*y+3*x,2-z)S(9*y-3*x,2-z)S(<5,3,1>,2+x)S(-2-x+8*z,2+z)plane{y,-18}pigment{radial}rotate 40+y*99}light_source{18,2+x}