lily/lyric-combine-music.cc

   1 /*
   2   lyric-combine-music.cc --  implement Lyric_combine_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "lyric-combine-music.hh"
  11 #include "musical-pitch.hh"
  12
  13 Lyric_combine_music::Lyric_combine_music (Music * m, Music * l)
  14 {
  15   set_mus_property ("music", m->self_scm ());
  16   set_mus_property ("lyrics", l->self_scm ());
  17 }
  18
  19
  20 void
  21 Lyric_combine_music::transpose (Musical_pitch p)
  22 {
  23   music_l ()->transpose (p);
  24   lyrics_l () ->transpose (p);
  25 }
  26
  27 void
  28 Lyric_combine_music::do_print () const
  29 {
  30   music_l ()->print();
  31   lyrics_l () ->print ();
  32 }
  33
  34 Moment
  35 Lyric_combine_music::length_mom () const
  36 {
  37   return music_l ()->length_mom ();
  38 }
  39
  40 Musical_pitch
  41 Lyric_combine_music::to_relative_octave (  Musical_pitch p )
  42 {
  43   p = music_l ()->to_relative_octave (p);
  44   return lyrics_l () ->to_relative_octave (p);
  45 }
  46
  47 void
  48 Lyric_combine_music::compress (Moment m)
  49 {
  50   music_l ()->compress (m);
  51 }
  52
  53 Music*
  54 Lyric_combine_music::music_l () const
  55 {
  56   return unsmob_music (get_mus_property ("music"));
  57 }
  58
  59 Music*
  60 Lyric_combine_music::lyrics_l () const
  61 {
  62   return unsmob_music (get_mus_property ("lyrics"));
  63 }