// Last edited on 2009-07-24 14:02:29 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
   
  }
  
#declare vermelho = 
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
   
  }

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

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

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

#declare amarelo = 
  texture {
    pigment { color rgb < 1.00, 1.00, 0.00 > }
}

#macro colher()

 union {

 
 
 cylinder {
 < 0, 0, 0 >, < 2, 0, 0 >, 1
 texture { amarelo } 
 }
 sphere {
 < 0, 0, 0 >, 1
 texture { amarelo }
 }
 sphere {
 < 2, 0, 0 >, 1
 texture { amarelo }
 }

 sphere {
 < 4, 0, 0 >, 1
 texture { branco }
 }
 }
#end

#macro braco_1(alfa)

 union {
 
 cylinder {
 < 0, 0, 0 >, < 2, 0, 0 >, 1
 texture { vermelho }
 }
 sphere {
 < 0, 0, 0 >, 1
 texture { vermelho }
 }
 sphere {
 < 2, 0, 0 >, 1
 texture { vermelho }
 }
 
 object{colher()
 rotate < 0, alfa, 0 >
 translate < 3, 0, 0 >
 } 
}
#end

#macro braco_2(alfa,beta)

 union {
 
 cylinder {
 < 0, 0, 0 >, < 2, 0, 0 >, 1
 texture { azul }
 }
 sphere {
 < 0, 0, 0 >, 1
 texture { azul }
 }
 sphere {
 < 2, 0, 0 >, 1
 texture { azul }
 }
 
 object{braco_1(alfa)
 rotate < 0, alfa, beta >
 translate < 3, 0, 0 >
 } 
}
#end
 
#macro braco_3(alfa,beta)

 union {
 
 cylinder {
 < 0, 0, 0 >, < 2, 0, 0 >, 1
 texture { verde }
 }
 sphere {
 < 0, 0, 0 >, 1
 texture { verde }
 }
 sphere {
 < 2, 0, 0 >, 1
 texture { verde }
 }
 
 object{braco_2(alfa,beta)
 rotate < 0, alfa, beta >
 translate < 3, 0, 0 >
 } 
}
#end

object{braco_3(+20, -70) translate -5*y} 

object{braco_3(-60, +30) translate +5*y} 


// Original camera parameters:
// #local cam_ctr = <2.00,0.00,0.00>
// #local cam_vec = (<3.00,-20.00,0.00>-<2.00,0.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<2.00,0.00,0.00>,<10,10,5>,20.0,z,1.0)