Name : Simon Adameit
Email : gomdo81@gmx.de

Code :
//-----------
background{rgb.5+z}

camera{
  location<0,2,5>
  look_at y*5}

light_source{y*9+x*6,5}

#default{
  pigment{rgb x+y/2}
  normal{granite}}

#local R=seed(2);

#macro B(S,E,T,I)
  cone{S,I,E,I/2}
  sphere{E,I/2}
  #if(T>0)
    #local Z=0;
    #while(Z<3)
      B(E,vrotate((E-S)*.7,<rand(R),rand(R),rand(R)>*70-35)+E,T-1,I/2)
      #local Z=Z+1;
    #end
  #else 
    sphere{E,.05
      pigment{red 1}}
  #end
#end

#local X=-9;

union{
  #while(X<9)
    #local Z=-9;
    #while(Z<5)
      B(<X,0,Z>,<X,1,Z>,3,.1)
      #local Z=Z+1;
    #end
    #local X=X+1;
  #end 
  pigment{rgb v}}

B(0,y*4,6,1)

//SiA

//----------- 

Copyright : I SUBMIT TO THE STANDARD 10BEST.RAYTRACE.COM COPYRIGHT STATEMENT.