2 staff-symbol-engraver.cc -- implement Staff_symbol_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "engraver.hh"
12 class Staff_symbol_engraver : public Engraver
15 TRANSLATOR_DECLARATIONS (Staff_symbol_engraver);
18 Drul_array<Music *> span_events_;
20 Spanner *finished_span_;
24 virtual void start_spanner ();
25 virtual void stop_spanner ();
27 void stop_translation_timestep ();
28 virtual bool try_music (Music *);
29 virtual ~Staff_symbol_engraver ();
30 DECLARE_ACKNOWLEDGER (grob);
31 virtual void finalize ();
32 void process_music ();
35 Staff_symbol_engraver::~Staff_symbol_engraver ()
40 Staff_symbol_engraver::Staff_symbol_engraver ()
45 span_events_[LEFT] = 0;
46 span_events_[RIGHT] = 0;
50 Staff_symbol_engraver::try_music (Music *music)
52 Direction d = to_dir (music->get_property ("span-direction"));
55 span_events_[d] = music;
63 Staff_symbol_engraver::process_music ()
65 if (span_events_[STOP])
67 finished_span_ = span_;
73 if (span_events_[START]
74 || (first_start_ && !span_events_[STOP]))
79 Staff_symbol_engraver::start_spanner ()
83 span_ = make_spanner ("StaffSymbol", SCM_EOL);
84 span_->set_bound (LEFT,
85 unsmob_grob (get_property ("currentCommandColumn")));
90 Staff_symbol_engraver::stop_spanner ()
95 if (!finished_span_->get_bound (RIGHT))
96 finished_span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
98 announce_end_grob (finished_span_,
100 ? span_events_[STOP]->self_scm ()
107 Staff_symbol_engraver::stop_translation_timestep ()
109 if ((span_events_[START] || first_start_)
112 first_start_ = false;
115 span_events_[START] = 0;
116 span_events_[STOP] = 0;
121 Staff_symbol_engraver::finalize ()
123 finished_span_ = span_;
129 Todo: staff-symbol-referencer iface.
132 Staff_symbol_engraver::acknowledge_grob (Grob_info s)
135 Perhaps should try to take SeparationItem as bound of the staff
138 if (span_ || finished_span_)
140 Spanner *my = span_ ? span_ : finished_span_;
141 s.grob ()->set_object ("staff-symbol", my->self_scm ());
145 #include "translator.icc"
147 ADD_ACKNOWLEDGER (Staff_symbol_engraver, grob);
149 ADD_TRANSLATOR (Staff_symbol_engraver,
150 /* doc */ "Create the constellation of five (default) "
152 /* create */ "StaffSymbol",
153 /* accept */ "staff-span-event",