*/
-
#include "engraver.hh"
#include "item.hh"
#include "pointer-group-interface.hh"
Stream_event *event_;
Grob *lv_column_;
vector<Grob*> lv_ties_;
-
- void stop_translation_timestep ();
+
+ void stop_translation_timestep ();
DECLARE_ACKNOWLEDGER (note_head);
protected:
DECLARE_TRANSLATOR_LISTENER (laissez_vibrer);
if (!event_)
return;
+ SCM cause = event_->self_scm ();
+
if (!lv_column_)
- {
- lv_column_ = make_item ("LaissezVibrerTieColumn", event_->self_scm ());
- }
+ lv_column_ = make_item ("LaissezVibrerTieColumn", cause);
- SCM cause = event_->self_scm ();
Grob *lv_tie = make_item ("LaissezVibrerTie", cause);
lv_tie->set_object ("note-head", inf.grob ()->self_scm ());
-
+
Pointer_group_interface::add_grob (lv_column_, ly_symbol2scm ("ties"),
lv_tie);
if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
{
Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
- lv_tie->set_property ("direction", scm_from_int (d));
+ lv_tie->set_property ("direction", scm_from_int (d));
}
-
+
lv_tie->set_parent (lv_column_, Y_AXIS);
lv_ties_.push_back (lv_tie);
}
ADD_ACKNOWLEDGER (Laissez_vibrer_engraver, note_head);
-ADD_TRANSLATOR (Laissez_vibrer_engraver,
+ADD_TRANSLATOR (Laissez_vibrer_engraver,
/* doc */
"Create laissez vibrer items.",
-
+
/* create */
"LaissezVibrerTie "
"LaissezVibrerTieColumn ",