! Document name: slid_rect_frame

! name: slid. rect. frame 25.04.1989.
! internal macro: -

pars width, height, frame width

poly_ 16,
0,0,1,
a,0,1,
a,b,1,
0,b,1,
0,0,0,
c,c,1,
c,b-c,1,
a/2-c/2,b-c,0,
a/2+c/2,b-c,1,
a-c,b-c,1,
a-c,c,1,
a/2+c/2,c,1,
a/2+c/2,b-c,0,
a/2-c/2,b-c,1,
a/2-c/2,c,1,
c,c,0

end