// Last edited on 2009-07-24 18:13:34 by stolfilocal
// Processed by remove-cam-lights

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

#declare tinta_vermelho = 
  texture {
    pigment { color rgb < 0.65, 0.0, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_verde = 
  texture {
    pigment { color rgb < 0.00, 0.65, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_azul = 
  texture {
    pigment { color rgb < 0.00, 0.0, 0.65 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_preto = 
  texture {
    pigment { color rgb < 0.00, 0.00, 0.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_branco = 
  texture {
    pigment { color rgb < 1.0, 1.0, 1.0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

  
#macro barra_vertical_folha() 
  union{
 cylinder {
   < 0.00, 6.00, 0.00 >,
        < 0.00, -6.00, 0.00 >,
        2.00
        texture { tinta_azul }
     }
}
#end  

#macro suporte_horizontal(altura)
union{

box{
<0,-1,-1>,
<10,1,1>
texture { tinta_azul }
}

object{
barra_vertical_folha()
rotate<0,0,0>
translate<5,altura,0>
}
}
#end  

#macro barra_horizontal(altura_suporte_horizontal_barra_vertical, dist_barra_horizontal_suporte_horizontal)
union{
cylinder {
   < 0.00, 0.00, 0.00 >,
        < 16.00, 0.00, 0.00 >,
        0.50
        texture { tinta_verde }
   }

object{
suporte_horizontal(altura_suporte_horizontal_barra_vertical)
rotate<0,0,0>
translate<dist_barra_horizontal_suporte_horizontal,0,0>
}

}
#end

#macro colher(angulo, altura_suporte_horizontal_barra_vertical, dist_barra_horizontal_suporte_horizontal)

union{

cylinder {
   < 0.00, 0.00, 0.00 >,
        < 0.00, -3.00, 0.00 >,
        0.50
        texture { tinta_verde }
   rotate<angulo, 0, 0>
   }
cylinder{
  <0.00, -3.5,0.00>,
  <0.00, -3.5, 0.1>,
  0.50
  texture { tinta_vermelho }
  rotate<angulo, 0, 0>
}

object{
barra_horizontal(altura_suporte_horizontal_barra_vertical, dist_barra_horizontal_suporte_horizontal)
rotate<0,0,0>
translate<-0.5,0.5,0>
}

}
#end

#declare c0 = 0.0;
#declare c1 = 0.3;
#declare c2 = 0.6;
#declare c3 = 0.9;
#declare passo = 0.3;
#declare n_quadros = 4;

#macro desenha(n_quadros)
union{ 
       
       #declare a = 0;
       #declare b = 0;
       #declare c = 0;
#declare i = 0;
#declare ck = 0;

#while(i<n_quadros)
      union{

 #if((ck>=c0)&(ck<c1))
  #declare a = 0;
  #declare b = 0;
  #declare c = 8;
 #end
 #if((ck>=c1)&(ck<c2))
  #declare a = 180;
  #declare b = 0;
  #declare c = 2;
 #end
 #if((ck>=c2)&(ck<c3))
  #declare a = 0;
  #declare b = 2;
  #declare c = 2;
 #end
 #if(ck=c3)
  #declare a = 0;
  #declare b = 0;
  #declare c = 8;
 #end
 
 
 object{
  colher(a, b, c)
  translate<20*i,0,0>
 }
}
#declare ck = ck + passo;
#declare i = i+ 1;
#end 
}
#end

desenha(4)

// Original camera parameters:
// #local cam_ctr = <30.00,0.00,0.00>
// #local cam_vec = (<0.00,0.00,50.00>-<30.00,0.00,0.00>)
// #local cam_sky = y

#include "camlight.inc"
camlight(<50.00,0.00,0.00>,<5,6,10>,90.0,y,1.0)