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