summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/docie.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/docie.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/docie.ps6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlgs/lib/docie.ps b/Master/tlpkg/tlgs/lib/docie.ps
index 20dd6a17776..31b4df74ec0 100644
--- a/Master/tlpkg/tlgs/lib/docie.ps
+++ b/Master/tlpkg/tlgs/lib/docie.ps
@@ -13,7 +13,7 @@
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-% $Id: docie.ps 6300 2005-12-28 19:56:24Z giles $
+% $Id: docie.ps 8411 2007-11-28 18:39:59Z ray $
% docie.ps
% Emulate CIE algorithms in PostScript.
@@ -101,7 +101,7 @@ DOCIEDEBUG { (After MatrixLMN Decode: ) print3 } if
} bind def
/csciea % <csdict> <a> csciea <csdict> <x> <y> <z>
- { 1 index /RangeA .knownget not { r1default } if restrict
+ { 1 index /RangeA .knownget not { r1default aload pop } if restrict
DOCIEDEBUG { (After RangeA Decode: ) print1 } if
1 index /DecodeA .knownget { exec } if
DOCIEDEBUG { (After DecodeA Decode: ) print1 } if
@@ -210,7 +210,9 @@ DOCIEDEBUG { (After RangeABC Encode: ) print3 } if
/mapdict mark
/CIEBasedA { 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
+ /DeviceGray { pop /DefaultGray /ColorSpace findresource 1 get exch csciea currentcolorrendering 4 1 roll crmap } bind
/CIEBasedABC { 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
+ /DeviceRGB { pop /DefaultRGB /ColorSpace findresource 1 get 4 1 roll cscieabc currentcolorrendering 4 1 roll crmap } bind
.dicttomark def
/mapcie % <a> mapcie <v1> ...
% <a> <b> <c> mapcie <v1> ...