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 "musical-pitch.hh"
13 Lyric_combine_music::Lyric_combine_music (Music * m, Music * l)
15 set_mus_property ("music", m->self_scm ());
16 set_mus_property ("lyrics", l->self_scm ());
21 Lyric_combine_music::transpose (Musical_pitch p)
23 music_l ()->transpose (p);
24 lyrics_l () ->transpose (p);
29 Lyric_combine_music::length_mom () const
31 return music_l ()->length_mom ();
35 Lyric_combine_music::to_relative_octave ( Musical_pitch p )
37 p = music_l ()->to_relative_octave (p);
38 return lyrics_l () ->to_relative_octave (p);
42 Lyric_combine_music::compress (Moment m)
44 music_l ()->compress (m);
48 Lyric_combine_music::music_l () const
50 return unsmob_music (get_mus_property ("music"));
54 Lyric_combine_music::lyrics_l () const
56 return unsmob_music (get_mus_property ("lyrics"));