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

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

#declare tinta_A =
  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_B =
  texture {
    pigment { color rgb < 0, 0, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare tinta_C =
  texture {
    pigment { color rgb < 1, 0, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare tinta_D =
  texture {
    pigment { color rgb < 0, 0, 1 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare roleta_cor = seed(414);
#declare roleta_forma = seed(413);

#declare x_estante=0.00;
#declare y_estante=0.00;

#declare x_tabuinhas = 0.00;
#declare y_tabuinhas = 0.00;

#declare tabuinha_surpresa_1 =
    box {
      < x_tabuinhas+3, y_tabuinhas+2, 1.00 >,
      < x_tabuinhas+4, y_tabuinhas+3, 2.00 >
    }

#declare tabuinha_surpresa_2 =
    sphere {
      < x_tabuinhas+3.5, y_tabuinhas+2.5, 1.5 >, 0.5
    }

#declare tabuinha_surpresa_3 =
    cylinder {
      < x_tabuinhas+3.5, y_tabuinhas+2.5, 1 >,
      < x_tabuinhas+3.5, y_tabuinhas+2.5, 2 >, 0.5
    }

#declare tabuinha_surpresa_4 =
    cone {
      < x_tabuinhas+3.5, y_tabuinhas+2.5, 1 >, 1,
      < x_tabuinhas+3.5, y_tabuinhas+2.5, 2 >, 0
    }

#declare oito_estantes =
  #while ( x_estante < 34 )
    #while ( y_estante < 21 )

     union {
      difference {
        box {
          < x_estante, y_estante, 0.00 >,
          < x_estante+10.00, y_estante+5.00, 20.00 >
        }
        box {
          < x_estante+1.00, y_estante-1.00, 1.00 >,
          < x_estante+9.00, y_estante+4.00, 9.50 >

        }
        box {
          < x_estante+1.00, y_estante-1.00, 10.50 >,
          < x_estante+9.00, y_estante+4.00, 19.00 >
        }
        texture { tinta_A }
      }

#switch (int(rand(roleta_forma)*4))
#case(0)

      object { tabuinha_surpresa_1 
translate < x_estante, y_estante, 0 >

}
#break
#case(1)
      object { tabuinha_surpresa_2 

translate < x_estante, y_estante, 0 >

}
#break
#case(2)
      object { tabuinha_surpresa_3 
translate < x_estante, y_estante, 0 >
}
#break
#else
      object { tabuinha_surpresa_4 
translate < x_estante, y_estante, 0 >
}

#end

      }

    #declare y_estante = y_estante + 20;
    #end
    #declare y_estante = 0;
    #declare x_estante = x_estante + 11;
    #end

object { oito_estantes }

// Original camera parameters:
// #local cam_ctr = <22.00,40.00,0.00>
// #local cam_vec = (<22.00,-45.00,55.00>-<22.00,40.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<20.00,7.00,7.00>,<10,-10,7>,80.0,z,1.0)