+
+
+
+void test_pango()
+{
+ int dpi = 1200;
+
+ char * font_family = "Emmentaler";
+ PangoContext * pango_context =
+ pango_ft2_get_context (dpi, dpi);
+ PangoFontDescription *font_description;
+ font_description = pango_font_description_new ();
+ pango_font_description_set_family (font_description, g_strdup (font_family));
+ pango_font_description_set_style (font_description, (PangoStyle) 20);
+ pango_context_set_font_description (pango_context, font_description);
+
+
+ PangoAttrList *attr_list = pango_attr_list_new();
+ char *str = "sfz";
+ GList * items = pango_itemize (pango_context, str, 0, strlen(str),
+ attr_list, NULL);
+
+
+ GList * ptr = items;
+ while (ptr)
+ {
+ PangoItem *item = (PangoItem*)ptr->data;
+ printf( "off %d len %d num %d\n", item->offset, item->length, item->num_chars);
+
+ PangoAnalysis paobj = item->analysis;
+ PangoAnalysis * pa = &paobj;
+
+ PangoFontDescription *descr = pango_font_describe (pa->font);
+ // assert (font_description == descr);
+ printf ("font descr string '%s' fname '%s'",
+ pango_font_description_to_string (descr),
+ pango_font_description_to_filename (descr)
+ );
+
+ printf ("type name %s\n", g_type_name (G_TYPE_FROM_INSTANCE(pa->font)));
+ PangoFcFont * fcfont = G_TYPE_CHECK_INSTANCE_CAST(pa->font,
+ PANGO_TYPE_FC_FONT,
+ PangoFcFont);
+
+ FcPattern *fcpat = fcfont->font_pattern;
+ FcPatternPrint (fcpat);
+ char *retval ="bla";
+
+ FcPatternGetString(fcpat, FC_FILE, 0, (FcChar8 **) &retval);
+ printf ("retval %s\n", retval);
+
+ FT_Face ftface = pango_fc_font_lock_face (fcfont);
+
+ printf ("shape %ux %s lang %ux font %ux languagae %ux\nft face %ux\n", pa->shape_engine,
+ G_OBJECT_TYPE_NAME(pa->shape_engine),
+ pa->lang_engine, pa->font, pa->language, ftface);
+
+ PangoGlyphString *pgs = pango_glyph_string_new();
+ pango_shape (str, strlen(str), pa, pgs);
+
+ int i;
+ for (i = 0; i < pgs->num_glyphs; i++)
+ {
+ PangoGlyphInfo *pgi = pgs->glyphs + i;
+
+ PangoGlyph pg = pgi->glyph;
+ PangoGlyphGeometry ggeo = pgi->geometry;
+
+ printf ("c %d w %d x %d y %d\n", pg, ggeo.width, ggeo.x_offset,
+ ggeo.y_offset );
+
+ char str[1024];
+ FT_Get_Glyph_Name (ftface, pg, str, 1024);
+ printf ("glyph %s\n", str);
+ }
+ printf ("\nPS name %s\n", FT_Get_Postscript_Name (ftface));
+
+ PangoRectangle r1;
+ PangoRectangle r2;
+
+ pango_glyph_string_extents (pgs, pa->font, &r1, &r2);
+
+ ptr = ptr->next;
+ printf ("\nnext item\n");
+ }
+
+}