PSBugs.tioga
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 14, 1987 4:26:40 pm 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
% weird cvi behavior
999999999999999 =
(999999999999999) cvi =
999999999999999 cvi =
(3 4) cvi =
% weird idiv behavior
7 3 idiv =
7.0 3 idiv =
7 3.0 idiv =
% bogus string result from readstring
(foo) (r) file 10 string readstring pop /s exch def
s length =