home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / ppath.ps < prev    next >
Text File  |  2002-02-22  |  2KB  |  55 lines
  1. %    Copyright (C) 1989, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: ppath.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % Redefine pathforall for tracing.
  18. % Can't be used recursively.
  19.  
  20. /# {( )print} def
  21.  
  22. /-mat matrix def
  23. /-imat matrix def
  24. /-smat { //-mat currentmatrix pop //-imat setmatrix } bind def
  25. /-rmat { //-mat setmatrix } bind def
  26. /-pathforall /pathforall load def
  27. /-p2 { ( ) print exch =only ( ) print =only } bind def
  28. /-dp2 { 2 copy -p2 2 { exch 4096 mul dup cvi dup ( ) print =only sub dup 0 eq { pop } { (+) print =only } ifelse } repeat } bind def
  29. /-tp2 { //-mat itransform -p2 } bind def
  30. /-dict 5 dict def
  31.  
  32. /pathforall
  33.  { -dict begin
  34.    /-close exch def  /-curve exch def  /-line exch def  /-move exch def
  35.    end -smat -mat ==only ( setmatrix) =
  36.    {2 copy -tp2 ( moveto\t%)print
  37.     2 copy -dp2 (\n)print
  38.     flush -dict /-move get -rmat exec -smat}
  39.    {2 copy -tp2 ( lineto\t%)print
  40.     2 copy -dp2 (\n)print
  41.     flush -dict /-line get -rmat exec -smat}
  42.    {5 index 5 index -tp2 3 index 3 index -tp2 2 copy -tp2 ( curveto\t%)print
  43.     5 index 5 index -dp2 3 index 3 index -dp2 2 copy -dp2 (\n)print
  44.     flush -dict /-curve get -rmat exec -smat}
  45.    {(closepath\n)print flush   -dict /-close get -rmat exec -smat}
  46.    -pathforall -rmat
  47.  }
  48. def
  49.  
  50. % Just print the current path
  51.  
  52. /printpath {
  53.   {pop pop} {pop pop} {pop pop pop pop pop pop} {} pathforall
  54. } def
  55.