diff options
| author | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
|---|---|---|
| committer | Taru Karttunen <taruti@taruti.net> | 2011-03-30 16:53:33 +0300 |
| commit | e463eb40363ff4c68b1d903f4e0cdd0ac1c5977f (patch) | |
| tree | d5e9f57c28f026cb21de3bd77cc10cd7f64aaa85 /sys/lib/ghostscript/markpath.ps | |
| parent | b41b9034225ab3e49980d9de55c141011b6383b0 (diff) | |
Import sources from 2011-03-30 iso image - sys/lib
Diffstat (limited to 'sys/lib/ghostscript/markpath.ps')
| -rwxr-xr-x | sys/lib/ghostscript/markpath.ps | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/sys/lib/ghostscript/markpath.ps b/sys/lib/ghostscript/markpath.ps new file mode 100755 index 000000000..bc01c6923 --- /dev/null +++ b/sys/lib/ghostscript/markpath.ps @@ -0,0 +1,59 @@ +% Copyright (C) 1993 Aladdin Enterprises. All rights reserved. +% +% This software is provided AS-IS with no warranty, either express or +% implied. +% +% This software is distributed under license and may not be copied, +% modified or distributed except as expressly authorized under the terms +% of the license contained in the file LICENSE in this distribution. +% +% For more information about licensing, please refer to +% http://www.ghostscript.com/licensing/. For information on +% commercial licensing, go to http://www.artifex.com/licensing/ or +% contact Artifex Software, Inc., 101 Lucas Valley Road #110, +% San Rafael, CA 94903, U.S.A., +1(415)492-9861. + +% $Id: markpath.ps,v 1.4 2002/02/21 21:49:28 giles Exp $ +% markpath.ps +% Mark the corners of a path, drawing it slowly if desired. + +/Delay where { pop } { /Delay 0 def } ifelse +/setxy0 + { currentpoint /y0 exch def /x0 exch def + } def +/bip + { epsx epsy idtransform /ey exch def /ex exch def + currentpoint ex 2 div ey 2 div rlineto currentpoint 0 ey neg rlineto + ex neg 0 rlineto 0 ey rlineto lineto lineto + stroke + } def +/dally + { Delay { } repeat + Delay 0 ne { flushpage } if + } def +/movebip + { /xs 2 index def /ys 1 index def + gsave newpath mpmx transform moveto setxy0 bip grestore + } def +/linebip + { gsave newpath x0 y0 moveto mpmx transform lineto setxy0 bip dally grestore + } def +/curvebip + { gsave newpath x0 y0 moveto 5 index 5 index mpmx transform lineto bip + 2 copy mpmx transform moveto 3 index 3 index mpmx transform lineto bip + x0 y0 moveto + 3 { mpmx transform 6 2 roll } repeat + curveto setxy0 bip dally grestore + } def +/closebip + { xs ys linebip + } def + +/markpath % <matrix> markpath - + { /mpmx exch def + gsave initgraphics 9 dup dtransform grestore + /epsy exch def /epsx exch def + gsave 0 setlinewidth + { movebip } { linebip } { curvebip } { closebip } pathforall + grestore + } def |