// Last edited on 2009-07-22 13:16:20 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

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

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

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

#declare marrom =
  texture {
    pigment {color rgb < 0.90, 0.65, 0.20 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 } 
  }

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

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

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

#declare vermelho = 
  texture {
    pigment { color rgb < 0.85, 0.05, 0.10 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare roleta = seed(97);
#declare i = 0;

#declare bloco_maior =
  box {
    < -1.00, -2.00, 0.00 > , < 0.00, 0.00, 1.00 >
    texture { marrom }
  }

#declare bloco_menor =
  box {
    < -1.05, -1.95, 0.05 > , < 0.05, -0.05, 0.95 >
    texture { marrom }
  }

#declare estante =
  difference
  {
    object {bloco_maior}
    object {bloco_menor}
    texture { marrom }
  }

#while (i < 9)

  #if (i < 3 )
    object {estante translate < 0.00, 2*i, 0.00 >}

    #declare j = 0.00;

  #else 
    #if (i < 6)
      object {estante translate < 0.00, 2*(i-3), 1.00 >}

      #declare j = 1.00;

    #else
      object {estante translate < 0.00, 2*(i-6), 2.00 >}

      #declare j = 2.00;

    #end
  #end

  #declare aleatorio = rand(roleta);
  #declare m = rand(roleta);

  #if (aleatorio < 0.25)

      object {
        sphere { 
          < -0.5, -1.0, 0.05+m*0.5 >, m*0.5 
          texture { cinza }
          translate < 0.00, 2*(i-3*j), j >
        }
      }

  #else

    #if (aleatorio < 0.50)

      object {
        cone {
          < -0.50, -1.00, 0.05 >, m*0.5, < -0.50, -1.00, 0.85 >, m
          texture { amarelo }
          translate < 0.00, 2*(i-3*j), j >
        }
      }

    #else

      #if (aleatorio < 0.75)
        object {
          box {
            < -0.8, -m*2, 0.00 > , < -0.2, -m*1, 0.50 >
            texture { azul }
            translate < 0.00, 2*(i-3*j), j >
          }
        }

      #else
        object
        {
          cylinder {
            < -0.50 , -1.00, 0.05 > , < -0.50, -1.00, m >, m
            texture { vermelho }
            translate < 0.00, 2*(i-3*j), j >
          }
        }

      #end
    #end
  #end

  #declare i = i + 1;

#end

// Original camera parameters:
// #local cam_ctr = <0.00,1.00,1.50>
// #local cam_vec = (<7.00,1.00,2.50>-<0.00,1.00,1.50>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,1.00,1.50>,<10,10,4>,10.0,z,1.0)