// Last edited on 2007-07-23 20:25:58 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 < 1.0, 0.0, 0.00 > filter 0.5 }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 0.00, 0.0, 0.0 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }
#declare tinta_C =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.2 >  }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.2 reflection 0.2 }
  }
#declare tinta_D =
  texture{
 pigment{ color rgb<0.00, 0.80, 0.0> filter 0.5}
  finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
}

#macro mao()
 sphere{
  <0, 0, 0>, 2
  }

#end

#macro antebraco(almao)
  union{
 cylinder{ <0,0,0>, <0, 15 , 0>, 1}
 object{mao() rotate almao*z translate 15*y}
 }
#end

#macro braco(alante, art1)
  union{
 cylinder{ <0, 0, 0> , <0, 10, 0>, 1}
 sphere{ <0, 0, 0> , 0.5}
 object{antebraco(art1) rotate alante*z translate 10*y}
 }
#end
#macro corpo()
   union{
 cylinder{ <0,0,0> , <0, 0, 50>, 2}
 sphere{ <0,0,50>, 10 }

        cylinder{<0,0,0>,  < 0, -20, -20> ,2}
        cylinder{<0, 0,0>, < 0, 20, -20> , 2}

 }
#end

#declare te = clock;

#declare A1 = 10 + 20*te;
#declare A2 = 10 -70*te;
#declare A3 = 10 -70*te;
#declare A4 = 20 - 40*te;
union{
object{corpo() texture{ tinta_C } }
object{braco(A3 ,0) translate 2*y translate 30*z rotate A2*z}
object{braco(A4 ,0) translate 2*y translate 30*z rotate A1*z scale< 1, -1, 1>}
}

// Original camera parameters:
// #local cam_ctr = <0.00,.00,5.00>
// #local cam_vec = (<200.00,0.00,0.00>-<0.00,.00,5.00>)
// #local cam_sky = z

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