2 repeat-engraver.cc -- implement Repeat_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1998--1999 Jan Nieuwenhuizen <janneke@gnu.org>
9 #include "repeat-engraver.hh"
11 #include "bar-engraver.hh"
12 #include "musical-request.hh"
13 #include "multi-measure-rest.hh"
14 #include "command-request.hh"
15 #include "timing-translator.hh"
16 #include "engraver-group-engraver.hh"
17 #include "repeated-music.hh"
18 #include "timing-translator.hh"
19 #include "volta-spanner.hh"
20 #include "note-column.hh"
21 #include "paper-def.hh"
22 #include "music-list.hh"
24 ADD_THIS_TRANSLATOR (Repeat_engraver);
27 Repeat_engraver::do_try_music (Music* m)
29 if (Repeated_music* r = dynamic_cast<Repeated_music *> (m))
31 if (repeated_music_l_)
36 repeated_music_l_ = r;
40 We acknowledge other types of unfolded music as well, to
41 get auto context selection right.
50 Walk through repeat music, and generate events for appropriate times.
53 Repeat_engraver::queue_events ()
55 Music_sequence* alt = repeated_music_l_->alternatives_p_;
56 Moment walk_mom = now_mom () + repeated_music_l_->repeat_body_p_->length_mom ();
58 SCM novolta = get_property ("noVoltaBraces",0);
59 bool create_volta = !to_boolean (novolta);
61 Cons_list<Bar_create_event> becel;
62 becel.append (new Bar_create_event (now_mom (), "|:"));
66 becel.append (new Bar_create_event (walk_mom, ":|"));
67 becel.append (new Bar_create_event (walk_mom, "stop"));
72 int volta_number = repeated_music_l_->repeats_i_ - alt->length_i () + 1;
75 all repeat alternatives, and generate events with
76 appropriate timestamps. The volta spanner event (a number string)
77 happens at the begin of the alt. The :| bar event at the ending.
79 for (Cons<Music> *i = alt->music_p_list_p_->head_; i; i = i->next_)
83 some idiot might typeset a repeat not starting on a
84 barline. Make sure there is one.
86 (todo: should try to avoid line breaks?)
90 becel.append (new Bar_create_event (walk_mom, ""));
96 Bar_create_event * c = new Bar_create_event (walk_mom, last_number+ 1,
103 last_number = volta_number;
105 SCM l (get_property ("voltaSpannerDuration", 0));
106 if (SMOB_IS_TYPE_B (Moment, l))
108 Moment vSD_mom = *SMOB_TO_TYPE (Moment,l);
109 if ( vSD_mom < i->car_->length_mom() ) // terminate volta early ?
113 becel.append (new Bar_create_event (vSD_mom, "stop"));
117 walk_mom += i->car_->length_mom();
120 becel.append (new Bar_create_event (walk_mom, ":|"));
122 becel.append (new Bar_create_event (walk_mom, "stop"));
126 Cons<Bar_create_event> *&tail = create_barmoments_queue_
127 ? last_cons (create_barmoments_queue_)->next_
128 : create_barmoments_queue_;
135 Repeat_engraver::do_process_requests ()
137 if (repeated_music_l_ && !done_this_one_b_)
140 done_this_one_b_ = true;
144 Cons<Bar_create_event> * head = create_barmoments_queue_;
148 Bar_engraver* bar_engraver_l = dynamic_cast <Bar_engraver*>
149 (daddy_grav_l ()->get_simple_translator ("Bar_engraver"));
152 Do all the events that need to be done now.
154 while (head && now_mom () == head->car_->when_)
156 create_barmoments_queue_ = create_barmoments_queue_->next_;
160 String t = head->car_->type_;
161 if (head->car_->bar_b_)
163 if (t == "stop" || t == ":|")
165 end_volta_span_p_ = volta_span_p_;
170 bar_engraver_l->request_bar (t);
172 bar_engraver_l->request_bar ("");
176 assert (!volta_span_p_);
177 volta_span_p_ = new Volta_spanner;
178 announce_element (Score_element_info (volta_span_p_,0));
179 volta_span_p_->number_str_ = t;
180 volta_span_p_->last_b_ = head->car_->last_b_;
181 // voltaSpannerDuration stuff here.
182 // other property stuff here.
188 warning (_ ("No bar engraver found. Ignoring repeats."));
194 head = create_barmoments_queue_;
197 assert (!head || head->car_->when_ > now_mom ());
202 Repeat_engraver::acknowledge_element (Score_element_info i)
204 if (Note_column *c = dynamic_cast<Note_column *> (i.elem_l_))
207 volta_span_p_->add_column (c);
208 if (end_volta_span_p_)
209 end_volta_span_p_->add_column (c);
211 if (Bar *c = dynamic_cast<Bar*> (i.elem_l_))
214 volta_span_p_->add_bar (c);
215 if (end_volta_span_p_)
216 end_volta_span_p_ ->add_bar(c);
222 Repeat_engraver::do_removal_processing ()
226 typeset_element(volta_span_p_);
228 if (end_volta_span_p_)
230 typeset_element (end_volta_span_p_);
232 // todo: the paranoid may also delete create_barmoments_queue_
236 Repeat_engraver::do_post_move_processing ()
238 for (Cons<Bar_create_event> *p = create_barmoments_queue_;
239 p && p->car_->when_ == now_mom (); p = p->next_)
240 if (p->car_->type_ == "stop")
242 repeated_music_l_ = 0;
243 done_this_one_b_ = false;
248 Repeat_engraver::do_pre_move_processing ()
250 if (end_volta_span_p_)
252 typeset_element (end_volta_span_p_ );
253 end_volta_span_p_ =0;
259 Repeat_engraver::Repeat_engraver()
261 repeated_music_l_ =0;
262 end_volta_span_p_ =0;
264 done_this_one_b_ = false;
265 create_barmoments_queue_ =0;
269 Bar_create_event::Bar_create_event()
275 Bar_create_event::Bar_create_event (Moment w, String s)
283 Bar_create_event::Bar_create_event (Moment w, int i, int j)
290 type_ = to_str (i) + ".-" ;
292 type_ += to_str(j) + ".";