// Last edited on 2005-01-06 00:17:21 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 }
  }

#declare i = 0;
#macro arvore(n)
 union {
  sphere { <0,0,0>, 0.5 texture {tinta_A} }
  cylinder { <0, 2*n, -2*n>
      <0, 0, 0>
      0.1
      texture {tinta_B} }
  cylinder { <0, -2*n, -2*n>
      <0, 0, 0>
      0.1
   texture {tinta_B} }
  cylinder { <2*n, 0, -2*n>
      <0, 0, 0>
      0.1
   texture {tinta_B} }

  #if (1<n)
   object { arvore(n-1) translate <0,2*n, -2*n> }
   object { arvore(n-1) translate <0, -2*n, -2*n> }
   object { arvore(n-1) translate <2*n, 0, -2*n> }
  #end
 }
#end

object { arvore(5) scale 0.5 translate <0,0,6>}

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