lily/repeat-tie-engraver.cc

   1 /*
   2   repeat-tie-engraver.cc -- implement Repeat_tie_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 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   SCM cause = event_->self_scm ();
  65   Grob *semi_tie = make_item ("RepeatTie", cause);
  66   semi_tie->set_object ("note-head", inf.grob ()->self_scm ());
  67
  68   Pointer_group_interface::add_grob (semi_tie_column_, ly_symbol2scm ("ties"),
  69                                      semi_tie);
  70   semi_tie->set_parent (semi_tie_column_, Y_AXIS);
  71   semi_ties_.push_back (semi_tie);
  72
  73
  74   if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
  75     {
  76       Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
  77       semi_tie->set_property ("direction", scm_from_int (d));
  78     }
  79
  80 }
  81
  82 ADD_ACKNOWLEDGER (Repeat_tie_engraver, note_head);
  83 ADD_TRANSLATOR (Repeat_tie_engraver,
  84                 /* doc */
  85                 "Create repeat ties.",
  86
  87                 /* create */
  88                 "RepeatTie "
  89                 "RepeatTieColumn ",
  90
  91                 /* read */
  92                 "",
  93
  94                 /* write */
  95                 ""
  96                 );