2 lyric-combine-music.cc -- implement Lyric_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 struct Lyric_combine_music
15 DECLARE_SCHEME_CALLBACK (length_callback, (SCM));
18 MAKE_SCHEME_CALLBACK (Lyric_combine_music, length_callback, 1);
20 Lyric_combine_music::length_callback (SCM m)
22 Music *me = unsmob_music (m);
23 Music *melody = unsmob_music (scm_car (me->get_property ("elements")));
24 return melody->get_length ().smobbed_copy ();