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

background{ color rgb < 0.8, 0.85, 0.9 > }

#include "colors.inc"
#include "woods.inc"
#include "stones.inc"
#include "metals.inc"
#include "textures.inc"

#declare eixos =
   union {
      cylinder {
        <-100,0,0>,
 <100,0,0>,
 0.3
 pigment {Blue}
 }
       cylinder {
        <0,-100,0>,
 <0,100,0>,
 0.3
 pigment {Red}
 }
      cylinder {
        <0,0,-100>,
 <0,0,100>,
 0.3
 pigment {Green}
 }
}

#declare aco =
  texture {
    pigment { Gray }
    finish {
      ambient 0.05 diffuse 0.25
      reflection Gray
      specular 0.2 roughness 0.05
      }
    }

#declare ouro =
  texture {
    pigment { Yellow }
    finish {
      ambient 0.05 diffuse 0.3
      reflection Gold
      specular 0.2 roughness 0.05
      }
    }

#declare cristal =
  texture{
    finish{
      ambient 0.1 diffuse 0.1 reflection 0.25
      specular 1 roughness 0.001
    }
    pigment {color Blue filter 1}
  }

#macro arvore(n,xx,yy,zz)

#local i = 0;
  #if(n>0)
    union{
      sphere{
        <xx,yy,zz>,
        1
        texture { Tinny_Brass }

      }
      #if (n>1)

        cylinder{
          <xx,yy,zz>,
   <xx+0.5*n*n,yy,zz-4>,
   0.2
          texture { T_Wood16 }
        }
        cylinder{
          <xx,yy,zz>,
   <xx-0.5*n*n,yy,zz-4>,
   0.2
          texture { T_Wood16 }
        }
        cylinder{
          <xx,yy,zz>,
   <xx,yy+0.5*n*n,zz-4>,
   0.2
   texture { T_Wood16 }
        }
        cylinder{
          <xx,yy,zz>,
   <xx,yy-0.5*n*n,zz-4>,
   0.2
   texture { T_Wood16 }
        }
      #end
      arvore(n-1,xx+0.5*n*n,yy,zz-4)
      arvore(n-1,xx-0.5*n*n,yy,zz-4)
      arvore(n-1,xx,yy+0.5*n*n,zz-4)
      arvore(n-1,xx,yy-0.5*n*n,zz-4)
          }
  #end

#end

arvore(4,0,0,10)

plane { z, -10
  texture { T_Grnt9 }
}

#include "camlight.inc"
camlight(<-3,0,0>,<38,-15,8>,1.00,z,1.0)