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

background{ color rgb < 0.90, 0.85, 0.80 > }
#declare pos = 0;

#macro arvore(n, transx, transz, rot)
 #if (n > 0)
  union{
   cylinder{
    <0,0,0>,
    <0,0,2>
    0.5
    pigment{rgb <1,0,0>}
   }
   sphere{
    <0,0,3>,
    1
    pigment {rgb <0,1,0>}
   }
   rotate y*rot
   translate <transx, 0, transz>
  }
   arvore((n-1), transx+1, (transz+3.8), 30)
   arvore((n-1), transx-1, (transz+3.8), -30)
  #declare pos = pos+1;
 #end
#end

cylinder{
 <0,0,0>,
 <0,0,2>
 0.5
 pigment{rgb <1,0,0>}
}
sphere{
 <0,0,3>,
 1
 pigment {rgb <0,1,0>}
}
arvore(5.0, 0, 3.8, 30)
arvore(5.0, 0, 3.8, -30)

#include "camlight.inc"
camlight(<0,0,5>,<0,-60,8>,1.00,z,1.0)