! Document name: sidelite_panel_E

!name:sidelite panel E  28.04.1989.
!internal macro: sidelite_panel_D, double_grille

pars a,b

let c=1 1/4"
call sidelite_panel_D a,b
addx 2*c
addy 2*c
call double_grille a-4*c,b-4*c,1,6
del top
end