home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / clipart / gs22.zip / PPATH.PS < prev    next >
Text File  |  1988-07-31  |  690b  |  23 lines
  1. % Redefine pathforall for tracing.
  2. % Can't be used recursively.
  3.  
  4. /# {( )print} def
  5.  
  6. /-pathforall /pathforall load def
  7.  
  8. /pathforall
  9.  { /-close exch def  /-curve exch def  /-line exch def  /-move exch def
  10.    {2 copy exch =only # =only ( moveto\n)print   /-move load exec}
  11.    {2 copy exch =only # =only ( lineto\n)print   /-line load exec}
  12.    {6 copy 6 -1 roll =only # 5 -1 roll =only #
  13.     4 -1 roll =only # 3 -1 roll =only # exch =only # =only ( curveto\n)print
  14.     /-curve load exec}
  15.    {(closepath\n)print   /-close load exec}
  16.    -pathforall flush }
  17.  def
  18.  
  19. % Just print the current path
  20.  
  21. /printpath
  22.  { {pop pop} {pop pop} {pop pop pop pop pop pop} {} pathforall } def
  23.