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

[dan at ghostscript.com]

Author: dan
Date: 2006-07-27 18:23:29 -0700 (Thu, 27 Jul 2006)
New Revision: 6933

Modified:
   trunk/gs/lib/gs_img.ps
Log:
Fix for pages 4, 5, 13, 14 of the CET test file 12-02.ps.
This file creates colorimages with a size of zero.  The CET
expects that these colorimages will be ignored.


Modified: trunk/gs/lib/gs_img.ps
===================================================================
--- trunk/gs/lib/gs_img.ps	2006-07-27 07:06:36 UTC (rev 6932)
+++ trunk/gs/lib/gs_img.ps	2006-07-28 01:23:29 UTC (rev 6933)
@@ -495,11 +495,18 @@
     % execute .image1 in a stopped context
       {
         gsave
-        0 .setoverprintmode             % disable overprint mode for images
-        //img_csary 2 index /IMG_NComps get get setcolorspace
-          { .alphaimage }
-          { .image1 }
-        ifelse
+	% The CET test file 12-02.ps creates colorimages with a width and
+	% height of 0.  Ignore these since that is what the CET expects.
+	1 index dup /Height get 0 eq exch /Width get 0 eq or
+          { pop pop }	% Ignore colorimage.  Pop bool and dict
+	  {
+            0 .setoverprintmode             % disable overprint mode for images
+            //img_csary 2 index /IMG_NComps get get setcolorspace
+              { .alphaimage }
+              { .image1 }
+            ifelse
+	  }
+	ifelse
       }
     stopped
     grestore