// Last edited on 2007-07-23 00:02:06 by stolfi
// 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, 1.00, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.2 }
  }

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

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

#declare tinta_E = 
  texture {
    pigment { color rgb < 1.00, 1.00, 0.50 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.2 }
  }
 
#declare roleta=seed(12345);
#declare i=0;
#while (i<20)
  #declare j=0;
  #while(j<20)
    #declare a = mod((i+j),2);
    #if(a=0)
      #declare cor = tinta_A;
    #end
    #if(a=1)
      #declare cor = tinta_B;
    #end
    box {
      < i-5.00, j-5.00, +0.00 >,
      < i-4.00, j-4.00, -0.20 >    
      texture { cor }
    }
    #declare n=int(1000*rand(roleta));
    #declare n=mod(n,10);
    #if(n=0)
      sphere {
        < i-4.50, j-4.50, 0.25 >, 0.25 
        texture { tinta_C }
       }
    #end    
    #if(n=1)
      cone {
        < i-4.50, j-4.50, 0.00 >, 0.4
        < i-4.50, j-4.50, 1.40 >, 0.0 
      texture { tinta_E }
      }
    #end
    #if(n=2)
      cylinder {
        < i-4.50, j-4.50, 0.00 >,
        < i-4.50, j-4.50, +1.00 >,
        0.3
        texture { tinta_D }
      }
    #end
    #declare j=j+1;
  #end
  #declare i=i+1;
#end
  

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <36.00,28.00,18.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<10,10,0>,<10,10,10>,25.0,z,1.0)