// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

background{ color rgb < 0.9, 0.90, 0.9 > }

#declare tx_amarelo =
  texture{
    pigment{ color rgb < 0.8, 0.85, 0.70 > }
   finish{ diffuse 0.9 ambient 0.3 }
  }

#declare tx_vidro =
  texture{
    pigment{ color rgb < 0.1, 0.3, 0.6 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare tx_verde =
  texture{
    pigment{ color rgb < 0.6, 0.8, 0.3 >  }
    finish{ diffuse 0.9 ambient 0.3 }
  }

#declare tx_verm =
  texture{
    pigment{ color rgb < 0.9, 0.1, 0.1 >  }
    finish{ diffuse 0.9 ambient 0.3 }
  }

#declare tx_azul =
  texture{
    pigment{ color rgb < 0.1, 0.1, 0.9 >  }
    finish{ diffuse 0.9 ambient 0.3 }
  }

#declare palco =
union {
  #declare i = 0;
  #while (i < 4)
    box{
      < 4, 0, 0 >,
      < 0, 2-(0.5 * i), 0.3 + (0.3 * i) >
      texture{ tx_verde }
    }
    #declare i = i + 1;
    #end
}

#declare boneco =
union{
  cone{
    < 0.0, 0.0, 0.0 >, 0.2,
    < 0.0, 0.0, 0.4 >, 0
    texture{ tx_amarelo }
  }
  sphere{
    < 0, 0, 0.38 >, 0.11
    texture{ tx_verm }
  }
  cylinder{
    < -0.2, 0, 0.2 >,
    < 0.2, 0, 0.2 >,
    0.04
    texture{ tx_vidro}
  }
}

#declare boneco2 =
union{
  cone{
    < 0.0, 0.0, 0.0 >, 0.2,
    < 0.0, 0.0, 0.4 >, 0
    texture{ tx_azul }
  }
  sphere{
    < 0, 0, 0.38 >, 0.11
    texture{ tx_verde }
  }
  cylinder{
    < -0.2, 0, 0.2 >,
    < 0.2, 0, 0.2 >,
    0.04
    texture{ tx_amarelo}
  }
}

#declare boneco3 =
union{
  cone{
    < 0.0, 0.0, 0.0 >, 0.2,
    < 0.0, 0.0, 0.4 >, 0
    texture{ tx_verm }
  }
  sphere{
    < 0, 0, 0.38 >, 0.11
    texture{ tx_verde }
  }
  cylinder{
    < -0.2, 0, 0.2 >,
    < 0.2, 0, 0.2 >,
    0.04
    texture{ tx_azul}
  }
}

#include "eixos.inc"

        object {eixos (3)}

union{
 object { palco }
 #declare j=0;
 #while (j<4)
  #declare i=0;
  #while (i<8)
    #if ((i=3 & j=1)|(i=7 & j=3))
      object{ boneco2 translate < 3.75-(0.5*i),1.75-(0.5*j), 0.3+(0.3*j) > }
    #else
      #if ((i=3 & j=2)|(i=2 & j=0))
       object{ boneco3 translate < 3.75-(0.5*i),1.75-(0.5*j), 0.3+(0.3*j) > }
      #else
      object{ boneco translate < 3.75-(0.5*i),1.75-(0.5*j), 0.3+(0.3*j) > }
      #end
    #end
    #declare i=i+1;
  #end
 #declare j=j+1;
 #end
}

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 1.00 >;
#declare raio_cena = 6.0;
#declare dir_camera = < 8.00, 8.00, 3.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 0.700;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)