// Last edited on 2005-01-06 00:14:38 by stolfi
// Processed by remove-cam-lights

#include "colors.inc"
#include "metals.inc"
#include "stones.inc"
#include "textures.inc"
#include "skies.inc"

background{ color rgb < 0.9, 0.9, 0.9 > }

#declare raiz =
 sphere {
  <0,0,0>,1
  pigment { Blue }
 }

#declare G = seed(558456);

#macro Arvore_Loca (i)
 union {
  cylinder {
   <0,0,0>,<0,0,4>,0.3
   pigment { Red }
  }
  cylinder {
   <0,0,0>,<0,4,0>,0.3
   pigment { Red }
  }
  cylinder {
   <0,0,0>,<4,0,0>,0.3
   pigment { Red }
  }
  object { raiz }
  object { raiz translate <0,0,4> }
  object { raiz translate <4,0,0> }
  object { raiz translate <0,4,0> }
  #if (i > 0)
   object {
    Arvore_Loca (i-1)
    #local j = rand(G);
    #if (j < 0.33)
     rotate <20*j,20*j,20*j>
     translate <0,0,4>
    #else
     #if (j > 0.66)
      rotate <20*j,10*j,20*j>
      translate <4,0,0>
     #else
      rotate <20*j,10*j,30*j>
      translate <0,4,0>
     #end
    #end
   }
  #end
 }
#end

#declare desenho =
 union {
  object {
   Arvore_Loca (50)
  }
 }

union {
 object { desenho }
}

#include "camlight.inc"
camlight(<0,0,30>,<50,50,20>,1.00,z,1.0)