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

#declare c0=0;
#declare c1=1;
#declare c2=0.5;
#declare cam = 180*(clock-c0)/(c2-c0); 

  

  

  

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, 1.4 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  

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

#declare tinta_D = 
  texture {
    pigment { color rgb < 0.50, 0.80, 2.5 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare plano =
 plane { z, -5
  texture { 
   pigment {checker rgb <1,1,1>, rgb <0.5,0.5,0.5>}
   finish {diffuse 0.5 ambient 0.5}
  
  }
  scale 100*<1,1,1> 
    
 }

#declare bola =  sphere {
      < 0.00, 0.00 ,0.00 >, 10.00 
      texture { tinta_C }
    }

#declare braco = box {
  < 10.00, -10.00, 10.00 >,
  < 70.00, 10.00, -10.00 >
  texture { tinta_C }
}

#declare tudo =
 union {
  object {bola}
  object {braco}
  }

#macro folha(A,B,C)
 union {object {tudo}  rotate<A,B,C>}
#end

#macro casa(A,B,C)
 union {
  object {tudo rotate <0,0,90>} 
  object {folha(A,B,C) translate <20,30,0> rotate <A,0,0>} 
 }
#end

#macro treco(A,B,C)
 union{
  object {tudo rotate <0,0,90>}
  object {casa(A,B,C) translate <0,70,0> rotate<A,0,0> } 
 }
#end 

#macro base(A,B,C)
 union{
  object {braco translate <0,0,0>}
  object {treco(A,B,C) translate <0,10,0> rotate<A,0,C> } 
 }
#end

union{
object{plano}

#declare c0 = 0.00;
#declare c1 = 1.00;
#declare nh = 50;
#declare nquatro = 7;
#declare cini = 0.0;
#declare cfin = 1.0;
#declare cpasso=(cfin-cini)/(nquatro - 0.9999);
#declare lv=0;
#declare ck=cini;

 #declare ih = 0;

#macro quadro(ck) 
 #if ((ck >=c0) & ( ck < c1))
         #declare eixo_x =  10*(ck-c0)/(c1-c0);
         #declare eixo_y = -90*(1-(ck-c0)/(c1-c0));
         #declare eixo_z = 30*(ck-c0)/(c1-c0);
 #end
 
   
 
 object{base (eixo_x,eixo_y,eixo_z) }
 
#end

}

union {
       object {quadro(clock)}
 object{quadro(mod(clock+0.3,1.0))
  translate <-380,-380,1>
 } 

}
 

// 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)