2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--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/>.
22 #include "font-interface.hh"
23 #include "international.hh"
27 MAKE_SCHEME_CALLBACK (Clef
, calc_glyph_name
, 1);
29 Clef::calc_glyph_name (SCM smob
)
31 Item
*s
= unsmob_item (smob
);
32 SCM glyph
= s
->get_property ("glyph");
34 if (scm_is_string (glyph
))
36 string str
= ly_scm2string (glyph
);
38 if (to_boolean (s
->get_property ("non-default"))
39 && s
->break_status_dir () != RIGHT
40 && !to_boolean (s
->get_property ("full-size-change")))
45 return ly_string2scm (str
);
49 return SCM_UNSPECIFIED
;
52 MAKE_SCHEME_CALLBACK (Clef
, print
, 1)
54 Clef::print (SCM smob
)
56 Grob
*me
= unsmob_grob (smob
);
57 SCM glyph_scm
= me
->get_property ("glyph-name");
58 if (!scm_is_string (glyph_scm
))
61 string glyph
= string (ly_scm2string (glyph_scm
));
62 Font_metric
*fm
= Font_interface::get_default_font (me
);
63 Stencil out
= fm
->find_by_name (glyph
);
65 me
->warning (_f ("clef `%s' not found", glyph
.c_str ()));
66 return out
.smobbed_copy ();