plane{y,-6pigment{rgb.7}}#declare I=1;#while(I<481)union{light_source{<0,33,-99>,1/350}cone{11*y,0,y*8,2}cone{y*9,0,y*5,2.5}cone{y*6,0,y*2,3}cone{2*y,1,0,1pigment{rgb<.5,.2>}}pigment{color rgb.5+y*.5}translate<cos(I)*30,-6,log(I)*40>}#declare I=I+1;#end