-
-
-
-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));
-}
-
-
-ADD_MUSIC (Lyric_combine_music);