release commit

[lilypond.git] / lily / simultaneous-music.cc

diff --git a/lily/simultaneous-music.cc b/lily/simultaneous-music.cc
index 51bc21397421b381677d9e77c780473ca0f4c668..97933a5dbe05b44247565ba36066de3735684dd3 100644 (file)
--- a/lily/simultaneous-music.cc
+++ b/lily/simultaneous-music.cc
@@ -1,41 +1,50 @@
+/*   
+  simultaneous-music.cc --  implement Simultaneous_music
 
+  source file of the GNU LilyPond music typesetter
+
+  (c) 1998--2003 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+*/
+
+#include "input.hh"
 #include "moment.hh"
 #include "pitch.hh"
-#include "simultaneous-music-iterator.hh"
 #include "music-list.hh"
+#include "scm-option.hh"
 
 Moment
-Simultaneous_music::length_mom () const
+Simultaneous_music::get_length () const
 {
-  return maximum_length ();
+  return Music_sequence::maximum_length (get_mus_property ("elements"));
 }
 
 Moment
 Simultaneous_music::start_mom () const
 {
-  return minimum_start ();
+  return Music_sequence::minimum_start (get_mus_property ("elements"));
 }
 
-
-
-Simultaneous_music::Simultaneous_music (SCM head)
-  : Music_sequence (head)
+Simultaneous_music::Simultaneous_music()
 {
-  set_mus_property ("iterator-ctor",
-                   Simultaneous_music_iterator::constructor_cxx_function);
+
 }
 
-Simultaneous_music::Simultaneous_music ()
-  : Music_sequence ()
+Pitch
+Simultaneous_music::to_relative_octave (Pitch p)
 {
-  set_mus_property ("iterator-ctor",
-                   Simultaneous_music_iterator::constructor_cxx_function);
+  if (lily_1_8_relative)
+    lily_1_8_compatibility_used = true;
   
+  return music_list_to_relative (music_list(), p, lily_1_8_relative);
 }
 
+ADD_MUSIC (Simultaneous_music);
+
 Pitch
-Simultaneous_music::to_relative_octave (Pitch p)
+Event_chord::to_relative_octave (Pitch p)
 {
-  return do_relative_octave (p, true);
+  return music_list_to_relative (music_list (), p, true);
 }
-ADD_MUSIC (Simultaneous_music);
+
+ADD_MUSIC(Event_chord);