// Last edited on 2003-05-28 16:56:37 by stolfi

#include "colors.inc"
#include "metals.inc"
#include "woods.inc"
#include "glass.inc"
#include "skies.inc"

background { color rgb < 0.8, 1.0, 1.0 > }

#declare camX=2;
#declare camY=-1;
#declare camZ=15;

light_source {
  10*< 15.00, 20, 3.00 >
  color rgb 0.9*< 1,1,1 >
} 

light_source {
  < -10.00, 0, 20.00 >
  color rgb 0.9*<1,1,1>
} 

light_source {
  < 30.00, 0, 20.00 >
  color rgb 0.9*<1,1,1>
} 

// light_source {
//   < camX, camY, camZ >
//   color rgb < 2.00, 2.00, 2.00 >
// } 

camera {
  location  < camX, camY, camZ >
  right     -x
  up        y
  sky       y
  look_at   < camX, 0, 0 >
} 

#declare pe = object {
  cylinder {
  <-1,-.3,0>,
  <4,-.3,0>,
   0.5
   pigment { White}
  }
}

#if (clock < 0.75)
  #declare coxa_ang = 60*clock;
#else
  #declare coxa_ang = 45 - (clock - 0.75)*60;
#end

#if (clock <0.5)
  #declare pe_ang = -asin(5/4.5*(1-cos(coxa_ang*pi/180)));
#else
  #declare pe_ang = -asin(5/4.5*(1-cos(30*pi/180)));
#end

#declare tornozelo = union {
  cylinder {
  <0,0,0>,
  <0,5,0>,
  1
  pigment { White}
  }
  object {pe translate <0.5,0,0>  rotate <0,0,pe_ang/pi*180> translate <-0.5,0.5 ,0>}
}

#declare pernad = union {
  cylinder {
    <0,0,0>,
    <0,5,0>,
    1.5
    pigment { White}
    translate <0,-5,0>
    rotate <0,0,coxa_ang>
    translate <0,5,0>
  }
  object{ tornozelo translate <5*sin(coxa_ang*pi/180),-4.5+5*(1-cos(coxa_ang*pi/180)),0> }
}

#declare pernae = union {
  cylinder {
    <0,0,0>,
    <0,5,0>,
    1.5
    pigment { White}
    translate <0,-5,0>
    rotate <0,0,0>
    translate <0,5,0>
  }
  object{ tornozelo translate <0,-4.5,0> }
}

#declare tronco = union {
  cylinder {
    <0,0,0>,
    <0,10,0>,
    4
    pigment {White}
    translate <0,5,0>
  }
  object{pernae translate <0,0,-1.8>}
  object{pernad translate <0,0,1.8>}
}

tronco

plane { y,-6 pigment { checker color rgb <1,1,1>, color rgb <1,0.9,0.7> } }