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

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

#declare raio = 2.000;

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

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

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

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

#declare tinta_prata =
  texture {
    pigment { color rgb < 0.50, 0.50, 0.50 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.2 reflection 0.2 }
  }

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

#macro pe ( )

union{
 box {
 <-0.3, -0.3, 0.0 >,
 < 1.0, 1.0, -0.50 >
 texture { tinta_A }
 }
 sphere {
 <0.0, 0.0, 0.0 >, 0.3
 texture { tinta_A }
 }
}
#end

#macro perna (alfa,gama)
union {
 cylinder {
 < 0.0, 0.0, 0.00 >,
 <0.0, 0.0, -2.80 >,
 0.30
 texture {tinta_A}

 }
 cylinder {
 < 0.0, 0.0, -2.80 >,
 <0.0, 0.0, -4.00 >,
 0.30
 texture {tinta_A}
 }
 sphere {
 <0.0, 0.0, -2.80 >, 0.5

 texture { tinta_C }
 }
 object { pe( )
  translate -4.0*z
 }

}
#end

#if (clock < 0.2)
 #declare Andar1 = 20*clock;
 #declare Andar2 = (-20)*clock;
 #declare Pulo = 8*clock;
#end
#if ( clock >= 0.2 & clock < 0.4)
 #declare Andar1 = 40*clock;
 #declare Andar2 = (-40)*clock;
 #declare Pulo = 12*clock;
#end
#if ( clock >= 0.4 & clock < 0.6)
 #declare Andar1 = 0*clock;
 #declare Andar2 = (0)*clock;
 #declare Pulo = 8*clock;
#end
#if ( clock >= 0.6 & clock < 0.8)
 #declare Andar1 = (-20)*clock;
 #declare Andar2 = (20)*clock;
 #declare Pulo = 4*clock;
#end
#if ( clock >= 0.8 & clock < 1)
 #declare Andar1 = (-20)*clock;
 #declare Andar2 = (20)*clock;
 #declare Pulo = clock;
#end

#macro cabeca (beta, alfa, gama)
union {
 sphere {
  <0.0, 0.0, 0.0 >, 2.0
  texture {tinta_A}
 }
 sphere {
  < 1.0, 1.4, 1.0 >, 0.50
  texture { tinta_BR }
 }
 sphere {
     < -1.0, 1.4, 1.0 >, 0.50
  texture { tinta_BR }
 }

 object{ perna(alfa,gama)
  rotate x*Andar1
  translate <-1.0, 0.0, 0.0>
 }
 object{ perna(alfa,gama)
  rotate x*Andar2
  translate < 1.0, 0.0, 0.0>
 }

}
#end

#macro mao ( )
union {
 box {
 <0.0, 0.0, 0.0 >,
 < 1.0, 1.0, -0.50 >
 texture { tinta_P }
 }
 sphere {
 <0,0,0 >, 0.4
 texture{ tinta_prata }
 }
}
#end

#macro antebraco( ang_antebraco )
union {
 cylinder {
  < 0.0, 0.0, 0.00 >,
  < 2.0, 0.0, 0.00 >,
  0.30
  texture {tinta_A}
 }
 sphere {
 <0,0,0 >, 0.4
 texture { tinta_prata }
 }

 object { mao( )
 rotate ang_antebraco*y
 translate 2*x
 }

}
#end

#macro braco( ang_braco, ang_antebraco )
union {
 cylinder {
  < 0.0, 0.0, 0.00 >,
  < 1.0, 0.0, 0.00 >,
  0.30
  texture {tinta_A}
 }

 object { antebraco( ang_antebraco )
  rotate ang_braco*y
  translate 1*x

 }
}
#end

#if (clock < 0.6)
 #declare A1 = 20*clock;
#end
#if (clock >= 0.6)
 #declare A1 = 180*clock;
#end

union {
 object{ cabeca(30,20,45)
  }

 object { braco(60, 20)
  translate<1.5, 0 ,0  >
  rotate <clock*45, 0, 45*clock >
  }

 object { braco(60,20)
  rotate <A1, 0, 0>
  translate<1.5,0,0>
  scale<-1,1,1>
 }
 translate <0,0,Pulo>
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <8.00,4.00,2.00>
// #local cam_sky = z

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