2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 keyplacement by Mats Bengtsson
8 LilyPond is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 LilyPond is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
22 #include "accidental-interface.hh"
23 #include "font-interface.hh"
24 #include "international.hh"
27 #include "output-def.hh"
28 #include "staff-symbol-referencer.hh"
29 #include "rational.hh"
31 struct Key_signature_interface
33 DECLARE_SCHEME_CALLBACK (print, (SCM));
34 DECLARE_GROB_INTERFACE ();
39 - space the `natural' signs wider
41 MAKE_SCHEME_CALLBACK (Key_signature_interface, print, 1);
43 Key_signature_interface::print (SCM smob)
45 Item *me = dynamic_cast<Item *> (Grob::unsmob (smob));
47 Real inter = Staff_symbol_referencer::staff_space (me) / 2.0;
51 SCM c0s = me->get_property ("c0-position");
53 bool is_cancellation = me->internal_has_interface
54 (ly_symbol2scm ("key-cancellation-interface"));
57 SCM lists are stacks, so we work from right to left, ending with
58 the cancellation signature.
61 Slice pos, overlapping_pos;
62 SCM last_glyph_name = SCM_BOOL_F;
63 SCM padding_pairs = me->get_property ("padding-pairs");
65 Font_metric *fm = Font_interface::get_default_font (me);
66 SCM alist = me->get_property ("glyph-name-alist");
68 for (SCM s = me->get_property ("alteration-alist"); scm_is_pair (s); s = scm_cdr (s))
70 SCM alt = is_cancellation
74 SCM glyph_name_scm = ly_assoc_get (alt, alist, SCM_BOOL_F);
75 if (!scm_is_string (glyph_name_scm))
77 me->warning (_f ("No glyph found for alteration: %s",
78 ly_scm2rational (alt).to_string ().c_str ()));
82 string glyph_name = ly_scm2string (glyph_name_scm);
84 Stencil acc (fm->find_by_name (glyph_name));
87 me->warning (_ ("alteration not found"));
90 SCM proc = ly_lily_module_constant ("key-signature-interface::alteration-positions");
94 for (SCM pos_list = scm_call_3 (proc, scm_car (s), c0s, smob);
95 scm_is_pair (pos_list); pos_list = scm_cdr (pos_list))
97 int p = scm_to_int (scm_car (pos_list));
99 column.add_stencil (acc.translated (Offset (0, p * inter)));
102 The natural sign (unlike flat & sharp)
103 has vertical edges on both sides. A little padding is
104 needed to prevent collisions.
106 Real padding = robust_scm2double (me->get_property ("padding"),
108 SCM handle = scm_assoc (scm_cons (glyph_name_scm, last_glyph_name),
110 if (scm_is_pair (handle))
111 padding = robust_scm2double (scm_cdr (handle), 0.0);
112 else if (glyph_name == "accidentals.natural"
113 && !intersection (overlapping_pos, pos).is_empty ())
116 mol.add_at_edge (X_AXIS, LEFT, column, padding);
119 overlapping_pos = pos + 2;
120 last_glyph_name = glyph_name_scm;
124 mol.align_to (X_AXIS, LEFT);
126 return mol.smobbed_copy ();
129 ADD_INTERFACE (Key_signature_interface,
130 "A group of accidentals, to be printed as signature sign.",