2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2008--2011 Han-Wen Nienhuys <hanwen@lilypond.org>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
23 #include "engraver.hh"
25 #include "axis-group-interface.hh"
26 #include "directional-element-interface.hh"
28 #include "side-position-interface.hh"
30 #include "stream-event.hh"
32 #include "translator.icc"
34 class Dynamic_align_engraver : public Engraver
36 TRANSLATOR_DECLARATIONS (Dynamic_align_engraver);
37 DECLARE_TRANSLATOR_LISTENER (break_span);
38 DECLARE_ACKNOWLEDGER (note_column);
39 DECLARE_ACKNOWLEDGER (dynamic);
40 DECLARE_ACKNOWLEDGER (footnote_spanner);
41 DECLARE_END_ACKNOWLEDGER (dynamic);
44 virtual void stop_translation_timestep ();
47 void create_line_spanner (Stream_event *cause);
49 vector<Spanner *> ended_;
50 vector<Spanner *> started_;
51 vector<Grob *> scripts_;
52 vector<Grob *> support_;
54 set<Spanner *> running_;
59 Dynamic_align_engraver::Dynamic_align_engraver ()
65 ADD_ACKNOWLEDGER (Dynamic_align_engraver, dynamic);
66 ADD_ACKNOWLEDGER (Dynamic_align_engraver, note_column);
67 ADD_ACKNOWLEDGER (Dynamic_align_engraver, footnote_spanner);
68 ADD_END_ACKNOWLEDGER (Dynamic_align_engraver, dynamic);
71 Dynamic_align_engraver::create_line_spanner (Stream_event *event)
74 line_ = make_spanner ("DynamicLineSpanner",
75 event ? event->self_scm () : SCM_EOL);
79 Dynamic_align_engraver::acknowledge_end_dynamic (Grob_info info)
81 if (Spanner::has_interface (info.grob ()))
82 ended_.push_back (info.spanner ());
86 Dynamic_align_engraver::acknowledge_footnote_spanner (Grob_info info)
88 Grob *parent = info.grob ()->get_parent (Y_AXIS);
90 && parent->internal_has_interface (ly_symbol2scm ("dynamic-interface")))
91 Axis_group_interface::add_element (line_, info.grob ());
95 Dynamic_align_engraver::acknowledge_note_column (Grob_info info)
97 support_.push_back (info.grob ());
100 IMPLEMENT_TRANSLATOR_LISTENER (Dynamic_align_engraver, break_span);
102 Dynamic_align_engraver::listen_break_span (Stream_event *event)
104 if (event->in_event_class ("break-dynamic-span-event"))
109 Dynamic_align_engraver::acknowledge_dynamic (Grob_info info)
111 Stream_event *cause = info.event_cause ();
112 create_line_spanner (cause);
113 if (Spanner::has_interface (info.grob ()))
115 started_.push_back (info.spanner ());
117 If we are using text spans instead of hairpins and the line
118 is hidden, end the alignment spanner early: this allows dynamics
119 to be spaced individually instead of being linked together.
121 if (info.grob ()->internal_has_interface (ly_symbol2scm ("dynamic-text-spanner-interface"))
122 && (info.grob ()->get_property ("style") == ly_symbol2scm ("none")))
125 else if (info.item ())
126 scripts_.push_back (info.item ());
128 info.grob ()->programming_error ("unknown dynamic grob");
130 Axis_group_interface::add_element (line_, info.grob ());
134 if (Direction d = to_dir (cause->get_property ("direction")))
135 set_grob_direction (line_, d);
140 Dynamic_align_engraver::stop_translation_timestep ()
142 for (vsize i = 0; i < started_.size (); i++)
143 running_.insert (started_[i]);
144 for (vsize i = 0; i < ended_.size (); i++)
146 Spanner *sp = ended_[i];
148 set<Spanner *>::iterator it = running_.find (sp);
149 if (it != running_.end ())
152 started_[i]->programming_error ("lost track of this dynamic spanner");
155 bool end = line_ && (running_.empty ()
161 && ((d == LEFT && !line_->get_bound (LEFT))
162 || (end && d == RIGHT && !line_->get_bound (RIGHT))))
164 vector<Spanner *> const &spanners
165 = (d == LEFT) ? started_ : ended_;
168 if (scripts_.size ())
170 else if (spanners.size ())
171 bound = spanners[0]->get_bound (d);
174 bound = unsmob_grob (get_property ("currentMusicalColumn"));
176 programming_error ("started DynamicLineSpanner but have no left bound");
179 line_->set_bound (d, bound);
182 while (flip (&d) != LEFT);
184 for (vsize i = 0; line_ && i < support_.size (); i++)
185 Side_position_interface::add_support (line_, support_[i]);
199 ADD_TRANSLATOR (Dynamic_align_engraver,
201 "Align hairpins and dynamic texts on a horizontal line.",
204 "DynamicLineSpanner ",
207 "currentMusicalColumn ",