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--2006 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   Grob *lv_tie = make_item ("LaissezVibrerTie", event_->self_scm ());
  65   lv_tie->set_object ("note-head", inf.grob ()->self_scm ());
  66
  67   Pointer_group_interface::add_grob (lv_column_, ly_symbol2scm ("ties"),
  68                                      lv_tie);
  69   lv_tie->set_parent (lv_column_, Y_AXIS);
  70
  71   lv_ties_.push_back (lv_tie);
  72 }
  73
  74 ADD_ACKNOWLEDGER (Laissez_vibrer_engraver, note_head);
  75 ADD_TRANSLATOR (Laissez_vibrer_engraver,
  76                 /* doc */ "Create Laissez vibrer items.",
  77
  78                 /* create */
  79                 "LaissezVibrerTie "
  80                 "LaissezVibrerTieColumn",
  81
  82                 /* accept */ "laissez-vibrer-event",
  83                 /* read */ "",
  84                 /* write */ "");