- now_notes_ .clear ();
-
- for (int i=0; i< ties_.size (); i++)
- {
- ties_[i]->note_drul_[RIGHT]->tie_to (ties_[i]->note_drul_[LEFT]);
- }
-
- ties_.clear ();
-}
-
-void
-Tie_performer::start_translation_timestep ()
-{
- event_ =0;
- done_ = false;
- Moment now = now_mom ();
- for (int i= tied_notes_.size ();
- i -- ;)
- {
- if (tied_notes_[i].end_ < now)
- tied_notes_.del (i);
- else
- break ;
- }
-}
-
-
-CNote_melodic_tuple::CNote_melodic_tuple ()
-{
- note_ =0;
- event_ =0;
- end_ = 0;
-}
-
-CNote_melodic_tuple::CNote_melodic_tuple (Audio_note *h, Music*m, Moment mom)
-{
- note_ = h;
- event_ = m;
- end_ = mom;
-}
-
-int
-CNote_melodic_tuple::pitch_compare (CNote_melodic_tuple const&h1,
- CNote_melodic_tuple const &h2)
-{
- SCM p1 = h1.event_->get_mus_property ("pitch");
- SCM p2 = h2.event_->get_mus_property ("pitch");
- return Pitch::compare (*unsmob_pitch (p1),
- *unsmob_pitch (p2));
-}
-
-int
-CNote_melodic_tuple::time_compare (CNote_melodic_tuple const&h1,
- CNote_melodic_tuple const &h2)
-{
- return (h1.end_ - h2.end_).main_part_.sign ();