2 pango-font-scheme.cc -- implement Pango_font
4 source file of the GNU LilyPond music typesetter
6 (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
11 #define PANGO_ENABLE_BACKEND // ugh, why necessary?
13 #include <pango/pangoft2.h>
17 #include "dimensions.hh"
18 #include "pango-font.hh"
25 LY_DEFINE (ly_pango_font_p, "ly:pango-font?",
28 "Is @var{f} a pango font?")
30 return scm_from_bool (dynamic_cast<Pango_font*> (unsmob_metrics (f)));
35 LY_DEFINE (ly_pango_font_physical_fonts, "ly:pango-font-physical-fonts",
38 "Return alist of (PSNAME . FILENAME) tuples.")
40 Pango_font *pf = dynamic_cast<Pango_font*> (unsmob_metrics (f));
44 alist = ly_hash2alist (pf->physical_font_tab ());