// 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  <  10.0, 0.10, 5.0 >  // 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 marca =
  text {ttf "arial.ttf" "marca" 1.00, 0.0 texture{tinta_A} rotate<90,0,90>  translate<0,-1.2,0> }
  
#declare asa =
  intersection {
    box { <0,0,0>,<2.51,1.01,0.11> }
    cone { <0,0.5,0.05>, 0, <2.5,0.5,0.05>, 0.5 }
    rotate <0,40*sin(4*pi*clock),90>
  }

#declare bola =
  sphere {
    < 0.00, 0.00, 0.00 >, 2.00 
    texture { tinta_A }
  }
  
#declare furo = 
  cylinder {
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    1.50
    texture { tinta_B }
  }
  
#declare pino = 
  cylinder {
    < -2.00, +2.00, -1.00 >,
    < +2.00, -2.00, +1.00 >,
    0.5 + 0.3*stt
    texture { tinta_B }
  }
  
// Aqui está a cena, finalmente:
union {
  object { asa texture { tinta_A } translate <1,1.45,0.25> }
  object { asa texture { tinta_A } rotate <180,180,0> translate <0,-1.25,0.25>  }
  object { marca }
  translate < 0,0,sin(2*pi*clock) >
  rotate < 360*pow(sin(pi/2*clock),4),0,0 >
}
/*
difference { 
  union {
    object { bola } 
    object { pino }
  }
  object { furo }
  rotate 360*tt*z
  translate -1.5*ctt*y
}
*/
#end

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