+
+
+
+Moment
+Music_sequence::cumulative_length () const
+{
+ Moment last=0;
+ for (SCM s = music_list (); gh_pair_p (s); s = gh_cdr (s))
+ last += unsmob_music (gh_car (s))->length_mom ();
+ return last;
+}
+
+Pitch
+Music_sequence::to_relative_octave (Pitch p)
+{
+ return do_relative_octave (p, false);
+}
+
+
+Moment
+Music_sequence::maximum_length () const
+{
+ Moment dur = 0;
+ for (SCM s = music_list (); gh_pair_p (s); s = gh_cdr (s))
+ dur = dur >? unsmob_music (gh_car (s))->length_mom ();
+
+ return dur;
+}
+int
+Music_sequence::length_i () const