// Last edited on 2009-07-22 12:51:25 by stolfilocal
// Processed by remove-cam-lights

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

#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 verde = 
  texture {
    pigment { color rgb < 0.00, 1.00, 0.00 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

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

#declare azul = 
  texture {
    pigment { color rgb < 0.00, 0.00, 1.00 > }
    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 pizza =
 cylinder {
  < 0, 0, 0 >,
  < 0.1, 0.1, 0 >, 1
  texture { amarelo }
 }
  

#declare um    = box{ <20,-5,-8>,< 0,-2, 9> texture{amarelo} }
#declare dois  = box{ <19,-6,-7>,< 1, 0, 8> texture{amarelo} } 
#declare tres  = box{ <20,-5,-8>,< 0,-2,-7> texture{amarelo} } 
#declare bola  = sphere{ <18,-4,-7>,1 texture{azul} }
#declare cone1 = cone {<18,-4,-8 >, 1,< 16,-2,-6>, 0 texture { vermelho } }
#declare cone2 = cone {<18,-4,-8 >, 1,< 18,-4,-6>, 1 texture { branco } }

#declare estante =
      union{
 difference{
   object{ um }
   object{ dois }
 }
   #declare k = 0;
 #declare x2  = seed(145);
        #while ( k < 16 )
   object{ tres  translate< 0, 0,  k> }
   #declare x1 = int(rand(x2)*4); 
   #if ( x1 = 0 )
   object{ bola  translate<-2, 0,k+1> }
   object{ cone1 translate<-6, 0,k+1> }
   object{ cone2 translate<-10, 0,k+1> }
   #end
   #if ( x1 = 1 )
   object{ bola  translate<-2, 0,k+1> }
   object{ cone1 translate<-10, 0,k+1> }
   object{ cone2 translate<-6, 0,k+1> }
   #end
   #if ( x1 = 2 )
   object{ bola  translate<-10, 0,k+1> }
   object{ cone1 translate<-6, 0,k+1> }
   object{ cone2 translate<-2, 0,k+1> }
   #end
   #if ( x1 = 3 )
   object{ bola  translate<-6, 0,k+1> }
   object{ cone1 translate<-2, 0,k+1> }
   object{ cone2 translate<-10, 0,k+1> }
   #end
   #declare k = k + 4;
 #end
      }

union{
#declare j = 0;
#while ( j < 4 )
    object{ estante translate<-j*8,j*8,0> }
  #declare j = j + 1;
#end
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <50.00,100.00,0>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,<7,10,5>,80.0,z,1.0)