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

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

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

#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_plastico = 
  texture{
    pigment{ color rgb < 0.10, 0.80, 1.00 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#declare tx_espelho = 
  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 }
  }

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

#declare raio = 2.000;

// ======================================================================
// MACROS

#macro letras_entrando(pin, pfi, fase, texto, etapa)
//  text{ ttf "comic.ttf" "I  W A N T  T O  B R E A K  F R E E !" 1, -0.1 texture{ tx_espelho } rotate <90,-15.5,90> translate <0,(1-clock)*pin,0>}
  #local tex = substr(texto, 1, etapa);
  text{ ttf "comic.ttf" tex 1, 0.0 texture{ tx_espelho } rotate <90,0,90> translate <0,pin-(pin-pfi)*fase,0>}

#end

#macro logotipo(texto, fase, pin, pfi)
  #local n = strlen(texto);
  #local etapa = int(n * fase);
  #local frac = n * fase - etapa;
  
  union{
  	 object{ letras_entrando(pin, pfi, fase, texto, etapa) }
  }
#end

// ======================================================================

#include "eixos.inc"

// Aqui está a cena, finalmente:

union{
//  text{ ttf "comic.ttf" "I  W A N T  T O  B R E A K  F R E E !" 1, -0.1 texture{ tx_espelho } rotate <90,-15.5,90> } // para teste
  object{ logotipo("I  W A N T  T O  B R E A K  F R E E !", clock, 10, -3) }
}


#include "camlight.inc"
#declare centro_cena = < 5.00, 7.00, 0.00 >;
#declare raio_cena = 9.0;
#declare dir_camera = < 105.00, 7.00, 8.00 >;
#declare dist_camera = 20.00;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)