// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

#declare tx_cimento =
  texture{
     pigment{ color rgb <0.71,0.71,0.71>}
     finish{ diffuse 0.8 ambient 0.1}
  }

#declare tx_grama =
  texture{
     pigment{ color rgb <0.6,0.8,0.2>}
     finish{ diffuse 0.8 ambient 0.1}
  }

#declare tx_madeira =
  texture{
     pigment{ color rgb <0.8,0.7,0.5>}
     finish{ diffuse 0.8 ambient 0.1}
  }

#macro letras_final(texto,etapa)
        union{
                text { ttf "arial.ttf" substr(texto,1,etapa) 0,0 }
        }
#end

#macro letra_chegando(pos_ini,pos_fim,frac,prox_letra)
        union{
                text{ttf "arial.ttf" prox_letra 0,0 translate <pos_ini.x*(1-frac) + pos_fim.x*frac ,
                                                                pos_ini.y*(1-frac) + pos_fim.y*frac,
                                                                pos_ini.z*(1-frac) + pos_fim.z*frac>}
        }
#end

#macro logotipo(texto,fase)
        #local n = strlen(texto);
        #local etapa = int(fase*n);
        #local frac = fase*n-etapa;
        union{
                letras_final(texto,etapa)
                #local prox_letra = substr(texto,etapa+1,1);
                #local par = mod(etapa,2);
                #if (par = 0 )
                        #local pos_ini = <4+etapa,5,0>;
                #else
                        #local pos_ini = <4+etapa,-5,0>;
                #end
                #local pos_fim = <(etapa)*0.55,0,0>;
                letra_chegando(pos_ini,pos_fim,frac,prox_letra)
        }
#end

#include "eixos.inc"

union{
   object { logotipo("Testando ",clock) translate <-3,0,0>}
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = <0,-0.0001,5 >;
#declare dist_camera = 10;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)