2 local-key-item.cc -- implement Local_key_item, Musical_pitch
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 #include "local-key-item.hh"
10 #include "staff-symbol-referencer.hh"
12 #include "paper-def.hh"
13 #include "musical-request.hh"
14 #include "note-head.hh"
18 Local_key_item::add_pitch (Musical_pitch p
, bool cautionary
, bool natural
)
20 for (int i
=0; i
< accidental_arr_
.size(); i
++)
21 if (!Musical_pitch::compare (p
, accidental_arr_
[i
].pitch_
))
23 /* maybe natural (and cautionary) should be modif. nonetheless? */
25 Local_key_cautionary_tuple t
;
27 t
.cautionary_b_
= cautionary
;
28 t
.natural_b_
= natural
;
29 accidental_arr_
.push (t
);
32 GLUE_SCORE_ELEMENT(Local_key_item
,before_line_breaking
);
35 Local_key_item::member_before_line_breaking ()
37 accidental_arr_
.sort (Local_key_cautionary_tuple::compare
);
42 Local_key_item::accidental (int j
, bool cautionary
, bool natural
) const
44 Molecule
m (lookup_l ()->afm_find (String ("accidentals-") + to_str (j
)));
47 Molecule prefix
= lookup_l ()->afm_find (String ("accidentals-0"));
48 m
.add_at_edge(X_AXIS
, LEFT
, Molecule(prefix
), 0);
52 Molecule open
= lookup_l ()->afm_find (String ("accidentals-("));
53 Molecule close
= lookup_l ()->afm_find (String ("accidentals-)"));
54 m
.add_at_edge(X_AXIS
, LEFT
, Molecule(open
), 0);
55 m
.add_at_edge(X_AXIS
, RIGHT
, Molecule(close
), 0);
65 GLUE_SCORE_ELEMENT(Local_key_item
,brew_molecule
);
67 Local_key_item::member_brew_molecule () const
70 Staff_symbol_referencer_interface
si (this);
71 Real note_distance
= si
.staff_space ()/2;
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
.translate_axis (dy
, Y_AXIS
);
86 mol
.add_molecule (octave_mol
);
87 octave_mol
= Molecule ();
92 lastoct
= p
.octave_i_
;
94 SCM c0
= get_elt_property ("c0-position");
95 Real dy
= (gh_number_p (c0
) ? gh_scm2int (c0
) : 0 + p
.notename_i_
)
98 Molecule
m (accidental (p
.accidental_i_
,
99 accidental_arr_
[i
].cautionary_b_
,
100 accidental_arr_
[i
].natural_b_
));
102 m
.translate_axis (dy
, Y_AXIS
);
103 octave_mol
.add_at_edge (X_AXIS
, RIGHT
, m
, 0);
108 Real dy
=lastoct
*7*note_distance
;
109 octave_mol
.translate_axis (dy
, Y_AXIS
);
110 mol
.add_molecule (octave_mol
);
111 octave_mol
= Molecule ();
114 if (accidental_arr_
.size())
116 Drul_array
<SCM
> pads
;
121 pads
[RIGHT
] = get_elt_property ("right-padding");
122 pads
[LEFT
] = get_elt_property ("left-padding");
128 if (!gh_number_p (pads
[d
]))
131 Box
b(Interval (0, gh_scm2double (pads
[d
]) * note_distance
),
133 Molecule
m (lookup_l ()->blank (b
));
134 mol
.add_at_edge (X_AXIS
, d
, m
, 0);
135 } while ( flip (&d
)!= LEFT
);
138 return mol
.create_scheme();
141 Local_key_item::Local_key_item (SCM s
)