! Document name: door_panel_C

!name: door panel C  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,b/2,0,
a-c,b/2,0,
a-c,b-c,0,
c,b-c,0,
c,b/2,0
addz -.001
addx c
addy b/2
call door_int_frame a-2*c,b/2-c
del 2
end