diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2010-05-12 19:25:45 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2010-05-12 19:25:45 +0000 |
commit | dc55d4f5cde421a3704c183bc6ceb3fcdb6b0653 (patch) | |
tree | db0890c2f5f2714d527a42ad3fb7955ac5b1f545 /Master/tlpkg/tlgs/lib/viewcmyk.ps | |
parent | 053ead4487e776b05721ec15b941fe0bc1b7d513 (diff) |
tlgs: 8.70 => 8.71
git-svn-id: svn://tug.org/texlive/trunk@18215 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/viewcmyk.ps')
-rw-r--r--[-rwxr-xr-x] | Master/tlpkg/tlgs/lib/viewcmyk.ps | 126 |
1 files changed, 63 insertions, 63 deletions
diff --git a/Master/tlpkg/tlgs/lib/viewcmyk.ps b/Master/tlpkg/tlgs/lib/viewcmyk.ps index e874b09db2b..5476e3732d5 100755..100644 --- a/Master/tlpkg/tlgs/lib/viewcmyk.ps +++ b/Master/tlpkg/tlgs/lib/viewcmyk.ps @@ -1,63 +1,63 @@ -% Copyright (C) 1996, 1997, 1998 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: viewcmyk.ps 6300 2005-12-28 19:56:24Z giles $
-% viewcmyk.ps
-% Display a raw CMYK file.
-% Requires the colorimage operator.
-% If SCALE is defined, maps input pixels to output pixels with that scale;
-% if SCALE is undefined, scales the image to fit the page.
-% If BITS is defined, it is the number of bits per sample (1,2,4,8,12);
-% if BITS is undefined, its default value is 1.
-
-/viewcmyk { % <filename> <width> viewcmyk -
- 20 dict begin
- /w exch def
- /fname exch def
- /bpc /BITS where { pop BITS } { 1 } ifelse def
- /f fname (r) file def
- mark fname status pop pop pop /flen exch def cleartomark
- /h flen w bpc 4 mul mul 7 add 8 idiv idiv def
- (Dimensions: ) print [w h] == flush
- % Set up scaling.
- /SCALE where {
- pop
- % Map pixels SCALE-for-1. Assume orthogonal transformation.
- SCALE 1 0 dtransform add abs div
- SCALE 0 1 dtransform add abs div
- } {
- % Scale the image (uniformly) to fit the page.
- clippath pathbbox pop pop translate
- pathbbox 3 -1 roll sub h div
- 3 1 roll exch sub w div .min dup
- } ifelse scale
- w h bpc [1 0 0 -1 0 h] f false 4 colorimage
- showpage
- f closefile
- end
-} bind def
-
-% If the program was invoked from the command line, run it now.
-[ shellarguments {
- counttomark 2 eq {
- cvi viewcmyk
- } {
- cleartomark
- (Usage: gs -- viewcmyk.ps filename.cmyk width\n) print
- ( e.g.: gs -- viewcmyk.ps my.cmyk 2550\n) print flush
- } ifelse
-} {
- pop
-} ifelse
+% Copyright (C) 1996, 1997, 1998 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: viewcmyk.ps 6300 2005-12-28 19:56:24Z giles $ +% viewcmyk.ps +% Display a raw CMYK file. +% Requires the colorimage operator. +% If SCALE is defined, maps input pixels to output pixels with that scale; +% if SCALE is undefined, scales the image to fit the page. +% If BITS is defined, it is the number of bits per sample (1,2,4,8,12); +% if BITS is undefined, its default value is 1. + +/viewcmyk { % <filename> <width> viewcmyk - + 20 dict begin + /w exch def + /fname exch def + /bpc /BITS where { pop BITS } { 1 } ifelse def + /f fname (r) file def + mark fname status pop pop pop /flen exch def cleartomark + /h flen w bpc 4 mul mul 7 add 8 idiv idiv def + (Dimensions: ) print [w h] == flush + % Set up scaling. + /SCALE where { + pop + % Map pixels SCALE-for-1. Assume orthogonal transformation. + SCALE 1 0 dtransform add abs div + SCALE 0 1 dtransform add abs div + } { + % Scale the image (uniformly) to fit the page. + clippath pathbbox pop pop translate + pathbbox 3 -1 roll sub h div + 3 1 roll exch sub w div .min dup + } ifelse scale + w h bpc [1 0 0 -1 0 h] f false 4 colorimage + showpage + f closefile + end +} bind def + +% If the program was invoked from the command line, run it now. +[ shellarguments { + counttomark 2 eq { + cvi viewcmyk + } { + cleartomark + (Usage: gs -- viewcmyk.ps filename.cmyk width\n) print + ( e.g.: gs -- viewcmyk.ps my.cmyk 2550\n) print flush + } ifelse +} { + pop +} ifelse |