// Last edited on 2007-07-23 13:37:24 by stolfi
// Processed by remove-cam-lights

global_settings { max_trace_level 12 }

#declare tinta_xadrez =
  texture {
    pigment { checker color rgb <0.40,0.50,0.60>, color rgb <0.90,0.95,1.00> }
    finish { ambient 0.6 diffuse 0.4 }
  }

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

object{ cabeca(30,20) }

object { braco(60, 20)
 translate<1.5, 0 ,0  >
 }

object { braco(60,20)
 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,-1>,<10,10,10>,12.0,z,1.0)