-
-void
-Lyric_combine_music::compress (Moment m)
-{
- get_music ()->compress (m);
-}
-
-
-
-Music*
-Lyric_combine_music::get_music () const
-{
- SCM l = get_mus_property ("elements");
- if (!gh_pair_p (l))
- return 0;
- return unsmob_music (gh_car (l));
-}
-
-
-Music*
-Lyric_combine_music::get_lyrics () const
-{
- SCM l = get_mus_property ("elements");
- if (!gh_pair_p (l))
- return 0;
- l = gh_cdr (l);
- if (!gh_pair_p (l))
- return 0;
- return unsmob_music (gh_car (l));
-}
-
-Lyric_combine_music::Lyric_combine_music ()
- : Music (SCM_EOL)
-{
-}
-
-ADD_MUSIC (Lyric_combine_music);