// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2010-03-04 15:44:01 by stolfi

// ======================================================================
// CORES E TEXTURAS

#include "colors.inc"

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

//antigo plastico: rgb < 0.90, 0.80, 1.00 > }

#declare tx_plastico = 
  texture{
    pigment{ color Grey }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }


#declare tx_fosca = 
  texture{
    pigment{ color Black }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_espelho = 
  texture{
    pigment{ color rgb < 0.00, 0.74, 0.90 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_espelho1 = 
  texture{
    pigment{ color rgb < 1.00, 0.85, 0.30 > }
    finish{ diffuse 0.2 reflection 0.7*< 1.00, 0.85, 0.30 > ambient 0.1 }
  }

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }


#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.10, 0.92, 0.60 >, color rgb < 1.00, 0.97, 0.90 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

// ======================================================================
// DESCRIÇÃO DA CENA 

// Partes da cena:

#declare tronco1 =
  cylinder {
    <0,0,0>, <0,0,1>, 0.15
    pigment { color Brown }
  }

#declare folha = 
  sphere {
    <0,0,0>, 0.5
    pigment { color Green }
  }

#declare dinheiro =
  box {
      <0,0,0>, <0,0.7,0.4>
      pigment { color Red }
  }

#macro arvore(n) 
  #if(n=0)
    union {
      object { tronco1 }
      object { folha translate <0,0,1> }
      object { dinheiro translate <0.1,0.1,1.15> }
    }
  #else
    union {
      object { 
        cone {
           <0,0,0>, 0.1+(0.5*n)
	   <0,0,(1+2*n)>, 0.1+(0.35*n)
	  pigment { color Brown }
	}
      }


//      object { arvore(n-1) rotate 45*x translate <0,0,(1+2*n)>} 
//      object { arvore(n-1) rotate 35*y translate <0,0,(1+2*n)>} 
//      object { arvore(n-1) rotate -45*x translate <0,0,(1+2*n)>}
    object { arvore(n-1) rotate -60*y translate <-(0.2*n),0,(1+0.7*n)>} 
    object { arvore(n-1) rotate <35,45,0> translate <0,0,(0.8+2*n)>} 
    object { arvore(n-1) rotate -35*y translate <0,0,(0.8+2*n)>} 
    object { arvore(n-1) rotate 60*y translate <(0.2*n),0,(1+0.7*n)>} 
    }
  #end
#end

#include "eixos.inc"

// Aqui está a cena, finalmente:

union{
  object { arvore(3) rotate 110*z translate<0,0,-10> }
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 20.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 50.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)