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"
30 #include "lily-imports.hh"
32 struct Key_signature_interface
34 DECLARE_SCHEME_CALLBACK (print, (SCM));
35 DECLARE_GROB_INTERFACE ();
40 - space the `natural' signs wider
42 MAKE_SCHEME_CALLBACK (Key_signature_interface, print, 1);
44 Key_signature_interface::print (SCM smob)
46 Item *me = unsmob<Item> (smob);
48 Real inter = Staff_symbol_referencer::staff_space (me) / 2.0;
52 SCM c0s = me->get_property ("c0-position");
54 bool is_cancellation = me->internal_has_interface
55 (ly_symbol2scm ("key-cancellation-interface"));
58 SCM lists are stacks, so we work from right to left, ending with
59 the cancellation signature.
62 Slice pos, overlapping_pos;
63 SCM last_glyph_name = SCM_BOOL_F;
64 SCM padding_pairs = me->get_property ("padding-pairs");
66 Font_metric *fm = Font_interface::get_default_font (me);
67 SCM alist = me->get_property ("glyph-name-alist");
69 for (SCM s = me->get_property ("alteration-alist"); scm_is_pair (s); s = scm_cdr (s))
71 SCM alt = is_cancellation
75 SCM glyph_name_scm = ly_assoc_get (alt, alist, SCM_BOOL_F);
76 if (!scm_is_string (glyph_name_scm))
78 me->warning (_f ("No glyph found for alteration: %s",
79 ly_scm2rational (alt).to_string ().c_str ()));
83 string glyph_name = ly_scm2string (glyph_name_scm);
85 Stencil acc (fm->find_by_name (glyph_name));
88 me->warning (_ ("alteration not found"));
93 for (SCM pos_list = Lily::key_signature_interface_alteration_positions
94 (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.",