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

#include "colors.inc"
#include "eixos.inc"
background{ color rgb < 0.75, 0.80, 0.85 > }

#macro palavra(p)
  object {
    text {
      ttf "antqua.ttf" p 1, 0
      pigment { Red }
    }
    rotate <90,0,180>
  }
#end

#macro letra_chegando(pos1, pos2, frac, letra)
  object{ palavra(letra) translate <pos1,0,(1-frac)*pos2> }
#end

#macro logotipo(texto, fase)
  #local n = strlen(texto);
  #local etapa = int(fase*n);
  #local frac = fase*n - etapa;
  #local et = int(etapa+1);

  #local str1 = substr(texto,1,etapa);
  #local str2 = str1;
  #if(et <= n)
    #local str2 = substr(texto,et,1);
  #end

  #local obj =  palavra(str1) ;
  union{
    object {obj}
    #if(mod(etapa,2)=0)
      #local pos_fin = 10;
    #else
      #local pos_fin = -10;
    #end
    object { letra_chegando(-0.51*etapa-0.1, pos_fin, frac, str2) }
  }
#end

union{
  object { logotipo("logotipo",clock) }
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = <0,1,0>; //< 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)