// Last edited on 2007-07-23 20:23:56 by stolfi
// Processed by remove-cam-lights

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 A5*y
rotate A6*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}
}

#declare A1 = -90 + 180*clock;
#declare A2 = 0;
#declare A3 = -45 + 45*clock;
#declare A4 = 0;
#declare A5 = -90 + 180*clock;
#declare A6 = 0;
#declare A7 = -45 + 45*clock;
#declare A8 = 0;
#declare A9 = 0;
#declare A10 = -45*clock;
#declare A11 = 45*clock;
#declare A12 = 0;
#declare A13 = 0;
#declare A14 = 0;
#declare A15 = 0;
#declare A16 = 0;

object {

 corpo(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16)
}

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

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