2 local-key-item.cc -- implement Local_key_item, Musical_pitch
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 #include "local-key-item.hh"
10 #include "staff-symbol-referencer.hh"
13 #include "paper-def.hh"
14 #include "musical-request.hh"
15 #include "note-head.hh"
18 Local_key_item::Local_key_item ()
24 Local_key_item::add_pitch (Musical_pitch p
, bool cautionary
, bool natural
)
26 for (int i
=0; i
< accidental_arr_
.size(); i
++)
27 if (!Musical_pitch::compare (p
, accidental_arr_
[i
].pitch_
))
29 /* maybe natural (and cautionary) should be modif. nonetheless? */
31 Local_key_cautionary_tuple t
;
33 t
.cautionary_b_
= cautionary
;
34 t
.natural_b_
= natural
;
35 accidental_arr_
.push (t
);
41 Local_key_item::do_pre_processing()
43 accidental_arr_
.sort (Local_key_cautionary_tuple::compare
);
44 Note_head_side::do_pre_processing ();
48 Local_key_item::accidental (int j
, bool cautionary
, bool natural
) const
50 Molecule
m (lookup_l ()->afm_find (String ("accidentals-") + to_str (j
)));
53 Molecule prefix
= lookup_l ()->afm_find (String ("accidentals-0"));
54 m
.add_at_edge(X_AXIS
, LEFT
, Molecule(prefix
), 0);
58 Molecule open
= lookup_l ()->afm_find (String ("accidentals-("));
59 Molecule close
= lookup_l ()->afm_find (String ("accidentals-)"));
60 m
.add_at_edge(X_AXIS
, LEFT
, Molecule(open
), 0);
61 m
.add_at_edge(X_AXIS
, RIGHT
, Molecule(close
), 0);
68 Local_key_item::do_brew_molecule_p() const
70 Molecule
*output
= new Molecule
;
71 Staff_symbol_referencer_interface
si (this);
72 Real note_distance
= si
.staff_line_leading_f ()/2;
73 Molecule
*octave_mol_p
= 0;
76 for (int i
= 0; i
< accidental_arr_
.size(); i
++)
78 Musical_pitch
p (accidental_arr_
[i
].pitch_
);
80 if (p
.octave_i_
!= lastoct
)
84 Real dy
=lastoct
*7* note_distance
;
85 octave_mol_p
->translate_axis (dy
, Y_AXIS
);
86 output
->add_molecule (*octave_mol_p
);
89 octave_mol_p
= new Molecule
;
92 lastoct
= p
.octave_i_
;
94 (c0_position_i_
+ p
.notename_i_
)
97 Molecule
m (accidental (p
.accidental_i_
,
98 accidental_arr_
[i
].cautionary_b_
,
99 accidental_arr_
[i
].natural_b_
));
101 m
.translate_axis (dy
, Y_AXIS
);
102 octave_mol_p
->add_at_edge (X_AXIS
, RIGHT
, m
, 0);
107 Real dy
=lastoct
*7*note_distance
;
108 octave_mol_p
->translate_axis (dy
, Y_AXIS
);
109 output
->add_molecule (*octave_mol_p
);
113 if (accidental_arr_
.size())
115 Drul_array
<SCM
> pads
;
120 pads
[RIGHT
] = get_elt_property ("right-padding");
121 pads
[LEFT
] = get_elt_property ("left-padding");
125 if (!gh_number_p (pads
[d
]))
128 Box
b(Interval (0, gh_scm2double (pads
[d
]) * note_distance
),
130 Molecule
m (lookup_l ()->fill (b
));
131 output
->add_at_edge (X_AXIS
, d
, m
, 0);
132 } while ( flip (&d
)!= LEFT
);