/* Feito por Andre Cesarino, RA 041939.*/

#include "eixos.inc"
#include "camlight.inc"

#declare centro_cena = < 2.00, 1.00, 0.00 >;
#declare raio_cena = 5.0;
#declare dir_camera = <  0.00, -10.00, 1.00 >;
#declare dist_camera = 5.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)


#declare tempo = array[9] {0.0, 0.125, 0.250, 0.375, 0.500, 0.625, 0.750, 0.825, 1.000};
// #local dir_camera_x = (1-clock)*15 + clock*10;
// #local dir_camera_y = (1-clock)*20 * clock*15;
// // 
// #declare dir_camera = < -1.00, 10.00, 3.00 >;
// #declare intens_luz = 1.00;
// camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)


/* CORES E TEXTURAS*/

background{ color rgb < 0.50, 0.50, 0.50> }

#declare cinza_brilhante = texture
{
  pigment{ color rgb <0.50, 0.50, 0.50>}
  finish { diffuse 1 specular 0.5}
}

#declare vermelho_fosco = texture
{
  pigment{ color rgb <1.00, 0.00, 0.00>}
  finish { diffuse 1 specular 0.2 }
}

#declare amarelo_fosco = texture
{
  pigment{ color rgb <1.00, 1.00, 0.00>}
  finish { diffuse 1 specular 0.2 }
}

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

/* DESCRICAO DA CENA */
#macro letra_entrando(letra,pos_inicial,pos_final,frac)
  #local pos_atual = (pos_final*frac) + (pos_inicial*(1-frac));
  union
    {
      text{ttf "times.ttf" letra 0.2,0.0 rotate 90*x}
      translate pos_atual
    }
#end

#macro logotipo(texto,fase,pos_inicial,pos_final)
 
  #local n = strlen(texto);
  #local etapa = int(n*fase);
  #local frac = n*fase - etapa;
 
  #local texto_atual = substr(texto,1,etapa);
  #local letra_atual = substr(texto,etapa+1,1);
  #local larg_letras = <0.6*etapa,0,0>;
  union
  {
    text{ttf "times.ttf" texto_atual 0.2,0.0 rotate 90*x translate pos_final}
    object{letra_entrando(letra_atual,pos_inicial+larg_letras,pos_final+larg_letras,frac)}  
  }
#end 

#declare chao = 
  box{ <-100,-100,-1>, <+100,+100,0>}

/*Aqui comeca a cena. */

union
{
  object{ eixos(3.00) }

  object{ chao  translate < 0,0,-5> texture {tx_xadrez}}

  object{ logotipo("Hello World!",clock,<5,0,5>,<0,0,0>) texture {vermelho_fosco}}
}