+// manipulate Pdf fonts
+
+struct PdfFont *new_pdffont(struct XrefTable *xref, GList **fonts,
+ char *filename, int font_id, FT_Face face, int glyph_page)
+{
+ GList *list;
+ struct PdfFont *font;
+ int i;
+ const char *s;
+
+ for (list = *fonts; list!=NULL; list = list->next) {
+ font = (struct PdfFont *)list->data;
+ if (!strcmp(font->filename, filename) && font->font_id == font_id
+ && font->glyph_page == glyph_page)
+ { font->used_in_this_page = TRUE; return font; }
+ }
+ font = g_malloc(sizeof(struct PdfFont));
+ *fonts = g_list_append(*fonts, font);
+ font->n_obj = xref->last+1;
+ make_xref(xref, xref->last+1, 0); // will give it a value later
+ font->filename = g_strdup(filename);
+ font->font_id = font_id;
+ font->glyph_page = glyph_page;
+ font->used_in_this_page = TRUE;
+ font->num_glyphs_used = 0;
+ for (i=0; i<256; i++) {
+ font->glyphmap[i] = -1;
+ font->advance[i] = 0;
+ font->glyphpsnames[i] = NULL;
+ }
+ font->glyphmap[0] = 0;
+ // fill in info from the FT_Face
+ font->is_truetype = FT_IS_SFNT(face);
+ font->nglyphs = face->num_glyphs;
+ font->ft2ps = 1000.0 / face->units_per_EM;
+ font->ascender = (int)(font->ft2ps*face->ascender);
+ font->descender = (int)(font->ft2ps*face->descender);
+ if (face->bbox.xMin < -100000 || face->bbox.xMin > 100000) font->xmin = 0;
+ else font->xmin = (int)(font->ft2ps*face->bbox.xMin);
+ if (face->bbox.xMax < -100000 || face->bbox.xMax > 100000) font->xmax = 0;
+ else font->xmax = (int)(font->ft2ps*face->bbox.xMax);
+ if (face->bbox.yMin < -100000 || face->bbox.yMin > 100000) font->ymin = 0;
+ else font->ymin = (int)(font->ft2ps*face->bbox.yMin);
+ if (face->bbox.yMax < -100000 || face->bbox.yMax > 100000) font->ymax = 0;
+ else font->ymax = (int)(font->ft2ps*face->bbox.yMax);
+ if (font->is_truetype) font->flags = 4; // symbolic
+ else {
+ font->flags = 4; // symbolic
+ if (FT_IS_FIXED_WIDTH(face)) font->flags |= 1;
+ if (face->style_flags & FT_STYLE_FLAG_ITALIC) font->flags |= 64;
+ }
+ s = FT_Get_Postscript_Name(face);
+ if (s==NULL) s = "Noname";
+ if (glyph_page) font->fontname = g_strdup_printf("%s_%03d", s, glyph_page);
+ else font->fontname = g_strdup(s);
+ return font;
+}
+
+#define pfb_get_length(x) (((x)[3]<<24) + ((x)[2]<<16) + ((x)[1]<<8) + (x)[0])
+#define T1_SEGMENT_1_END "currentfile eexec"
+#define T1_SEGMENT_3_END "cleartomark"
+
+void embed_pdffont(GString *pdfbuf, struct XrefTable *xref, struct PdfFont *font)
+{
+ // this code inspired by libgnomeprint
+ gboolean fallback, is_binary;
+ guchar encoding[256];
+ gushort glyphs[256];
+ int i, j, num, len1, len2;
+ gsize len;
+ TrueTypeFont *ttfnt;
+ char *seg1, *seg2;
+ char *fontdata, *p;
+ char prefix[8];
+ int nobj_fontprog, nobj_descr, lastchar;
+
+ fallback = FALSE;
+ // embed the font file: TrueType case
+ if (font->is_truetype) {
+ glyphs[0] = encoding[0] = 0;
+ num = 1;
+ for (i=1; i<=255; i++)
+ if (font->glyphmap[i]>=0) {
+ font->glyphmap[i] = num;
+ glyphs[num] = 255*font->glyph_page+i-1;
+ encoding[num] = i;
+ num++;
+ }
+ font->num_glyphs_used = num-1;
+ if (OpenTTFont(font->filename, 0, &ttfnt) == SF_OK) {
+ if (CreateTTFromTTGlyphs_tomemory(ttfnt, (guint8**)&fontdata, &len, glyphs, encoding, num,
+ 0, NULL, TTCF_AutoName | TTCF_IncludeOS2) == SF_OK) {
+ make_xref(xref, xref->last+1, pdfbuf->len);
+ nobj_fontprog = xref->last;
+ g_string_append_printf(pdfbuf,
+ "%d 0 obj\n<< /Length %d /Length1 %d >> stream\n",
+ nobj_fontprog, (int)len, (int)len);
+ g_string_append_len(pdfbuf, fontdata, len);
+ g_string_append(pdfbuf, "endstream\nendobj\n");
+ g_free(fontdata);
+ }
+ else fallback = TRUE;
+ CloseTTFont(ttfnt);
+ }
+ else fallback = TRUE;
+ } else {
+ // embed the font file: Type1 case
+ if (g_file_get_contents(font->filename, &fontdata, &len, NULL) && len>=8) {
+ if (fontdata[0]==(char)0x80 && fontdata[1]==(char)0x01) {
+ is_binary = TRUE;
+ len1 = pfb_get_length((unsigned char *)fontdata+2);
+ if (fontdata[len1+6]!=(char)0x80 || fontdata[len1+7]!=(char)0x02) fallback = TRUE;
+ else {
+ len2 = pfb_get_length((unsigned char *)fontdata+len1+8);
+ if (fontdata[len1+len2+12]!=(char)0x80 || fontdata[len1+len2+13]!=(char)0x01)
+ fallback = TRUE;
+ }
+ }
+ else if (!strncmp(fontdata, "%!PS", 4)) {
+ is_binary = FALSE;
+ p = strstr(fontdata, T1_SEGMENT_1_END) + strlen(T1_SEGMENT_1_END);
+ if (p==NULL) fallback = TRUE;
+ else {
+ if (*p=='\n' || *p=='\r') p++;
+ if (*p=='\n' || *p=='\r') p++;
+ len1 = p-fontdata;
+ p = g_strrstr_len(fontdata, len, T1_SEGMENT_3_END);
+ if (p==NULL) fallback = TRUE;
+ else {
+ // rewind 512 zeros
+ i = 512; p--;
+ while (i>0 && p!=fontdata && (*p=='0' || *p=='\r' || *p=='\n')) {
+ if (*p=='0') i--;
+ p--;
+ }
+ while (p!=fontdata && (*p=='\r' || *p=='\n')) p--;
+ p++;
+ if (i>0) fallback = TRUE;
+ else len2 = p-fontdata-len1;
+ }
+ }
+ }
+ else fallback = TRUE;
+ if (!fallback) {
+ if (is_binary) {
+ seg1 = fontdata+6;
+ seg2 = fontdata + len1 + 12;
+ } else {
+ seg1 = fontdata;
+ seg2 = g_malloc(len2/2);
+ j=0;
+ p = fontdata+len1;
+ while (p+1 < fontdata+len1+len2) {
+ if (*p==' '||*p=='\t'||*p=='\n'||*p=='\r') { p++; continue; }
+ if (p[0]>'9') { p[0]|=0x20; p[0]-=39; }
+ if (p[1]>'9') { p[1]|=0x20; p[1]-=39; }
+ seg2[j++] = ((p[0]-'0')<<4) + (p[1]-'0');
+ p+=2;
+ }
+ len2 = j;
+ }
+ make_xref(xref, xref->last+1, pdfbuf->len);
+ nobj_fontprog = xref->last;
+ g_string_append_printf(pdfbuf,
+ "%d 0 obj\n<< /Length %d /Length1 %d /Length2 %d /Length3 0 >> stream\n",
+ nobj_fontprog, len1+len2, len1, len2);
+ g_string_append_len(pdfbuf, seg1, len1);
+ g_string_append_len(pdfbuf, seg2, len2);
+ g_string_append(pdfbuf, "endstream\nendobj\n");
+ if (!is_binary) g_free(seg2);
+ }
+ g_free(fontdata);
+ }
+ else fallback = TRUE;
+ }
+
+ // next, the font descriptor
+ if (!fallback) {
+ make_xref(xref, xref->last+1, pdfbuf->len);
+ nobj_descr = xref->last;
+ g_string_append_printf(pdfbuf,
+ "%d 0 obj\n<< /Type /FontDescriptor /FontName /%s /Flags %d "
+ "/FontBBox [%d %d %d %d] /ItalicAngle 0 /Ascent %d "
+ "/Descent %d /CapHeight %d /StemV 100 /%s %d 0 R >> endobj\n",
+ nobj_descr, font->fontname, font->flags,
+ font->xmin, font->ymin, font->xmax, font->ymax,
+ font->ascender, -font->descender, font->ascender,
+ font->is_truetype ? "FontFile2":"FontFile",
+ nobj_fontprog);
+ }
+
+ // finally, the font itself
+ /* Note: in Type1 case, font->glyphmap maps charcodes to glyph no's
+ in TrueType case, encoding lists the used charcodes by index,
+ glyphs list the used glyph no's by index
+ font->glyphmap maps charcodes to indices */
+ xref->data[font->n_obj] = pdfbuf->len;
+ if (font->is_truetype) lastchar = encoding[font->num_glyphs_used];
+ else lastchar = font->num_glyphs_used;
+ if (fallback) {
+ font->is_truetype = FALSE;
+ g_free(font->fontname);
+ font->fontname = g_strdup("Helvetica");
+ }
+ prefix[0]=0;
+ if (font->is_truetype) {
+ num = font->glyph_page;
+ for (i=0; i<6; i++) { prefix[i] = 'A'+(num%26); num/=26; }
+ prefix[6]='+'; prefix[7]=0;
+ }
+ g_string_append_printf(pdfbuf,
+ "%d 0 obj\n<< /Type /Font /Subtype /%s /BaseFont /%s%s /Name /F%d ",
+ font->n_obj, font->is_truetype?"TrueType":"Type1",
+ prefix, font->fontname, font->n_obj);
+ if (!fallback) {
+ g_string_append_printf(pdfbuf,
+ "/FontDescriptor %d 0 R /FirstChar 0 /LastChar %d /Widths [",
+ nobj_descr, lastchar);
+ for (i=0; i<=lastchar; i++)
+ g_string_append_printf(pdfbuf, "%d ", font->advance[i]);
+ g_string_append(pdfbuf, "] ");
+ }
+ if (!font->is_truetype) { /* encoding */
+ g_string_append(pdfbuf, "/Encoding << /Type /Encoding "
+ "/BaseEncoding /MacRomanEncoding /Differences [1 ");
+ for (i=1; i<=lastchar; i++) {
+ g_string_append_printf(pdfbuf, "/%s ", font->glyphpsnames[i]);
+ g_free(font->glyphpsnames[i]);
+ }
+ g_string_append(pdfbuf, "] >> ");
+ }
+ g_string_append(pdfbuf, ">> endobj\n");
+}
+