// Last edited on 2007-07-23 23:30:26 by stolfi
// Processed by remove-cam-lights

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

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

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

#declare prata =
  texture {
    pigment { color rgb < 0.75, 0.75, 0.80 > }
    finish { diffuse 0.7 specular 0.5 roughness 0.005 ambient 0.2 reflection 0.0 }
  }

#declare cor_ouro = < 1.0, 0.8, 0.1 >;

#declare dourado =
  texture {
    pigment { rgb cor_ouro }
    finish {
      ambient 0.05 diffuse 0.05
      reflection cor_ouro
      specular 0.20 roughness 0.05
    }
  }

#declare rosto =
   sphere {
 <0, 0,9.9> 3.0
 texture { tinta_B }
}

#declare olho =
   sphere {
   <0.6,-2.5,8>
   1.1
   texture { tinta_A }
}

#declare corpo =
   cone {
 <0,0,2>, 3.0
 <0,0,8>, 2.2
 texture { tinta_B }
}

#macro mao()
  sphere{
 <0,0,0>, 1 texture { prata }
 scale <2, 1, 1>
  }
#end

#macro antebraco(alfa)
   union {
    cylinder { <0,0,0>, <4,0,0>, .5 texture { tinta_B } }
 object { mao()
  rotate alfa*y
  translate 4*x
 }
   }
#end

#macro braco(alfa, beta)
   union {
    cylinder { <0,0,0>, <4,0,0>, .5 texture { tinta_B } }
 object { antebraco(beta)
  rotate alfa*y
  translate 4*x
 }

   }
#end

#macro pe()
  sphere{
 <-1,0,0>, 0.8 texture { prata }
 scale <2, 1, 1>
  }
#end

#macro canela(alfa)
   union {
    cylinder { <-1,0,0>, <-1,0,4>, .5 texture { tinta_B } }
 object { pe()
  rotate alfa*y
  translate 4*z
 }
   }
#end

#macro perna(alfa, beta)
   union {
    cylinder { <-1,0,0>, <-1,0,4>, .5 texture { tinta_B } }
 object { canela(beta)
  rotate alfa*y
  translate 4*z
 }
   }
   scale <0, 0, 0.4>
#end

union {
 object {rosto}
 object { olho }
 object { olho
   translate <-1,0,0>
 }

object { corpo }

#declare bd1=120*clock;
#declare bd2=360*clock*(1-(clock));
#declare pdx=60*(cos(clock));
#declare pdy=60*clock;
#declare pex=60*(sin(clock));
#declare pey=60*clock;

#if(clock<0.5)
  #declare ttx= -pex;
#end
#if(clock>0.5)
  #declare ttx= pex;
#end

#if(clock<0.5)
  #declare tty= -pey;
#end
#if(clock>0.5)
  #declare tty= pey;
#end

#declare be1=120*clock;
#declare be2=360*clock*(1-(clock));

object { braco(bd1,bd2) translate 5*z}
object { braco(be1,-be2) translate 5*z scale <-1,1,1>}
object { perna(pdx,ttx) rotate 180*y translate <0,0,2>}
object { perna(pex,tty) rotate 180*y translate <0.5,0,2> scale <-1,1,1> }

}
// plane { z, -2
//     texture {
//       pigment { checker <0.5,0.5,0.5>, <1,1,1> }
//       finish { ambient 0.6 diffuse 0.4 }
//     }
//   }
// 
// Original camera parameters:
// #local cam_ctr = <0.00,0.00,7.00>
// #local cam_vec = (<0,-9,5.00>-<0.00,0.00,7.00>)
// #local cam_sky = z

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