#include "colors.inc"
#include "skies.inc"

// ======================================================================
// CÂMERA 

camera {
  location  <  0.00, 0.00, 14.00 >  // Posição do observador.
  right     <-1.60, 0.00, 0.00>                 // Largura RELATIVA da imagem.
  up        <0.00, 0.00, 1.60>                 // Altura RELATIVA da imagem.      
  sky       <0.00, 0.00, 1.00>                      // Qual direção é "para cima"?
  look_at   <0,0,0>  // Para onde a câmera está apontando.
} 
// Nota: os parâmetros "right" e "up" devem ter a mesma proporção
// que os parâmetros ${WIDTH} e ${HEIGHT} no Makefile.

// ======================================================================
// FONTES DE LUZ

light_source {
  10 * < -30.0, 18.0, 10.0 >              // Posição da lâmpada.
  color rgb 1.8 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

light_source {
  10 * < -20.0, -20.0, +10.0 >             // Posição da lâmpada.
  color rgb 0.8 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 


// ======================================================================
// DESCRIÇÃO DA CENA 


sky_sphere {S_Cloud4}
  
#declare corpo =
  sphere {<0,0,0>, 3
    pigment{DarkBrown}
    scale<1.5,1,0.5>
  }

#declare tampe = 0.6;  
#declare tam = 1.5;  
#declare tam2 = 3;  
#declare tam3 = 2;  
#declare clock0 = clock;
#declare clock1 = mod(clock+0.5, 1);
#declare alfa = 0;  //floor(60*rand(semente))-30;
#declare beta = 0;  //floor(40*rand(semente))-20;
#declare teta = 0;  //floor(30*rand(semente))-15;  

#declare i=0;
#while (i<3)
  #if (clock<0.25)
    #if (i=1)       
      #declare gama = 40*clock;  
      #declare rho = 60*clock;   
    #else
      #declare gama = 20-40*(clock);
      #declare rho = 0;
    #end
  #end
  #if ((clock>0.25)&(clock<0.50))
    #if(i=1)
      #declare gama=40*clock;
      #declare rho=15-60*(clock-0.25);
    #else
      #declare gama = 20-40*(clock);
      #declare rho = 0;
    #end
  #end
  #if ((clock>0.5)&(clock<0.75))
    #if (i=1)
      #declare gama = 20-40*(clock-0.5);
      #declare rho = 0;
    #else
      #declare gama = 40*(clock-0.5);
      #declare rho = 60*(clock-0.5);
    #end
  #end
  #if(clock>0.75)
    #if(i=1)
      #declare gama = 20-40*(clock-0.5);
      #declare rho = 0;
    #else
      #declare gama = 40*(clock-0.5);
      #declare rho = 15-60*(clock-0.75);
    #end
  #end
  
  #declare pe =
  union{
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tampe,0>,0.1}
    pigment{DarkBrown}
  }
  #declare anteperna =
  union{
    object{pe rotate<90+alfa,0,0> translate<0,tam,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0><0,tam,0>,0.1}
    
    pigment{DarkBrown}
  }
  #declare anteperna2 = 
  union{
    object{anteperna rotate<-45+beta,0,0> translate<0,tam2,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tam2,0>,0.1}
    pigment{DarkBrown}
  }    
  #declare perna = 
  union{
    object{anteperna2 rotate<-80+teta,0,0> translate<0,tam3,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tam3,0>,0.1 }
    pigment{DarkBrown}
    translate<i-1,0,0>
  }
  object{perna rotate<30+rho,0,15*(1-i)+gama> translate<i-1,2.5,0>}
  #declare i=i+1;
#end
    
#declare i=0;
#while (i<3)    
    #if (clock<0.25)
    #if (i!=1)       
      #declare gama = 40*clock;  
      #declare rho = 60*clock;   
    #else
      #declare gama = 20-40*(clock);
      #declare rho = 0;
    #end
  #end
  #if ((clock>0.25)&(clock<0.50))
    #if(i!=1)
      #declare gama=40*clock;
      #declare rho=15-60*(clock-0.25);
    #else
      #declare gama = 20-40*(clock);
      #declare rho = 0;
    #end
  #end
  #if ((clock>0.5)&(clock<0.75))
    #if (i!=1)
      #declare gama = 20-40*(clock-0.5);
      #declare rho = 0;
    #else
      #declare gama = 40*(clock-0.5);
      #declare rho = 60*(clock-0.5);
    #end
  #end
  #if(clock>0.75)
    #if(i!=1)
      #declare gama = 20-40*(clock-0.5);
      #declare rho = 0;
    #else
      #declare gama = 40*(clock-0.5);
      #declare rho = 15-60*(clock-0.75);
    #end
  #end
  
  
  #declare pe =
  union{
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tampe,0>,0.1}
    pigment{DarkBrown}
  }
  #declare anteperna =
  union{
    object{pe rotate<90+alfa,0,0> translate<0,tam,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0><0,tam,0>,0.1}
    
    pigment{DarkBrown}
  }
  #declare anteperna2 = 
  union{
    object{anteperna rotate<-45+beta,0,0> translate<0,tam2,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tam2,0>,0.1}
    pigment{DarkBrown}
  }    
  #declare perna = 
  union{
    object{anteperna2 rotate<-80+teta,0,0> translate<0,tam3,0>}
    sphere{<0,0,0>,0.1}
    cylinder{<0,0,0>,<0,tam3,0>,0.1 }
    pigment{DarkBrown}
    translate<i-1,0,0>
  }
  object{perna rotate<30+rho,0,180+15*(1-i)-gama> translate<1-i,-2.5,0>}
  #declare i=i+1;
#end


#declare chao =
  plane {
    z,
    -2.85
    pigment { Gray40 }
    finish{ambient 0.7 diffuse 0.7}
    
  } 

#declare olho =
  sphere{<0,0,0>,0.2
  pigment{color Black}
  }  
   
//exibicao
union{
  object{corpo }
  object{olho translate<-3.7,0.6,0.7>}
  object{olho translate<-3.7,-0.6,0.7>}
  object{chao}
}