! Document name: door_panel_K

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

let c=2 1/2"
let h=c*b/2/a
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 3
gosub 10
addy b/2
rotx 180
gosub 10
del 2
gosub 20
addx a
roty 180
gosub 20
del top
exit
10:lin_ 2*c,c,0,a-2*c,c,0
lin_ a-2*c,c,0,a/2,b/4-h,0
lin_ a/2,b/4-h,0,2*c,c,0
return
20:lin_ c,h+c,0,c,b/2-h-c,0
lin_ c,b/2-h-c,0,a/2-c,b/4,0
lin_ a/2-c,b/4,0,c,h+c,0
return
end