// Last edited on 2003-04-13 23:32:49 by stolfi

#include "colors.inc"
#include "stones.inc"

background{ color rgb < 0.00, 0.03, 0.15 > }

#declare ctr = <  0.00, 0.75, 1.00 >;
#declare cam = <  6.00, 0.00, 0.00 >;

camera {
  location  ctr + 1.15*cam
  right     -1.2*x
  up        0.9*y
  sky       z
  look_at   ctr
} 

light_source {
  ctr + 10*(vrotate(cam,  -20*z) + 3*z)
  // was < 3, 3, 6 >
  color rgb < 1.00, 1.00, 1.00 >
} 

light_source {
  ctr + 10*(vrotate(cam, 50*z) + 7*z)
  // was <2, 0, 2>
  color rgb <1,1,1>
}

plane { <0,0,1>, 0 texture{T_Stone16}}

// cores/texturas

#declare cor_metal = <.8,.8, 1>;
#declare tx_metal = 
texture {
  pigment {rgb cor_metal}
  finish {
    ambient 0.05 diffuse 0.05
    reflection cor_metal
    specular 0.20 roughness 0.05
      }
}
 

#declare cor_cristal = <0,1,0>;
#declare tx_cristal =
texture {
  finish {
    ambient 0.1 diffuse 0.1
    reflection 0.25
    specular 1 roughness 0.001
  }
  pigment { color cor_cristal filter 1}
}

#declare tinta_azul =
  texture {
    pigment { color rgb < 0.00, 0.00, 1.00 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_vermelha =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
  }

#declare tinta_preta =
  texture {
    pigment { color rgb < 0.00, 0.00, 0.00 > }
  }
#declare tinta_verde =
  texture {
    pigment { color rgb < 0.00, 1.00, 0.00 > }
  }


// objetos


#declare tit =
text {
     ttf "latinwd.ttf"
     "Toroides"
     0.15, 0
     rotate <90, 0, 90>
}

#declare subtit = 
union {
   text {
     ttf "arial.ttf"
     "Senhor"
     0.15, 0
   }
   text {
     ttf "arial.ttf"
     "dos"
     0.15, 0
     translate <1.5, -0.7, 0> scale 0.7
   }
   rotate <90, 0, 90>
}


#declare tor = torus 
{3, 0.1 texture{tinta_azul} rotate<0,80,90>}


#if (clock < 0.25)
    #declare titx = -20 + 20*(clock/0.25);

    #if (clock < 0.15)
        #declare titz = 4 -1*(clock/0.10);
    #else
	#declare titz = 3 -3*((clock-0.10)/0.15);
    #end

#else
    #declare titx = 0;
    #declare titz = 0;
#end

#if (clock > 0.75) 
    #declare subtity = 2;
    #declare subtitrot = 0; 
#end


// Aqui está a cena, finalmente:

union {
    object {tit texture{tinta_verde} translate <titx, -3, titz> }
//    object {tor rotate <0, 0, 0>}
//    object {subtit texture{tinta_azul} rotate <subtitrot, 0, 0> translate <0,subtity, 4>}
}