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 Jan Nieuwenhuizen <janneke@gnu.org>
   7
   8  */
   9
  10 #include "part-combine-music.hh"
  11 #include "musical-pitch.hh"
  12
  13 Part_combine_music::Part_combine_music (String what, Music * f, Music * s)
  14 {
  15   what_str_ = what;
  16   set_mus_property ("one", f->self_scm ());
  17   set_mus_property ("two", s->self_scm ());
  18
  19   scm_unprotect_object (f->self_scm());
  20   scm_unprotect_object (s->self_scm());
  21 }
  22
  23 void
  24 Part_combine_music::transpose (Musical_pitch p)
  25 {
  26   first_l ()->transpose (p);
  27   second_l () ->transpose (p);
  28 }
  29
  30
  31
  32 Moment
  33 Part_combine_music::length_mom () const
  34 {
  35   return first_l ()->length_mom ();
  36 }
  37
  38 Musical_pitch
  39 Part_combine_music::to_relative_octave (Musical_pitch p)
  40 {
  41   p = first_l ()->to_relative_octave (p);
  42   return second_l ()->to_relative_octave (p);
  43 }
  44
  45 void
  46 Part_combine_music::compress (Moment m)
  47 {
  48   first_l ()->compress (m);
  49   second_l ()->compress (m);
  50 }
  51
  52 Music*
  53 Part_combine_music::first_l () const
  54 {
  55   return unsmob_music (get_mus_property ("one"));
  56 }
  57
  58 Music*
  59 Part_combine_music::second_l () const
  60 {
  61   return unsmob_music (get_mus_property ("two"));
  62 }