// CORES E TEXTURAS

background{ color rgb < 0.2, 0.6, 0.8 > }

#declare tx_grama = 
  texture{
    pigment{ color rgb < 0.14, 0.56, 0.14 >}
    finish{ diffuse 0.7 ambient 0.5 }
  }

#declare tx_arvore = 
  texture{
    pigment{ color rgb < 0.64, 0.16, 0.16 > }
    finish{ diffuse 0.2 ambient 0.1 }
  }

#declare tx_prata = 
  texture{
    pigment{ color rgb < 0.3, 0.3, 0.3 > }
    finish{ diffuse 0.2 reflection 0.6 brilliance 0.1 }
  }

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02}
  }


#declare tx_xadrez =
  texture{
    pigment{ checker color rgb < 0.5, 0.44, 0.98 >, color rgb < 0.00, 0.86, 0.29 > }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
  }

//MACROS

#macro boneco_dancando(fase)

	
	
#end

#macro quadro_anterior(fase)
	#local i = 0;
	#while (i < NQ)
		#if((tempo[i]<=fase) & ((i = NQ-1) | (tempo[i+1] >=fase)))
			#local resp = i;
		#end
		
		#local i = i+1;
	#end

	resp

#end

#macro interpola(f0,v0,f1,v1,f)

	#local ss = (f- f0)/(f1-f0);
	#local rr = 1 - ss;

	(rr*v0 + ss*v1)
#end

#macro gato(a,b,c,d,e,f)
	
	union{
	
		object{tronco}
		object{cabeca()
			translate <0,0,2.5>
		}

		object{aux1
			translate<0,1,1.2>
		}
		object{braco(a,b,f)
			translate<0,1,1.2>
		}
		object{aux1
			translate<0,1,1.2>
			scale<1,-1,1>
		}

		object{braco(a,b,f)
			translate<0,1,1.2>
			scale<1,-1,1>
		}
		object{perna(c,d,e)
			translate <0.4,0.5,-1.2>
		}
		object{perna(c,d,e)
			translate <0.4,0.5,-1.2>
			scale <1,-1,1>
		}

		
	}

	

#end

#macro cabeca()

	union{

		object{head}

		object{cone_orelha
			rotate <-30,0,0>
			translate <0,0.25,0.35>
		}

		object{cone_orelha
			rotate <30,0,0>
			translate <0,-0.25,0.35>
		}
	}
		

#end

#macro pe(e)

	object{foot
		translate <-0.25,0,-0.25>
		rotate <-e,0,0>
		
	}


#end

#macro braco(a,b,f)
	
	union{

		object{arm}
		object{antebraco(b)
			translate <0,1.5,0>
		}
		rotate <a,0,f>
	}

#end

#macro antebraco(b)

	union{
		object{ab}
		object{mao()
			translate <0,1,0>
		}		
		rotate <b,0,0>
		
	}

#end

#macro mao()

	object{hand}

#end

#macro perna(c,d,e)
	
	union{
		
		object{leg}
		object{anteperna(d,e)
			translate <0.1,0,-1.8>
		}
		rotate <c,0,0>
	}

#end

#macro anteperna(d,e)

	union{
		object{al}
		object{pe(e)
			translate <0,0,-1.5>
		}		
		rotate <d,0,0>
		
	}

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


#declare raio = 0.5;
#declare origem = <0,0,0>;

#declare head =
	sphere{origem, raio
		texture{tx_grama}
}

#declare cone_orelha =
	cone{origem, 0.5*raio, <0,0,0.2>, 0
		texture{tx_grama}
}  

#declare foot = 
	box{origem, <0.5,1,0.25>
		texture{tx_arvore}
}

#declare hand = 
	sphere{origem, 0.5*raio
		texture{tx_arvore}
}

#declare tronco = 
	sphere{origem, 2*raio
		texture{tx_grama}
	scale <0,0,2>
}

#declare arm = 
	cylinder{origem, <0,1.5,0>, 0.5*raio
		texture{tx_grama}
}

#declare leg =
	cylinder{origem, <0,0,-2>, 0.8*raio
		texture{tx_grama}
}	

#declare al = 
	cylinder{origem, <0,0,-1.5>, 0.6*raio
		texture{tx_grama}
}

#declare ab =
	cylinder{origem, <0,1,0>, 0.4*raio
		texture{tx_grama}
}

#declare aux1 =
	sphere{origem, 0.6*raio
		texture{tx_arvore}
}

//declaração dos vetores

#declare NQ=8;	//numero de quadros

#declare angA = array[NQ];
#declare angA[0] = -80;
#declare angA[1] = -45;
#declare angA[2] = 0;
#declare angA[3] = 20;
#declare angA[4] = 75;
#declare angA[5] = 0;
#declare angA[6] = 0;
#declare angA[7] = -40;

#declare angB = array[NQ];
#declare angB[0] = -10;
#declare angB[1] = -60;
#declare angB[2] = 0;
#declare angB[3] = 30;
#declare angB[4] = 60;
#declare angB[5] = 0;
#declare angB[6] = 0;
#declare angB[7] = -5;

#declare angC = array[NQ];
#declare angC[0] = 0;
#declare angC[1] = 10;
#declare angC[2] = 45;
#declare angC[3] = 60;
#declare angC[4] = 80;
#declare angC[5] = 85;
#declare angC[6] = 90;
#declare angC[7] = 45;

#declare angD = array[NQ];
#declare angD[0] = 0;
#declare angD[1] = 15;
#declare angD[2] = 0;
#declare angD[3] = -40;
#declare angD[4] = -20;
#declare angD[5] = -10;
#declare angD[6] = 0;
#declare angD[7] = 0;

#declare angF = array[NQ];
#declare angF[0] = 0;
#declare angF[1] = 0;
#declare angF[2] = 0;
#declare angF[3] = 0;
#declare angF[4] = 0;
#declare angF[5] = -45;
#declare angF[6] = -90;
#declare angF[7] = -45;

#declare tempo = array[NQ];
#declare tempo[0] = 0.0;
#declare tempo[1] = 0.2;
#declare tempo[2] = 0.4;
#declare tempo[3] = 0.6;
#declare tempo[4] = 0.8;
#declare tempo[5] = 1.0;
#declare tempo[6] = 1.2;



#include "eixos.inc"

//object{gato(0,0,90,0,0,-90)}


#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 10;
#declare dir_camera = < 3,0,3 >;
#declare dist_camera = 60;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)