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 SCM get_property_setting (Stream_event *evt, char const *evprop, char const *ctxprop);
39 string get_spanner_type (Stream_event *ev);
41 Drul_array<Stream_event *> accepted_spanevents_drul_;
42 Spanner *current_spanner_;
43 Spanner *finished_spanner_;
46 Stream_event *script_event_;
47 Stream_event *current_span_event_;
50 New_dynamic_engraver::New_dynamic_engraver ()
53 current_span_event_ = 0;
55 finished_spanner_ = 0;
57 accepted_spanevents_drul_.set (0, 0);
60 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver, absolute_dynamic);
62 New_dynamic_engraver::listen_absolute_dynamic (Stream_event *ev)
64 ASSIGN_EVENT_ONCE (script_event_, ev);
67 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver, span_dynamic);
69 New_dynamic_engraver::listen_span_dynamic (Stream_event *ev)
71 Direction d = to_dir (ev->get_property ("span-direction"));
73 ASSIGN_EVENT_ONCE (accepted_spanevents_drul_[d], ev);
77 New_dynamic_engraver::get_property_setting (Stream_event *evt, char const *evprop, char const *ctxprop)
79 SCM spanner_type = evt->get_property (evprop);
80 if (spanner_type == SCM_EOL)
81 spanner_type = get_property (ctxprop);
86 New_dynamic_engraver::process_music ()
89 && (accepted_spanevents_drul_[STOP] || script_event_ || accepted_spanevents_drul_[START]))
91 Stream_event *ender = accepted_spanevents_drul_[STOP];
93 ender = script_event_;
96 ender = accepted_spanevents_drul_[START];
98 finished_spanner_ = current_spanner_;
99 announce_end_grob (finished_spanner_, ender->self_scm ());
100 current_spanner_ = 0;
101 current_span_event_ = 0;
104 if (accepted_spanevents_drul_[START])
106 current_span_event_ = accepted_spanevents_drul_[START];
108 string start_type = get_spanner_type (current_span_event_);
109 SCM cresc_type = get_property_setting (current_span_event_, "span-type",
110 (start_type + "Spanner").c_str ());
112 if (cresc_type == ly_symbol2scm ("text"))
115 = make_spanner ("DynamicTextSpanner",
116 accepted_spanevents_drul_[START]->self_scm ());
118 SCM text = get_property_setting (current_span_event_, "span-text",
119 (start_type + "Text").c_str ());
120 if (Text_interface::is_markup (text))
122 current_spanner_->set_property ("text", text);
127 if (cresc_type != ly_symbol2scm ("hairpin"))
129 string as_string = ly_scm_write_string (cresc_type);
131 ->origin()->warning (_f ("unknown crescendo style: %s\ndefaulting to hairpin.", as_string.c_str()));
133 current_spanner_ = make_spanner ("Hairpin",
134 current_span_event_->self_scm ());
135 if (finished_spanner_)
137 Pointer_group_interface::add_grob (finished_spanner_,
138 ly_symbol2scm ("adjacent-hairpins"),
141 Pointer_group_interface::add_grob (current_spanner_,
142 ly_symbol2scm ("adjacent-hairpins"),
150 script_ = make_item ("DynamicText", script_event_->self_scm ());
151 script_->set_property ("text",
152 script_event_->get_property ("text"));
154 if (finished_spanner_)
155 finished_spanner_->set_bound (RIGHT, script_);
156 if (current_spanner_)
158 current_spanner_->set_bound (LEFT, script_);
160 if (!Hairpin::has_interface (current_spanner_))
161 set_nested_property (current_spanner_,
162 scm_list_3 (ly_symbol2scm ("bound-details"),
163 ly_symbol2scm ("left"),
164 ly_symbol2scm ("attach-dir")
166 scm_from_int (RIGHT));
175 New_dynamic_engraver::stop_translation_timestep ()
177 if (finished_spanner_ && !finished_spanner_->get_bound (RIGHT))
178 finished_spanner_->set_bound (RIGHT,
179 unsmob_grob (get_property ("currentMusicalColumn")));
181 if (current_spanner_ && !current_spanner_->get_bound (LEFT))
182 current_spanner_->set_bound (LEFT,
183 unsmob_grob (get_property ("currentMusicalColumn")));
186 accepted_spanevents_drul_.set (0, 0);
187 finished_spanner_ = 0;
191 New_dynamic_engraver::finalize ()
194 && !current_spanner_->is_live ())
195 current_spanner_ = 0;
196 if (current_spanner_)
199 ->origin ()->warning (_f ("unterminated %s",
200 get_spanner_type (current_span_event_)
202 current_spanner_->suicide ();
203 current_spanner_ = 0;
208 New_dynamic_engraver::get_spanner_type (Stream_event *ev)
211 SCM start_sym = ev->get_property ("class");
213 if (start_sym == ly_symbol2scm ("decrescendo-event"))
214 type = "decrescendo";
215 else if (start_sym == ly_symbol2scm ("crescendo-event"))
218 programming_error ("unknown dynamic spanner type");
223 New_dynamic_engraver::acknowledge_note_column (Grob_info info)
225 if (script_ && !script_->get_parent (X_AXIS))
227 extract_grob_set (info.grob (), "note-heads", heads);
230 Grob *head = heads[0];
231 script_->set_parent (head, X_AXIS);
232 Self_alignment_interface::set_center_parent (script_, X_AXIS);
236 if (current_spanner_ && !current_spanner_->get_bound (LEFT))
237 current_spanner_->set_bound (LEFT, info.grob ());
238 if (finished_spanner_ && !finished_spanner_->get_bound (RIGHT))
239 finished_spanner_->set_bound (RIGHT, info.grob ());
242 ADD_ACKNOWLEDGER (New_dynamic_engraver, note_column);
243 ADD_TRANSLATOR (New_dynamic_engraver,
245 "Create hairpins, dynamic texts, and their vertical"
246 " alignments. The symbols are collected onto a"
247 " @code{DynamicLineSpanner} grob which takes care of vertical"
251 "DynamicTextSpanner "
258 "currentMusicalColumn "
259 "decrescendoSpanner "