! 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