// Last edited on 2007-07-23 13:25:44 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 < 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>, 1
  }

#end

#macro antebraco(almao)
  union{
 cylinder{ <0,0,0>, <10, 0 , 0>, 0.5}
 object{mao() rotate almao*y translate 10*x}
 }
#end

#macro braco(alante, art1)
  union{
 cylinder{ <0, 0, 0> , <0, 20, 0>, 0.5}
 sphere{ <0, 0, 0> , 0.5}
 object{antebraco(art1) rotate alante*y}
 }
#end
#macro corpo()
   union{
 cylinder{ <0,0,0> , <30, 0, 0>, 5}
 sphere{ <0,0,0>, 5 }

 }
#end

#macro ra(alentedd, art1dd, alentede, art1de, alentetd, art1td, alentete, art1te, bracotd, bracote, bracodd, bracode)

union{
 object{ corpo() rotate 45*z}
        object{braco(alentetd, art1td) translate <5,0,0> rotate bracotd*y }
 object{braco(alentete, art1te) translate <-5,0,0> rotate bracote*y}
 object{braco(alentedd, art1dd) translate <5, 10, 10> rotate bracodd*y}
        object{braco(alentede, art1de) translate <-5, 10, 10> rotate bracode*y}
}
#end

object{ra(-45, 60, -30, -45, 12, -45, 10, -45, 50, -20 ,45, -45) texture{ tinta_C } }

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <50.00,50.00,50.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<21,21,0>,<10,10,10>,80.0,z,1.0)