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

  

  

  

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

#declare vermelho = 
  texture {
    pigment { color rgb < 1.0, 0.0, 0.0 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
#declare verde = 
  texture {
    pigment { color rgb < 0, 1, 0 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
#declare azul = 
  texture {
    pigment { color rgb < 0, 0, 1 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
#declare amarelo = 
  texture {
    pigment { color rgb < 1, 1, 0 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
#declare cinza = 
  texture {
    pigment { color rgb < 0.7, 0.7, 0.7 > }
    finish { diffuse 0.8 specular 0.1 ambient 0.1 }
  }
 
 
 #macro folha()
  box {
   <-10, -0.5, -0.5>,
   < 10,  9.5,  0.5>
   texture{amarelo}
  }
 #end
 
 
 #macro parte1( alfa, beta )
  union {
   union {
    cylinder {    
     <0, 0, 0>,
     <0, 10, 0>,
     1
     texture{vermelho}
    }
    sphere {      
     <0,0,0>, 1
     texture{vermelho}
    }
   }
   object{ folha() rotate<alfa,beta,0> translate<0,10,0> }
  }
 #end
 
 
 #macro parte2( alfa, beta, gama, delta )
  union {
   union {
    cylinder {
     <0, 0, 0>,
     <0, 10, 0>,
     1
     texture{verde}
    }
    sphere {
     <0,0,0>, 1
     texture{verde}
    }
   }
   object{ parte1(alfa,beta) rotate<gama,delta,0> translate<0,10,0> }
  }
 #end
 
 #macro parte3( alfa, beta, gama, delta, epsilon, dzeta )
  union {
   union {
    cylinder {
     <0, 0, 0>,
     <0, 10, 0>,
     1
     texture{azul}
    }
    sphere {
     <0,0,0>, 1
     texture{azul}
    }
   }
   object{ parte2(alfa,beta,gama,delta) rotate<epsilon,dzeta,0> translate<0,10,0> }
  }
 #end

#declare nv=2;
#declare nh=3;
#declare N=nv*nh;
#declare i=0;
#declare T=0;

#declare alfa=0;
#declare beta=0;
#declare gama=0;
#declare delta=0;
#declare epsilon=0;
#declare dzeta=90;

#macro quadro(tt)

 #declare alfa = 100*tt;
 #declare beta = 100*tt;
 #declare gama = 100*tt;
 #declare delta = 100*tt;
 #declare epsilon = 100*tt;
 #declare dzeta = 100*tt;
 
 object{ parte3(alfa, beta, gama, delta, epsilon, dzeta) }
 

 
 
#end

box{ <-100, -1, -100>, <100,0,100> texture{cinza} }
object{quadro(mod(clock,1)) translate<0,0,0>}
object{quadro(mod(clock+0.3,1)) translate<-30,0,0>}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0.00,50.00,100.00>
// #local cam_sky = z

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