lily/part-combine-music.cc

   1 /*
   2   part-combine-music.cc --  implement Part_combine_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000--2002 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8  */
   9
  10 #include "part-combine-music.hh"
  11 #include "part-combine-music-iterator.hh"
  12 #include "pitch.hh"
  13
  14 Part_combine_music::Part_combine_music (SCM l)
  15   : Music (l)
  16 {
  17   set_mus_property ("iterator-ctor",
  18                     Part_combine_music_iterator::constructor_cxx_function);
  19 }
  20
  21 void
  22 Part_combine_music::transpose (Pitch p)
  23 {
  24   first_l ()->transpose (p);
  25   second_l () ->transpose (p);
  26 }
  27
  28
  29
  30 Moment
  31 Part_combine_music::length_mom () const
  32 {
  33   return first_l ()->length_mom ();
  34 }
  35
  36 Pitch
  37 Part_combine_music::to_relative_octave (Pitch p)
  38 {
  39   p = first_l ()->to_relative_octave (p);
  40   return second_l ()->to_relative_octave (p);
  41 }
  42
  43 void
  44 Part_combine_music::compress (Moment m)
  45 {
  46   first_l ()->compress (m);
  47   second_l ()->compress (m);
  48 }
  49
  50 Music*
  51 Part_combine_music::first_l () const
  52 {
  53   SCM l = get_mus_property ("elements");
  54   if (!gh_pair_p (l))
  55     return 0;
  56   return unsmob_music (gh_car (l));
  57 }
  58
  59
  60 Music*
  61 Part_combine_music::second_l () const
  62 {
  63   SCM l = get_mus_property ("elements");
  64   if (!gh_pair_p (l))
  65     return 0;
  66   l = gh_cdr (l);
  67   if (!gh_pair_p (l))
  68     return 0;
  69   return unsmob_music (gh_car (l));
  70 }
  71
  72
  73 Part_combine_music::Part_combine_music ()
  74   : Music (SCM_EOL)
  75 {
  76 }
  77
  78 ADD_MUSIC (Part_combine_music);