summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/viewpcx.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/viewpcx.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/viewpcx.ps50
1 files changed, 25 insertions, 25 deletions
diff --git a/Master/tlpkg/tlgs/lib/viewpcx.ps b/Master/tlpkg/tlgs/lib/viewpcx.ps
index cab82d213b4..17d180f5b8a 100644
--- a/Master/tlpkg/tlgs/lib/viewpcx.ps
+++ b/Master/tlpkg/tlgs/lib/viewpcx.ps
@@ -1,19 +1,19 @@
% Copyright (C) 1996, 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: viewpcx.ps 6300 2005-12-28 19:56:24Z giles $
+% $Id$
% viewpcx.ps
% Display a PCX file.
% Requires the Level 2 `image' operator (to handle variable pixel widths).
@@ -51,7 +51,7 @@
{ 100 dict begin
/fname 1 index def
/f exch (r) file def
- % Read and unpack the header.
+ % Read and unpack the header.
/header f 128 string readstring pop def
/version header 1 get def
/bpp header 3 get def
@@ -64,32 +64,32 @@
version 5 eq
{ nbits 8 le
{ /cspace
- [/Indexed /DeviceRGB 1 bpp bitshift 1 sub
- f fileposition
- 1 nbits bitshift 3 mul string
- fname status pop pop pop exch pop
- 1 index length sub f exch setfileposition
- f exch readstring pop
- exch f exch setfileposition
- ] def
- /decode [0 cspace 2 get] def
+ [/Indexed /DeviceRGB 1 bpp bitshift 1 sub
+ f fileposition
+ 1 nbits bitshift 3 mul string
+ fname status pop pop pop exch pop
+ 1 index length sub f exch setfileposition
+ f exch readstring pop
+ exch f exch setfileposition
+ ] def
+ /decode [0 cspace 2 get] def
}
{ /cspace /DeviceRGB def
- /decode [0 1 0 1 0 1] def
+ /decode [0 1 0 1 0 1] def
}
ifelse
}
{ /cspace
- [/Indexed /DeviceRGB 1 bpp bitshift 1 sub
- header 16 1 nbits bitshift 16 .min 3 mul getinterval
- ] def
+ [/Indexed /DeviceRGB 1 bpp bitshift 1 sub
+ header 16 1 nbits bitshift 16 .min 3 mul getinterval
+ ] def
/decode [0 cspace 2 get] def
}
ifelse
- % Set up scaling.
+ % Set up scaling.
/SCALE where
{ pop
- % Map pixels SCALE-for-1. Assume orthogonal transformation.
+ % Map pixels SCALE-for-1. Assume orthogonal transformation.
w 1 0 dtransform add abs div SCALE mul
h 0 1 dtransform add abs div SCALE mul
}
@@ -99,10 +99,10 @@
dup h w gt { w mul h div exch } { h mul w div } ifelse
}
ifelse scale
- % Since the number of bytes per line is always even,
- % it may not match the width specification.
+ % Since the number of bytes per line is always even,
+ % it may not match the width specification.
/wbpl w bpp mul 7 add 8 idiv def
- % Define the data source procedure.
+ % Define the data source procedure.
/s1 bpl wbpl sub string def
/df /readpcx load copyarray dup 0 f put cvx bind readonly
0 () /SubFileDecode filter def
@@ -112,7 +112,7 @@
cvx bind readonly
}
repeat ] def
- % Construct the image dictionary.
+ % Construct the image dictionary.
20 dict begin % image dictionary
/ImageType 1 def
/Width w def
@@ -125,7 +125,7 @@
{ 0 get }
ifelse def
currentdict end
- % Finally, display the image.
+ % Finally, display the image.
cspace setcolorspace
image
showpage