// CORES E TEXTURAS

#include "colors.inc"
#include "textures.inc"

background{ color White }

// DESCRIÇÃO DA CENA 

#declare tora =
  cylinder{
    <0,0,0>,<0,0,20>, 2.5
    texture{ DMFWood5 }   
  }

#macro galhox(x1, z1, x2, z2)
  cylinder{
    <x1,0,z1>,<x2,0,z2>, 0.5
    texture{ DMFWood5 }   
  }
#end

#macro galhoy(y1, z1, y2, z2)
  cylinder{
    <0,y1,z1>,<0,y2,z2>, 0.5
    texture{ DMFWood5 }    
  }
#end

#declare cedulax = 
  box{
    <3.0, 0, 0>, <0, 0.20, 1>
    pigment{ Jade } 
  }

#macro arvore (n, z11, z12, d11, d12)
 
  #if(n = 0)
    union{
      object{ cedulax translate <0,d11,z11> }   
      object{ cedulax translate <0,-d11,z11> }
      object{ cedulax translate <d11,0,z11> }
    }
  #else
    union{
      object{ galhox(d11, z11, d12, z12) }   
      object{ galhoy(d11, z11, d12, z12) }
      object{ galhoy(-d11, z11, -d12, z12) }     

      object{ arvore(n-1, z12, z12+4, d12, d12+6)}
      object{ arvore(n-1, z12, z12+4, d12, d12-6)}
    }
  #end

#end 

// CENA:

union{
  object{ tora }
  object{ arvore(3, 20, 25, 0, 5) }
}

// LUZ e CAMERA

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 20.00 >;
#declare raio_cena = 40.0;
#declare dir_camera = <40.00, 40.10, 40.00 >;
#declare dist_camera = 30.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)