+ /*
+ Zero-width characters are valid Unicode characters,
+ but glyph lookups need to be skipped.
+ */
+ if (!(pg ^ PANGO_GLYPH_EMPTY))
+ continue;
+
+ if (pg & PANGO_GLYPH_UNKNOWN_FLAG)
+ {
+ warning (_f ("no glyph for character U+%0X in font `%s'",
+ pg & ~PANGO_GLYPH_UNKNOWN_FLAG, file_name.c_str ()));
+ continue;
+ }
+
+ glyph_name[0] = '\0';
+ if (has_glyph_names)
+ {
+ FT_Error errorcode = FT_Get_Glyph_Name (ftface, pg, glyph_name,
+ GLYPH_NAME_LEN);
+ if (errorcode)
+ programming_error (_f ("FT_Get_Glyph_Name () error: %s",
+ freetype_error_string (errorcode).c_str ()));
+ }
+
+ SCM char_id = SCM_EOL;
+ if (glyph_name[0] == '\0'
+ && cmap
+ && is_ttf
+ && cmap->find (pg) != cmap->end ())
+ {
+ FT_ULong char_code = cmap->find (pg)->second;
+ get_unicode_name (glyph_name, char_code);
+ }
+
+ if (glyph_name[0] == '\0' && has_glyph_names)
+ {
+ programming_error (_f ("Glyph has no name, but font supports glyph naming.\n"
+ "Skipping glyph U+%0X, file %s",
+ pg, file_name.c_str ()));
+ continue;
+ }
+
+ if (glyph_name == string (".notdef") && is_ttf)
+ glyph_name[0] = '\0';
+
+ if (glyph_name[0] == '\0' && is_ttf)
+ // Access by glyph index directly.
+ get_glyph_index_name (glyph_name, pg);
+
+ if (glyph_name[0] == '\0')
+ {
+ // CID entry
+ cid_keyed = true;
+ char_id = scm_from_uint32 (pg);
+ }
+ else
+ char_id = scm_from_locale_string (glyph_name);
+
+ PangoRectangle logical_sub_rect;
+ PangoRectangle ink_sub_rect;
+
+ pango_glyph_string_extents_range (pgs, i, i + 1, pa->font, &ink_sub_rect, &logical_sub_rect);
+ Box b_sub (Interval (PANGO_LBEARING (logical_sub_rect),
+ PANGO_RBEARING (logical_sub_rect)),
+ Interval (-PANGO_DESCENT (ink_sub_rect),
+ PANGO_ASCENT (ink_sub_rect)));
+
+ b_sub.scale (scale_);
+
+ *tail = scm_cons (scm_list_5 (scm_from_double (b_sub[X_AXIS][RIGHT] - b_sub[X_AXIS][LEFT]),
+ scm_cons (scm_from_double (b_sub[Y_AXIS][DOWN]),
+ scm_from_double (b_sub[Y_AXIS][UP])),
+ scm_from_double (ggeo.x_offset * scale_),
+ scm_from_double (- ggeo.y_offset * scale_),
+ char_id),
+ SCM_EOL);