! Document name: hung_window

!hung_window    17.07.1989.
!internal macro: ext_rect_frame,int_rect_frame, double_grille, hung_rect_frame

pars 	a,b,frame width=2 1/2"",frame thickness=4",
														No. of vert. panes top=2, No. of vert. panes bottom=2,
														No. of horiz. panes=4,transparent 1-yes 0-no=1

if a-4*c<=0 then 60
if b-4*c<=0 then 60
addx		-a/2
ext_rect_frame a,b,c,d
addx c
addy c
addz d/3
hung_rect_frame a-2*c,(b-3*c)/2,c
addx c
addy c
double_grille a-4*c,(b-5*c)/2,g,f
del 2
addy (b-2*c)/2-c/2
int_rect_frame a-2*c,(b-c)/2,c
addx c
addy c
double_grille a-4*c,(b-5*c)/2,g,e
if h=1 then 60
del 3
rect a-2*c,b-2*c
60: del top
end