2 repeat-engraver.cc -- implement Repeat_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
12 #include "bar-engraver.hh"
13 #include "musical-request.hh"
14 #include "multi-measure-rest.hh"
15 #include "command-request.hh"
16 #include "timing-translator.hh"
17 #include "engraver-group-engraver.hh"
18 #include "repeated-music.hh"
19 #include "timing-translator.hh"
20 #include "volta-spanner.hh"
21 #include "note-column.hh"
22 #include "paper-def.hh"
23 #include "music-list.hh"
24 #include "side-position-interface.hh"
26 #include "note-column.hh"
28 struct Bar_create_event
35 Bar_create_event (Moment w, String s);
36 Bar_create_event (Moment w, int i, int j);
39 int compare (Bar_create_event const & c1, Bar_create_event const &c2)
41 return (c1.when_ - c2.when_).sign();
45 Generate repeat-bars |: :| for repeated-music
47 class Repeat_engraver : public Engraver
50 VIRTUAL_COPY_CONS(Translator);
53 virtual void acknowledge_element (Score_element_info i);
54 virtual void do_removal_processing ();
55 virtual bool do_try_music (Music *req_l);
56 virtual void do_process_music();
57 virtual void do_pre_move_processing();
58 virtual void do_post_move_processing ();
62 Repeated_music *repeated_music_l_;
63 bool done_this_one_b_;
66 Royal_brackla_create_queue is only two Whiskies away. :-)
68 Cons<Bar_create_event> *create_barmoments_queue_;
70 Spanner * volta_span_p_;
71 Spanner* end_volta_span_p_;
77 ADD_THIS_TRANSLATOR (Repeat_engraver);
80 Repeat_engraver::do_try_music (Music* m)
82 if (Repeated_music* r = dynamic_cast<Repeated_music *> (m))
84 if (repeated_music_l_)
89 repeated_music_l_ = r;
93 We acknowledge other types of unfolded music as well, to
94 get auto context selection right.
96 if (r->type_ == "volta" || r->type_ == "unfolded")
104 Walk through repeat music, and generate events for appropriate times.
106 UGH. Should use Music_iteration for this.
108 Should also queue some event to get timing information reset during
109 2nd and following voltas.
112 Repeat_engraver::queue_events ()
114 Music_sequence* alt = repeated_music_l_->alternatives ();
115 Moment walk_mom = now_mom () + repeated_music_l_->body ()->length_mom ();
117 SCM novolta = get_property ("noVoltaBraces");
118 bool create_volta = !to_boolean (novolta);
120 Cons_list<Bar_create_event> becel;
121 becel.append (new Bar_create_event (now_mom (), "|:"));
125 becel.append (new Bar_create_event (walk_mom, ":|"));
126 becel.append (new Bar_create_event (walk_mom, "stop"));
131 int volta_number = repeated_music_l_->repeats_i_ - alt->length_i () + 1;
134 all repeat alternatives, and generate events with
135 appropriate timestamps. The volta spanner event (a number string)
136 happens at the begin of the alt. The :| bar event at the ending.
139 for (SCM s = repeated_music_l_->alternatives ()->music_list ();
140 gh_pair_p (s); s = gh_cdr (s))
142 Music *mus =unsmob_music (gh_car (s));
145 some idiot might typeset a repeat not starting on a
146 barline. Make sure there is one.
148 (todo: should try to avoid line breaks?)
150 if (last_number == 0)
152 becel.append (new Bar_create_event (walk_mom, ""));
158 Bar_create_event * c = new Bar_create_event (walk_mom, last_number+ 1,
161 if (!gh_pair_p (gh_cdr (s)))
165 last_number = volta_number;
167 SCM l (get_property ("voltaSpannerDuration"));
168 if (unsmob_moment(l))
170 Moment vSD_mom = *unsmob_moment (l);
171 if ( vSD_mom < mus->length_mom() ) // terminate volta early ?
175 becel.append (new Bar_create_event (vSD_mom, "stop"));
179 walk_mom += mus->length_mom();
181 if (gh_pair_p (gh_cdr (s)))
182 becel.append (new Bar_create_event (walk_mom, ":|"));
184 becel.append (new Bar_create_event (walk_mom, "stop"));
188 Cons<Bar_create_event> *&tail = create_barmoments_queue_
189 ? last_cons (create_barmoments_queue_)->next_
190 : create_barmoments_queue_;
197 Repeat_engraver::do_process_music ()
199 if (repeated_music_l_ && !done_this_one_b_)
202 done_this_one_b_ = true;
206 Cons<Bar_create_event> * head = create_barmoments_queue_;
210 Bar_engraver* bar_engraver_l = dynamic_cast <Bar_engraver*>
211 (daddy_grav_l ()->get_simple_translator ("Bar_engraver"));
214 Do all the events that need to be done now.
216 while (head && now_mom () == head->car_->when_)
218 create_barmoments_queue_ = create_barmoments_queue_->next_;
222 String t = head->car_->type_;
223 if (head->car_->bar_b_)
225 if (t == "stop" || t == ":|")
227 end_volta_span_p_ = volta_span_p_;
232 bar_engraver_l->request_bar (t);
234 bar_engraver_l->request_bar ("");
238 assert (!volta_span_p_);
239 volta_span_p_ = new Spanner (get_property ("basicVoltaSpannerProperties"));
240 Volta_spanner::set_interface (volta_span_p_);
241 announce_element (volta_span_p_,0);
242 volta_span_p_->set_elt_property ("text",
243 ly_str02scm (t.ch_C()));
244 volta_span_p_->set_elt_property ("last-volta",
245 gh_bool2scm (head->car_->last_b_));
246 // voltaSpannerDuration stuff here.
247 // other property stuff here.
253 warning (_ ("No bar engraver found. Ignoring repeats."));
259 head = create_barmoments_queue_;
262 assert (!head || head->car_->when_ > now_mom ());
267 Repeat_engraver::acknowledge_element (Score_element_info i)
269 if (Item* item = dynamic_cast<Item*> (i.elem_l_))
271 if (Note_column::has_interface (item))
274 Volta_spanner::add_column (volta_span_p_,item);
275 if (end_volta_span_p_)
276 Volta_spanner::add_column (end_volta_span_p_,item);
278 if (Bar::has_interface (item))
281 Volta_spanner::add_bar (volta_span_p_, item);
282 if (end_volta_span_p_)
283 Volta_spanner::add_bar(end_volta_span_p_ , item);
289 Repeat_engraver::do_removal_processing ()
293 typeset_element(volta_span_p_);
295 if (end_volta_span_p_)
297 typeset_element (end_volta_span_p_);
299 // todo: the paranoid may also delete create_barmoments_queue_
303 Repeat_engraver::do_post_move_processing ()
305 for (Cons<Bar_create_event> *p = create_barmoments_queue_;
306 p && p->car_->when_ == now_mom (); p = p->next_)
307 if (p->car_->type_ == "stop")
309 repeated_music_l_ = 0;
310 done_this_one_b_ = false;
315 Repeat_engraver::do_pre_move_processing ()
317 if (end_volta_span_p_)
319 Side_position::add_staff_support (end_volta_span_p_);
321 typeset_element (end_volta_span_p_ );
322 end_volta_span_p_ =0;
328 Repeat_engraver::Repeat_engraver()
330 repeated_music_l_ =0;
331 end_volta_span_p_ =0;
333 done_this_one_b_ = false;
334 create_barmoments_queue_ =0;
338 Bar_create_event::Bar_create_event()
344 Bar_create_event::Bar_create_event (Moment w, String s)
352 Bar_create_event::Bar_create_event (Moment w, int i, int j)
359 type_ = to_str (i) + ".-" ;
361 type_ += to_str(j) + ".";