2 lyric-combine-music.cc -- implement Lyric_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "lyric-combine-music.hh"
11 #include "lyric-combine-music-iterator.hh"
14 Lyric_combine_music::Lyric_combine_music (SCM l)
17 set_mus_property ("iterator-ctor",
18 Lyric_combine_music_iterator::constructor_cxx_function);
23 Lyric_combine_music::transpose (Pitch p)
25 music_l ()->transpose (p);
26 lyrics_l () ->transpose (p);
31 Lyric_combine_music::length_mom () const
33 return music_l ()->length_mom ();
37 Lyric_combine_music::to_relative_octave (Pitch p)
39 p = music_l ()->to_relative_octave (p);
40 return lyrics_l () ->to_relative_octave (p);
44 Lyric_combine_music::compress (Moment m)
46 music_l ()->compress (m);
52 Lyric_combine_music::music_l () const
54 SCM l = get_mus_property ("elements");
57 return unsmob_music (gh_car (l));
62 Lyric_combine_music::lyrics_l () const
64 SCM l = get_mus_property ("elements");
70 return unsmob_music (gh_car (l));
73 Lyric_combine_music::Lyric_combine_music ()
78 ADD_MUSIC (Lyric_combine_music);