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 (SCM x)
  28   : Music_sequence (x)
  29 {
  30
  31 }
  32
  33 Pitch
  34 Simultaneous_music::to_relative_octave (Pitch p)
  35 {
  36   Pitch retval = music_list_to_relative (music_list (), p, false);
  37   if (lily_1_8_relative)
  38     {
  39       Pitch retval_1_8 = music_list_to_relative (music_list (), p, true);
  40       if (retval_1_8 != retval)
  41         lily_1_8_compatibility_used = true;
  42
  43       retval = retval_1_8;
  44     }
  45
  46   return retval;
  47 }
  48
  49 ADD_MUSIC (Simultaneous_music);
  50
  51 Pitch
  52 Event_chord::to_relative_octave (Pitch p)
  53 {
  54   return music_list_to_relative (music_list (), p, true);
  55 }
  56
  57 Event_chord::Event_chord (SCM x)
  58   : Simultaneous_music (x)
  59 {
  60 }
  61
  62 ADD_MUSIC (Event_chord);