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--2003 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "input.hh"
  11 #include "moment.hh"
  12 #include "pitch.hh"
  13 #include "music-list.hh"
  14 #include "scm-option.hh"
  15
  16 Moment
  17 Simultaneous_music::get_length () const
  18 {
  19   return Music_sequence::maximum_length (get_mus_property ("elements"));
  20 }
  21
  22 Moment
  23 Simultaneous_music::start_mom () const
  24 {
  25   return Music_sequence::minimum_start (get_mus_property ("elements"));
  26 }
  27
  28 Simultaneous_music::Simultaneous_music()
  29 {
  30
  31 }
  32
  33 Pitch
  34 Simultaneous_music::to_relative_octave (Pitch p)
  35 {
  36   if (lily_1_8_relative)
  37     lily_1_8_compatibility_used = true;
  38
  39   return music_list_to_relative (music_list(), p, lily_1_8_relative);
  40 }
  41
  42 ADD_MUSIC (Simultaneous_music);
  43
  44 Pitch
  45 Event_chord::to_relative_octave (Pitch p)
  46 {
  47   return music_list_to_relative (music_list (), p, true);
  48 }
  49
  50 ADD_MUSIC(Event_chord);