From 32ca74bb13739f17537968f30b754eba90257992 Mon Sep 17 00:00:00 2001 From: ben Date: Sat, 25 Sep 2004 18:03:19 +0000 Subject: [PATCH] Don't bother overriding the metrics of PostScript fonts. If the metrics we've got are wrong, things are going to look horrible either way, so we may as well apply minimal effort. git-svn-id: svn://svn.tartarus.org/sgt/halibut@4580 cda61777-01e9-0310-a592-d414129be87e --- bk_ps.c | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/bk_ps.c b/bk_ps.c index af7fde8..5409290 100644 --- a/bk_ps.c +++ b/bk_ps.c @@ -99,7 +99,7 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords, fprintf(fp, "%%%%IncludeResource: font %s\n", fe->font->name); /* - * Re-encode and re-metric the fonts. + * Re-encode the fonts. */ font_index = 0; for (fe = doc->fonts->head; fe; fe = fe->next) { @@ -109,22 +109,14 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords, sprintf(fname, "f%d", font_index++); fe->name = dupstr(fname); - fprintf(fp, "/%s findfont dup length 1 add dict begin\n", - fe->font->name); + fprintf(fp, "/%s findfont dup length dict begin\n", fe->font->name); fprintf(fp, "{1 index /FID ne {def} {pop pop} ifelse} forall\n"); fprintf(fp, "/Encoding [\n"); for (i = 0; i < 256; i++) fprintf(fp, "/%s%c", fe->vector[i] ? fe->vector[i] : ".notdef", i % 4 == 3 ? '\n' : ' '); - fprintf(fp, "] def /Metrics 256 dict dup begin\n"); - for (i = 0; i < 256; i++) { - if (fe->indices[i] >= 0) { - double width = fe->font->widths[fe->indices[i]]; - fprintf(fp, "/%s %g def\n", fe->vector[i], - 1000.0 * width / FUNITS_PER_PT); - } - } - fprintf(fp, "end def currentdict end\n"); + fprintf(fp, "] def\n"); + fprintf(fp, "currentdict end\n"); fprintf(fp, "/fontname-%s exch definefont /%s exch def\n\n", fe->name, fe->name); } -- 2.11.0