+ }
+
+ objtext(font, "<<\n/Type /Font\n/BaseFont /");
+ objtext(font, fe->font->info->name);
+ if (fe->font->info->filetype == TRUETYPE) {
+ object *cidfont = new_object(&olist);
+ object *cmap = new_object(&olist);
+ objtext(font, "/Subtype/Type0\n/Encoding ");
+ sfnt_cmap(fe, cmap);
+ objref(font, cmap);
+ objtext(font, "\n/DescendantFonts[");
+ objref(font, cidfont);
+ objtext(font, "]\n");
+ objtext(cidfont, "<<\n/Type/Font\n/Subtype/CIDFontType2\n"
+ "/BaseFont/");
+ objtext(cidfont, fe->font->info->name);
+ objtext(cidfont, "\n/CIDSystemInfo<</Registry(Adobe)"
+ "/Ordering(Identity)/Supplement 0>>\n");
+ objtext(cidfont, "/FontDescriptor ");
+ objref(cidfont, fontdesc);
+ objtext(cidfont, ">>\n");
+ } else {
+ objtext(font, "/Subtype /Type1\n");
+ objtext(font, "\n/Encoding <<\n/Type /Encoding\n/Differences [");
+
+ for (i = 0; i < 256; i++) {
+ char buf[20];
+ if (fe->vector[i] == NOGLYPH)
+ continue;
+ if (i != prev + 1) {
+ sprintf(buf, "\n%d", i);
+ objtext(font, buf);
+ }
+ objtext(font, i % 8 ? "/" : "\n/");
+ objtext(font, glyph_extern(fe->vector[i]));
+ prev = i;
+ }
+
+ objtext(font, "\n]\n>>\n");
+ if (!is_std_font(fe->font->info->name)){
+ object *widths = new_object(&olist);
+ int firstchar = -1, lastchar = -1;
+ for (i = 0; i < 256; i++)
+ if (fe->vector[i] != NOGLYPH) {
+ if (firstchar < 0) firstchar = i;
+ lastchar = i;
+ }
+ sprintf(buf, "/FirstChar %d\n/LastChar %d\n/Widths ",
+ firstchar, lastchar);
+ objtext(font, buf);
+ objref(font, widths);
+ objtext(font, "\n");
+ objtext(widths, "[\n");
+ for (i = firstchar; i <= lastchar; i++) {
+ double width;
+ if (fe->vector[i] == NOGLYPH)
+ width = 0.0;
+ else
+ width = find_width(fe->font, fe->vector[i]);
+ sprintf(buf, "%g\n", 1000.0 * width / FUNITS_PER_PT);
+ objtext(widths, buf);
+ }
+ objtext(widths, "]\n");
+ objtext(font, "/FontDescriptor ");
+ objref(font, fontdesc);
+ }
+
+ }
+
+ if (!is_std_font(fe->font->info->name)) {