2 lyric-engraver.cc -- implement Lyric_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 Jan Nieuwenhuizen <janneke@gnu.org>
11 #include "engraver.hh"
13 #include "note-head.hh"
14 #include "stream-event.hh"
15 #include "international.hh"
17 #include "translator.icc"
20 Generate texts for lyric syllables. We only do one lyric at a time.
21 Multiple copies of this engraver should be used to do multiple voices.
23 class Lyric_engraver
: public Engraver
26 void stop_translation_timestep ();
27 void process_music ();
28 DECLARE_TRANSLATOR_LISTENER (lyric
);
31 TRANSLATOR_DECLARATIONS (Lyric_engraver
);
38 Context
*get_voice_context ();
41 Lyric_engraver::Lyric_engraver ()
48 IMPLEMENT_TRANSLATOR_LISTENER (Lyric_engraver
, lyric
);
50 Lyric_engraver::listen_lyric (Stream_event
*ev
)
52 ASSIGN_EVENT_ONCE (event_
, ev
);
56 Lyric_engraver::process_music ()
60 SCM text
= event_
->get_property ("text");
62 if (ly_is_equal (text
, scm_from_locale_string (" ")))
65 last_text_
->set_property ("self-alignment-X", scm_from_int (LEFT
));
69 text_
= make_item ("LyricText", event_
->self_scm ());
75 get_voice_to_lyrics (Context
*lyrics
)
77 SCM avc
= lyrics
->get_property ("associatedVoiceContext");
78 if (Context
*c
= unsmob_context (avc
))
81 SCM voice_name
= lyrics
->get_property ("associatedVoice");
82 string nm
= lyrics
->id_string ();
84 if (scm_is_string (voice_name
))
85 nm
= ly_scm2string (voice_name
);
92 ssize idx
= nm
.rfind ('-');
94 nm
= nm
.substr (0, idx
);
97 Context
*parent
= lyrics
;
99 while (parent
&& !voice
)
101 voice
= find_context_below (parent
, ly_symbol2scm ("Voice"), nm
);
102 parent
= parent
->get_parent_context ();
110 while (parent
&& !voice
)
112 voice
= find_context_below (parent
, ly_symbol2scm ("Voice"), "");
113 parent
= parent
->get_parent_context ();
120 get_current_note_head (Context
*voice
)
122 Moment now
= voice
->now_mom ();
123 for (SCM s
= voice
->get_property ("busyGrobs");
124 scm_is_pair (s
); s
= scm_cdr (s
))
126 Grob
*g
= unsmob_grob (scm_cdar (s
));;
127 Moment
*end_mom
= unsmob_moment (scm_caar (s
));
130 programming_error ("busyGrobs invalid");
134 if (end_mom
->main_part_
> now
.main_part_
135 && dynamic_cast<Item
*> (g
)
136 && Note_head::has_interface (g
))
144 Lyric_engraver::stop_translation_timestep ()
148 Context
*voice
= get_voice_to_lyrics (context ());
152 Grob
*head
= get_current_note_head (voice
);
156 text_
->set_parent (head
, X_AXIS
);
157 if (melisma_busy (voice
))
158 text_
->set_property ("self-alignment-X", get_property("lyricMelismaAlignment"));
162 text_
->warning (_ ("Lyric syllable does not have note. Use \\lyricsto or associatedVoice."));
163 text_
->set_property ("X-offset", scm_from_int (0));
173 ADD_TRANSLATOR (Lyric_engraver
,
175 "Engrave text for lyrics.",
180 "lyricMelismaAlignment ",