From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Tue, 6 Feb 2007 22:53:33 +0000 (+0000)
Subject: Tweak to Tye 42 font generation -- construct the CharStrings dictionary
X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/commitdiff_plain/a2bd22193636859a63187aec26b389e07163880e

Tweak to Tye 42 font generation -- construct the CharStrings dictionary
rather more in PostScript and less in C.


git-svn-id: svn://svn.tartarus.org/sgt/halibut@7243 cda61777-01e9-0310-a592-d414129be87e
---

diff --git a/in_sfnt.c b/in_sfnt.c
index fe10c46..5b87976 100644
--- a/in_sfnt.c
+++ b/in_sfnt.c
@@ -683,9 +683,10 @@ void sfnt_writeps(font_info const *fi, FILE *ofp) {
     }
     fprintf(ofp, "/PaintType 0 def\n");
     fprintf(ofp, "/CharStrings %u dict dup begin\n", sf->nglyphs);
+    fprintf(ofp, "0 1 %u{currentfile token pop exch def}bind for\n",
+	sf->nglyphs - 1);
     for (i = 0; i < sf->nglyphs; i++)
-	fprintf(ofp, "/%s %u def\n",
-		glyph_extern(sfnt_indextoglyph(sf, i)), i);
+	fprintf(ofp, "/%s\n", glyph_extern(sfnt_indextoglyph(sf, i)));
     fprintf(ofp, "end readonly def\n");
     fprintf(ofp, "/sfnts [<");
     breaks = snewn(sf->osd.numTables + sf->nglyphs, size_t);