! Document name: door_panel_B

!name: door panel B 27.04.1989.
!internal macro: door_int_frame

pars width, height

let c=2 1/2"
poly_ 10,
0,0,1,
0,b,1,
a,b,1,
a,0,1,
0,0,0,
c,c,0,
a-c,c,0,
a-c,b-c,0,
c,b-c,0,
c,c,0
addz -.001
addx c
addy c
call door_int_frame a-2*c,b-2*c
del 2
end