Moment
Simultaneous_music::length_mom () const
{
- Moment dur = 0;
- for (Cons<Music> *i = music_p_list_p_->head_; i; i = i->next_)
- dur = dur >? i->car_->length_mom ();
-
- return dur;
+ return maximum_length ();
}
+
+
void
Music_sequence::compress (Moment m)
{
Moment
Sequential_music::length_mom () const
{
- Moment last=0;
- for (Cons<Music> *i = music_p_list_p_->head_; i; i = i->next_)
- {
- last += i->car_->length_mom ();
- }
- return last;
+ return cumulative_length ();
}
-Musical_pitch
-Sequential_music::to_relative_octave (Musical_pitch p)
-{
- return do_relative_octave (p, false);
-}
Musical_pitch
Simultaneous_music::to_relative_octave (Musical_pitch p)