// Last edited on 2009-07-24 11:36:52 by stolfilocal
// Processed by remove-cam-lights

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

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.85, 0.65, 0.7 > }
    finish { diffuse 0.9 ambient 0.1 }
  }

#macro ponta () 
object {
 union {
 
 cylinder {
  <0,0,0.3> , 
 <-5,0,0.3>, 0.7
  texture { tinta_A }
}
  box {
     < 0.00, 0.00, 0.00 >, 
  <-5,0.5,-7> 
      texture { tinta_A }
  }
 box {< 0,0.5, -7 >, 
  <-1,5,-6.5> 
      texture { tinta_A }
} box {< -2,0.5, -7 >, 
  <-3,5,-6.5> 
      texture { tinta_A }
}
 box {< -4,0.5, -7 >, 
  <-5,5,-6.5> 
      texture { tinta_A }
}}}
#end

#macro braco1 (alfa)
union {
object{ cylinder {
  <0,0,0.3> , 
  <-5,0,0.3>,0.7 
  texture { tinta_A }
}}

object {
 box {
 <0,0,0>,
 <-5,3,1>
 texture { tinta_A} 
 }}
object { ponta()

 rotate <alfa,0,0>
 translate <0,3,0> 
 }}
#end

#macro braco2(alfa,beta)
union { object {braco1(alfa) 
 rotate <beta,0,0>
 translate <0,5,0>
}
object {
 box {
 <0,0,0>,
 <-5,5,1>
 texture { tinta_A} 
 }}

object{ cylinder {
  <0,0,0.3> , 
  <-5,0,0.3>,0.7 
  texture { tinta_A }
}}

}
#end 

#macro braco3(alfa,beta,gama)

union { object {braco2(alfa,beta) 
 rotate <gama,0,0>
 translate <0,8,0>
}
object {
 box {
 <0,0,0>,
 <-5,8,1>
 texture { tinta_A} 
 }}}
#end 

object {braco3 (-30,20,-15)}

object {braco3 (20,50,-30) translate 20*x}

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

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