2 lyric-combine-music.cc -- implement Lyric_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "lyric-combine-music.hh"
14 Lyric_combine_music::Lyric_combine_music (SCM x)
19 MAKE_SCHEME_CALLBACK(Lyric_combine_music,length_callback,1);
21 Lyric_combine_music::length_callback (SCM m)
23 Music * me = unsmob_music (m);
24 Music *melody = unsmob_music (scm_car (me->get_property ("elements")));
25 return melody->get_length ().smobbed_copy ();
29 Lyric_combine_music::get_music () const
31 SCM l = get_property ("elements");
34 return unsmob_music (scm_car (l));
39 Lyric_combine_music::get_lyrics () const
41 SCM l = get_property ("elements");
47 return unsmob_music (scm_car (l));
51 ADD_MUSIC (Lyric_combine_music);