lily/simultaneous-music.cc

   1 #include "input.hh"
   2 #include "moment.hh"
   3 #include "pitch.hh"
   4 #include "music-list.hh"
   5
   6 Moment
   7 Simultaneous_music::get_length () const
   8 {
   9   return Music_sequence::maximum_length (get_mus_property ("elements"));
  10 }
  11
  12 Moment
  13 Simultaneous_music::start_mom () const
  14 {
  15   return Music_sequence::minimum_start (get_mus_property ("elements"));
  16 }
  17
  18 Simultaneous_music::Simultaneous_music()
  19 {
  20
  21 }
  22
  23 /*
  24   Cut & paste from Music_sequence, (ugh) , but we must add an error
  25   message.
  26  */
  27 Pitch
  28 Simultaneous_music::to_relative_octave (Pitch p)
  29 {
  30   Pitch first;
  31   int count=0;
  32
  33   Pitch last = p;
  34   for (SCM s = music_list (); gh_pair_p (s);  s = ly_cdr (s))
  35     {
  36       if (Music *m = unsmob_music (ly_car (s)))
  37         {
  38           last = m->to_relative_octave (last);
  39           if (!count ++)
  40             first = last;
  41         }
  42     }
  43
  44   if (count && first != last)
  45     {
  46       String str = _("Changing relative definition may cause octave change.");
  47       str += "\nWas: " +  first.to_string ()
  48         + " -- now returning: " + last.to_string () + "\n";
  49
  50       origin()->warning (str);
  51     }
  52
  53   return last;
  54 }
  55
  56 ADD_MUSIC (Simultaneous_music);
  57
  58 Pitch
  59 Event_chord::to_relative_octave (Pitch p)
  60 {
  61   return do_relative_octave (p, true);
  62 }
  63 ADD_MUSIC(Event_chord);