// Last edited on 2009-07-22 14:23:23 by stolfilocal
// Processed by remove-cam-lights

background{ color rgb < 0.75, 0.80, 0.85 > }

#declare raio = 2.000;

#declare tinta_aluminio = 
  texture {
    pigment { color rgb < 0.80, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_aluminio2 = 
  texture {
    pigment { color rgb < 0.50, 0.40, 1.00 > }
    finish { diffuse 0.8 specular 0.8 roughness 0.05 ambient 0.1 }
  }

#declare tinta_A = 
  texture {
    pigment { color rgb < 0.10, 0.80, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_red =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_pizza =
  texture {
    pigment { color rgb < 0.80, 1.00, 0.20 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

  
#declare prateleira =
union {
   
   box {
      < 1.0, 0.0, -1.0 >, < -1.0, 9.1, -1.1 >
      texture { tinta_aluminio2 }
   }
   
   box {
      < 1.0, 0.0, -5.0 >, < -1.0, 9.1, -5.1 >
      texture { tinta_aluminio2 }
   }
   
   #declare pos_y=0;
   #while(pos_y<=9)
      box {
         < 1.0, pos_y, -1.1 >, < -1.0, pos_y+0.1, -5.0 >
         texture { tinta_aluminio2 }
      }
      #declare pos_y=pos_y+3;
   #end
}

#declare num_prateleiras =
union {
   #declare raio = 12;
   #declare total = 4;
   #declare contador = 0;
   #while( contador < total )
      object { prateleira translate < raio, 0.0, 0.0 > rotate < 0.0, contador*120/total, 0.0 > }
      #declare contador = contador + 1;
   #end
}

#declare objetos =
union {
   #declare roleta = seed(5000);
   #declare altura = 8.1;
   #declare total_prat = 3;

   #while ( total_prat > 0 )
   #declare posicao = -3.0;
   #declare num_objetos = 3;
   #declare tamanho = int(rand(roleta)*2);

   #while ( num_objetos > 0 )
      #if( num_objetos = 3 )
         sphere {
            < 0.0, altura, posicao >, tamanho
            texture { tinta_aluminio }
         }
      #end
      #if( num_objetos = 2 )
         box {
            < 0.0 + tamanho, altura+tamanho, posicao + tamanho >, < 0.0 - tamanho, altura-tamanho, posicao-tamanho >
            texture { tinta_aluminio }
         }
      #end

      #declare num_objetos = num_objetos - 1;
   #end

   #declare altura = altura - 3;
   #declare total_prat = total_prat - 1;
   #end
}

union
{
    object { num_prateleiras }
    object { objetos }
}

// Original camera parameters:
// #local cam_ctr = <1.00,-0.50,0.00>
// #local cam_vec = (<-50.00,10.00,5.00>-<1.00,-0.50,0.00>)
// #local cam_sky = y

#include "camlight.inc"
camlight(<5.00,4.00,-5.00>,<-10,5,10>,25.0,y,1.0)