2 new-dynamic-engraver.cc -- implement New_dynamic_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2008--2009 Han-Wen Nienhuys <hanwen@lilypond.org>
11 #include "engraver.hh"
14 #include "international.hh"
16 #include "note-column.hh"
17 #include "pointer-group-interface.hh"
18 #include "self-alignment-interface.hh"
20 #include "stream-event.hh"
21 #include "text-interface.hh"
23 #include "translator.icc"
25 class New_dynamic_engraver : public Engraver
27 TRANSLATOR_DECLARATIONS (New_dynamic_engraver);
28 DECLARE_ACKNOWLEDGER (note_column);
29 DECLARE_TRANSLATOR_LISTENER (absolute_dynamic);
30 DECLARE_TRANSLATOR_LISTENER (span_dynamic);
33 virtual void process_music ();
34 virtual void stop_translation_timestep ();
35 virtual void finalize ();
38 string get_spanner_type (Stream_event *ev);
40 Drul_array<Stream_event *> accepted_spanevents_drul_;
41 Spanner *current_spanner_;
42 Spanner *finished_spanner_;
45 Stream_event *script_event_;
46 Stream_event *current_span_event_;
49 New_dynamic_engraver::New_dynamic_engraver ()
52 current_span_event_ = 0;
54 finished_spanner_ = 0;
56 accepted_spanevents_drul_.set (0, 0);
59 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver, absolute_dynamic);
61 New_dynamic_engraver::listen_absolute_dynamic (Stream_event *ev)
63 ASSIGN_EVENT_ONCE (script_event_, ev);
66 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver, span_dynamic);
68 New_dynamic_engraver::listen_span_dynamic (Stream_event *ev)
70 Direction d = to_dir (ev->get_property ("span-direction"));
72 ASSIGN_EVENT_ONCE (accepted_spanevents_drul_[d], ev);
77 New_dynamic_engraver::process_music ()
80 && (accepted_spanevents_drul_[STOP] || script_event_ || accepted_spanevents_drul_[START]))
82 Stream_event *ender = accepted_spanevents_drul_[STOP];
84 ender = script_event_;
87 ender = accepted_spanevents_drul_[START];
89 finished_spanner_ = current_spanner_;
90 announce_end_grob (finished_spanner_, ender->self_scm ());
92 current_span_event_ = 0;
95 if (accepted_spanevents_drul_[START])
97 current_span_event_ = accepted_spanevents_drul_[START];
99 string start_type = get_spanner_type (current_span_event_);
100 SCM cresc_type = get_property ((start_type + "Spanner").c_str ());
102 if (cresc_type == ly_symbol2scm ("text"))
105 = make_spanner ("DynamicTextSpanner",
106 accepted_spanevents_drul_[START]->self_scm ());
108 SCM text = get_property ((start_type + "Text").c_str ());
109 if (Text_interface::is_markup (text))
111 current_spanner_->set_property ("text", text);
116 if (cresc_type != ly_symbol2scm ("hairpin"))
118 string as_string = ly_scm_write_string (cresc_type);
120 ->origin()->warning (_f ("unknown crescendo style: %s\ndefaulting to hairpin.", as_string.c_str()));
122 current_spanner_ = make_spanner ("Hairpin",
123 current_span_event_->self_scm ());
124 if (finished_spanner_)
126 Pointer_group_interface::add_grob (finished_spanner_,
127 ly_symbol2scm ("adjacent-hairpins"),
130 Pointer_group_interface::add_grob (current_spanner_,
131 ly_symbol2scm ("adjacent-hairpins"),
139 script_ = make_item ("DynamicText", script_event_->self_scm ());
140 script_->set_property ("text",
141 script_event_->get_property ("text"));
143 if (finished_spanner_)
144 finished_spanner_->set_bound (RIGHT, script_);
145 if (current_spanner_)
147 current_spanner_->set_bound (LEFT, script_);
149 if (!Hairpin::has_interface (current_spanner_))
150 set_nested_property (current_spanner_,
151 scm_list_3 (ly_symbol2scm ("bound-details"),
152 ly_symbol2scm ("left"),
153 ly_symbol2scm ("attach-dir")
155 scm_from_int (RIGHT));
164 New_dynamic_engraver::stop_translation_timestep ()
166 if (finished_spanner_ && !finished_spanner_->get_bound (RIGHT))
167 finished_spanner_->set_bound (RIGHT,
168 unsmob_grob (get_property ("currentMusicalColumn")));
170 if (current_spanner_ && !current_spanner_->get_bound (LEFT))
171 current_spanner_->set_bound (LEFT,
172 unsmob_grob (get_property ("currentMusicalColumn")));
175 accepted_spanevents_drul_.set (0, 0);
176 finished_spanner_ = 0;
180 New_dynamic_engraver::finalize ()
183 && !current_spanner_->is_live ())
184 current_spanner_ = 0;
185 if (current_spanner_)
188 ->origin ()->warning (_f ("unterminated %s",
189 get_spanner_type (current_span_event_)
191 current_spanner_->suicide ();
192 current_spanner_ = 0;
197 New_dynamic_engraver::get_spanner_type (Stream_event *ev)
200 SCM start_sym = ev->get_property ("class");
202 if (start_sym == ly_symbol2scm ("decrescendo-event"))
203 type = "decrescendo";
204 else if (start_sym == ly_symbol2scm ("crescendo-event"))
207 programming_error ("unknown dynamic spanner type");
212 New_dynamic_engraver::acknowledge_note_column (Grob_info info)
214 if (script_ && !script_->get_parent (X_AXIS))
216 extract_grob_set (info.grob (), "note-heads", heads);
219 Grob *head = heads[0];
220 script_->set_parent (head, X_AXIS);
221 Self_alignment_interface::set_center_parent (script_, X_AXIS);
225 if (current_spanner_ && !current_spanner_->get_bound (LEFT))
226 current_spanner_->set_bound (LEFT, info.grob ());
227 if (finished_spanner_ && !finished_spanner_->get_bound (RIGHT))
228 finished_spanner_->set_bound (RIGHT, info.grob ());
231 ADD_ACKNOWLEDGER (New_dynamic_engraver, note_column);
232 ADD_TRANSLATOR (New_dynamic_engraver,
234 "Create hairpins, dynamic texts, and their vertical"
235 " alignments. The symbols are collected onto a"
236 " @code{DynamicLineSpanner} grob which takes care of vertical"
240 "DynamicTextSpanner "
247 "currentMusicalColumn "
248 "decrescendoSpanner "