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

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare raio = 2.000;

#declare tinta_A =
  texture {
    pigment { color < 1.0, 0.90, 0.70 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.0, 0.7, 0.0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare NO =
 union {
   cylinder {
     <0,0,0.5>,<0,0,1.5>, 0.15
     texture {tinta_A}
   }
   sphere { <0,0,0> 0.5 texture {tinta_B}}
 }

#macro arvore(n)
  union {
    #if (n>0)
       object{NO}
       object{arvore(n-1) translate<0,0,-2> rotate (45)*z rotate (20)*x }
       object{arvore(n-1) translate<0,0,-2> rotate (45)*z rotate (-20)*x }
    #else
      object{NO}
    #end
  }
#end

  object{arvore(7)}

#include "camlight.inc"
camlight(<0,0,-10>,<22,15,13>,1.00,z,1.0)