// Last edited on DATE TIME by stolfi
#include "colors.inc"

// ======================================================================

#declare ctr = < 0.00, 0.00, 0.00 >;
#declare camDir = < 15.00, 7.00, 5.00 >;

camera {
  location   ctr + 0.90*camDir
  right      -1.00*x
  up         0.75*y
  sky        z
  look_at    ctr
}

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

background{ color SkyBlue }

  
#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 semente = seed(0);  
#declare i=0;
#while (i<3)  
  #declare alfa = floor(60*rand(semente))-30;
  #declare beta = floor(40*rand(semente))-20;
  #declare teta = floor(30*rand(semente))-15;
  #declare gama = floor(20*rand(semente))-10;
  #declare rho = floor(40*rand(semente))-15;
  #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+gama,0,15*(1-i)+rho> translate<i-1,2.5,0>}
  object{perna rotate<30+gama,0,180+15*(1-i)+rho> translate<1-i,-2.5,0>}
  #declare i=i+1;
#end
    

#declare chao =
  plane {
    z,
    -4
    pigment { Gray40 }
    finish{ambient 0.7 diffuse 0.7}
    
  } 
 
//exibicao
union{
  object{corpo}
  object{chao}
}