2 key-item.cc -- implement Key_item
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 keyplacement by Mats Bengtsson
12 #include "key-item.hh"
13 #include "molecule.hh"
14 #include "paper-def.hh"
15 #include "font-interface.hh"
16 #include "staff-symbol-referencer.hh"
20 FIXME: too much hardcoding here.
22 const int FLAT_TOP_PITCH
=2; /* fes,ges,as and bes typeset in lower octave */
23 const int SHARP_TOP_PITCH
=4; /* ais and bis typeset in lower octave */
27 FIXME: key-item should just get a list of (position, acc), and leave
28 the thinking to other parties.
30 - TODO: put this in Scheme
32 - lots of values trivially shared (key doesn't change very
33 often). Compute those once, and use that as cache for the rest.
37 alteration_pos (SCM what
, int alter
, int c0p
)
40 return gh_scm2int (gh_car (what
)) * 7 + gh_scm2int (gh_cdr (what
)) + c0p
;
42 int p
= gh_scm2int (what
);
44 // Find the c in the range -4 through 2
45 int from_bottom_pos
= c0p
+ 4;
46 from_bottom_pos
= from_bottom_pos
%7;
47 from_bottom_pos
= (from_bottom_pos
+ 7)%7; // Precaution to get positive.
48 int c0
= from_bottom_pos
- 4;
51 if ((alter
<0 && ((p
>FLAT_TOP_PITCH
) || (p
+c0
>4)) && (p
+c0
>1))
53 (alter
>0 && ((p
>SHARP_TOP_PITCH
) || (p
+c0
>5)) && (p
+c0
>2)))
55 p
-= 7; /* Typeset below c_position */
57 /* Provide for the four cases in which there's a glitch
58 it's a hack, but probably not worth
59 the effort of finding a nicer solution.
61 if (c0
==2 && alter
>0 && p
==3)
63 if (c0
==-3 && alter
>0 && p
==-1)
65 if (c0
==-4 && alter
<0 && p
==-1)
67 if (c0
==-2 && alter
<0 && p
==-3)
75 - space the `natural' signs wider
77 MAKE_SCHEME_CALLBACK (Key_item
,brew_molecule
,1);
79 Key_item::brew_molecule (SCM smob
)
81 Grob
*me
=unsmob_grob (smob
);
83 Real inter
= Staff_symbol_referencer::staff_space (me
)/2.0;
85 SCM newas
= me
->get_grob_property ("new-accidentals");
88 SCM lists are stacks, so we work from right to left, ending with
89 the cancellation signature.
91 int c0p
= gh_scm2int (me
->get_grob_property ("c0-position"));
92 for (SCM s
= newas
; gh_pair_p (s
); s
= gh_cdr (s
))
94 SCM what
= gh_caar (s
);
95 int alter
= gh_scm2int (gh_cdar (s
));
96 int pos
= alteration_pos (what
, alter
, c0p
);
98 Molecule m
= Font_interface::get_default_font (me
)->find_by_name ("accidentals-" + to_str (alter
));
99 m
.translate_axis (pos
* inter
, Y_AXIS
);
100 mol
.add_at_edge (X_AXIS
, LEFT
, m
, 0);
103 Item
*it
= dynamic_cast<Item
*> (me
) ;
104 if (it
->break_status_dir () != RIGHT
)
106 SCM old
= me
->get_grob_property ("old-accidentals");
109 Add half a space between cancellation and key sig.
111 As suggested by [Ross], p.148.
113 Interval
x (0, inter
);
116 mol
.add_at_edge (X_AXIS
, LEFT
, Lookup::blank (Box (x
,y
)),0);
120 natural
=Font_interface::get_default_font (me
)->find_by_name ("accidentals-0");
122 for (; gh_pair_p (old
); old
= gh_cdr (old
))
124 SCM found
= scm_assoc (gh_caar (old
), newas
);
125 if (found
== SCM_BOOL_F
126 || gh_cdr (found
) != gh_cdar (old
))
128 SCM what
= gh_caar (old
);
130 int pos
= alteration_pos (what
, alter
, c0p
);
132 Molecule m
= natural
;
133 m
.translate_axis (pos
* inter
, Y_AXIS
);
135 mol
.add_at_edge (X_AXIS
, LEFT
, m
, 0);
140 return mol
.smobbed_copy ();
148 Key_item::has_interface (Grob
*m
)
150 return m
&& m
->has_interface (ly_symbol2scm ("key-signature-interface"));
154 Key_item::set_interface (Grob
*m
)
156 m
->set_interface (ly_symbol2scm ("key-signature-interface"));