// Last edited on 2003-04-12 10:28:52 by stolfi
/* Aluno: Breno Filipe Bocalon Cavalcanti		ra:008179 */
#include "colors.inc"
#include "stones.inc" 
#include "textures.inc" 
  
camera {
    location 3*<40, 30, 80>
    right <1.2, 0, 0 > up <0,0.4,0>
    look_at <10,0,20>
    
}
  background { color Wheat } 
  light_source { 10*<40, 70, 100> 1.1*White }
  light_source { 10*<-30, 90, 90> 0.8*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 bolas =
	sphere { <0, 13, 30 > 5
	scale <0, 2, 0>
	pigment {Pink}}


#declare conezinhos=
	cone { 	<17, 30, 30>, 3   
    		<17, 15, 30>, 5
   		 pigment{SummerSky} }

	 
#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>}
		object {bolas translate <80-i,0,80-j>}
		object {conezinhos translate <80-i,0,80-j>}
	   #declare j=j+40;
           #end
	
	#declare i=i+80;
	#end }	
	

union{
object{prateleira}
}