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--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "lyric-combine-music.hh"
  11 #include "pitch.hh"
  12
  13 Lyric_combine_music::Lyric_combine_music ()
  14   : Music ()
  15 {
  16 }
  17
  18 Moment
  19 Lyric_combine_music::get_length () const
  20 {
  21   return get_music ()->get_length ();
  22 }
  23
  24 Music*
  25 Lyric_combine_music::get_music () const
  26 {
  27   SCM l = get_mus_property ("elements");
  28   if (!gh_pair_p (l))
  29     return 0;
  30   return unsmob_music (gh_car (l));
  31 }
  32
  33
  34 Music*
  35 Lyric_combine_music::get_lyrics () const
  36 {
  37   SCM l = get_mus_property ("elements");
  38   if (!gh_pair_p (l))
  39     return 0;
  40   l = gh_cdr (l);
  41   if (!gh_pair_p (l))
  42     return 0;
  43   return unsmob_music (gh_car (l));
  44 }
  45
  46
  47 ADD_MUSIC (Lyric_combine_music);