- index_set_cell (her->get_grob_property ("heads"), LEFT, new_head_drul[LEFT]->self_scm ());
- index_set_cell (her->get_grob_property ("heads"), RIGHT, new_head_drul[RIGHT]->self_scm ());
-
- typeset_grob (her);
-}
-
-void
-Tie_engraver::start_translation_timestep ()
-{
- SCM m = get_property ("automaticMelismata");
- if (to_boolean (m))
- {
- set_melisma (false);
- }
-
- SCM grobs = get_property ("busyGrobs");
- Moment now = now_mom();
- stopped_heads_.clear ();
-
- for (; gh_pair_p (grobs); grobs = gh_cdr (grobs))
- {
- Grob * grob = unsmob_grob (gh_cdar (grobs));
- Moment end =*unsmob_moment (gh_caar (grobs));
-
- /*
- This is slightly ugh: we are now confunding the frontend
- (iterators) and the backend (note heads) */
- if (end > now)
- break;
- else if (end == now
- && Note_head::has_interface (grob))
- stopped_heads_.push (grob);
- }
-
-
- /*
-
- The list starts with entries that start earlier. By going through
- it, we reverse the order, where as we'd like to use the `last'
- heads first.
-
- This makes a difference for grace notes. If we have
-
- c4 \grace c8 ~ c4
-
- Then busyGrobs will have ((1/4 . gc8) (1/4 . c4)).
+ index_set_cell (her->get_property ("head-pair"), LEFT, new_head_drul[LEFT]->self_scm ());
+ index_set_cell (her->get_property ("head-pair"), RIGHT, new_head_drul[RIGHT]->self_scm ());