source file of the GNU LilyPond music typesetter
- (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
last_text_->set_property ("self-alignment-X", scm_from_int (LEFT));
}
else
- {
- text_ = make_item ("LyricText", event_->self_scm ());
- }
+ text_ = make_item ("LyricText", event_->self_scm ());
}
}
if (scm_is_string (voice_name))
nm = ly_scm2string (voice_name);
else if (nm == "")
- {
- return 0;
- }
+ return 0;
else
{
ssize idx = nm.rfind ('-');
programming_error ("busyGrobs invalid");
continue;
}
-
+
if (end_mom->main_part_ > now.main_part_
&& dynamic_cast<Item *> (g)
&& Note_head::has_interface (g))
if (text_)
{
Context *voice = get_voice_to_lyrics (context ());
-
+
if (voice)
{
Grob *head = get_current_note_head (voice);
if (head)
{
text_->set_parent (head, X_AXIS);
- if (melisma_busy (voice))
- text_->set_property ("self-alignment-X", get_property("lyricMelismaAlignment"));
+ if (melisma_busy (voice)
+ && !to_boolean (get_property ("ignoreMelismata")))
+ text_->set_property ("self-alignment-X",
+ get_property("lyricMelismaAlignment"));
}
else
{
/* create */
"LyricText ",
+
/* read */
+ "ignoreMelismata "
"lyricMelismaAlignment ",
/* write */