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

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

#declare tx_plastico1 =
  texture{
    pigment{ color rgb < 0.90, 0.85, 0.45 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.5 roughness 0.005 }
  }

#macro letra_entrando (letra, pin, pfi, frac)
        #local posicao = (1-frac)*pin + frac*pfi;
        object { text { ttf "arial.ttf" letra 0.1, 0 texture { tx_plastico1 } rotate <90, 0, 0> translate posicao} }
#end

#macro logotipo(texto, fase)
        #local n = strlen(texto);
        #local etapa = int(n*fase);
        #local frac = n*fase - etapa;
        #if (mod(etapa, 4) = 0)
                #local pin = <4, 0, 0>;
                #local pfi = <0, 0, 0>;
        #end
        #if (mod(etapa, 4) = 1)
                #local pin = <0, 0, 4>;
                #local pfi = <0, 0, 0>;
        #end
        #if (mod(etapa, 4) = 2)
                #local pin = <0, 0, -4>;
                #local pfi = <0, 0, 0>;
        #end
        #if (mod(etapa, 4) = 3)
                #local pin = <-4, 0, 0>;
                #local pfi = <0, 0, 0>;
        #end
        #local letra = substr(texto, etapa+1, 1);
        #local fixa = substr(texto, 1, etapa);
        union{
                object{ text { ttf "arial.ttf" fixa 0.1, 0 texture { tx_plastico1 } rotate <90, 0, 0> } }
                object { letra_entrando(letra, pin, pfi, frac) translate <0.72*etapa, 0 ,0> }
        }
#end

union{
        object {logotipo ("RANDOM ", clock) }
}
#include "camlight.inc"
#declare centro_cena = < 2.3, 0.1, 0.1 >;
#declare raio_cena = 5.0;
#declare dir_camera = < 0, -1, 0.2 >;
#declare dist_camera = 14.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)