lily/simultaneous-music.cc

   1 /*
   2   simultaneous-music.cc --  implement Simultaneous_music
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "input.hh"
  11 #include "pitch.hh"
  12 #include "music-list.hh"
  13 #include "scm-option.hh"
  14
  15 Moment
  16 Simultaneous_music::get_length () const
  17 {
  18   return Music_sequence::maximum_length (get_property ("elements"));
  19 }
  20
  21 Moment
  22 Simultaneous_music::start_mom () const
  23 {
  24   return Music_sequence::minimum_start (get_property ("elements"));
  25 }
  26
  27 Simultaneous_music::Simultaneous_music ()
  28 {
  29
  30 }
  31
  32 Pitch
  33 Simultaneous_music::to_relative_octave (Pitch p)
  34 {
  35   Pitch retval = music_list_to_relative (music_list (), p, false);
  36   if (lily_1_8_relative)
  37     {
  38       Pitch retval_1_8 = music_list_to_relative (music_list (), p, true);
  39       if (retval_1_8 != retval)
  40         lily_1_8_compatibility_used = true;
  41
  42       retval = retval_1_8;
  43     }
  44
  45   return retval;
  46 }
  47
  48 ADD_MUSIC (Simultaneous_music);
  49
  50 Pitch
  51 Event_chord::to_relative_octave (Pitch p)
  52 {
  53   return music_list_to_relative (music_list (), p, true);
  54 }
  55
  56 ADD_MUSIC (Event_chord);