lily/balloon-engraver.cc

   1 /*
   2   balloon-engraver.cc -- implement Balloon_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2006 Han-Wen Nienhuys <hanwen@lilypond.org>
   7
   8 */
   9
  10 #include "engraver.hh"
  11
  12
  13 #include "stream-event.hh"
  14 #include "item.hh"
  15
  16 #include "translator.icc"
  17
  18 class Balloon_engraver : public Engraver
  19 {
  20   TRANSLATOR_DECLARATIONS(Balloon_engraver);
  21
  22   DECLARE_TRANSLATOR_LISTENER(annotate_output);
  23   DECLARE_ACKNOWLEDGER(grob);
  24   vector<Stream_event *> events_;
  25
  26   void stop_translation_timestep ();
  27
  28   void balloonify (Grob *, Stream_event *);
  29 };
  30
  31 IMPLEMENT_TRANSLATOR_LISTENER (Balloon_engraver, annotate_output);
  32 void
  33 Balloon_engraver::listen_annotate_output (Stream_event *ev)
  34 {
  35   events_.push_back (ev);
  36 }
  37
  38 void
  39 Balloon_engraver::stop_translation_timestep ()
  40 {
  41   events_.clear ();
  42 }
  43
  44 Balloon_engraver::Balloon_engraver ()
  45 {
  46 }
  47
  48 void
  49 Balloon_engraver::balloonify (Grob *g, Stream_event *event)
  50 {
  51   Grob * b = make_item ("BalloonTextItem", event->self_scm ());
  52   b->set_property ("text", event->get_property ("text"));
  53   b->set_parent (g, Y_AXIS);
  54   b->set_parent (g, X_AXIS);
  55 }
  56
  57 void
  58 Balloon_engraver::acknowledge_grob (Grob_info info)
  59 {
  60   Stream_event *cause = info.event_cause ();
  61
  62   SCM arts = cause ? cause->get_property ("articulations") : SCM_EOL;
  63   for (SCM s = arts; scm_is_pair (s); s = scm_cdr (s))
  64     {
  65       Stream_event *e = unsmob_stream_event (scm_car (s));
  66       if (e->in_event_class ("annotate-output-event"))
  67         {
  68           balloonify (info.grob (), e);
  69         }
  70     }
  71
  72   for (vsize i = 0; i < events_.size (); i++)
  73     {
  74       if (info.grob ()->name () == ly_symbol2string (events_[i]->get_property ("symbol")))
  75         balloonify (info.grob (), events_[i]);
  76     }
  77 }
  78
  79
  80
  81 ADD_ACKNOWLEDGER(Balloon_engraver,grob);
  82
  83 ADD_TRANSLATOR(Balloon_engraver,
  84                "Create balloon texts",
  85                "BalloonTextItem ",
  86                /*read*/ "",
  87                /*write*/ ""
  88                );