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 ()
21 Lyric_combine_music::transpose (Pitch p)
23 get_music ()->transpose (p);
24 get_lyrics () ->transpose (p);
29 Lyric_combine_music::length_mom () const
31 return get_music ()->length_mom ();
35 Lyric_combine_music::to_relative_octave (Pitch p)
37 p = get_music ()->to_relative_octave (p);
38 return get_lyrics () ->to_relative_octave (p);
42 Lyric_combine_music::compress (Moment m)
44 get_music ()->compress (m);
50 Lyric_combine_music::get_music () const
52 SCM l = get_mus_property ("elements");
55 return unsmob_music (gh_car (l));
60 Lyric_combine_music::get_lyrics () const
62 SCM l = get_mus_property ("elements");
68 return unsmob_music (gh_car (l));
72 ADD_MUSIC (Lyric_combine_music);