! Document name: hung_window

!name:d.s.hung w.
!internal macros: ext_rect_frame,int_rect_frame, double_grille, hung_rect_frame

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