// Last edited on 2009-07-22 11:37:59 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare tinta_A =
  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_AA =
  texture {
    pigment { color rgb < 0.50, 0.50, 0.50 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

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

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

#declare tinta_D =
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
   
#declare Chao =
  box {
    < -1000.00, -100.00, -0.50 >,
    < 1000.00, +3000.00, +0.00 >
    texture { tinta_AA }
  }

#declare Tapete =
  box {
    < 22.00, -100.00, -0.00 >,
    < 48.00, +3000.00, +0.10 >
    texture { tinta_A }
  }

#declare caixaBaixoPrateleira =
  box {
    < +0.00, +0.00, +0.00 >,
    < +20.00, +8.00, +0.50 >
    texture { tinta_B }
  }

#declare caixaPrateleira1 =
  box {
    < +0.00, +0.00, +10.00 >,
    < +20.00, +8.00, +10.50 >
    texture { tinta_B }
  }

#declare caixaPrateleira2 =
  box {
    < +0.00, +0.00, +20.00 >,
    < +20.00, +8.00, +20.50 >
    texture { tinta_B }
  }

#declare caixaPrateleira3 =
  box {
    < +0.00, +0.00, +30.00 >,
    < +20.00, +8.00, +30.50 >
    texture { tinta_B }
  }

#declare caixaTrasPrateleira =
  box {
    < +0.00, +8.00, +0.00 >,
    < +20.00, +8.50, +30.50 >
    texture { tinta_B }
  }

#declare caixaEsqPrateleira =
  box {
    < -0.50, +0.00, +0.00 >,
    < +0.00, +8.50, +30.50 >
    texture { tinta_B }
  }

#declare caixaDirPrateleira =
  box {
    < 20.00, +0.00, +0.00 >,
    < +20.50, +8.50, +30.50 >
    texture { tinta_B }
  }

#declare tabuinha  =
  box {
    < 0.00, +3.00, +0.00 >,
    < +2.00, +4.00, +8.00 >
  texture { tinta_C }
  }

#declare disco  =
  cylinder {
    < 0.00, +3.00, +4.00 >,
    < 0.00, +4.00, +4.00 >,
    4.00
    texture { tinta_A }
  }

#declare roleta = seed(415);
#declare roleta2 = seed(445);
#declare randomnum = rand(roleta);
#declare randomObj = rand(roleta);

#declare Prateleira = 
  union{
    object {caixaBaixoPrateleira}
    object {caixaPrateleira1}
    object {caixaPrateleira2}
    object {caixaPrateleira3}
    object {caixaTrasPrateleira}
    object {caixaEsqPrateleira}
    object {caixaDirPrateleira}
 }

#declare espacoEntreFileiras = 50;
#declare espacoEntrePratileiras = 30;

#declare PrateleiraCheia =
  union {
    #declare a = 0;
    #while ( a < 100 )
    object {Prateleira translate<0,a*espacoEntrePratileiras,0> }

     #declare i = 0;
     #while ( i < 3 )

    #declare j = 0;
    #while ( j < 10 )
    #declare randomnum = rand(roleta2)*5;
    #declare randR = rand(roleta);
    #declare randG = rand(roleta);
    #declare randB = rand(roleta);
      #declare randomObj = rand(roleta2);
      #if (randomObj < 0.5)
        cylinder {
     < 1.00+2*j, +3.00+(a*espacoEntrePratileiras), +1.50+10*i >,
     < 1.00+2*j, +4.00+(a*espacoEntrePratileiras), +1.50+10*i >,
     0.90
     texture {
       pigment { color rgb < randR, randG, randB > }
       finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }  }
        }
      #else
   #if (randomObj < 0.8)
     box {
         < 0.00+2*j, +3.00+(a*espacoEntrePratileiras), +10*i >,
         < +2.00+2*j, +4.00+(a*espacoEntrePratileiras), +4.00+(10*i) + randomnum >
         texture {
    pigment { color rgb < randR, randG, randB > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }  }
    }
   #else
     box {
         < 0.00+2*j, -8.00+(a*espacoEntrePratileiras), 0 >,
         < +2.00+2*j, -5.00+(a*espacoEntrePratileiras)+ randomnum, +1.00 >
         texture {
    pigment { color rgb < randR, randG, randB > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }  }
    }
     
   #end
      #end
      #declare j = j+ 1;
    #end
     #declare i = i+ 1;
     #end
    #declare a = a+ 1;
    #end

  }

union {
object { Chao }
object { Tapete }
object {PrateleiraCheia}
object {PrateleiraCheia translate <espacoEntreFileiras, 0, 0>}
}

// Original camera parameters:
// #local cam_ctr = <35.00,10.00,5.00>
// #local cam_vec = (<35.00,-80.00,20.00>-<35.00,10.00,5.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<100.00,-70.00,50.00>,<3,-10,3>,60.0,z,1.0)