// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2000-11-16 by samuel

#include "colors.inc"

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

light_source {
  < 30.00, 30.00, 30.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 
//plane { y, -12
//    texture {
//      pigment {
//        checker
//        color Black
//        color White
//      }
//   }
//  }

camera {
  location  < 5.00,25.00, 60.00 >
//  right     < 2.40, 0.00, 0.00 >
//  up        < 0.00, 0.00, 1.80 >
  sky       < 0.00, 1.00, 0.00 >
  look_at   < 0.00,20.00, 5.00 >
} 

//amarelo
#declare amarelo = 
  texture {
    pigment { color rgb < 1, 1, 0 > }
    finish {diffuse 0.8 specular 0.5 roughness 0.005 ambient 0.1 phong 1}  
}

#declare vermelho = 
  texture {
    pigment { color rgb < 1, 0, 0> }
finish {phong 1}
}  

#declare verde =
  texture {
    pigment { color rgb < 0, 1, 0> }
    normal { bumps 0.6 scale 0.2 }
    finish {phong 1}
}

#declare preto =
  texture {
    pigment { color rgb <0, 0, 0> }
  finish {phong 1}
}

//#declare g = seed (pi);
//#declare n = 4;
//#declare r= 3;
//#declare s = 1;

//#declare porta =
//box {
//<-(r+1),0,((s*6+4)/2) - 0.4>,<(r+1),3,(s*6+4)/2>
//texture {preto}
//}

//#declare janela =
//box {
//<-(r*4-2),4,((s*6+4)/2)-0.4>,<-(r*4-6),7,(s*6+4)/2>
//texture {preto}
//}

//#declare j_lateral =
//box {
//<(4*r)-0.4,4,-(((s*6+4)/2)-3)>,<(4*r),7,((s*6+4)/2)-3>
//texture {preto}
//}

//#declare predio =
//box{
//<-r*4,0,(s*6+4)/2>,<r*4,4*n+4,-(s*6+4)/2>
//texture { pigment {Red} }
//}

#declare fim = 
#declare g = seed (pi);
#declare n = 4;
#declare r = 3;
#declare s = 1;

#declare abc=0;
difference{
difference {
object{//predio
box{
<-r*4,0,(s*6+4)/2>,<r*4,4*n+4,-(s*6+4)/2>
texture { pigment {Red} }
}
}
object{//porta
box {
<-(r+1),0,((s*6+4)/2) - 0.4>,<(r+1),3,(s*6+4)/2>
texture {preto}
}

}
}
#while (abc< n)
	#declare a=r;
	#declare i=0;
	object {
	box {
	<-(r*4-2),4,((s*6+4)/2)-0.4>,<-(r*4-6),7,(s*6+4)/2>
	texture {preto}
	}
 	translate <i,n*abc,0>}//janela
	#declare i = i+8;
	#declare a = a-1;
	#while (a!=0)
		object {
		box {
		<-(r*4-2),4,((s*6+4)/2)-0.4>,<-(r*4-6),7,(s*6+4)/2>
		texture {preto}
		}
		translate <i,n*abc,0>}//janela
		#declare i = i+8;
		#declare a = a-1;
	#end
	#declare b = s-1;
	#declare j = 0;
	object {
	box {
<(4*r)-0.4,4,-(((s*6+4)/2)-3)>,<(4*r),7,((s*6+4)/2)-3>
texture {preto}
}

 	translate <0,n*abc,j>}
	#while (b!=0)	
		object {
box {
<(4*r)-0.4,4,-(((s*6+4)/2)-3)>,<(4*r),7,((s*6+4)/2)-3>
texture {preto}
}

 translate <0,n*abc,j+6>}
		#declare b = b-1;
	#end
	object {
box {
<(4*r)-0.4,4,-(((s*6+4)/2)-3)>,<(4*r),7,((s*6+4)/2)-3>
texture {preto}
}

 translate <-((2*r*4)-0.2),n*abc,j>}
	#declare b= s-1;
	#while (b!=0)
		object {j_lateral translate <-((2*r*4)-0.2),n*abc,j+6>}
		#declare b = b-1;
	#end
	#declare abc= abc+1;
#end

}

object {fim}
object {fim translate <40,0,0>}