// Exercício número 5 - Aula de 09/06/2001
// Anderson Supriano - RA 7852
// Last edited on 2001-06-09 20:57:51 by stolfi



background{ color rgb < 0.5, 0.5, 0.5 > }

#declare chao = 
	texture {
		pigment{ color rgb < 0.8, 0.8, 0.0 > }
    		finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.5 }
		normal {granite}
}

#declare cor_azul =  <0, 0, 1>;
#declare cor_azul_claro = <0.5, 0.5, 1>;

#declare azul_metalico = 
	texture {
		pigment { color rgb cor_azul }
		finish { ambient 0.4 diffuse 0.05 reflection cor_azul 
			     specular 0.20 roughness 0.05 }
}

sky_sphere {
    pigment { color rgb cor_azul_claro }
      scale 2
      translate -1
}

camera {
  location  < -3, 29, 8 >
  right <-0.80, 0.00, 0.00>
  up <0.00, 0.00, 0.60>
  sky <0.00, 0.00, 1.00>
  look_at   <  9, 0, 2 >
} 

light_source {
  < 4, 3, 1 >
  color rgb < 1.50, 1.50, 1.50 >
} 


#declare corpo_alto = box { <-1, 0, 0>, <1, 1, 3> texture {azul_metalico}}

#declare corpo_baixo = box { <-1, 0, 0>, <1, 1, 2> texture {azul_metalico}}

#declare piramide_cima = intersection {
	 box { <-1.5, 0, 3>, <1.5, 1, 5> rotate 45*y translate <-2.45, 0, -0.6> }
         box { <-1, 0, 3>, <1, 1, 5> } scale 2 * z translate <0, 0, -3>
}

#declare gerador = seed(156437); 
#declare monumento = union {
	#declare i=0;
	#declare total=9;
	#declare grande=1;
        #while (i<total)
		#if (grande=-1)
			object {corpo_baixo
		#else
			#declare cor_aleatoria = texture {
    				pigment { color rgb < rand(gerador), rand(gerador), rand(gerador) > }
    				finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.4 } }
			union {
				object {corpo_alto}
				object {piramide_cima} texture {cor_aleatoria}
		#end
		translate <(2*total)-2*i, 0, 0> }
		#declare i=i+1
		#declare grande=grande*-1;
	#end
}

union {
	plane { <0,0,1>, 0 texture {chao} }
	object {monumento}
}