2 lyric-combine-music.cc -- implement Lyric_combine_music
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "lyric-combine-music.hh"
11 #include "lyric-combine-music-iterator.hh"
12 #include "musical-pitch.hh"
14 Lyric_combine_music::Lyric_combine_music (Music * m, Music * l)
16 set_mus_property ("music", m->self_scm ());
17 set_mus_property ("lyrics", l->self_scm ());
19 set_mus_property ("type",
20 Lyric_combine_music_iterator::constructor_cxx_function);
25 Lyric_combine_music::transpose (Musical_pitch p)
27 music_l ()->transpose (p);
28 lyrics_l () ->transpose (p);
33 Lyric_combine_music::length_mom () const
35 return music_l ()->length_mom ();
39 Lyric_combine_music::to_relative_octave ( Musical_pitch p )
41 p = music_l ()->to_relative_octave (p);
42 return lyrics_l () ->to_relative_octave (p);
46 Lyric_combine_music::compress (Moment m)
48 music_l ()->compress (m);
52 Lyric_combine_music::music_l () const
54 return unsmob_music (get_mus_property ("music"));
58 Lyric_combine_music::lyrics_l () const
60 return unsmob_music (get_mus_property ("lyrics"));