2 balloon-engraver.cc -- implement Balloon_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2006 Han-Wen Nienhuys <hanwen@lilypond.org>
10 #include "engraver.hh"
13 #include "stream-event.hh"
16 #include "translator.icc"
18 class Balloon_engraver : public Engraver
20 TRANSLATOR_DECLARATIONS(Balloon_engraver);
22 DECLARE_TRANSLATOR_LISTENER(annotate_output);
23 DECLARE_ACKNOWLEDGER(grob);
24 vector<Stream_event *> events_;
26 void stop_translation_timestep ();
28 void balloonify (Grob *, Stream_event *);
31 IMPLEMENT_TRANSLATOR_LISTENER (Balloon_engraver, annotate_output);
33 Balloon_engraver::listen_annotate_output (Stream_event *ev)
35 events_.push_back (ev);
39 Balloon_engraver::stop_translation_timestep ()
44 Balloon_engraver::Balloon_engraver ()
49 Balloon_engraver::balloonify (Grob *g, Stream_event *event)
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);
58 Balloon_engraver::acknowledge_grob (Grob_info info)
60 Stream_event *cause = info.event_cause ();
62 SCM arts = cause ? cause->get_property ("articulations") : SCM_EOL;
63 for (SCM s = arts; scm_is_pair (s); s = scm_cdr (s))
65 Stream_event *e = unsmob_stream_event (scm_car (s));
66 if (e->in_event_class ("annotate-output-event"))
68 balloonify (info.grob (), e);
72 for (vsize i = 0; i < events_.size (); i++)
74 if (info.grob ()->name () == ly_symbol2string (events_[i]->get_property ("symbol")))
75 balloonify (info.grob (), events_[i]);
81 ADD_ACKNOWLEDGER(Balloon_engraver,grob);
83 ADD_TRANSLATOR(Balloon_engraver,
84 "Create balloon texts",