PRO mhouse

house_x=[0,16,16,8,0,0,16,16,8,0]
house_y=[0,0,10,16,10,0,0,10,16,10]
house_z=[54,54,54,54,54,30,30,30,30,30]

min_x= -4 & max_x=20.

!X.S=[-(-4),1.]/(20-(-4))
!Y.S=!X.S
!Z.S=[-10,1.]/(70-10)

face=[INDGEN(5),0]
PLOTS,house_x(face),house_y(face),house_z(face),/DATA;,/T3D
PLOTS,house_x(face+5),house_y(face+5),house_z(face),/DATA;,/T3D

FOR i=0,4 DO PLOTS,[house_y(face+5),house_x(i+5)],$
	  [house_y(i),house_y(i+5)],[house_z(i),house_x(i+5)] $
	  ,/DATA;,/T3D

XYOUTS,house_x(3),house_y(3),Z=house_z(3),'Front',$
      /DATA,SIZE=1.5;,/T3D
XYOUTS,house_x(8),house_y(8),Z=house_z(8),'Back',$
      /DATA,SIZE=1.5;,/T3D


END