! Document name: door_panel_M

!name:door panel M  28.04.1989.
!internal macro:door_int_frame,inv_frame, stripe_

let c=2 1/2"
let d=(a-4*c)/3
let e=(b-4*c)/7
call inv_frame a,b
addx c
addy c
addz -.001
for i=0 to 2
addx i*(d+c)
call door_int_frame d,3*e
addy 3*e+c
call door_int_frame d,3*e
addy 3*e+c
call door_int_frame d,e
del 3
next i
addx d
call stripe_ c,b-2*c
addx d+c
call stripe_ c,b-2*c
del 2
addy 3*e
call stripe_ a-2*c,c
addy 3*e+c
call stripe_ a-2*c,c
del top
end