// Exemplo de arquivo de descricao de ANIMAÇÃO para POV-ray
// Last edited on 2009-09-24 15:40:22 by stolfi

#macro quadro(tt)
// Gera o quadro do filme (cena, luzes e câmera) 
// para o instante {tt} -- um número real entre 0 e 1.

// ======================================================================
// CÂMERA 

camera {
  location  <  8.00, 4.00, 2.00 >  // Posição do observador.
  right     -1.00*x                // Largura RELATIVA da imagem.
  up        0.75*y                 // Altura RELATIVA da imagem.      
  sky       z                      // Qual direção é "para cima"?
  look_at   <  0.00, 0.00, 0.00 >  // Para onde a câmera está apontando.
 } 
// Nota: os parâmetros "right" e "up" devem ter a mesma proporção
// que os parâmetros ${WIDTH} e ${HEIGHT} no Makefile.

// ======================================================================
// FONTES DE LUZ

light_source {
  10 * < +50.0, +30.0, +50.0 >              // Posição da lâmpada.
  color rgb 1.2 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

light_source {
  10 * < +50.0, -10.0, +10.0 >             // Posição da lâmpada.
  color rgb 0.8 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

// ======================================================================
// DESCRIÇÃO DA CENA 

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

#declare raio = 2.000;

// Um parãmetro que varia {+1, 00, -1, 00, +1}:
#declare ctt = cos(2*pi*tt);

// Um parâmetro que varia {00, +1, 00, -1, 00}:  
#declare stt = sin(2*pi*tt);

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.55 + 0.45*ctt, 0.80, 0.55 - 0.5*ctt > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
  
#declare bola =
  sphere {
    < 0.00, 0.00, 0.00 >, 2.00 
    texture { tinta_A }
  }

#declare olho =
  sphere {
    < 1.20, 1.20, 1.00 >, 0.30 
    texture { tinta_A }
     }
     
 #declare olho2 =
  sphere {
    < 1.20, -1.20, 1.00 >, 0.30 
    texture { tinta_A }
     }
  
#declare bico = 
  cone {
    < 2.0, 0.00, -0.50 >, 0.2,
    < 3.4, 0.00, -0.50 >,0
    texture { tinta_B }
  }
  
#declare asa1 = 
  cylinder {
    < 0.0, +2.00, 0.00 >,
    < +0.00, 4.3, 0.00 >,
    0.5
    texture { tinta_B }
  }
  
  #declare asa2 = 
  cylinder {
    < 0.0, -2.0, 0.00 >,
    < +0.00, -4.3, 0.00 >,
    0.5
    texture { tinta_B }
  }
  
// Aqui está a cena, finalmente:


  union {
    object { bola translate <0,0,sin(2*pi*tt)>}
    object { olho translate <0,0,sin(2*pi*tt)>}
    object { olho2 translate <0,0,sin(2*pi*tt)>}
    object { bico translate <0,0,sin(2*pi*tt)>}
    object { asa1 rotate <37*sin(2*pi*tt),0,0>}
    object { asa2 rotate <-37*sin(2*pi*tt),0,0>}
  }
 


#end

// gera o quadro correspondente ao instante dado {clock}:
quadro(clock)