source file of the GNU LilyPond music typesetter
- (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "music-list.hh"
return maximum_length ();
}
-Simultaneous_music::Simultaneous_music(SCM head)
+Simultaneous_music::Simultaneous_music (SCM head)
: Music_sequence (head)
{
- set_mus_property ("type",
+ set_mus_property ("iterator-ctor",
Simultaneous_music_iterator::constructor_cxx_function);
}
-Sequential_music::Sequential_music(SCM head)
+Simultaneous_music::Simultaneous_music ()
+ : Music_sequence ()
+{
+ set_mus_property ("iterator-ctor",
+ Simultaneous_music_iterator::constructor_cxx_function);
+
+}
+
+Sequential_music::Sequential_music (SCM head)
: Music_sequence (head)
{
- set_mus_property ("type",
+ set_mus_property ("iterator-ctor",
+ Sequential_music_iterator::constructor_cxx_function);
+}
+Sequential_music::Sequential_music ()
+ : Music_sequence ()
+{
+ set_mus_property ("iterator-ctor",
Sequential_music_iterator::constructor_cxx_function);
}
return do_relative_octave (p, true);
}
-Request_chord::Request_chord(SCM s)
+Request_chord::Request_chord (SCM s)
: Simultaneous_music (s)
{
- set_mus_property ("type",
+ set_mus_property ("iterator-ctor",
+ Request_chord_iterator::constructor_cxx_function);
+}
+
+Request_chord::Request_chord ()
+{
+ set_mus_property ("iterator-ctor",
Request_chord_iterator::constructor_cxx_function);
}
Pitch pit = *unsmob_pitch (m->get_mus_property ("pitch"));
pit.to_relative_octave (last);
- m->set_mus_property ("pitch", pit.smobbed_copy());
+ m->set_mus_property ("pitch", pit.smobbed_copy ());
return pit;
}
+ADD_MUSIC (Simultaneous_music);
+ADD_MUSIC (Sequential_music);
+ADD_MUSIC (Request_chord);