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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2006-11-10 04:18:42 -0800 (Fri, 10 Nov 2006)
New Revision: 7186

Modified:
   trunk/gs/lib/gs_cspace.ps
   trunk/gs/lib/gs_patrn.ps
Log:
Return floating point values for some cases of currentgray, currentrgb, and
currentcmyk operator that are implemented in PostScript.
Fix CET 09-10.ps, 09-19.ps.


Modified: trunk/gs/lib/gs_cspace.ps
===================================================================
--- trunk/gs/lib/gs_cspace.ps	2006-11-09 20:05:09 UTC (rev 7185)
+++ trunk/gs/lib/gs_cspace.ps	2006-11-10 12:18:42 UTC (rev 7186)
@@ -753,9 +753,9 @@
 % 0 0 0 1.0 (this varies from Adobe's documentation but is consistent
 % with their impelementations).
 %
-/no_currentgray { //.cs_get_ncomps exec //clear_n_objs exec 0 } bind def
-/no_currentrgb { //.cs_get_ncomps exec //clear_n_objs exec 0 0 0 } bind def
-/no_currentcmyk { //.cs_get_ncomps exec //clear_n_objs exec 0 0 0 1.0 } bind def
+/no_currentgray { //.cs_get_ncomps exec //clear_n_objs exec 0. } bind def
+/no_currentrgb { //.cs_get_ncomps exec //clear_n_objs exec 0. 0. 0. } bind def
+/no_currentcmyk { //.cs_get_ncomps exec //clear_n_objs exec 0. 0. 0. 1.} bind def
 
 
 %

Modified: trunk/gs/lib/gs_patrn.ps
===================================================================
--- trunk/gs/lib/gs_patrn.ps	2006-11-09 20:05:09 UTC (rev 7185)
+++ trunk/gs/lib/gs_patrn.ps	2006-11-10 12:18:42 UTC (rev 7186)
@@ -125,7 +125,7 @@
       {
         //get_pattern_base_color exec
           //.cs_get_currentgray
-          { 0 }
+          { 0. }
         ifelse
       }
     bind
@@ -134,7 +134,7 @@
       {
         //get_pattern_base_color exec
           //.cs_get_currentrgb
-          { 0 0 0 }
+          { 0. 0. 0. }
         ifelse
       }
     bind
@@ -143,7 +143,7 @@
       {
         //get_pattern_base_color exec
           //.cs_get_currentcmyk
-          { 0 0 0 1.0 }
+          { 0. 0. 0. 1. }
         ifelse
       }
     bind