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

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

#declare texturamadeira = 
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare textura1 = 
  texture {
    pigment { color rgb < 1, 0, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare textura2 = 
  texture {
    pigment { color rgb < 0, 1, 0 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare textura3 = 
  texture {
    pigment { color rgb < 0, 0, 1 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
#declare textura4 = 
  texture {
    pigment { color rgb < 0, 1, 1 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare larguramesa = 10;
#declare alturamesa = 10;
#declare mesa = 
  union{ 
    object{ box{<0 ,0 ,0>,<2 ,8 ,6>texture { texturamadeira }} }
    object{ box{<0 ,0 ,0>,<2 ,8 ,6>texture { texturamadeira }} translate<larguramesa,0,0> }
    object{ box{<0 ,8 ,0>,<larguramesa+2 ,10 ,6>texture { texturamadeira }} }
  }
  
mesa

#declare colocarmesaz = 3;
#declare colocarmesax1 = 3;
#declare colocarmesax2 = 8;

#declare obj1 = 
  cone {
    < 0, 15, 0 >, 0,
    < 0, 10, 0 >, 2
    texture {textura1}
    translate <colocarmesax1,0,colocarmesaz>
  }
  
#declare obj2 = 
  cylinder {
    < 0, 10, 0 >,
    < 0, 15, 0 >,
    2
    texture {textura2}
    translate <colocarmesax2,0,colocarmesaz>
  }
  
#declare obj3 = 
  box{
    <0 ,10 ,0>,
    <2 ,12 ,2>
    texture {textura3}
    translate <colocarmesax2,0,colocarmesaz>
  }
  
#declare obj4 = 
  sphere{
    <0 ,10 ,0>,2
    texture {textura4}
  }
  

#declare roleta = seed(16);

#declare mesas = int(rand(roleta)*3);
#declare nmesas = 0;
#while (nmesas<=mesas)
 #declare andar = int(rand(roleta)*4);
 #declare nandar = 0;
 #while (nandar<=andar)
  object{ mesa translate<larguramesa*nmesas+20,alturamesa*nandar,0>}
  declare randobj = int(rand(roleta)*4)+1;
  #if(randobj=1)  
    object {obj1 translate<larguramesa*nmesas+20+colocarmesax1,alturamesa*nandar,colocarmesaz> }
  #else
   object {obj2 translate<larguramesa*nmesas+20+colocarmesax2,alturamesa*nandar,colocarmesaz> }
  #end
  
  #declare nandar = nandar + 1;
 #end
 #declare nmesas = nmesas + 1;
#end

// Original camera parameters:
// #local cam_ctr = <0.00,10.00,0.00>
// #local cam_vec = (<-5,10,100>-<0.00,10.00,0.00>)
// #local cam_sky = (1*y)

#include "camlight.inc"
camlight(<15.00,12.00,0.00>,<10,5,10>,120.0,y,1.0)