*** empty log message ***

[lilypond.git] / lily / include / music-sequence.hh

diff --git a/lily/include/music-sequence.hh b/lily/include/music-sequence.hh
index b8260e25d5ad6c742aae7020a2c2a83f93a9f9cf..bff8922fbcb5a9e152c6b3c05ff774b33cc9fd9a 100644 (file)
--- a/lily/include/music-sequence.hh
+++ b/lily/include/music-sequence.hh
@@ -3,24 +3,24 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c)  2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
 #ifndef MUSIC_SEQUENCE_HH
 #define MUSIC_SEQUENCE_HH
+
 #include "music.hh"
-/**
-  Music can be a list of other "Music" elements
- */
-class Music_sequence : public Music
+
+struct Music_sequence
 {
 public:
-  Music_sequence (SCM h);
-  Music_sequence ();
-  SCM music_list () const;
-  void append_music (Music *);
-  VIRTUAL_COPY_CONS (Music);
+  DECLARE_SCHEME_CALLBACK(cumulative_length_callback, (SCM));
+  DECLARE_SCHEME_CALLBACK(maximum_length_callback, (SCM));
+  DECLARE_SCHEME_CALLBACK(minimum_start_callback, (SCM));
+  DECLARE_SCHEME_CALLBACK(first_start_callback, (SCM));
+  DECLARE_SCHEME_CALLBACK(simultaneous_relative_callback, (SCM, SCM));
+  DECLARE_SCHEME_CALLBACK(event_chord_relative_callback, (SCM, SCM));
   
   Pitch do_relative_octave (Pitch p, bool b);
   
@@ -30,6 +30,7 @@ public:
   static Moment minimum_start (SCM list);
 };
 
+SCM ly_transpose_key_alist (SCM l, SCM pit);
 Pitch music_list_to_relative (SCM l,Pitch p, bool ret_first);
 void transpose_music_list (SCM , Pitch);
 void compress_music_list (SCM, Moment);