diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/viewpbm.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewpbm.ps | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/Master/tlpkg/tlgs/lib/viewpbm.ps b/Master/tlpkg/tlgs/lib/viewpbm.ps index a6934fbab5c..c2dbc5701c3 100644 --- a/Master/tlpkg/tlgs/lib/viewpbm.ps +++ b/Master/tlpkg/tlgs/lib/viewpbm.ps @@ -1,19 +1,19 @@ % Copyright (C) 1992, 1995, 1996, 1998, 1999 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: viewpbm.ps 6300 2005-12-28 19:56:24Z giles $ +% $Id$ % viewpbm.ps % Display a PBM/PGM/PPM file. % Requires the Level 2 `image' operator (to handle variable pixel widths). @@ -58,37 +58,37 @@ /wrem w 8 mod def /ncomp 1 def /invert true def /DeviceGray setcolorspace readwh - { readrow01 } + { readrow01 } } bind /P2 { % ASCII 8-bit gray readwh /bpc 8 def 2 index readmaxv /rsize 2 index def /ncomp 1 def /invert false def /DeviceGray setcolorspace - { readrow } + { readrow } } bind /P3 { % ASCII 8-bit RGB readwh /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def /ncomp 3 def /invert false def /DeviceRGB setcolorspace - { readrow } + { readrow } } bind /P4 { % Binary 1-bit white/black readwh /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def /ncomp 1 def /invert true def /DeviceGray setcolorspace - { readstring pop } + { readstring pop } } bind /P5 { % Binary 8-bit gray readwh /bpc 8 def 2 index readmaxv /rsize 2 index def /ncomp 1 def /invert false def /DeviceGray setcolorspace - { readstring pop } + { readstring pop } } bind /P6 { % Binary 8-bit RGB readwh /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def /ncomp 3 def /invert false def /DeviceRGB setcolorspace - { readstring pop } + { readstring pop } } bind .dicttomark readonly def /pbmsetup { % <file> <w> <h> <readproc> runpbm - @@ -110,17 +110,17 @@ begin /SCALE where { pop - % Map pixels SCALE-for-1. Assume orthogonal transformation. + % Map pixels SCALE-for-1. Assume orthogonal transformation. Width 1 0 dtransform add abs div SCALE mul Height 0 1 dtransform add abs div SCALE mul } { - % Scale the image (uniformly) to fit the page. + % Scale the image (uniformly) to fit the page. clippath pathbbox pop pop translate pathbbox .min exch pop exch pop ceiling dup Height Width gt { - Width mul Height div exch + Width mul Height div exch } { - Height mul Width div + Height mul Width div } ifelse } ifelse scale @@ -143,15 +143,15 @@ 20 dict begin /fname exch def /sources [ 0 1 3 { - /plane exch def + /plane exch def /pf fname (r) file def pf pbmtypes pf token pop get exec - % Stack: pf w h readproc + % Stack: pf w h readproc plane { - /readproc exch def /h exch def /w exch def pop - /row rsize string def - h { pf row readproc pop } repeat - pf pbmtypes pf token pop get exec + /readproc exch def /h exch def /w exch def pop + /row rsize string def + h { pf row readproc pop } repeat + pf pbmtypes pf token pop get exec } repeat pbmsetup } for ] def |