// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare tinta_A =
  texture {
    pigment { color rgb < 0.10, 0.10, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
#declare tinta_trans =
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > filter 0.5 }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_ouro =
  texture {
    pigment { color rgb < 1.0, 0.8, 0 > }
    finish { diffuse 0.2  roughness 0.2 ambient 0.4 reflection 0.2 }
  }
#declare tinta_D =
  texture {
    pigment { color rgb < 0, 255, 255 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.5 ambient 0.1 }
  }
#declare no_corpo =
 sphere {
 < 0.0, 0.0, 0.0 >, 0.80
 texture {tinta_A}
}
#declare no_pernas =
 sphere {
 < 0.0, 0.0, 0.0 >, 1.10
 texture {tinta_A}
}

#declare coxa =
  cylinder {
      <0.00, 0.00, 0.00>,
      <6.00, 0.00, 0.00>,
      0.95
      texture {tinta_B}
 }

#declare canela =
 union {
  object {no_pernas translate<5.5, 0.0, 0.0>}
  cylinder {
      <0.00, 0.00, 0.00>,
      <6.00, 0.00, 0.00>,
      0.95
      texture {tinta_B}
 }
 }
#macro perna(alfa)
 union {
  object {canela rotate alfa*z translate 6*x}
  object {no_pernas translate 6*x}
  object {coxa}
  object {no_pernas}
 }
#end
#macro membro_inferior(mem_x, mem_y, joe_y)
 object {perna(joe_y) rotate<mem_x, mem_y, 90>}
#end

#declare biceps =
  cylinder {
      <0.00, 0.00, 0.00>,
      <4.00, 0.00, 0.00>,
      0.60
      texture {tinta_B}
 }

#declare antebraco =
       union {
  object {no_corpo translate<4.5, 0.0, 0.0>}
  cylinder {
      <0.00, 0.00, 0.00>,
      <4.00, 0.00, 0.00>,
      0.60
      texture {tinta_B}
  }
 }

#macro braco(alfa)
 union {
  object{antebraco rotate alfa*y translate 4*x}
  object {no_corpo translate 4*x}
  object {biceps}
  object {no_corpo}
 }
#end

#macro membro(mem_x, mem_y, cot_x)
 object {braco(cot_x) rotate<0, mem_y, mem_x>}
#end

#declare pescoco =
 cylinder {
    <0.00, 0.00, 7.60>,
    <0.00, 0.00, 8.80>,
    0.60
    texture {tinta_B}
}

#declare orelha_direita =
 cone {
    <0.0, 0.0, 10.0>, 1.5
    <3.0, 0.0, 13.0>, 0.0
    texture {tinta_A}
}

#declare orelha_esquerda =
 cone {
    <0.0, 0.0, 10.0>, 1.5
    <-3.0, 0.0, 13.0>, 0.0
    texture {tinta_A}
}

#declare cabeca =
 sphere {
 < 0.0, 0.0, 10.0 >, 2.00
 texture {tinta_B}
}

#declare corpo =
 box {
 < 2.5, -0.6, 7.6>
 < -2.5, 0.6,  2.2>
 texture {tinta_B}
}

#if(clock > 0.70 )
 #declare joe_time_dir = -48+(clock-0.7)*48/0.30;
 #declare joe_time_esq = -15*(clock-0.7)/0.30-30;
 #declare perna_time_dir = 80-(clock-0.70)*30/0.30;
 #declare perna_time_esq = (40*(clock-0.70)/0.30)+70;
 #declare velocidade = sin(perna_time_esq-90)*6 -sin(joe_time_esq)*6+6;
#end

#if(clock > 0.50 & clock <= 0.70)

 #declare joe_time_esq = -(clock-0.50)/0.20*30;
 #declare joe_time_dir = -33-(clock-0.5)/0.2*15;
 #declare perna_time_esq = 50+(clock-0.5)/0.2*20;
 #declare perna_time_dir = 100-(clock-0.5)/0.20*20;
 #declare velocidade = sin(perna_time_esq-90)*6 -sin(joe_time_esq)*6+6;
#end

#if(clock > 0.20 & clock <= 0.50)
 #declare joe_time_esq = -48+(clock-0.2)*48/0.30;
 #declare joe_time_dir = -15*(clock-0.2)/0.30-30;
 #declare perna_time_esq = 80-(clock-0.20)*30/0.30;
 #declare perna_time_dir = (40*(clock-0.20)/0.30)+70;
 #declare velocidade = sin(perna_time_dir-90)*6 -sin(joe_time_dir);
#end

#if(clock <= 0.20)
 #declare joe_time_dir = -(clock/0.20)*30;
 #declare perna_time_dir = 50+(clock/0.2)*20;
 #declare perna_time_esq = 100-(clock/0.20)*20;
 #declare joe_time_esq =-33-(clock/0.20)*15;
 #declare velocidade = sin(perna_time_dir-90)*6 -sin(joe_time_dir)*6;
#end

union {
 object {orelha_direita}
 object {orelha_esquerda}
 object {cabeca}
 object {pescoco}
 object {corpo}
 object{membro(0, 50, 30) translate<2.5, 0, 7.4> }
 object{membro(0, 50, 30) translate<2.5, 0, 7.4> scale<-1,1,1> }
 object{membro_inferior(80, perna_time_dir, joe_time_dir) translate<2.2, 0, 2.2> }
 object{membro_inferior(80, perna_time_esq, joe_time_esq) translate<2.2, 0, 2.2> scale<-1,1,1> }
 translate velocidade*y
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <80.00,0.00,0.00>
// #local cam_sky = z

#include "camlight.inc"
// camlight(<0,0,0>,<10,10,10>,20.0,z,1.0)
camlight(<0.00,0.00,2.50>,<7,10,5>,35.0,z,1.0)