]> git.donarmstrong.com Git - lilypond.git/blob - lily/lyric-combine-music.cc
* scm/music-functions.scm (has-request-chord): don't use
[lilypond.git] / lily / lyric-combine-music.cc
1 /*   
2   lyric-combine-music.cc --  implement Lyric_combine_music
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "music.hh"
11 #include "pitch.hh"
12
13 struct Lyric_combine_music
14 {
15 public:
16   DECLARE_SCHEME_CALLBACK(length_callback, (SCM));
17 };
18
19
20 MAKE_SCHEME_CALLBACK(Lyric_combine_music, length_callback, 1);
21 SCM
22 Lyric_combine_music::length_callback (SCM m)
23 {
24   Music * me = unsmob_music (m);
25   Music *melody = unsmob_music (scm_car (me->get_property ("elements")));
26   return melody->get_length ().smobbed_copy ();
27 }