// Andando???....
// Last edited on 2003-05-29 02:44:59 by stolfi
// 24/04/2003 Thiago Barroso Fonte Boa

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


light_source { 100*<0,0,-1> color rgb 1.2*<1,1,1>}
light_source { 100*<0,1,-0.2> color rgb 0.8*<1,1,1>}

camera {
  location  <  0, -1, -2.8 >
  right x  up y
  look_at   <  0, -1, 0 >
} 

#declare azul = <0.5,0.7,1.0>;

#declare rotpernad=-20 + 50*abs(sin(radians(clock*360)));
#declare rotped=-30 + 30*abs(sin(radians(clock*360)));
#declare rotcoxad=5 - 30*abs(cos(radians(clock*360)));

#declare rotpernae=-20 + 50*abs(cos(radians(clock*360)));
#declare rotpee=-30 + 30*abs(cos(radians(clock*360)));
#declare rotcoxae=5 - 30*abs(sin(radians(clock*360)));


#declare pernad=
union{
  cylinder{<0, 0, 0>,<0, 0.8, 0>,0.1}
  box{<-0.4, -0.1, -0.1>,<0.1, 0.0, 0.1> rotate<0,0,rotped>}
  translate<0,-0.8,0> rotate<0,0,rotpernad> translate<0,-1,0>

//sobe e desce da perna com relacao a coxa
  translate<sin(radians(rotcoxad)),1-cos(radians(rotcoxad)),0>

  pigment{color rgb azul}
}

#declare coxpernad=
union{
  cylinder{<0, 0, 0>,<0, -1.0, 0>,0.1
    rotate<0,0,rotcoxad> 
  }
  pernad
  pigment{color rgb azul}
}

#declare pernae=
union{
  cylinder{<0, 0, 0>,<0, 0.8, 0>,0.1}
  box{<-0.4, -0.1, -0.1>,<0.1, 0.0, 0.1> rotate<0,0,rotpee>}
  translate<0,-0.8,0> rotate<0,0,rotpernae> translate<0,-1,0>

//sobe e desce da perna em relacao a coxa
  translate<sin(radians(rotcoxae)),1-cos(radians(rotcoxae)),0>

  pigment{color rgb azul}
}

#declare coxpernae=
union{
  cylinder{<0, 0, 0>,<0, -1.0, 0>,0.1
    rotate<0,0,rotcoxae> 
  }
  pernae
  pigment{color rgb azul}
  translate<0,0,0.4>
}

#declare cint=
union{
  cylinder{<0,-0.1,-0.1>,<0,-0.1,0.5>,0.1}
  coxpernad
  coxpernae
  translate<0,0.1,-0.2>
  pigment{color rgb azul}
}

plane{y,-1.8
  texture {T_Stone15}
}
object{cint rotate<0,-45,0>}