2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2000--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "font-interface.hh"
22 #include "all-font-metrics.hh"
23 #include "output-def.hh"
27 /* todo: split up this func, reuse in text_item? */
29 Font_interface::get_default_font (Grob
*me
)
31 Font_metric
*fm
= unsmob_metrics (me
->get_property ("font"));
34 SCM chain
= music_font_alist_chain (me
);
36 fm
= select_font (me
->layout (), chain
);
37 me
->set_property ("font", fm
->self_scm ());
44 Font_interface::music_font_alist_chain (Grob
*g
)
47 = g
->layout ()->lookup_variable (ly_symbol2scm ("font-defaults"));
48 if (defaults
== SCM_UNDEFINED
)
50 return g
->get_property_alist_chain (defaults
);
54 Font_interface::text_font_alist_chain (Grob
*g
)
57 = g
->layout ()->lookup_variable (ly_symbol2scm ("text-font-defaults"));
58 if (defaults
== SCM_UNDEFINED
)
60 return g
->get_property_alist_chain (defaults
);
63 ADD_INTERFACE (Font_interface
,
64 "Any symbol that is typeset through fixed sets of glyphs,"