// Last edited on 2007-07-23 22:00:10 by stolfi
// Processed by remove-cam-lights

background{ color rgb < 0.80, 0.80, 1.00 > }

#declare raio = 2.000;

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

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

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

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

#declare branco =
  texture {
    pigment { color rgbf < 1.00, 1.00, 1.00, 0.5 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare gold = texture {
  pigment { color rgb <0.8, 0.85, 0.05> }
  finish {
    ambient 0.2
    diffuse 0.3
    specular 0.2  roughness 0.05
    reflection 0.3
  }
}

#declare cilindro_perna =
  cylinder {
    < 0.00, 0.00, 0.00 >,
    < 0.00, 0.00, -10.00 >,
    1.00
    texture { branco }
  }

#declare cilindro_braco =
  cylinder {
    < 0.00, 0.00, 0.00 >,
    < 0.00, 0.00, 3.00 >,
    1.00
    texture { branco }
  }

#declare esfera_cabeca =
  sphere {
    < 0.00, 0.00, 6.50 >,
    3.00
    texture { branco }
  }

#declare esfera_corpo =
  sphere {
    < 0.00, 0.00, 0.00 >,
    5.00
    texture { branco }
  }

#declare esfera_art =
  sphere {
    < 0.00, 0.00, 0.00 >,
    1.00
    texture { branco }
  }

#macro mao()
 box {
      < -1.00, 0.00, -0.50 >,< 1.00, 2.00, 0.50 >
     texture { branco }
   }
#end

#macro antebraco(ome)
 union{
  cylinder{ <0,0,0>,<0,3,0>,1 texture { branco }}
  object{
   mao()
   rotate ome*x
   translate 3*y
  }
 }
#end

#macro braco(mi,ome)
 union{
  cylinder{ <0,0,0>,<0,5,0>,1 texture { branco }}
  object{
   antebraco(ome)
   rotate mi*x
   translate 5*y
  }
 }
#end

#macro superbraco(alfa,gama,mi,ome)
 object{
  braco(mi,ome)
  rotate < alfa, gama, 0 >
 }
#end

#declare md = 50*clock;
#declare me = -30*clock;
#declare ad = 400*clock*(1-clock);
#declare ae = -30*clock;
#declare bdz = -400*clock*(1-clock);;
#declare bez = 0;
#declare bdx = -90;
#declare bex = -90;
#declare pd = 0;
#declare pe = -400*clock*(1-clock);

object{superbraco(bdx,bdz,ad,md) translate 4.75*y}
object{superbraco(bex,bez,ae,me) scale < 1, -1, 1> translate -4.75*y}

union{
 object{esfera_corpo texture {gold}}
 object{esfera_cabeca}
 object{cilindro_perna translate < 0, -2, -4.0 > rotate pe*y}
  object{cilindro_perna translate < 0, 2, -4.0 > rotate pd*y}

}

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

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