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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-06-04 17:26:20 -0700 (Wed, 04 Jun 2008)
New Revision: 8788

Modified:
   trunk/gs/lib/gs_cidfn.ps
Log:
Replace incorrect FontMatrix in CFF CIDFont with a most common value to
recover a PDF file that Acrobat 8 manages to shows correctly. Bug 688517.

DIFFERENCES:
None


Modified: trunk/gs/lib/gs_cidfn.ps
===================================================================
--- trunk/gs/lib/gs_cidfn.ps	2008-05-31 00:57:34 UTC (rev 8787)
+++ trunk/gs/lib/gs_cidfn.ps	2008-06-05 00:26:20 UTC (rev 8788)
@@ -65,15 +65,23 @@
 % or for .buildfont9 (FDArray.Private.Subrs).
 /.completefont9 {	% <cidfont0> .completefont9 <cidfont0>
   currentglobal 3 1 roll dup gcheck setglobal
-  dup /FontMatrix known not {
+  dup /FontMatrix known {
+    dup /FDArray get {
+      dup /FontMatrix get 0 get 1000000 ge {
+        /FontMatrix matrix put  % Bug 688517
+      } {
+        pop
+      } ifelse
+    } forall
+  } {
     dup /FontMatrix [0.001 0 0 0.001 0 0] put
     dup /FDArray get {
        currentglobal exch dup gcheck setglobal
-       dup /FontMatrix get [1000 0 0 1000 0 0] matrix concatmatrix
+       dup /FontMatrix get {1000 0 0 1000 0 0} matrix concatmatrix
        /FontMatrix exch put
        setglobal
     } forall
-  } if
+  } ifelse
   dup /FDArray get {
 		% Read the Subrs if necessary.
     dup /Private get dup /Subrs known not {