2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2014--2015 Janek WarchoĊ <lemniskata.bernoullego@gmail.com>
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/>.
24 DECLARE_SCHEME_CALLBACK (calc_parent_alignment, (SCM));
25 DECLARE_GROB_INTERFACE ();
28 MAKE_SCHEME_CALLBACK (Clef_modifier, calc_parent_alignment, 1)
30 Clef_modifier::calc_parent_alignment (SCM smob)
32 Grob *me = unsmob<Grob> (smob);
33 Grob *clef = me->get_parent (X_AXIS);
34 string full_clef_name = ly_scm2string (clef->get_property ("glyph"));
35 string clef_name = replace_all(&full_clef_name, "clefs.", "");
37 // find entry with keyname clef_type in clef-alignments
38 SCM alist_entry = scm_assq (ly_symbol2scm (clef_name.c_str ()),
39 me->get_property ("clef-alignments"));
41 if (scm_is_pair (alist_entry))
43 SCM entry_value = scm_cdr (alist_entry);
44 // the value should be a pair of numbers - first is the alignment
45 // for modifiers below the clef, second for those above.
46 if (scm_is_pair (entry_value))
47 if (robust_scm2dir (me->get_property ("direction"), DOWN) == DOWN)
48 return scm_car (entry_value);
50 return scm_cdr (entry_value);
52 else // default alignment = centered
53 return scm_from_double (0);
55 else // default alignment = centered
56 return scm_from_double (0);
59 ADD_INTERFACE (Clef_modifier,
60 "The number describing transposition of the clef, placed below\n"
61 "or above clef sign. Usually this is 8 (octave transposition)\n"
62 "or 15 (two octaves), but LilyPond allows any integer here.",