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

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

#declare verde =
  texture {
    pigment { color rgb < 0, 1, 0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare azul =
 texture {
    pigment { color rgb < 0.30, 0.40, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare verm =
  texture {
    pigment { color rgb < 1, 0, 0 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare noh = sphere { <0,0,0>, 0.4 texture {azul}}
#declare aresta = cylinder { <0,0,0>, <0,0,1> 0.2 texture {verde}}

#macro arvore(px,py,pz,n)
 union {
  #if (n=1)
   object {noh translate<px,py,pz>}
  #else

       #if (mod(n,2)=0)
   #local px1 = px+0.9*n;
   #local py1 = py+0.9*n;
   #local pz1 = pz+0.9*n;

   #local px2 = px-0.9*n;
   #local py2 = py-0.9*n;
   #local pz2 = pz+0.9*n;

       #else
   #local px1 = px-0.9*n;
   #local py1 = py+0.9*n;
   #local pz1 = pz+0.9*n;

   #local px2 = px+0.9*n;
   #local py2 = py-0.9*n;
   #local pz2 = pz+0.9*n;

       #end

    object {noh translate<px,py,pz>}
   object {cylinder { <px,py,pz>, <px1,py1,pz1> 0.2 texture {verde}}}
   object {cylinder { <px,py,pz>, <px2,py2,pz2> 0.2 texture {verde}}}

   object {arvore(px1,py1,pz1,n-1)}
   object {arvore(px2,py2,pz2,n-1)}

  #end

 }
#end

object{arvore(0,0,0,5)}

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