From dc55d4f5cde421a3704c183bc6ceb3fcdb6b0653 Mon Sep 17 00:00:00 2001 From: Reinhard Kotucha Date: Wed, 12 May 2010 19:25:45 +0000 Subject: tlgs: 8.70 => 8.71 git-svn-id: svn://tug.org/texlive/trunk@18215 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlgs/lib/viewcmyk.ps | 126 +++++++++++++++++++------------------- 1 file changed, 63 insertions(+), 63 deletions(-) mode change 100755 => 100644 Master/tlpkg/tlgs/lib/viewcmyk.ps (limited to 'Master/tlpkg/tlgs/lib/viewcmyk.ps') diff --git a/Master/tlpkg/tlgs/lib/viewcmyk.ps b/Master/tlpkg/tlgs/lib/viewcmyk.ps old mode 100755 new mode 100644 index e874b09db2b..5476e3732d5 --- 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 { % 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 { % 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 -- cgit v1.2.3