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
  15 #include "translator.icc"
  16
  17 class Laissez_vibrer_engraver : public Engraver
  18 {
  19
  20   Music *event_;
  21   Grob *lv_column_;
  22   vector<Grob*> lv_ties_;
  23
  24   void stop_translation_timestep ();
  25   DECLARE_ACKNOWLEDGER (note_head);
  26
  27   virtual bool try_music (Music *);
  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 bool
  47 Laissez_vibrer_engraver::try_music (Music *m)
  48 {
  49   event_ = m;
  50   return true;
  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
  75
  76 ADD_ACKNOWLEDGER (Laissez_vibrer_engraver, note_head);
  77 ADD_TRANSLATOR (Laissez_vibrer_engraver,
  78                 /* doc */ "Create Laissez vibrer items.",
  79
  80                 /* create */
  81                 "LaissezVibrerTie "
  82                 "LaissezVibrerTieColumn",
  83
  84                 /* accept */ "laissez-vibrer-event",
  85                 /* read */ "",
  86                 /* write */ "");