// Fabio Negrello - exercicio 05
// ultima modificacao 09/11/00

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

light_source {
  < 100.00, 100.00, -100.00 >
  color rgb < 1.50, 1.50, 1.50 >
} 

camera {
  location  < 15.00, 10.00, -10.00 >
  look_at   < 0.00, 0.00, 0.00 >
} 

#declare bcomp = 8.5;
#declare blarg = 6;
#declare balt = 6;
#declare jlarg = (bcomp/17);


#declare Firebrick = color red 0.556863 green 0.137255 blue 0.137255;

#declare bloco =
	box {
		<0,0,0>
		<bcomp,balt,blarg>
    		texture { pigment {Firebrick} }
	}

#declare jacima =
	box {
		<0,0,0>
		<bcomp-2*jlarg,jlarg,-jlarg/5>
    		texture { pigment { color rgb<1,1,1> } } 
	}

#declare pacima =
	union {

	box {
		<-jlarg/5,0,0>
		<bcomp+(jlarg/5),balt/20,-jlarg/5>
		translate <0,0,-jlarg/5>
    		texture { pigment { color rgb<1,1,1> } } 
	}

	box {
		<-jlarg/5,0,0>
		<bcomp+(jlarg/5),balt/20,-jlarg/5>
		translate <0,0,blarg+jlarg/5>
    		texture { pigment { color rgb<1,1,1> } } 
	}

	box {
		<0,0,-jlarg/5>
		<jlarg/5,balt/20,blarg+(jlarg/5)>
		translate <-jlarg/5,0,0>
    		texture { pigment { color rgb<1,1,1> } } 
	}

	box {
		<0,0,-jlarg/5>
		<jlarg/5,balt/20,blarg+(jlarg/5)>
		translate <bcomp+jlarg/5,0,0>
    		texture { pigment { color rgb<1,1,1> } } 
	}
}


#declare janela = 
	union {
		box {
			<0,0,0>
			<jlarg/5,balt,-jlarg/5>
			texture { pigment { color rgb<1,1,1> } }
		}

		box {
			<0,0,0>
			<jlarg/5,balt,-jlarg/5>
			translate <jlarg,0,0>
			texture { pigment { color rgb<1,1,1> } }
		}

		box {
			<0,0,0>
			<jlarg,jlarg/3,-jlarg/5>
			translate <0,balt/3,0>
			texture { pigment { color rgb<1,1,1> } }
		}

		box {
			<0,0,0>
			<jlarg,jlarg/3,-jlarg/5>
			translate <0,2*(balt/3),0>
			texture { pigment { color rgb<1,1,1> } }
		}

		box {
			<0,0,0>
			<jlarg,balt,-jlarg/10>
			texture { pigment { color rgb<0,0,0> } }
		}

	}

			

#declare nblocos = 5;
#declare nb = 0;
#while (nb<nblocos)
union {

object {bloco}

#declare njanelas = 8;
#declare nj=0;
#while (nj < njanelas)
	object {janela
		translate<(nj *2*jlarg)+jlarg,0,-jlarg/5>
	}
	#declare nj = nj + 1;
#end

object{ jacima 
	translate <jlarg,balt-jlarg,-jlarg/5> 
	}

#declare nj=0;
#while (nj < njanelas)
	object {janela
		translate<(nj *2*jlarg)+jlarg,0,jlarg/5+blarg>
	}
	#declare nj = nj + 1;
#end

object{ jacima 
	translate <jlarg,balt-jlarg,jlarg/5+blarg> 
	}

object {
	pacima
	translate <0,balt-(balt/20),0>
}


translate <(3*bcomp)/4,0,-blarg/2>
rotate <0,nb*(360/5),0>
}

#declare nb = nb + 1;
#end