Uniformize, internalize.

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

diff --git a/lily/simultaneous-music.cc b/lily/simultaneous-music.cc
index 58164628636302ba74598dd889d04f273f22825b..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644 (file)
--- a/lily/simultaneous-music.cc
+++ b/lily/simultaneous-music.cc
@@ -1,62 +0,0 @@
-/*   
-  simultaneous-music.cc --  implement Simultaneous_music
-
-  source file of the GNU LilyPond music typesetter
-
-  (c) 1998--2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
-
-*/
-
-#include "input.hh"
-#include "pitch.hh"
-#include "music-list.hh"
-#include "scm-option.hh"
-
-Moment
-Simultaneous_music::get_length () const
-{
-  return Music_sequence::maximum_length (get_property ("elements"));
-}
-
-Moment
-Simultaneous_music::start_mom () const
-{
-  return Music_sequence::minimum_start (get_property ("elements"));
-}
-
-Simultaneous_music::Simultaneous_music (SCM x)
-  : Music_sequence (x)
-{
-
-}
-
-Pitch
-Simultaneous_music::to_relative_octave (Pitch p)
-{
-  Pitch retval = music_list_to_relative (music_list (), p, false);
-  if (lily_1_8_relative)
-    {
-      Pitch retval_1_8 = music_list_to_relative (music_list (), p, true);
-      if (retval_1_8 != retval)
-       lily_1_8_compatibility_used = true;
-
-      retval = retval_1_8;
-    }
-
-  return retval;
-}
-
-ADD_MUSIC (Simultaneous_music);
-
-Pitch
-Event_chord::to_relative_octave (Pitch p)
-{
-  return music_list_to_relative (music_list (), p, true);
-}
-
-Event_chord::Event_chord (SCM x)
-  : Simultaneous_music (x)
-{
-}
-
-ADD_MUSIC (Event_chord);