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

[ray at ghostscript.com]

Author: ray
Date: 2006-11-03 21:51:14 -0800 (Fri, 03 Nov 2006)
New Revision: 7158

Modified:
   trunk/gs/lib/gs_cspace.ps
Log:
Make the Device color spaces arrays instead of packedarrays for Adobe
compatibility. CET 09-03, 09-06 and others.


Modified: trunk/gs/lib/gs_cspace.ps
===================================================================
--- trunk/gs/lib/gs_cspace.ps	2006-11-04 04:02:22 UTC (rev 7157)
+++ trunk/gs/lib/gs_cspace.ps	2006-11-04 05:51:14 UTC (rev 7158)
@@ -532,7 +532,7 @@
 %
 %
 /initgraphics
-  { initgraphics { /DeviceGray } cvlit forcesetcolorspace }
+  { initgraphics [ /DeviceGray ] cvlit forcesetcolorspace }
 .bind systemdict begin odef end
 
 systemdict /setcolorspace .undef
@@ -551,7 +551,7 @@
 %
 /setgray
   {
-      { { /DeviceGray } cvlit  //setcolorspace //setcolor }
+      { [ /DeviceGray ] cvlit  //setcolorspace //setcolor }
     stopped
       { /setgray .systemvar $error /errorname get signalerror }
     if
@@ -560,7 +560,7 @@
 
 /setrgbcolor
   {
-      { { /DeviceRGB } cvlit //setcolorspace //setcolor }
+      { [ /DeviceRGB ] cvlit //setcolorspace //setcolor }
     stopped
       { /setrgbcolor .systemvar $error /errorname get signalerror }
     if
@@ -572,7 +572,7 @@
     pop
     /setcmykcolor
       {
-          { { /DeviceCMYK } cvlit //setcolorspace //setcolor }
+          { [ /DeviceCMYK ] cvlit //setcolorspace //setcolor }
         stopped
           { /setcmykcolor .systemvar $error /errorname get signalerror }
         if