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

[leonardo at ghostscript.com]

Author: leonardo
Date: 2007-05-27 10:59:43 -0700 (Sun, 27 May 2007)
New Revision: 8007

Modified:
   trunk/gs/lib/gs_devn.ps
Log:
Fix : More tolerance for bogus tintTransform.

DETAILS : 

Bug 688584 provides a test case, when tintTransform
replaces an extra value on operand stack. 
It allows to know whether tintTransform is called.
We believe it is an incorrect Postscript,
but the file is created QuarkXPress: pictwpstops filter 1.0,
from customer 582, so we need to be tolerant.

EXPECTED DIFFERENCES :

None.


Modified: trunk/gs/lib/gs_devn.ps
===================================================================
--- trunk/gs/lib/gs_devn.ps	2007-05-27 16:39:19 UTC (rev 8006)
+++ trunk/gs/lib/gs_devn.ps	2007-05-27 17:59:43 UTC (rev 8007)
@@ -200,10 +200,17 @@
       {
         .usealternate
           {
-            pop currentcolor
+            pop
+    	    % "QuarkXPress pictwpstops filter 1.0" generates a document, 
+    	    % which places an extra value on the operand stack
+	    % and tintTransform replaces it - see bug 549307 
+	    % and the test case of bug 688584.
+	    % Here we use mark...cleartomark for providing a tolerance.
+            mark 
+            true % An extra value for bogus Adobe tintTransform 
+            currentcolor
             currentcolorspace 3 get exec
-            currentcolorspace 2 get
-            //clear_setcolor_operands exec
+            cleartomark
           }
           { pop }
         ifelse