2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2008--2010 Han-Wen Nienhuys <hanwen@lilypond.org>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "engraver.hh"
22 #include "international.hh"
24 #include "note-column.hh"
25 #include "pointer-group-interface.hh"
26 #include "self-alignment-interface.hh"
28 #include "stream-event.hh"
29 #include "text-interface.hh"
31 #include "translator.icc"
33 class New_dynamic_engraver
: public Engraver
35 TRANSLATOR_DECLARATIONS (New_dynamic_engraver
);
36 DECLARE_ACKNOWLEDGER (note_column
);
37 DECLARE_TRANSLATOR_LISTENER (absolute_dynamic
);
38 DECLARE_TRANSLATOR_LISTENER (span_dynamic
);
41 virtual void process_music ();
42 virtual void stop_translation_timestep ();
43 virtual void finalize ();
46 SCM
get_property_setting (Stream_event
*evt
, char const *evprop
,
48 string
get_spanner_type (Stream_event
*ev
);
50 Drul_array
<Stream_event
*> accepted_spanevents_drul_
;
51 Spanner
*current_spanner_
;
52 Spanner
*finished_spanner_
;
55 Stream_event
*script_event_
;
56 Stream_event
*current_span_event_
;
59 New_dynamic_engraver::New_dynamic_engraver ()
62 current_span_event_
= 0;
64 finished_spanner_
= 0;
66 accepted_spanevents_drul_
.set (0, 0);
69 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver
, absolute_dynamic
);
71 New_dynamic_engraver::listen_absolute_dynamic (Stream_event
*ev
)
73 ASSIGN_EVENT_ONCE (script_event_
, ev
);
76 IMPLEMENT_TRANSLATOR_LISTENER (New_dynamic_engraver
, span_dynamic
);
78 New_dynamic_engraver::listen_span_dynamic (Stream_event
*ev
)
80 Direction d
= to_dir (ev
->get_property ("span-direction"));
82 ASSIGN_EVENT_ONCE (accepted_spanevents_drul_
[d
], ev
);
86 New_dynamic_engraver::get_property_setting (Stream_event
*evt
,
90 SCM spanner_type
= evt
->get_property (evprop
);
91 if (spanner_type
== SCM_EOL
)
92 spanner_type
= get_property (ctxprop
);
97 New_dynamic_engraver::process_music ()
100 && (accepted_spanevents_drul_
[STOP
]
102 || accepted_spanevents_drul_
[START
]))
104 Stream_event
*ender
= accepted_spanevents_drul_
[STOP
];
106 ender
= script_event_
;
109 ender
= accepted_spanevents_drul_
[START
];
111 finished_spanner_
= current_spanner_
;
112 announce_end_grob (finished_spanner_
, ender
->self_scm ());
113 current_spanner_
= 0;
114 current_span_event_
= 0;
117 if (accepted_spanevents_drul_
[START
])
119 current_span_event_
= accepted_spanevents_drul_
[START
];
121 string start_type
= get_spanner_type (current_span_event_
);
122 SCM cresc_type
= get_property_setting (current_span_event_
, "span-type",
123 (start_type
+ "Spanner").c_str ());
125 if (cresc_type
== ly_symbol2scm ("text"))
128 = make_spanner ("DynamicTextSpanner",
129 accepted_spanevents_drul_
[START
]->self_scm ());
131 SCM text
= get_property_setting (current_span_event_
, "span-text",
132 (start_type
+ "Text").c_str ());
133 if (Text_interface::is_markup (text
))
134 current_spanner_
->set_property ("text", text
);
138 if (cresc_type
!= ly_symbol2scm ("hairpin"))
140 string as_string
= ly_scm_write_string (cresc_type
);
142 ->origin()->warning (_f ("unknown crescendo style: %s\ndefaulting to hairpin.", as_string
.c_str()));
144 current_spanner_
= make_spanner ("Hairpin",
145 current_span_event_
->self_scm ());
147 if (finished_spanner_
)
149 if (Hairpin::has_interface (finished_spanner_
))
150 Pointer_group_interface::add_grob (finished_spanner_
,
151 ly_symbol2scm ("adjacent-spanners"),
153 if (Hairpin::has_interface (current_spanner_
))
154 Pointer_group_interface::add_grob (current_spanner_
,
155 ly_symbol2scm ("adjacent-spanners"),
162 script_
= make_item ("DynamicText", script_event_
->self_scm ());
163 script_
->set_property ("text",
164 script_event_
->get_property ("text"));
166 if (finished_spanner_
)
167 finished_spanner_
->set_bound (RIGHT
, script_
);
168 if (current_spanner_
)
169 current_spanner_
->set_bound (LEFT
, script_
);
174 New_dynamic_engraver::stop_translation_timestep ()
176 if (finished_spanner_
&& !finished_spanner_
->get_bound (RIGHT
))
179 unsmob_grob (get_property ("currentMusicalColumn")));
181 if (current_spanner_
&& !current_spanner_
->get_bound (LEFT
))
184 unsmob_grob (get_property ("currentMusicalColumn")));
187 accepted_spanevents_drul_
.set (0, 0);
188 finished_spanner_
= 0;
192 New_dynamic_engraver::finalize ()
195 && !current_spanner_
->is_live ())
196 current_spanner_
= 0;
197 if (current_spanner_
)
200 ->origin ()->warning (_f ("unterminated %s",
201 get_spanner_type (current_span_event_
)
203 current_spanner_
->suicide ();
204 current_spanner_
= 0;
209 New_dynamic_engraver::get_spanner_type (Stream_event
*ev
)
212 SCM start_sym
= ev
->get_property ("class");
214 if (start_sym
== ly_symbol2scm ("decrescendo-event"))
215 type
= "decrescendo";
216 else if (start_sym
== ly_symbol2scm ("crescendo-event"))
219 programming_error ("unknown dynamic spanner type");
225 New_dynamic_engraver::acknowledge_note_column (Grob_info info
)
227 if (script_
&& !script_
->get_parent (X_AXIS
))
229 extract_grob_set (info
.grob (), "note-heads", heads
);
232 Grob
*head
= heads
[0];
233 script_
->set_parent (head
, X_AXIS
);
234 Self_alignment_interface::set_center_parent (script_
, X_AXIS
);
238 if (current_spanner_
&& !current_spanner_
->get_bound (LEFT
))
239 current_spanner_
->set_bound (LEFT
, info
.grob ());
240 if (finished_spanner_
&& !finished_spanner_
->get_bound (RIGHT
))
241 finished_spanner_
->set_bound (RIGHT
, info
.grob ());
244 ADD_ACKNOWLEDGER (New_dynamic_engraver
, note_column
);
245 ADD_TRANSLATOR (New_dynamic_engraver
,
247 "Create hairpins, dynamic texts, and their vertical"
248 " alignments. The symbols are collected onto a"
249 " @code{DynamicLineSpanner} grob which takes care of vertical"
253 "DynamicTextSpanner "
260 "currentMusicalColumn "
261 "decrescendoSpanner "