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

#include "finish.inc"      
#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
#include "glass.inc"
#include "woods.inc"  
#include "golds.inc"          
#include "stars.inc" 
            
       
 
  #declare c0 = 0.00;
  #declare c1 = 0.25;
  #declare c2 = 0.50;
  #declare c3 = 0.75;
  #declare c4 = 1.00;
  #declare auxiliar = mod(clock+0.4,1.0);
  #declare cam = 180*(clock-c0)/(c2-c0);  

       
  

#if (clock<=0.5)
#declare xyz = clock;
#end
#if (clock>0.5)
#declare xyz = 1-clock;
#end

  

  

  

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

#declare raio = 2.000;

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

#declare tinta_B = 
  texture {
    pigment { color rgb < 0.20, 0.70, 0.80 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare tinta_C = 
  texture {
    pigment { color rgb < 0.20, 0.20, 0.20 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_V = 
  texture {
    pigment { color rgbf < 1.0, 0.0, 0.0, .8 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_M = 
  texture {
    pigment { color rgb < 0.50, 0.30, 0.0 > }
    finish { diffuse 0.9 specular 0.2 roughness 0.005 ambient 0.1 }
  }

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

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

#declare ponta =
box{
<-10,-10,0>
<10,10,2>
texture{tinta_M}
}

#declare bola = 
sphere{
  <0,0,0>,2
}

#declare base =
union{
  box{
    <-5,-5,-7>
    <5,5,-2>
  }
  object{bola translate<0,0,-2>}
  texture{tinta_A}
}

#declare cilindro = 
cylinder{
  <0,0,0>
  <0,0,15>,2
}

#declare haste =
  merge{
    object{cilindro translate<0,0,2>}
    object{bola translate <0,0,2>}
    object{bola translate <0,0,17>}
  }

#macro folha1(By,Tx,Fz)
union{
  object{haste}
  object{ponta translate<0,0,19>}
  translate<0,0,19>
  rotate<0,0,Fz>
}
#end

#macro treco(By,Tx,Fz)
union{
  object{haste}
  object{folha1(By,Tx,Fz)
    rotate<Tx,0,0>
    translate<0,0,19>
  }
}
#end

#macro braco(By,Tx,Fz)
union{
  object{haste}
  object{treco(By,Tx,Fz)
    rotate<0,By,0>
    translate<0,0,19>
  }
}
#end

#declare chao = 
plane{ z,0

 texture{pigment { checker rgb<1,1,1>, rgb<0.5,0.5,0.5>}
         finish{diffuse 0.5 ambient 0.5}
        }
 scale 10
 translate -7*z 
} 

#macro talher(By,Tx,Fz) 
object{
union{
  object{braco(By,Tx,Fz) texture{tinta_A}}
  object{base}

}
}
#end

 
  
#macro quadro(ck)
 #if((ck>= c0)&(ck<c1))
   #declare Tx = 45*(ck-c0)/(c1-c0);
   #declare By = 90 - 22.5*(ck-c0)/(c1-c0);
   #declare Fz = 180*(ck-c0)/(c1-c0);
 #end
 #if((ck>= c1)&(ck<c2))
   #declare Tx = 45 + 45*(ck-c1)/(c2-c1);
   #declare By = 67.5 - 22.5*(ck-c1)/(c2-c1);
     #declare Fz = 180 + 180*(ck-c1)/(c2-c1);
 #end
 #if((ck>= c2)&(ck<c3))
   #declare Tx = 90 - 45*(ck-c2)/(c3-c2);
   #declare By = 45 + 22.5*(ck-c2)/(c3-c2);
   #declare Fz = 360 + 180*(ck-c2)/(c3-c2);      
 #end
 #if((ck>= c3)&(ck<c4))
   #declare Tx = 45 - 45*(ck-c3)/(c4-c3);
   #declare By = 67.5 + 22.5*(ck-c3)/(c4-c3);
   #declare Fz = 540 + 180*(ck-c3)/(c4-c3);
 #end
 
 
 
        object{talher(By,Tx,Fz)} 
  
  
#end 

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

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = vrotate((uu),(vv,<0,0,cam>);)
// #local cam_sky = z

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