// Last edited on 2005-01-05 23:27:43 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.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

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

#declare eixox=
 cylinder{
 <0,0,0>
 <100,0,0>
 0.1
  }
#declare eixoy=
 cylinder{
 <0,0,0>
 <0,100,0>
 0.1
 }
#declare eixoz=
 cylinder{
 <0,0,0>
 <0,0,100>
 0.1
 }

#declare eixo=
 union{
 object{eixox}
 object{eixoy}
 object{eixoz}
 }

#declare alfa=30;
#declare beta=15;

#declare dedo=
 cylinder{
 <0,0,0>
 <5,0,0>
 0.5
 texture{tinta_A}
 }

#declare tt=clock;
 #if(tt<0.20)
  #declare alfa=40*tt*tt;
 #else
  #if (tt<0.80)
   #declare beta=80*tt;
  #else
   #declare beta=100*tt;
  #end
 #end

#declare dedos=
 union{
 object{dedo translate <2,0,0> rotate -30*y translate <-2,0,0>}
 object{dedo}
 object{dedo translate <4,0,0> rotate 30*y translate <-4,0,0>}
}

#declare palma=
 sphere{
 <0,0,0>
 4.0
 texture{tinta_A}
}

#declare mao=
 union{
 object{dedos translate <3,0,0>}
 object{palma}
}

#declare ante=
 cylinder{
 <0,0,0>
 <20,0,0>
 3.5
 texture{tinta_A}
}

#declare braco=
 cylinder{
 <0,0,0>
 <10,0,0>
 3.75
 texture{tinta_A}
}

#declare corpo1=
 union{
 object{mao translate <2,0,0> rotate -alfa*y translate <18,0,0>}
 object{ante}
}

#declare corpo=
 union{
 object{corpo1 rotate -beta*y translate <10,0,0>}
 object{braco}
}

union{
 object{eixo}
 object{corpo}
}

#include "camlight.inc"
camlight(<15,0,0>,<5,50,15>,1.00,z,1.0)