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);
28 Lyric_combine_music::do_print () const
31 lyrics_l () ->print ();
35 Lyric_combine_music::length_mom () const
37 return music_l ()->length_mom ();
41 Lyric_combine_music::to_relative_octave ( Musical_pitch p )
43 p = music_l ()->to_relative_octave (p);
44 return lyrics_l () ->to_relative_octave (p);
48 Lyric_combine_music::compress (Moment m)
50 music_l ()->compress (m);
54 Lyric_combine_music::music_l () const
56 return unsmob_music (get_mus_property ("music"));
60 Lyric_combine_music::lyrics_l () const
62 return unsmob_music (get_mus_property ("lyrics"));