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--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "lyric-combine-music.hh"
  11 #include "lyric-combine-music-iterator.hh"
  12 #include "pitch.hh"
  13
  14 Lyric_combine_music::Lyric_combine_music (SCM l)
  15   : Music (l)
  16 {
  17   set_mus_property ("iterator-ctor",
  18                     Lyric_combine_music_iterator::constructor_cxx_function);
  19 }
  20
  21
  22 void
  23 Lyric_combine_music::transpose (Pitch p)
  24 {
  25   music_l ()->transpose (p);
  26   lyrics_l () ->transpose (p);
  27 }
  28
  29
  30 Moment
  31 Lyric_combine_music::length_mom () const
  32 {
  33   return music_l ()->length_mom ();
  34 }
  35
  36 Pitch
  37 Lyric_combine_music::to_relative_octave (Pitch p)
  38 {
  39   p = music_l ()->to_relative_octave (p);
  40   return lyrics_l () ->to_relative_octave (p);
  41 }
  42
  43 void
  44 Lyric_combine_music::compress (Moment m)
  45 {
  46   music_l ()->compress (m);
  47 }
  48
  49
  50
  51 Music*
  52 Lyric_combine_music::music_l () const
  53 {
  54   SCM l = get_mus_property ("elements");
  55   if (!gh_pair_p (l))
  56     return 0;
  57   return unsmob_music (gh_car (l));
  58 }
  59
  60
  61 Music*
  62 Lyric_combine_music::lyrics_l () const
  63 {
  64   SCM l = get_mus_property ("elements");
  65   if (!gh_pair_p (l))
  66     return 0;
  67   l = gh_cdr (l);
  68   if (!gh_pair_p (l))
  69     return 0;
  70   return unsmob_music (gh_car (l));
  71 }
  72
  73 Lyric_combine_music::Lyric_combine_music ()
  74   : Music (SCM_EOL)
  75 {
  76 }
  77
  78 ADD_MUSIC (Lyric_combine_music);