lily/repeat-tie-engraver.cc

   1 /*
   2   repeat-engraver.cc -- implement Repeat_tie_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 Repeat_tie_engraver : public Engraver
  19 {
  20   Stream_event *event_;
  21   Grob *semi_tie_column_;
  22   vector<Grob*> semi_ties_;
  23
  24   void stop_translation_timestep ();
  25   DECLARE_ACKNOWLEDGER (note_head);
  26   DECLARE_TRANSLATOR_LISTENER (repeat_tie);
  27
  28 public:
  29   TRANSLATOR_DECLARATIONS (Repeat_tie_engraver);
  30 };
  31
  32 Repeat_tie_engraver::Repeat_tie_engraver ()
  33 {
  34   event_ = 0;
  35   semi_tie_column_ = 0;
  36 }
  37
  38 void
  39 Repeat_tie_engraver::stop_translation_timestep ()
  40 {
  41   event_ = 0;
  42   semi_tie_column_ = 0;
  43   semi_ties_.clear ();
  44 }
  45
  46 IMPLEMENT_TRANSLATOR_LISTENER (Repeat_tie_engraver, repeat_tie);
  47 void
  48 Repeat_tie_engraver::listen_repeat_tie (Stream_event *ev)
  49 {
  50   ASSIGN_EVENT_ONCE (event_, ev);
  51 }
  52
  53 void
  54 Repeat_tie_engraver::acknowledge_note_head (Grob_info inf)
  55 {
  56   if (!event_)
  57     return;
  58
  59   if (!semi_tie_column_)
  60     {
  61       semi_tie_column_ = make_item ("RepeatTieColumn", event_->self_scm ());
  62     }
  63
  64   Grob *semi_tie = make_item ("RepeatTie", event_->self_scm ());
  65   semi_tie->set_object ("note-head", inf.grob ()->self_scm ());
  66
  67   Pointer_group_interface::add_grob (semi_tie_column_, ly_symbol2scm ("ties"),
  68                                      semi_tie);
  69   semi_tie->set_parent (semi_tie_column_, Y_AXIS);
  70   semi_ties_.push_back (semi_tie);
  71 }
  72
  73 ADD_ACKNOWLEDGER (Repeat_tie_engraver, note_head);
  74 ADD_TRANSLATOR (Repeat_tie_engraver,
  75                 /* doc */ "Create Laissez vibrer items.",
  76
  77                 /* create */
  78                 "RepeatTie "
  79                 "RepeatTieColumn ",
  80                 /* read */ "",
  81                 /* write */ "");