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

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

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

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

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

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

#macro arvore(b,c,n)
 union{
  object{sphere{<b,c,0>,0.3} texture{tinta_B}}
 #if (n > 1)
  object{cylinder{<b-2*n,c+2*n,0>, <b,c,0>, 0.05}
  texture{tinta_A}}

  object{arvore(b-2*n,c+2*n,n-1)
  texture{tinta_B}}

  object{cylinder{<b-2*n,c-2*n,0>, <b,c,0>, 0.05}
  texture{tinta_A}}

  object{arvore(b-2*n,c-2*n,n-1)
  texture{tinta_B}}

 #end
 }
#end

#macro arvoreaux(a)
 object{
  arvore(2,0,a)
 }
#end

union{
object{arvoreaux(7)}
}

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