]> git.donarmstrong.com Git - lilypond.git/blob - lily/clef.cc
Doc-es: Update of Input.
[lilypond.git] / lily / clef.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
5
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.
10
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.
15
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/>.
18 */
19
20 #include "clef.hh"
21
22 #include "font-interface.hh"
23 #include "international.hh"
24 #include "item.hh"
25 #include "stencil.hh"
26
27 MAKE_SCHEME_CALLBACK (Clef, calc_glyph_name, 1);
28 SCM
29 Clef::calc_glyph_name (SCM smob)
30 {
31   Item *s = unsmob_item (smob);
32   SCM glyph = s->get_property ("glyph");
33
34   if (scm_is_string (glyph))
35     {
36       string str = ly_scm2string (glyph);
37
38       if (to_boolean (s->get_property ("non-default"))
39           && s->break_status_dir () != RIGHT
40           && !to_boolean (s->get_property ("full-size-change")))
41         {
42           str += "_change";
43         }
44
45       return ly_string2scm (str);
46     }
47
48   s->suicide ();
49   return SCM_UNSPECIFIED;
50 }
51
52 MAKE_SCHEME_CALLBACK (Clef, print, 1)
53 SCM
54 Clef::print (SCM smob)
55 {
56   Grob *me = unsmob_grob (smob);
57   SCM glyph_scm = me->get_property ("glyph-name");
58   if (!scm_is_string (glyph_scm))
59     return SCM_EOL;
60
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);
64   if (out.is_empty ())
65     me->warning (_f ("clef `%s' not found", glyph.c_str ()));
66   return out.smobbed_copy ();
67 }
68
69 ADD_INTERFACE (Clef,
70                "A clef sign.",
71
72                /* properties */
73                "full-size-change "
74                "glyph "
75                "glyph-name "
76                "non-default "
77                );
78