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