/*
- repeat-engraver.cc -- implement Repeat_tie_engraver
+ repeat-tie-engraver.cc -- implement Repeat_tie_engraver
source file of the GNU LilyPond music typesetter
- (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2005--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
void
Repeat_tie_engraver::listen_repeat_tie (Stream_event *ev)
{
- event_ = ev;
+ ASSIGN_EVENT_ONCE (event_, ev);
}
void
{
semi_tie_column_ = make_item ("RepeatTieColumn", event_->self_scm ());
}
-
- Grob *semi_tie = make_item ("RepeatTie", event_->self_scm ());
+
+ SCM cause = event_->self_scm ();
+ Grob *semi_tie = make_item ("RepeatTie", cause);
semi_tie->set_object ("note-head", inf.grob ()->self_scm ());
Pointer_group_interface::add_grob (semi_tie_column_, ly_symbol2scm ("ties"),
semi_tie);
semi_tie->set_parent (semi_tie_column_, Y_AXIS);
semi_ties_.push_back (semi_tie);
+
+
+ if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
+ {
+ Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
+ semi_tie->set_property ("direction", scm_from_int (d));
+ }
+
}
ADD_ACKNOWLEDGER (Repeat_tie_engraver, note_head);
ADD_TRANSLATOR (Repeat_tie_engraver,
- /* doc */ "Create Laissez vibrer items.",
+ /* doc */
+ "Create repeat ties.",
/* create */
"RepeatTie "
"RepeatTieColumn ",
- /* accept */ "repeat-tie-event",
- /* read */ "",
- /* write */ "");
+ /* read */
+ "",
+
+ /* write */
+ ""
+ );