X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpango-font-scheme.cc;h=504e4ca3dd2483ffa179602086f10fe4352ac9d7;hb=8e2eaf4959bec63a1128a444591a540f4f1e2937;hp=606ea1f8d40e2da5dd432fede5dd97342165599e;hpb=634ad74db688a5305f001917453c5cd15305c539;p=lilypond.git diff --git a/lily/pango-font-scheme.cc b/lily/pango-font-scheme.cc index 606ea1f8d4..504e4ca3dd 100644 --- a/lily/pango-font-scheme.cc +++ b/lily/pango-font-scheme.cc @@ -1,12 +1,21 @@ /* - pango-font-scheme.cc -- implement Pango_font + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2004--2015 Han-Wen Nienhuys - (c) 2004--2005 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. -*/ + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ #define PANGO_ENABLE_BACKEND // ugh, why necessary? @@ -19,25 +28,23 @@ #include "warn.hh" #if HAVE_PANGO_FT2 -#include "stencil.hh" - +#include "stencil.hh" LY_DEFINE (ly_pango_font_p, "ly:pango-font?", - 1, 0, 0, - (SCM f), - "Is @var{f} a pango font?") + 1, 0, 0, + (SCM f), + "Is @var{f} a pango font?") { - return scm_from_bool (dynamic_cast (unsmob_metrics (f))); + return scm_from_bool (unsmob (f)); } - - LY_DEFINE (ly_pango_font_physical_fonts, "ly:pango-font-physical-fonts", - 1, 0, 0, - (SCM f), - "Return alist of (PSNAME . FILENAME) tuples.") + 1, 0, 0, + (SCM f), + "Return alist of @code{(ps-name file-name font-index)} lists" + " for Pango font@tie{}@var{f}.") { - Pango_font *pf = dynamic_cast (unsmob_metrics (f)); + Pango_font *pf = unsmob (f); SCM alist = SCM_EOL; if (pf)