// Last edited on 2007-07-23 12:18:39 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 preto =
 texture {
  pigment { color rgb < 0.00, 0.0, 0.0 > }
  }

#declare vermelho =
 texture {
  pigment { color rgb < 1.00, 0.0, 0.0 > }
  }

#declare azul =
 texture {
  pigment { color rgb < 0.00, 0.0, 1.0 >  }
  }

#declare verde =
 texture {
  pigment { color rgb < 0.00, 1.0, 0.0 > }
  }

#macro pe()
  sphere {
 <0,0,0>,3
 texture {vermelho}
}
#end

#macro canela(A9)
union {
cylinder {
 <0,0,0>,<8,0,0>,1.5
 texture {azul}
 }
object {
 pe()
 rotate A9*y
 translate 10*x

 }
}
#end

#macro perna(A9,A10)
union{
cylinder {
 <0,0,0>,<10,0,0>,2
 texture {azul}
 }
object{ canela(A9)
rotate A10*y
translate 10*x
}
}
#end
#macro mao()
  sphere {
 <0,0,0>,2
 texture {vermelho}
}
#end

#macro antebraco(A4)
union {
cylinder {
 <0,0,0>,<10,0,0>,1
 texture {azul}
 }
object { mao()
 scale<1,1,0.3>

 rotate A4*y
 translate 11*x

 }
}
#end

#macro braco(A3,A4)
union{
cylinder {
 <0,0,0>,<8,0,0>,1.2
 texture {azul}
 }
object{ antebraco(A4)
rotate A3*y
translate 8*x
}
}
#end

#macro corpo(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
union{
sphere {
 <0,0,20>,10
 texture {verde}
 }
object{
braco(A3,A4)
rotate A1*y
rotate A2*z
translate 10*x
translate 20*z
}
object{
braco(A7,A8)

rotate A4*y
rotate A5*z
translate 10*x
translate 20*z
scale<-1,1,1>
}
object{
perna(A9,A10)
rotate A11*y
rotate A12*x
rotate 90*y
rotate -90*z
translate 15*z
translate 3*x

}
object{
perna(A13,A14)
rotate A15*y
rotate A16*x
rotate 90*y
rotate -90*z
translate 15*z
translate -3*x

}
}
#end

#declare eixo_x =
  cylinder {
    <0,0,0>,<30,0,0>,0.2
 texture {vermelho}
}

#declare eixo_y =
  cylinder {
    <0,0,0>,<0,30,0>,0.2
 texture {azul}
}
#declare eixo_z =
  cylinder {
    <0,0,0>,<0,0,30>,0.2
 texture {preto}
}

corpo(30,30,20,50,10,-20,20,30,0,-20,30,30,0,-20,30,-30)

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,10.00>
// #local cam_vec = (<5.00,35.00,15.00>-<0.00,0.00,10.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,0.00,10.00>,<8,10,5>,60.0,z,1.0)