sys/lib/ghostscript/ppath.ps

   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