! Document name: sidelite_panel_C

!name: sidelite panel C  28.04.1989.
!internal macro: sidelite frame, door_int_frame,double_grille

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
addx c
addy c
call double_grille a-4*c,(b-5*c)/2,1,3
del top
end