! Document name: door_panel_L

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

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