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

[alexcher at ghostscript.com]

Author: alexcher
Date: 2008-05-24 21:28:23 -0700 (Sat, 24 May 2008)
New Revision: 8774

Modified:
   trunk/gs/lib/gs_ttf.ps
Log:
Continue the changes started by the rev. 8772. Remove one more definefont from
embedded TrueType font loader. Bug 689644, customer 243.

DIFFERENCES:
None found, minor differences are possible in Bug689644.ps .


Modified: trunk/gs/lib/gs_ttf.ps
===================================================================
--- trunk/gs/lib/gs_ttf.ps	2008-05-25 02:17:14 UTC (rev 8773)
+++ trunk/gs/lib/gs_ttf.ps	2008-05-25 04:28:23 UTC (rev 8774)
@@ -1520,17 +1520,6 @@
 
 currentdict /postalias undef
 
-% -mark- <key> <value> ... .definettfont <font>
-/.definettfont {
-  /FontType 42
-  /PaintType 0
-  TTFDEBUG {
-    (numloca=) print numloca =
-  } if
-  .dicttomark
-  end end dup /FontName get exch definefont
-} bind def
-
 % <file> .loadttfont <type42font>
 /.loadttfont {
   TTFDEBUG { (.loadttfont) = } if
@@ -1541,7 +1530,13 @@
   mark
   .charkeys
   .ttkeys
-  .definettfont
+  /FontType 42
+  /PaintType 0
+  TTFDEBUG {
+    (numloca=) print numloca =
+  } if
+  .dicttomark
+  end end dup /FontName get exch definefont
 } bind def
 
 % ---------------- CIDFontType 2 font loading ---------------- %
@@ -1949,5 +1944,12 @@
   mark
   .pdfcharkeys
   .ttkeys
-  .definettfont
+  /FontType 42
+  /PaintType 0
+  TTFDEBUG {
+    (numloca=) print numloca =
+  } if
+  .dicttomark
+  end end
+  .completefont
 } bind def