#declare Arch_Control1 = 0    ;
#declare Arch_Control2 = -8    ;

#declare Part_arch =
union {
box {<0.00,-5.00,1.00><1.00,5.50,-1.00>}
difference {
    box {<0.00,8.50,1.00><3.50,5.50,-1.00>}
    cylinder {<3.50,5.50,2.00><3.50,5.50,-2.00>,2.50}
}
box {<0.00,8.50,1.40><3.50,8.90,-1.40>}
}

#declare Arch_infill =
union {
	box {<0.00,0.00,1.00><(1.00 + Arch_Control1),0.50,-1.00>}
	box {<0.00,0.50,1.40><(1.00 + Arch_Control1),0.90,-1.40>}
}

#declare Part_arch2 =
union {
    box {<-1.00,-5.00,5.00><1.00,5.10,(-5.00 + Arch_Control2)>}
    box {<-1.40,5.10,5.40><1.40,5.50,(-5.40 + Arch_Control2)>}
}

#declare Arch =
union {
object {Part_arch}
object {Part_arch scale <-1,1,1> translate <(8.00 + Arch_Control1),0.00,0.00>}
object {Arch_infill translate <3.50,8.00,0.00>}
object {Part_arch2 translate <(8.00 + Arch_Control1),0.00,0.00>}
box {<0,0,7><50,5,8>}

#include "lamp.inc"
object {Lamp translate <8,5.5,(-4 + Arch_Control2)>}

}