// Last edited on 2005-01-06 00:18:27 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 rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#macro arvore(a,b,c)
 union{
 sphere{<a,b,c>,5 texture{tinta_B}}

 #if(c>0)
  cylinder{<a,b,c>,<a,b-10,c-10>,1}
  cylinder{<a,b,c>,<a,b+10,c-10>,1}
  object{arvore(a,b-10,c-10)}
  object{arvore(a,b+10,c-10)}

 #end
 }
#end

object{arvore(0,0,80)}

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