lily/laissez-vibrer-engraver.cc

   1 /*
   2   laissez-vibrer-engraver.cc -- implement Laissez_vibrer_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10
  11 #include "engraver.hh"
  12 #include "item.hh"
  13 #include "pointer-group-interface.hh"
  14 #include "stream-event.hh"
  15
  16 #include "translator.icc"
  17
  18 class Laissez_vibrer_engraver : public Engraver
  19 {
  20   Stream_event *event_;
  21   Grob *lv_column_;
  22   vector<Grob*> lv_ties_;
  23
  24   void stop_translation_timestep ();
  25   DECLARE_ACKNOWLEDGER (note_head);
  26 protected:
  27   DECLARE_TRANSLATOR_LISTENER (laissez_vibrer);
  28 public:
  29   TRANSLATOR_DECLARATIONS (Laissez_vibrer_engraver);
  30 };
  31
  32 Laissez_vibrer_engraver::Laissez_vibrer_engraver ()
  33 {
  34   event_ = 0;
  35   lv_column_ = 0;
  36 }
  37
  38 void
  39 Laissez_vibrer_engraver::stop_translation_timestep ()
  40 {
  41   event_ = 0;
  42   lv_column_ = 0;
  43   lv_ties_.clear ();
  44 }
  45
  46 IMPLEMENT_TRANSLATOR_LISTENER (Laissez_vibrer_engraver, laissez_vibrer);
  47 void
  48 Laissez_vibrer_engraver::listen_laissez_vibrer (Stream_event *ev)
  49 {
  50   ASSIGN_EVENT_ONCE (event_, ev);
  51 }
  52
  53 void
  54 Laissez_vibrer_engraver::acknowledge_note_head (Grob_info inf)
  55 {
  56   if (!event_)
  57     return;
  58
  59   if (!lv_column_)
  60     {
  61       lv_column_ = make_item ("LaissezVibrerTieColumn", event_->self_scm ());
  62     }
  63
  64   SCM cause = event_->self_scm ();
  65   Grob *lv_tie = make_item ("LaissezVibrerTie", cause);
  66   lv_tie->set_object ("note-head", inf.grob ()->self_scm ());
  67
  68   Pointer_group_interface::add_grob (lv_column_, ly_symbol2scm ("ties"),
  69                                      lv_tie);
  70
  71   if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
  72     {
  73       Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
  74       lv_tie->set_property ("direction", scm_from_int (d));
  75     }
  76
  77   lv_tie->set_parent (lv_column_, Y_AXIS);
  78
  79   lv_ties_.push_back (lv_tie);
  80 }
  81
  82 ADD_ACKNOWLEDGER (Laissez_vibrer_engraver, note_head);
  83 ADD_TRANSLATOR (Laissez_vibrer_engraver,
  84                 /* doc */
  85                 "Create laissez vibrer items.",
  86
  87                 /* create */
  88                 "LaissezVibrerTie "
  89                 "LaissezVibrerTieColumn ",
  90
  91                 /* read */
  92                 "",
  93
  94                 /* write */
  95                 ""
  96                 );