[gs-cvs] rev 8411 - trunk/gs/lib

[ray at ghostscript.com]

Author: ray
Date: 2007-11-28 10:39:59 -0800 (Wed, 28 Nov 2007)
New Revision: 8411

Modified:
   trunk/gs/lib/docie.ps
Log:
Fix CIEBasedA problem, add DeviceGray and DeviceRGB support to this utility.

DETAILS:

This isn't used by Ghostscript, but is a useful utility for 'running' a
CIE colorspace conversion to see the intermediate and final results.


Modified: trunk/gs/lib/docie.ps
===================================================================
--- trunk/gs/lib/docie.ps	2007-11-27 22:58:40 UTC (rev 8410)
+++ trunk/gs/lib/docie.ps	2007-11-28 18:39:59 UTC (rev 8411)
@@ -101,7 +101,7 @@
  } 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 @@
 
 /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> ...