PSBugs.tioga
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 22, 1987 11:52:48 am PDT
% reversepath clobbers gsaved path
/=, { {dup type /stringtype ne { =string cvs } if print } exec } bind def
/pnum { =, ( ) print } def
/pvec { exch pnum pnum } def
/pmove { pvec (moveto) = } def
/pline { pvec (lineto) = } def
/pcurve { 6 4 roll pvec 4 2 roll pvec pvec (curveto) = } def
/pclose { (closepath) = } def
/ppath { /pmove load /pline load /pcurve load /pclose load pathforall } def
newpath
200 200 moveto
300 200 lineto
300 300 lineto
closepath
200 300 lineto
100 200 lineto
gsave ppath
reversepath grestore ppath