home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / ppath.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  2.2 KB  |  58 lines
  1. %    Copyright (C) 1989, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: ppath.ps,v $ $Revision: 1.2.2.1 $
  20. % Redefine pathforall for tracing.
  21. % Can't be used recursively.
  22.  
  23. /# {( )print} def
  24.  
  25. /-mat matrix def
  26. /-imat matrix def
  27. /-smat { //-mat currentmatrix pop //-imat setmatrix } bind def
  28. /-rmat { //-mat setmatrix } bind def
  29. /-pathforall /pathforall load def
  30. /-p2 { ( ) print exch =only ( ) print =only } bind def
  31. /-dp2 { 2 copy -p2 2 { exch 4096 mul dup cvi dup ( ) print =only sub dup 0 eq { pop } { (+) print =only } ifelse } repeat } bind def
  32. /-tp2 { //-mat itransform -p2 } bind def
  33. /-dict 5 dict def
  34.  
  35. /pathforall
  36.  { -dict begin
  37.    /-close exch def  /-curve exch def  /-line exch def  /-move exch def
  38.    end -smat -mat ==only ( setmatrix) =
  39.    {2 copy -tp2 ( moveto\t%)print
  40.     2 copy -dp2 (\n)print
  41.     flush -dict /-move get -rmat exec -smat}
  42.    {2 copy -tp2 ( lineto\t%)print
  43.     2 copy -dp2 (\n)print
  44.     flush -dict /-line get -rmat exec -smat}
  45.    {5 index 5 index -tp2 3 index 3 index -tp2 2 copy -tp2 ( curveto\t%)print
  46.     5 index 5 index -dp2 3 index 3 index -dp2 2 copy -dp2 (\n)print
  47.     flush -dict /-curve get -rmat exec -smat}
  48.    {(closepath\n)print flush   -dict /-close get -rmat exec -smat}
  49.    -pathforall -rmat
  50.  }
  51. def
  52.  
  53. % Just print the current path
  54.  
  55. /printpath {
  56.   {pop pop} {pop pop} {pop pop pop pop pop pop} {} pathforall
  57. } def
  58.