summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/viewpbm.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/viewpbm.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/viewpbm.ps40
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