// Last edited on 2003-05-30 00:59:01 by stolfi

#include "colors.inc"

background{ color rgb < .50, .50, .50 > }

#declare ctr = < 0.00, 10.00, 0.00 >;

camera {
  location  ctr + 0.85*< 20.00, 8.00, -20.00>
  right x  up y   sky y
  look_at   ctr
} 

light_source { 100*< 0.0, 8, -20 > color 1.2*White } 
light_source { 100*< 20.0, 12, 0 > color 0.8*White } 
light_source { 100*< 20.0, 80, -20 > color 0.6*White } 

plane { y, 0
  pigment { checker color Red, color Orange scale 3 } 
}

#declare corpo = box{<-1,10,2.5>,<2,20,-2.5> pigment { Gray } }

#declare coxa_d = cylinder{<0,10,1.5>,<0,5,1.5>,.7 pigment { Gray } }

#declare panturrilha_d = cylinder{<0,5,1.5><0,1,1.5>.5 pigment { Gray } }

#declare pe_d = box{<-.5,0,1><1.5,1,2> pigment { Gray } }

#declare coxa_e = cylinder{<0,10,-1.5>,<0,5,-1.5>,.7 pigment { Gray } }

#declare panturrilha_e = cylinder{<0,5,-1.5><0,1,-1.5>.5 pigment { Gray }}

#declare pe_e = box{<-.5,0,-1><1.5,1,-2> pigment { Gray } }

#declare perna_d1 = union{ 
	object{pe_d} 
	object{panturrilha_d} 
	object{coxa_d} 
        pigment { Gray } 
}

#declare perna_e1 = union{
	object{pe_e}
	object{panturrilha_e}
	object{coxa_e}
        pigment { Gray } 
}

#declare pantpe_d = union{
 	object{pe_d} 
	object{panturrilha_d} 
        pigment { Gray } 
}	

#declare perna_d2 = union{ 
	object{pantpe_d translate<0,-5,-1.5> rotate 45*(1-2*clock)*z translate<2.8,6.4,1.5>}
	object{coxa_d translate<0,-9,-1.5> rotate 45*z translate<0,9,1.5>} 
        pigment { Gray } 
}

#declare perna_e2 = union{
	object{pe_e}
	object{panturrilha_e}
	object{coxa_e}
        pigment { Gray } 
}


//inicial
#if (clock = 0)
	object{corpo}
	object{perna_e1}
	object{perna_d1}
#else

//segundo
#if (clock <= 0.25)
	object{corpo}
	object{perna_e1}
	object{perna_d1 translate<0,-9,-1.5> rotate 45*(4*clock)*z translate<0,9,1.5>}
#else	

//terceiro
#if (clock <= 0.50)
	object{corpo}
	object{perna_e2}
	object{perna_d2}
#else

#if (clock <= 0.75)
	object{corpo translate<2,0,0>}
	object{perna_e1 translate<0,-9,-1.5> rotate -45*(clock)*z translate<1.5,9,1.5>}
	object{perna_d1 translate<0,-9,-1.5> rotate 45*(clock)*z translate<1.5,9,1.5> }

#else	

//quarto
#if (clock<=1)
	//quarto
	object{corpo translate<3,0,0>}
	object{perna_e1 translate<0,-9,-1.5> rotate -45*(1-clock)*z translate<3,9,1.5>}
	object{perna_d1 translate<0,-9,-1.5> rotate 45*(1-clock)*z translate<3,9,1.5>}
#end
#end
#end
#end
#end