! Document name: door_panel_F

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

pars width, height

let c=2 1/2"
poly_ 23,
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/2-c/2,0,
a/2+c/2,b/2-c/2,0,
a/2+c/2,c,0,
a/2-c/2,c,0,
a/2-c/2,b/2-c/2,0,
c,b/2-c/2,0,
c,c,0,
c,b/2+c/2,0,
a-c,b/2+c/2,0,
a-c,b-c,0,
a/2+c/2,b-c,0,
a/2+c/2,b/2+c/2,0,
a/2-c/2,b/2+c/2,0,
a/2-c/2,b-c,0,
c,b-c,0,
c,c,0
addz -.001
addx c
addy c
call door_int_frame a/2-3*c/2,b/2-3*c/2
addx a/2-c/2
call door_int_frame a/2-3*c/2,b/2-3*c/2
del 1
addy b/2-c/2
call door_int_frame a/2-3*c/2,b/2-3*c/2
addx a/2-c/2
call door_int_frame a/2-3*c/2,b/2-3*c/2
del top
end