// Andando???....
// 08/05/2003 Thiago Barroso Fonte Boa
// Last edited on 2003-06-27 19:22:05 by stolfi

#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>}

#declare ctr = < 0, 0, 0 >;
camera {
  location  ctr + 1.4*< 0, 0, -2.8 >
  right x  up y
  look_at   ctr
} 

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

#declare rotcintz=8+9*abs(cos(radians(clock*720)));
#declare rotcinty=-10+20*abs(cos(radians(clock*360)));
#declare rotcint=-2.5 + 5*abs(cos(radians(clock*360)));
#declare movcint=-0.03 + 0.03*abs(cos(radians(2*clock*360)));

#declare rotpernad=-20 + 50*abs(sin(radians(clock*360)));
#declare rotped=-30 + 30*abs(sin(radians(clock*360)));
#declare rotcoxad=5 - 40*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 - 40*abs(sin(radians(clock*360)));

#declare rotbracoe=-23+39*abs(cos(radians(clock*360)));
#declare rotbracod=-23+39*abs(sin(radians(clock*360)));
#declare rotantee=-30+50*abs(cos(radians(clock*360)));
#declare rotanted=-30+50*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 bracoe=
union{
  cylinder{<0,0,0>,<0,-0.5,0>,0.1 rotate<0,0,rotbracoe>}
  cylinder{<0,0,0>,<-0.3,-0.4,0>,0.1 rotate<0,0,rotantee> translate<0.5*sin(radians(rotbracoe)),1-cos(radians(rotbracoe)),0> translate<0,-0.5,0>}

  translate<0,1.1,-0.3>
  pigment{color rgb azul}
}

#declare bracod=
union{
  cylinder{<0,0,0>,<0,-0.5,0>,0.1 rotate<0,0,rotbracod>}
  cylinder{<0,0,0>,<-0.3,-0.4,0>,0.1 rotate<0,0,rotanted> translate<0.5*sin(radians(rotbracod)),1-cos(radians(rotbracod)),0> translate<0,-0.5,0>}

  translate<0,1.1,0.3>
  pigment{color rgb azul}
}

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

  rotate<rotcint,rotcinty,0>
  translate<0,movcint,0>
  pigment{color rgb azul}
}

#declare corpo=
union{
  cylinder{<0,0,0>,<0,1.5,0>,0.1}
  cylinder{<0,1.1,0.4>,<0,1.1,-0.4>,0.1}
  sphere{<0,1.5,0>,0.2}
  cint
  bracoe
  bracod

  rotate<0,0,rotcintz>
  pigment{color rgb azul}
}


plane{y,-1.8
  texture {T_Stone15}
}
object{corpo rotate<0,-45,0> translate<1.4,0,2> translate<-2.3*clock,0,-1.8*clock>}