/* Last edited on 2003-05-29 23:10:29 by stolfi */
/* Breno */

#include "colors.inc"
#include "stones.inc"

background{ 0.2*Blue + 0.6*White }
camera {
    location 0.60*<20, -3, -30>
    right x  up y  sky y
    look_at <0,-3.3,0>
  }
  
light_source { <1000, 300, -500> 1.2*White }
light_source { <-500, 300, -1000> 0.9*White }     
light_source { <500, 1300, -300> 0.9*White }     

#if (clock < 0.25)
  #declare angulo_pes =0;
  #declare deslocamento_pes = (clock);
  #declare angulo_membroinfesq = (40*clock);
  #declare deslocamento_membroinfesq = (clock);
  #declare angulo_coxaesq = (5*clock);
  #declare angulo_joelhoesq = (5*clock);
  #declare angulo_joelhodir = 0;
  #declare angulo_coxadir = 0;
  #declare angulo_membroinfdir = 0;
  #declare deslocamento_membroinfdir =0;
  #declare angulo_pedir = 0;
#else
  #if (clock < 0.50)
    #declare angulo_pes = 0;
    #declare deslocamento_pes = (clock);
    #declare angulo_membroinfesq = (40*clock); 
    #declare deslocamento_membroinfesq = (clock);
    #declare angulo_coxaesq = (5*clock);
    #declare angulo_joelhoesq = (5*clock);
    #declare angulo_coxadir = 0;
    #declare angulo_joelhodir = 0;
    #declare angulo_membroinfdir = 0;
    #declare deslocamento_membroinfdir =0;
    #declare angulo_pedir = 0;




  #else
    #if (clock < 0.75)
      #declare angulo_pes = 0; 
      #declare deslocamento_pes = 0;
      #declare angulo_membroinfesq = 0;
      #declare deslocamento_membroinfesq = 0;
      #declare angulo_coxaesq = 0;
      #declare angulo_joelhoesq = 0;
      #declare angulo_coxadir = (1*clock);
      #declare angulo_joelhodir =(clock);
      #declare angulo_membroinfdir = (8*clock);
      #declare deslocamento_membroinfdir = (0.2*clock);
      #declare angulo_pedir = 0;
      
   #else 
      #declare angulo_pes = 0;
      #declare deslocamento_pes = 0;
      #declare angulo_membroinfesq = 0;
      #declare deslocamento_membroinfesq = 0;
      #declare angulo_coxaesq = 0;
      #declare angulo_joelhoesq = 0;
      #declare angulo_coxadir = (1*clock);
      #declare angulo_joelhodir =(clock);
      #declare angulo_membroinfdir = (8*clock);
      #declare deslocamento_membroinfdir = (0.2*clock);
      #declare angulo_pedir = 0;




   #end
#end
#end


plane {
  y, -13
  texture { T_Stone10} }     
  
   
#declare olho =
  sphere {
    < -1.00, 4.00, -2.00 >, .5
    pigment {Blue} 
  }

#declare boca =
  sphere {
    < 0.00, 2.00, -2.00 >, .5
    pigment {Red }
  }

#declare corpo = 
  cylinder {
    < 0.00, -5.00, 0.00 >,
    < 0.00, 0.00, 0.00 >,
    2
    pigment {Brown }
  }

#declare cabeca =
  sphere {
    < 0.00, 3.50, 0.00 >, 2.5
    pigment { Brown  }
  }

#declare membrossup = 
  cylinder {
    < -2, -1.00, 0.00 >,
    < 2, 1.00, 0.00 >,
    0.55
    pigment { Black }
  }

#declare coxas = 
  cylinder {
    < -1.5, -5.00, 0.00 >,
    < -1.5, -7.00, 0.00 >,
    0.55
    pigment { Black } }

#declare pescoco = 
  cylinder {
    < 0.00, 0.00, 0.00 >,
    < 0.00, 1.10, 0.00 >,
    0.35
    pigment { Black }
  }

#declare joelhos=
  sphere { <0, -7, 0 >, 0.8
  pigment {CoolCopper} }

#declare membrosinf =
  cylinder { <0,-7,0>, <-1,-11,0>, 0.55
	     pigment {BakersChoc} }

#declare pes =
  sphere { <-0.5,-11,0>, 0.6 
	   scale<3,0,0>
	   pigment {Copper} }


#declare metadepernaesq=
union{
	object{joelhos rotate angulo_joelhoesq*<6,0,1>}
	object{membrosinf rotate <0,0,angulo_membroinfesq> translate deslocamento_membroinfesq*<-5,2,-3>}
	object{pes rotate < 0, 0, angulo_pes> translate deslocamento_pes*<5,1,-3>} }

#declare metadepernadir= 
union{
	object{joelhos scale<-1,1,1> translate <1.5,0,0> rotate angulo_joelhodir*<-5,0,1> translate deslocamento_membroinfdir*<-3.2,0,0>}
	object{ membrosinf scale <-1,1,1> translate <1.5,0,0> rotate <0,0,-(angulo_membroinfdir)> translate deslocamento_membroinfdir*<1,-2,3> }
	object{pes scale <-1,1,1> translate <1,0,0> translate deslocamento_membroinfdir*<-5,-1,3>} }

#declare pernaesq=
union{
	object{metadepernaesq translate<-1.5,0,0>}
	object{coxas rotate angulo_coxaesq*<6,0,1>} }

#declare pernadir=
union{
	object{metadepernadir}
	object{coxas scale<-1,1,1> rotate angulo_coxadir*<-5,0,1> translate deslocamento_membroinfdir*<-4,0,0>}}


union{
	object{ olho }
	object{ olho translate <2, 0, 0 >}
	object{ boca }
	object { cabeca }
	object { membrossup translate < -3.9, -1.46, 0>  }
	object { membrossup  scale < -1, 1, 1> translate<3.9,-1.46,0> }
	object {corpo}
	object{pescoco}
	translate clock*<-1,0,0>
}
union{
	object{pernaesq}
	object{pernadir}
	translate clock*<-0.5,0,0>
}




/*
	#end
	#if (clock > 0.51)	
	union{
		object{ olho }
		object{ olho translate <2, 0, 0 >}
		object{ boca }
		object { cabeca }
		object { membrossup translate < -3.9, -1.46, 0>  }
		object { membrossup  scale < -1, 1, 1> translate<3.9,-1.46,0> }
		object {corpo}
		}
	union{
		object { coxas translate <-1.5,0,0> }
		object {coxas scale<-1,1,1> translate<1.5,0,0> rotate clock*<-5,0,1>}
		object {pescoco}
		object {joelhos translate <-1.5,0,0> }
		object {joelhos scale<-1,1,1> translate <1.5,0,0> rotate clock*<-5,0,1>}
		object {membrosinf translate <-1.5,0,0>}
		object {membrosinf scale <-1,1,1> translate <1.5,0,0> rotate clock*<0,0,-40/5> translate clock*<5/5,-2/5,3/5>}
		object {pes translate <-0.2,0,0>  }
		object {pes scale <-1,1,1> translate <0.2,0,0> translate clock*<-5/5,-1/5,3/5>} 
	}
	#end 
#end
*/