// MC930 - Computação Gráfica - 2003-S2 - Jorge Stolfi
// Trabalho de Laboratório 04 - Fórmula Zero
// Marilda Pereira Yamashiro 981756   17/09/2003
// ======================================================================
// CÂMERA 

camera {
  location  12*<  8.00, 1.00, 2.00 >  // Posição do observador.
  right     -1.0*x                 // Largura RELATIVA da imagem.
  up        0.75*y                 // Altura RELATIVA da imagem.      
  sky       z                      // Qual direção é "para cima"?
  look_at   < 0.00, 0.00, 0.00 >  // 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 * < +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, -10.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"
background{ color rgb < 0.75, 0.80, 0.85 > }

  
#declare cabeca =
  sphere {
    < 0.00, 0.00, 9.0 >, 2.00 
    pigment { Blue }
    } 
#declare braco = 
  cylinder {
    < -0.25, 0.00, 6.50 >,
    < -0.25, -2.50, 4.50 >,
    0.50
    pigment { Yellow }
  }   
#declare perna = 
  cylinder {
    < 0.5, -0.50, 0.25 >,
    < 0.5, -3.00, -4.50 >,
    0.75
    pigment { Yellow }
  }   
#declare tronco = 
  cone {
    < 0.00, 0.00, 9.00 >,0.50
    < 0.00, 0.00, 0.00 >,2.15
    pigment { Yellow }
  }
    
# declare carroceria =
   box {
   <-5, -5, -5>,
     <-25, -35, -10>
     pigment {Blue}
     } 
#declare roda =
  sphere {
    < -5, -30, -10 >, 3.00 
    pigment { Red }
    }   
      
  union {
    object { cabeca }
    object { tronco }    
    object { braco }
    object { braco scale <1,-1,1> }  
    object { perna }
    object { perna scale <1,-1,1>}
    //scale <0,5*clock, 0>
    }
    
   union{
    object { carroceria }
    object { roda }
    object { roda translate <1,20,1>}
    translate <0, 0, 0>
    translate <0,100*clock, 0>
  }