// Last edited on 2005-01-05 23:22:29 by stolfi
// Processed by remove-cam-lights

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

#declare alph = 90*clock;
#declare beta = 90*clock;
#declare gama = 45*clock;
#declare delta = 15*clock;
#declare comp= 15.0;
#declare raio= 2.0;

#declare barra=
 cylinder{
  <0.0, 0.0, 0.0>, <comp, 0.0, 0.0>, raio
 }

#declare dedo=
 cylinder{
  <0.0, 0.0, 0.0>, <(comp/3), 0.0, 0.0>, (raio/2)
  pigment {color rgb <1.0, 0.0, 0.0>}
 }

#declare garra=
 union{
  object{ dedo rotate gama*z translate <0.0, (raio/2), 0.0>}
  object{ dedo rotate delta*(-z) translate <0.0, -(raio/2), 0.0>}
 }

#declare antebraco=
 union{
  object{ barra pigment {color rgb <0.0, 1.0, 0.0>}}
  object{ garra translate <(comp-1), 0.0,0.0>}
 }

#declare braco=
 union{
  object{ barra pigment {color rgb <0.0, 0.0, 1.0>}}
  object{ antebraco rotate beta*(-y) translate <(comp-1), 0.0, 0.0>}
 }

#declare ombro=
 union{
  object{ barra pigment {color rgb <1.0, 0.5, 0.0>}}
  object{ braco rotate alph*z translate <(comp-1), 0.0, 0.0>}
 }

object {ombro}

#include "camlight.inc"
camlight(<25,0,5>,<0,-50,45>,1.00,z,1.0)