diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2013-02-18 22:54:24 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2013-02-18 22:54:24 +0000 |
commit | 152319ccddf48a345b38cc725bf839467fd9d57d (patch) | |
tree | ccf35a4c175f9b536ac4f32207690e8e355c0526 /Master/tlpkg/tlgs/lib/viewmiff.ps | |
parent | 8bf3f3c636bf1dee1cb1b3cfcdaa951c3879c937 (diff) |
tlgs: update gs-9.05 -> gs-9.07
git-svn-id: svn://tug.org/texlive/trunk@29151 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlgs/lib/viewmiff.ps')
-rw-r--r-- | Master/tlpkg/tlgs/lib/viewmiff.ps | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/Master/tlpkg/tlgs/lib/viewmiff.ps b/Master/tlpkg/tlgs/lib/viewmiff.ps index ede829b2c64..01855090348 100644 --- a/Master/tlpkg/tlgs/lib/viewmiff.ps +++ b/Master/tlpkg/tlgs/lib/viewmiff.ps @@ -1,4 +1,5 @@ -% Copyright (C) 1998 Aladdin Enterprises. All rights reserved. +% Copyright (C) 2001-2012 Artifex Software, Inc. +% All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or % implied. @@ -7,17 +8,16 @@ % 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. +% Refer to licensing information at http://www.artifex.com or contact +% Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134, San Rafael, +% CA 94903, U.S.A., +1(415)492-9861, for further information. +% -% $Id$ % viewmiff.ps % Display a MIFF file. You would think the 'display' command would do this, % but many versions of 'display' either core-dump or require unacceptably % large amounts of memory. +% FITPAGE is true, it fits the output page size to the image % Recognize MIFF keywords. /miffwords mark @@ -112,6 +112,19 @@ % Read and display the image. miffclasses class get exec /DataSource miffcompress compression get exec def + /FITPAGE where + { + /FITPAGE get + { + % we've already set the image color space, so + % push it on the stack, and set it again after + % setting the page size + currentcolorspace + <</PageSize [Width Height] >> setpagedevice + setcolorspace + } if + } if + /ImageMatrix [Width 0 0 Height neg 0 Height] def currentpagedevice /PageSize get dup 0 get exch 1 get scale |