// 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 tx_fosca = 
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }
  
#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 }
  }
  
#declare raio = 2.000;

// Partes da cena:

#declare junta =
	sphere { <0,0,0>, 0.15 texture{tx_fosca} }
 
//DECLARE PARTES (UNIONS)

//MACROS

#macro pe()
	box{ < 0.5,0.8,0.2 >, < 0,0,0 > texture{tx_fosca}}
#end

#macro pe_canela(ang_pe)
	union
	{
		object{junta}
		cylinder{< 0,0,0 >,< 0,0,-1 >, 0.1 texture{tx_fosca}}
		object{junta translate <0,0,-1.1>}
		object{ pe() rotate ang_pe*x translate <-0.25,-0.25,-1.3> }
	}
#end

#macro perna(ang_joelho, ang_pe)
	union
	{
		object{junta}
		cylinder{ < 0,0,0 >, < 0,0,-1 >, 0.1 texture{tx_fosca}}
		object{ pe_canela(ang_pe) rotate ang_joelho*x translate <0,0,-1> }
	}
#end

#macro galinha(
			ang_ponta_asa_esq,
			ang_ponta_asa_dir,
			ang_asa_esq,
			ang_asa_dir,
			ang_cabeca,
			ang_pescoco,
			ang_perna_diant_esq,
			ang_perna_diant_dir,
			ang_perna_central_esq,
			ang_perna_central_dir,
			ang_perna_traseiro_esq,
			ang_perna_traseiro_dir,
			ang_joelho_diant_esq,
			ang_joelho_diant_dir,
			ang_joelho_central_esq,
			ang_joelho_central_dir,
			ang_joelho_traseiro_esq,
			ang_joelho_traseiro_dir,
			ang_pe_diant_esq,
			ang_pe_diant_dir,
			ang_pe_central_esq,
			ang_pe_central_dir,
			ang_pe_traseiro_esq,
			ang_pe_traseiro_dir,
			)
	union
	{
		sphere{ < 0,0,0 >, 1.8  scale <0.4,0,0.4> texture{ tx_fosca }}
		//pernas centrais
		object{ perna(ang_joelho_central_dir, ang_pe_central_dir) rotate ang_perna_central_dir*x translate <0.8,0,-0.1> }
		object{ perna(ang_joelho_central_esq, ang_pe_central_esq) rotate ang_perna_central_esq*x translate <0.8,0,-0.1> scale <-1,1,1>}
		//pernas frontais
		object{ perna(ang_joelho_diant_dir, ang_pe_diant_dir) rotate ang_perna_diant_dir*x translate <0.8,0.95,-0.1> }
		object{ perna(ang_joelho_diant_esq, ang_pe_diant_esq) rotate ang_perna_diant_esq*x translate <0.8,0.95,-0.1> scale <-1,1,1>}
		//pernas traseiras
		object{ perna(ang_joelho_traseiro_dir, ang_pe_traseiro_dir) rotate ang_perna_traseiro_dir*x translate <0.8,-0.95,-0.1> }
		object{ perna(ang_joelho_traseiro_esq, ang_pe_traseiro_esq) rotate ang_perna_traseiro_esq*x translate <0.8,-0.95,-0.1> scale <-1,1,1>}
		//pescoco + cabeca
		object{ cabeca_pescoco(ang_cabeca) rotate ang_pescoco*x translate <0.1,1.8,-0.1> }
		//asas
		object{ asa(ang_ponta_asa_dir) rotate ang_asa_dir*y translate <0.5,-0.4,0.5> }
		object{ asa(ang_ponta_asa_esq) rotate ang_asa_esq*y translate <0.5,-0.4,0.5> scale <-1,1,1>}
	}
#end

#macro cabeca()
	union
	{
		sphere{ < 0,0,0 >, 0.3 texture{ tx_fosca }}
		cone{ < 0,0.15,0 >, 0 < 0,0,0 >, 0.1 translate <0.15,0.3,0.10> texture{tx_fosca}}
	}
#end

#macro cabeca_pescoco(ang_cabeca)
	union
	{
		object{junta}
		cylinder{ < 0,0,0 >, < 0.1,0.1,1.4 >, 0.1 texture{tx_fosca}}
		object{ cabeca() rotate ang_cabeca*x translate <0,0,1.35> }
	}
#end

#macro ponta_asa()
	union
	{
		box{ < 0.8,1,0.1 >, <0,0,0> texture{ tx_fosca }}
	}
#end

#macro asa(ang_ponta_asa)
	union
	{
		box{ < 1.2,1.4,0.1 >, <0,0,0> texture{ tx_fosca }}
		object{ ponta_asa() rotate ang_ponta_asa*y translate <1.25,0.2,0> }
	}
#end

#macro galinha_andando(tt)
//gera uma galinha durante um passo
//tt=0 - inicio do passo
//tt=1 fim do passo
#declare ang_ponta_asa_esq = 18;
#declare ang_ponta_asa_dir = 10;
#declare ang_asa_esq = -20;
#declare ang_asa_dir = -20;
#declare ang_cabeca = -10;
#declare ang_pescoco = -15;
#declare ang_perna_diant_esq = -20;
#declare ang_perna_diant_dir = -20;
#declare ang_perna_central_esq = -20;
#declare ang_perna_central_dir = -20;
#declare ang_perna_traseiro_esq = -20;
#declare ang_perna_traseiro_dir = -20;
#declare ang_joelho_diant_esq = 30;
#declare ang_joelho_diant_dir = 30;
#declare ang_joelho_central_esq = 30;
#declare ang_joelho_central_dir = 30;
#declare ang_joelho_traseiro_esq = 30;
#declare ang_joelho_traseiro_dir = 30;
#declare ang_pe_diant_esq = -10;
#declare ang_pe_diant_dir = -10;
#declare ang_pe_central_esq = -10;
#declare ang_pe_central_dir = -10;
#declare ang_pe_traseiro_esq = -10;
#declare ang_pe_traseiro_dir = -10;

#declare ta = tt;
//perna diant dir
define_angulo_perna(ang_perna_diant_dir, ang_joelho_diant_dir, ang_pe_diant_dir, ta)
//perna diant esq
define_angulo_perna(ang_perna_diant_esq, ang_joelho_diant_esq, ang_pe_diant_esq, mod(ta + 0.5, 1))
//perna central dir
define_angulo_perna(ang_perna_central_dir, ang_joelho_central_dir, ang_pe_diant_dir, mod(ta + 0.5, 1))
//perna central esq
define_angulo_perna(ang_perna_central_esq, ang_joelho_central_esq, ang_pe_diant_esq, ta)
//perna traseiro dir
define_angulo_perna(ang_perna_traseiro_dir, ang_joelho_traseiro_dir, ang_pe_diant_dir, ta)
//perna traseiro esq
define_angulo_perna(ang_perna_traseiro_esq, ang_joelho_traseiro_esq, ang_pe_diant_esq, mod(ta + 0.5, 1))

object
{
	galinha(ang_ponta_asa_esq,
			ang_ponta_asa_dir,
			ang_asa_esq,
			ang_asa_dir,
			ang_cabeca,
			ang_pescoco,
			ang_perna_diant_esq,
			ang_perna_diant_dir,
			ang_perna_central_esq,
			ang_perna_central_dir,
			ang_perna_traseiro_esq,
			ang_perna_traseiro_dir,
			ang_joelho_diant_esq,
			ang_joelho_diant_dir,
			ang_joelho_central_esq,
			ang_joelho_central_dir,
			ang_joelho_traseiro_esq,
			ang_joelho_traseiro_dir,
			ang_pe_diant_esq,
			ang_pe_diant_dir,
			ang_pe_central_esq,
			ang_pe_central_dir,
			ang_pe_traseiro_esq,
			ang_pe_traseiro_dir
			)

}

#end

#macro define_angulo_perna(a, b, c, te)
	#local t0 = 0.0000;
	#local t1 = 0.2000;
	#local t2 = 0.4000;
	#local t3 = 0.6000;
	#local t4 = 0.8000;
	#local t5 = 1.0000;
	#local a0 = -20;
	#local a1 = -10;
	#local a2 = +15;
	#local a3 = +20;
	#local a4 = 0;
	#local a5 = -20;
	#local b0 = 30;
	#local b1 = 45;
	#local b2 = 45;
	#local b3 = 10;
	#local b4 = 20;
	#local b5 = 30;
	#local c0 = -10;
	#local c1 = 10;
	#local c2 = 20;
	#local c3 = -20;
	#local c4 = -10 + a4 + b4;
	#local c5 = -20 + a5 + b5;
	
	
	#if(te >= t1 & te < t2)
		interpola_perna(a, b, c, a0, b0, c0, a1, b1, c1, te, t0, t1)
	#end
	#if(te >= t1 & te < t2)
		interpola_perna(a, b, c, a1, b1, c1, a2, b2, c2, te, t1, t2)
	#end
	#if(te >= t2 & te < t3)
		interpola_perna(a, b, c, a2, b2, c2, a3, b3, c3, te, t2, t3)
	#end
	#if(te >= t3 & te < t4)
		interpola_perna(a, b, c, a3, b3, c3, a4, b4, c4, te, t3, t4)
	#end
	#if(te >= t4 & te < t5)
		interpola_perna(a, b, c, a4, b4, c4, a5, b5, c5, te, t4, t5)
	#end

#end

#macro interpola_perna(a, b, c, a0, b0, c0, a1, b1, c1, tt, t0, t1)
	#local rr = (tt-t0)/(t1-t0);
	#declare a = interpola(a0, a1, rr);
	#declare b = interpola(b0, b1, rr);
	#declare c = interpola(c0, c1, rr);
#end

#macro interpola(x0, x1, rr)
	(1-rr)*x0 + rr*x1
#end
// Aqui está a cena, finalmente:
 
  union {
    object { galinha_andando(clock) } 
  }

#end

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