[%  PROCESS ps/lines UNLESS global.ps.loaded.lines;
    global.ps.loaded.outline = 1;
-%]
% define procedure to draw an outline at a fixed distance from path
/outline {
    gsave
    linedashed
    dup /outwide exch def
    setlinewidth
    gsave stroke grestore
    outwide 2 sub setlinewidth 1 setgray [] 0 setdash
    stroke
    grestore
} def