lily/pango-font.cc

   1 /*
   2   pango-font.cc -- implement Pango_font
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #define PANGO_ENABLE_BACKEND // ugh, why necessary?
  10
  11 #include <pango/pangoft2.h>
  12
  13 #include "main.hh"
  14 #include "lookup.hh"
  15 #include "dimensions.hh"
  16 #include "pango-font.hh"
  17 #include "warn.hh"
  18
  19 #if HAVE_PANGO_FT2
  20 #include "stencil.hh"
  21
  22 Pango_font::Pango_font (PangoFT2FontMap *fontmap,
  23                         Direction dir,
  24                         PangoFontDescription *description,
  25                         Real output_scale)
  26 {
  27   physical_font_tab_ = scm_c_make_hash_table (11);
  28   PangoDirection pango_dir = (dir == RIGHT)
  29     ? PANGO_DIRECTION_LTR
  30     : PANGO_DIRECTION_RTL;
  31   context_
  32     = pango_ft2_get_context (PANGO_RESOLUTION, PANGO_RESOLUTION);
  33
  34   pango_description_ = pango_font_description_copy (description);
  35   //  context_ = pango_ft2_font_map_create_context (fontmap);
  36   attribute_list_= pango_attr_list_new ();
  37
  38   /*
  39     urgh. I don't understand this. Why isn't this 1/(scale *
  40     resolution * output_scale)
  41
  42     --hwn
  43   */
  44   scale_ = INCH_TO_BP / (Real (PANGO_SCALE) * Real (PANGO_RESOLUTION) * output_scale);
  45
  46   /*
  47     ugh. Should make this configurable.
  48   */
  49   pango_context_set_language (context_, pango_language_from_string ("en_US"));
  50   pango_context_set_base_dir (context_, pango_dir);
  51   pango_context_set_font_description (context_, description);
  52 }
  53
  54 Pango_font::~Pango_font ()
  55 {
  56   pango_font_description_free (pango_description_);
  57   g_object_unref (context_);
  58   pango_attr_list_unref (attribute_list_);
  59 }
  60
  61 void
  62 Pango_font::register_font_file (String filename, String ps_name)
  63 {
  64   scm_hash_set_x (physical_font_tab_,
  65                   scm_makfrom0str (ps_name.to_str0 ()),
  66                   scm_makfrom0str (filename.to_str0 ()));
  67 }
  68
  69 void
  70 Pango_font::derived_mark () const
  71 {
  72   scm_gc_mark (physical_font_tab_);
  73 }
  74
  75 Stencil
  76 Pango_font::pango_item_string_stencil (PangoItem *item, String str, Real dx) const
  77 {
  78   const int GLYPH_NAME_LEN = 256;
  79   char glyph_name[GLYPH_NAME_LEN];
  80   PangoAnalysis *pa = &(item->analysis);
  81   PangoGlyphString *pgs = pango_glyph_string_new ();
  82
  83   pango_shape (str.to_str0 () + item->offset,
  84                item->length, pa, pgs);
  85
  86   PangoRectangle logical_rect;
  87   PangoRectangle ink_rect;
  88   pango_glyph_string_extents (pgs, pa->font, &ink_rect, &logical_rect);
  89
  90   PangoFcFont *fcfont = G_TYPE_CHECK_INSTANCE_CAST (pa->font,
  91                                                     PANGO_TYPE_FC_FONT,
  92                                                     PangoFcFont);
  93
  94   FT_Face ftface = pango_fc_font_lock_face (fcfont);
  95   Box b (Interval (PANGO_LBEARING (ink_rect),
  96                    PANGO_RBEARING (ink_rect)),
  97          Interval (-PANGO_DESCENT (ink_rect),
  98                    PANGO_ASCENT (ink_rect)));
  99
 100   b.scale (scale_);
 101
 102   SCM glyph_exprs = SCM_EOL;
 103   SCM *tail = &glyph_exprs;
 104   for (int i = 0; i < pgs->num_glyphs; i++)
 105     {
 106       PangoGlyphInfo *pgi = pgs->glyphs + i;
 107
 108       PangoGlyph pg = pgi->glyph;
 109       PangoGlyphGeometry ggeo = pgi->geometry;
 110
 111       FT_Get_Glyph_Name (ftface, pg, glyph_name, GLYPH_NAME_LEN);
 112       *tail = scm_cons (scm_list_3 (scm_from_double (ggeo.x_offset * scale_ + dx),
 113                                     scm_from_double (ggeo.y_offset * scale_),
 114                                     scm_makfrom0str (glyph_name)),
 115                         SCM_EOL);
 116       dx = 0.0;
 117       tail = SCM_CDRLOC (*tail);
 118     }
 119
 120   PangoFontDescription *descr = pango_font_describe (pa->font);
 121   Real size = pango_font_description_get_size (descr)
 122     / (Real (PANGO_SCALE));
 123
 124   FcPattern *fcpat = fcfont->font_pattern;
 125   char *filename = 0;
 126   FcPatternGetString (fcpat, FC_FILE, 0, (FcChar8 **) &filename);
 127   char const *ps_name_str0 = FT_Get_Postscript_Name (ftface);
 128
 129   if (!ps_name_str0)
 130     warning (_f ("No PS font name for font `%s'", filename));
 131
 132   String ps_name;
 133   if (!ps_name_str0
 134       && filename
 135       && (String (filename).index (".otf") >= 0
 136           || String (filename).index (".cff") >= 0))
 137     {
 138
 139       /*
 140         UGH: kludge a PS name for OTF/CFF fonts.
 141
 142       */
 143
 144       String name = filename;
 145       int idx = String (filename).index (".otf")
 146         >? String (filename).index (".cff");
 147
 148       name = name.left_string (idx);
 149
 150       int slash_idx = name.index_last ('/');    // UGh. What's happens on windows?
 151       if (slash_idx >= 0)
 152         name = name.right_string (name.length () - slash_idx - 1);
 153
 154       String initial = name.cut_string (0, 1);
 155       initial.to_upper ();
 156       name = name.nomid_string (0, 1);
 157       name.to_lower ();
 158       ps_name = initial + name;
 159     }
 160   else if (ps_name_str0)
 161     ps_name = ps_name_str0;
 162
 163   if (ps_name.length ())
 164     {
 165       ((Pango_font *) this)->register_font_file (filename, ps_name);
 166       pango_fc_font_unlock_face (fcfont);
 167
 168       SCM expr = scm_list_4 (ly_symbol2scm ("glyph-string"),
 169                              scm_makfrom0str (ps_name.to_str0 ()),
 170                              scm_from_double (size),
 171                              ly_quote_scm (glyph_exprs));
 172
 173       return Stencil (b, expr);
 174     }
 175   else
 176     {
 177       warning (_ ("FreeType face has no PostScript font name."));
 178       return Stencil ();
 179     }
 180 }
 181
 182 SCM
 183 Pango_font::physical_font_tab () const
 184 {
 185   return physical_font_tab_;
 186 }
 187
 188 Stencil
 189 Pango_font::text_stencil (String str) const
 190 {
 191   GList *items = pango_itemize (context_,
 192                                 str.to_str0 (),
 193                                 0, str.length (), attribute_list_,
 194                                 NULL);
 195
 196   GList *ptr = items;
 197   Stencil dest;
 198   Real x = 0.0;
 199   while (ptr)
 200     {
 201       PangoItem *item = (PangoItem *) ptr->data;
 202
 203       Stencil item_stencil = pango_item_string_stencil (item, str, x);
 204
 205       x = item_stencil.extent (X_AXIS)[RIGHT];
 206
 207       dest.add_stencil (item_stencil);
 208
 209       ptr = ptr->next;
 210     }
 211
 212   /*
 213     UGH. Should have flags per output format signifying supported
 214     options.
 215   */
 216   if (output_backend_global != "ps"
 217       && output_backend_global != "eps")
 218     {
 219       /*
 220         For Pango based backends, we take a shortcut.
 221       */
 222       char *descr_string = pango_font_description_to_string (pango_description_);
 223       SCM exp
 224         = scm_list_3 (ly_symbol2scm ("utf8-string"),
 225                       scm_makfrom0str (descr_string),
 226                       scm_makfrom0str (str.to_str0 ()));
 227
 228       g_free (descr_string);
 229
 230       Box b (Interval (0, 0), Interval (0, 0));
 231       b.unite (dest.extent_box ());
 232       return Stencil (b, exp);
 233     }
 234
 235 #if 0
 236   // check extents.
 237   if (!dest.extent_box ()[X_AXIS].is_empty ())
 238     {
 239       Stencil frame = Lookup::frame (dest.extent_box (), 0.1, 0.1);
 240       dest.add_stencil (frame);
 241     }
 242 #endif
 243
 244   return dest;
 245 }
 246
 247 SCM
 248 Pango_font::font_file_name () const
 249 {
 250   return SCM_BOOL_F;
 251 }
 252
 253 #endif
 254
 255 #if 0
 256 void test_pango ()
 257 {
 258   int dpi = 1200;
 259
 260   char *font_family = "Emmentaler";
 261   PangoContext *pango_context
 262     = pango_ft2_get_context (dpi, dpi);
 263   PangoFontDescription *font_description;
 264   font_description = pango_font_description_new ();
 265   pango_font_description_set_family (font_description, g_strdup (font_family));
 266   pango_font_description_set_style (font_description, (PangoStyle) 20);
 267   pango_context_set_font_description (pango_context, font_description);
 268
 269   PangoAttrList *attr_list = pango_attr_list_new ();
 270   char *str = "sfz";
 271   GList *items = pango_itemize (pango_context, str, 0, strlen (str),
 272                                 attr_list, NULL);
 273
 274   GList *ptr = items;
 275   while (ptr)
 276     {
 277       PangoItem *item = (PangoItem *)ptr->data;
 278       printf ("off %d len %d num %d\n", item->offset, item->length, item->num_chars);
 279
 280       PangoAnalysis paobj = item->analysis;
 281       PangoAnalysis *pa = &paobj;
 282
 283       PangoFontDescription *descr = pango_font_describe (pa->font);
 284       //      assert (font_description == descr);
 285       printf ("font descr string '%s' fname '%s'",
 286               pango_font_description_to_string (descr),
 287               pango_font_description_to_filename (descr));
 288
 289       printf ("type name %s\n", g_type_name (G_TYPE_FROM_INSTANCE (pa->font)));
 290       PangoFcFont *fcfont = G_TYPE_CHECK_INSTANCE_CAST (pa->font,
 291                                                         PANGO_TYPE_FC_FONT,
 292                                                         PangoFcFont);
 293
 294       FcPattern *fcpat = fcfont->font_pattern;
 295       FcPatternPrint (fcpat);
 296       char *retval ="bla";
 297
 298       FcPatternGetString (fcpat, FC_FILE, 0, (FcChar8 **) &retval);
 299       printf ("retval %s\n", retval);
 300
 301       FT_Face ftface = pango_fc_font_lock_face (fcfont);
 302
 303       printf ("shape %ux %s lang %ux font %ux languagae %ux\nft face %ux\n", pa->shape_engine,
 304               G_OBJECT_TYPE_NAME (pa->shape_engine),
 305               pa->lang_engine, pa->font, pa->language, ftface);
 306
 307       PangoGlyphString *pgs = pango_glyph_string_new ();
 308       pango_shape (str, strlen (str), pa, pgs);
 309
 310       int i;
 311       for (i = 0; i < pgs->num_glyphs; i++)
 312         {
 313           PangoGlyphInfo *pgi = pgs->glyphs + i;
 314
 315           PangoGlyph pg = pgi->glyph;
 316           PangoGlyphGeometry ggeo = pgi->geometry;
 317
 318           printf ("c %d w %d x %d y %d\n", pg, ggeo.width, ggeo.x_offset,
 319                   ggeo.y_offset);
 320
 321           char str[1024];
 322           FT_Get_Glyph_Name (ftface, pg, str, 1024);
 323           printf ("glyph %s\n", str);
 324         }
 325       printf ("\nPS name %s\n", FT_Get_Postscript_Name (ftface));
 326
 327       PangoRectangle r1;
 328       PangoRectangle r2;
 329
 330       pango_glyph_string_extents (pgs, pa->font, &r1, &r2);
 331
 332       ptr = ptr->next;
 333       printf ("\nnext item\n");
 334     }
 335 }
 336 #endif