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   music_p_ = m;
  16   lyrics_p_ = l;
  17 }
  18
  19 Lyric_combine_music::~Lyric_combine_music ()
  20 {
  21   delete music_p_;
  22   delete lyrics_p_;
  23 }
  24
  25 Lyric_combine_music::Lyric_combine_music (Lyric_combine_music const&s)
  26   : Music (s)
  27 {
  28   music_p_ = s.music_p_ ? s.music_p_->clone ():0;
  29   lyrics_p_ = s.lyrics_p_ ? s.lyrics_p_->clone ():0;
  30 }
  31
  32 void
  33 Lyric_combine_music::transpose (Musical_pitch p)
  34 {
  35   music_p_->transpose (p);
  36   lyrics_p_->transpose (p);
  37 }
  38
  39 void
  40 Lyric_combine_music::do_print () const
  41 {
  42   music_p_->print();
  43   lyrics_p_->print ();
  44 }
  45
  46 Moment
  47 Lyric_combine_music::length_mom () const
  48 {
  49   return music_p_->length_mom ();
  50 }
  51
  52 Musical_pitch
  53 Lyric_combine_music::to_relative_octave (  Musical_pitch p )
  54 {
  55   p = music_p_->to_relative_octave (p);
  56   return lyrics_p_->to_relative_octave (p);
  57 }
  58
  59 void
  60 Lyric_combine_music::compress (Moment m)
  61 {
  62   music_p_->compress (m);
  63 }
  64
  65 Music*
  66 Lyric_combine_music::music_l () const
  67 {
  68   return music_p_;
  69 }
  70
  71 Music*
  72 Lyric_combine_music::lyrics_l () const
  73 {
  74   return lyrics_p_;
  75 }