// Last edited on 2003-12-09 04:29:55 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 = < -8.70, 2.00, -5.00 > + 7*y;
#declare camDir = < -9, 10, 15 >;

// sphere{ ctr, 5 texture{ pigment{ color rgb <1,0,1> } finish { ambient 0.6 diffuse 0.4 } } }

camera {
  location   ctr + 1.50*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, +50.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 }
  }

#declare art =
  sphere {
  <0.0,0.0,0.5>,1.0
  texture { T_Stone10 scale 4 }
  }

#declare perna =
  cylinder {
    < 0, 0, 0.50 >,
    < -3, 0, 0.50 >, 1.0
    texture { T_Stone10 scale 4 }
    }
#declare corpo =
union{
  cylinder {
  <0,0,0.5>,
  <0,15,0.5>,2
  }
  sphere {
  <0,0,0>, 2
  translate <0,14.5,0.5>
  }
  sphere {
  <0,0,0>, 2
  translate <0,0.5,0.5>
  }
  texture { T_Stone10 scale 4 }
}
union{
#declare alfa  = seed(10);
#declare beta = seed(20);
#declare i = 1;
#declare j = 1;
object{ corpo translate<-8.7,2,0> }

  #while (j <= 4)
    union{
       union{
         object{art translate<-10.8,0,0> pigment{Yellow} }
         object{perna translate<-7.5,0,0>}
         union{
     object{art translate<-7.2,0,0> pigment{Yellow} }
           object{perna translate<-3.9,0,0>}
           union{
       object{art translate<-3.6,0,0> pigment{Yellow}}
       union{
             object{perna translate<-0.3,0,0>}
               union{
                 object{art pigment{Yellow} }
                 object{mao rotate 40*rand(alfa)*(-z) translate<0.3,0,0>}
           rotate 45*rand(alfa)*z
               }
       }
       rotate 30*rand(beta)*x
     }
     rotate 60*rand(alfa)*x
         }
         rotate 25*rand(beta)*x
       }
       scale 0.62
       rotate 30*y
       translate<-1.2,j*4,-3>

    }
  #declare j=j+1;
  #end

  #while (i <=4)
  union{
       union{
         object{art scale<-1,1,1> translate<-17.5,0,0> pigment{Yellow}}
         object{perna scale<-1,1,1> translate<-20.8,0,0> }
         union{
     object{art scale<-1,1,1> translate<-21.1,0,0> pigment{Yellow}}
           object{perna scale<-1,1,1> translate<-24.4,0,0>}
           union{
       object{art scale<-1,1,1> translate<-24.7,0,0> pigment{Yellow}}
             object{perna scale<-1,1,1> translate<-28,0,0>}
             union{
               object{art scale<-1,1,1> translate <-28.3,0,0> pigment{Yellow} }
               object{mao scale<-1,1,1> rotate 40*rand(alfa)*(-z) translate<-28.6,0,0> }
         rotate -45*rand(alfa)*x

             }
       rotate 30*rand(beta)*x
           }
     rotate 60*rand(alfa)*x
         }
         rotate 25*rand(beta)*x
       }
       scale 0.62
       rotate 30*(-y)
       translate<-1,i*4,5.5>
    }
#declare i=i+1;
#end
}