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 ());
18 set_mus_property ("type", ly_symbol2scm ("lyric-combine-music"));
23 Lyric_combine_music::transpose (Musical_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 ( Musical_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);
50 Lyric_combine_music::music_l () const
52 return unsmob_music (get_mus_property ("music"));
56 Lyric_combine_music::lyrics_l () const
58 return unsmob_music (get_mus_property ("lyrics"));