// Last edited on 2003-04-12 07:37:46 by stolfi

#include "colors.inc"
#include "stones.inc" 
#include "textures.inc" 
  camera {
    location 2.0*<0, 50, 90>
    right 1.8*x up 0.6*y 
    look_at <0,0,0>
    
}
  background { color Wheat } 
  light_source { 5*<20, 50, 100> White }
 
plane {
  y, -0.1
  texture { T_Stone15 }
} 


#declare fileira =
	union{
	   #declare i=0;
           #while (i<10)
		#declare r=1 + 0.1*i;
		
		#declare treco =
		#if (i=7)
		    box {<-r,-r,-r>, <+r,+r,+r>}
		#else
		    sphere { <0,0,0>, r}
		#end
		object {treco translate < 3*i, i*i/5, 0 > }
		#declare i=i+1;
    	#end
	pigment { color Red }
}


#declare fileira2 =
	union{
	   #declare i=0;
           #while (i<10)
		#declare r=1 + 0.1*i;
		
		#declare treco =
		#if (i=7)
		    box {<-r,-r,-r>, <+r,+r,+r>}
		#else
		    sphere { <0,0,0>, r}
		#end
		object {treco translate < 2*i, i*i/5, 0 > }
		#declare i=i+1;
    	#end
	pigment { color Blue }
}

#declare fileira3 =
	union{
	   #declare i=0;
           #while (i<10)
		#declare r=1 + 0.1*i;
		
		#declare treco =
		#if (i=7)
		    box {<-r,-r,-r>, <+r,+r,+r>}
		#else
		    sphere { <0,0,0>, r}
		#end
		object {treco translate < i, i*i/5, 0 > }
		#declare i=i+1;
    	#end
	pigment { color Yellow }
}



#declare fileira4 =
	union{
	   #declare i=0;
           #while (i<10)
		#declare r=1 + 0.1*i;
		
		#declare treco =
		#if (i=7)
		    box {<-r,-r,-r>, <+r,+r,+r>}
		#else
		    sphere { <0,0,0>, r}
		#end
		object {treco translate < 0, i*i/5, 0 > }
		#declare i=i+1;
    	#end
	pigment { color Green }
}





#declare mesa =
	box { < -10, -10, -10>, <10, 10, 10>
	translate <-6,8,-10>
	scale <-2,0,0>
	pigment {LightWood}}  

#declare prateleira =
	union{
	#declare i=0;
        
	#while (i<200)
	
	   #declare j=0; 
	   #while (j<200)
		object{mesa translate <80 -i, 0, 80-j>}
		object {fileira translate < 80-i, 0, 80 -j>}
		object {fileira2 translate <80-i,0,80-j>}
		object {fileira3 translate <80-i,0,80-j>}
		object {fileira4 translate <80-i,0,80-j>}
	   #declare j=j+40;
           #end
	
	#declare i=i+80;
	#end }	
	

union{
object{prateleira}
}