! Document name: sidelite_panel_D

!name:sidelite panel D  28.04.1989.
!internal macro: sidelite_frame, door_int_frame

pars width, height

let c=1 1/4"
call sidelite_frame a,b
addx c
addy c
call door_int_frame a-2*c,b-2*c
del top
end