// Last edited on 2003-04-13 22:18:55 by stolfi

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

background{color Gray80}

#declare ctr = <  0.00, 0.00, 0.00 >;
#declare cam = <  0.00, 0.00, -6.00 >;

camera {
  location  ctr + cam
  right 1.2*x up 0.9*y
  look_at   ctr
}

light_source {
  ctr + 10*(vrotate(cam, 20*y) + 3*y)
  color 1.3*White
} 

light_source {
  ctr + 10*(vrotate(cam, -50*y) - 3*y)
  color 0.8*White
} 

#declare tx_letras = 
  texture { pigment { Yellow } } 

#if (clock < 0.1)
  #declare pos1 = -20*clock*y;
#else
  #declare pos1 = -3*y;
#end

#if (clock < 0.2)
  #if (clock > 0.1)
    #declare pos2 = -20*clock*y;
    #else
      #declare pos2 =0;
  #end
  #else
    #declare pos2 = -3*y;
#end

#if (clock < 0.3)
  #if (clock > 0.2)
    #declare pos3 = 10*clock*y;
    #else
      #declare pos3 =0;
  #end
  #else
    #declare pos3 = 3*y;
#end

#if (clock < 0.4)
  #if (clock > 0.3)
    #declare pos4 = 7.5*clock*y;
    #else
      #declare pos4 = 0;
  #end
  #else
    #declare pos4 = 3*y;
#end

#if (clock < 0.45)
  #declare tamanho = 0;
  #else
    #if (clock < 0.85)
      #declare tamanho = 2.353*clock;
      #else #declare tamanho = 0;
    #end
#end

#if (clock < 0.65)
  #declare rodar = 0;
  #else
    #if (clock < 0.85)
      #declare rodar = 2*360*clock/0.3*x;
      #else #declare rodar = 0;
    #end
#end 

#if (clock > 0.9)
  #declare anel =
    torus {2.5,0.02 
      pigment { Red }   // faltava - acrescentado por stolfi
      rotate<30,20,60>
    }
  #else #declare anel =
    sphere {<0,50,0>, 1
      pigment { Red }   // faltava - acrescentado por stolfi
    }
#end

#declare text1 =
  text {
    ttf "timrom.ttf"
    "O"
    0.2, 0
    translate <-2.0,4,0>
    texture { tx_letras }  // faltava - acrescentada por stolfi
  }

#declare text2 =
  text {
    ttf "timrom.ttf"
    "Senhor"
    0.2, 0
    translate <-0.5,4,0>
    texture { tx_letras }  // faltava - acrescentada por stolfi
  }

#declare text3 =
  text {
    ttf "timrom.ttf"
    "dos"
    0.2, 0
    translate <-2.2,-4,0>
    texture { tx_letras }  // faltava - acrescentada por stolfi
  }

#declare text4 =
  text {
    ttf "timrom.ttf"
    "Aneis"
    0.2, 0
    translate <-0.4,-4,0>
    texture { tx_letras }  // faltava - acrescentada por stolfi
  }

object {text1 translate pos1 scale tamanho rotate rodar}
object {text2 translate pos2 scale tamanho rotate rodar}
object {text3 translate pos3 scale tamanho rotate rodar}
object {text4 translate pos4 scale tamanho rotate rodar}
object{anel}