plane{y,-6
        pigment{rgb .7}
}                


#declare I=1;
#while(I<481) //Starting on 1, it makes 480 objects and lights
union{
        light_source{<0,33,-99>,1/350}
        //trick #1 
	//one light is as short as 480 of them
	//but it simulates area_light 
        //It is much shorter than area_light 
        //and much slover
	
        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,1      //    "   trunk - cylinder
                 pigment{rgb<.5,.2,.0>} //trunk is brown
        }
        pigment{color rgb.5+y*.5}  //rest is green
        
        translate<cos(I)*30,-6,log(I)*40> 
        //trick #2
	//cos and log are much shorter then rand, also seed is not needed anamore
        
        }
#declare I=I+1;

#end