// Last edited on 2007-07-23 20:36:07 by stolfi
// 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 }
 }
}
 rotate <0,0,clock*(-30)>
#end

#macro perna (alfa)
union {
 cylinder {
 < 0.0, 0.0, 0.00 >,
 <0.0, 0.0, -4.00 >,
 0.30
 texture {tinta_A}
 }
 object { pe( )
  rotate alfa*y
  translate -4.0*z
 }

}
#end

#macro cabeca (beta, alfa)
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)
  rotate beta*x
  rotate <0, 75*clock, 0 >
  translate <-1.0, 0.0, 0.0>
 }
 object{ perna(alfa)
  rotate beta*x*clock
  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

object{ cabeca(30,20)
 rotate 30*clock*z

 }

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

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = vrotate(<8.00,4.00,2.00>,60*z)
// #local cam_sky = z

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