// Last edited on DATE TIME by stolfi
// MC930 - Computação Gráfica - 2003-S2 - Jorge Stolfi
// Trabalho de Laboratório 09 - A visão de Samsa
// Marilda Pereira Yamashiro 981756   28/10/2003
// ======================================================================

#declare ctr = < 0.00, -40.00, -10.00 >;
#declare camDir = < -5, 70, 30 >;

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

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

light_source {
  10 * < +50.0, +30.0, +50.0 >              // Posição da lâmpada.
  color rgb 1.2 * < 1.00, 1.00, 1.00 >   // Intensidade e corda luz.
} 

light_source {
  10 * < +50.0, 80.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 

#include "colors.inc"
#include "stones.inc"
background{ color rgb < 0.85, 0.9, 1.0 > }

  
#declare mao =
  cone {
    < 2, 0, 0.5>, 0.1    
    < 0, 0, 0.5>, 1.0    
    //texture { T_Stone10 scale 4 }
    pigment { Blue }
  } 

#declare art =
  sphere {
  <0.0,0.0,0.5>,1.0
  pigment{Black}
  }
      
#declare perna = 
  cylinder {
    < 0, 0, 0.50 >,
    < -3, 0, 0.50 >, 1.0
    pigment { Yellow }
  }   


union{

#declare alfa  = seed(10);
#declare beta = seed(20);
#declare i = 1;
#declare j = 1;

//#while (i <=6)
  #while (j <= 4)
    union{
       //object{corpo}
       object{mao translate<0.3,0,0>}
       object{art}
       object{perna translate<-0.3,0,0>}
       object{art translate<-3.6,0,0>}
       object{perna translate<-3.9,0,0>}
       object{art translate<-7.2,0,0>}
       object{perna translate<-7.5,0,0>}
       object{art translate<-10.8,0,0>}
       object{perna translate<-11.1,0,0>}
       object{art translate<-14.4,0,0>}
       translate<0,j*4,0>
       }
    #declare j=j+1;
  #end
//  #declare i=i+1;
//#end
}