SCM cause = event_->self_scm ();
Grob *semi_tie = make_item ("RepeatTie", cause);
semi_tie->set_object ("note-head", inf.grob ()->self_scm ());
SCM cause = event_->self_scm ();
Grob *semi_tie = make_item ("RepeatTie", cause);
semi_tie->set_object ("note-head", inf.grob ()->self_scm ());