// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

#declare ww=0;
#declare vv=0;
#declare vv= <200.00, 0, 20>; 
   #declare ww= vaxis_rotate(vv,z,clock*360);
    
#declare aux=0;
#if (clock<=0.5)
#declare aux=clock; 
#end
#if (clock>0.5)
#declare aux=1-clock;
#end

  

  

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

global_settings{
 max_trace_level 30
}
plane{z, 0
 texture {pigment{checker
    rgb <1,1,1>, rgb<0,0,0>}
    finish{diffuse 5 ambient 0.5}     
    }
 translate -50*z   
}

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

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

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

#macro folha()
  union{
   difference{
 sphere{<0,5,5>, 1 texture{amarelo}}
 sphere{<0,4.5,7>, 2 texture{amarelo}}
  }
    box{<0.5,0,4.5>,<-0.5,5,5> texture{amarelo}}
  }
#end

#macro treco(alfa)
  union{
  box{<1,0,-0.5>,<-1,8,0.5> texture{vermelho}}
  object{ folha() rotate<alfa,0,0> translate<0,4,-4>}
  }
#end

#macro bagulho(beta,gama,alfa)
  union{
    box{<1,0,-0.5>,<-1,8,0.5> texture{vermelho}}
    object{ treco(alfa) rotate<beta,gama,0> translate<0,7.5,0>}
  }
#end

#macro troco(beta,gama,alfa)
  union{
    cylinder{<0,0,0>,<0,0,6>, 1 texture{amarelo}}
    object{ bagulho(beta,gama,alfa) translate<0,0,6>}
  }
#end

#macro talher(beta,gama,alfa)
  union{
    object{ troco(beta,gama,alfa)}
    box{<5,-5,-5>,<-5,5,0> texture{vermelho}}
}
#end

#declare c0 = 0.0;
#declare c1 = 0.2;
#declare c2 = 0.4;
#declare c3 = 0.5;
#declare c4 = 0.6;
#declare c5 = 0.8;
#declare c6 = 1;
#declare nh = 5;
#declare nv = 4;
#declare nquadros = nh*nv;
#declare cini = 0.0;
#declare cfin = 1;
#declare passo = (cfin-cini)/(nquadros-0.9999);
#declare ck = cini;
#declare iv = 0;
#while(iv < nv)
 #declare ih=0;
 #while (ih < nh)

         #declare ck=ck+passo;
         #declare ih=ih+1;
 #end  
 #declare iv=iv+1;
#end       

#macro quadro(ck)
 
  #if((ck>=0.0)&(ck<c1))
   #declare rr=(ck-c0)/(c1-c0);
   #declare c=-30;
   #declare b=10+rr*60;
   #declare a=0;
  #end
  #if((ck>=c1)&(ck<c2))
  #declare rr=(ck-c1)/(c2-c1);
   #declare c=-30;  
   #declare b=70;   
   #declare a=0+rr*90;   
  #end
  #if((ck>=c2)&(ck<c3))
   #declare rr=(ck-c2)/(c3-c2);
   #declare b=70;
   #declare c=-30+rr*60;
   #declare a=90;
  #end
  #if((ck>=c3)&(ck<c4))
   #declare rr=(ck-c3)/(c4-c3);
   #declare a=90-rr*90;
   #declare b=70;
   #declare c=30;
  #end
  #if((ck>=c4)&(ck<c5))
   #declare rr=(ck-c4)/(c5-c4);
   #declare c=30-rr*60;
   #declare b=70;
   #declare a=0;
  #end
  #if((ck>=c5)&(ck<c6))
   #declare rr=(ck-c5)/(c6-c5);
   #declare c=-30;
   #declare b=70-rr*60;
   #declare a=0;
  #end
  union{
   object{ 
    talher(a,b,c)
    }
  
  }  

#end

union{
object {quadro(clock)}
object {quadro(mod(clock+0.3,1.0))
   translate<9, -7,0>
   }
} 

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = (ww)
// #local cam_sky = z

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