! Document name: sidelite_panel_B

!name:sidelite panel B  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)/2
addy (b-2*c)/2
call door_int_frame a-2*c,(b-2*c)/2
del top
end