X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpart-combine-iterator.cc;h=f742d75a734f8f3bccc061e7482277f4218e9f32;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=9702b8358b6cae573fee16bb02b9ac29bccaa66e;hpb=44f56926a4590e46e64b041ce5ee12de264b8a73;p=lilypond.git diff --git a/lily/part-combine-iterator.cc b/lily/part-combine-iterator.cc index 9702b8358b..f742d75a73 100644 --- a/lily/part-combine-iterator.cc +++ b/lily/part-combine-iterator.cc @@ -24,16 +24,7 @@ #include "music-iterator.hh" #include "music-sequence.hh" #include "warn.hh" - -enum Outlet_type -{ - CONTEXT_ONE, CONTEXT_TWO, - CONTEXT_SHARED, CONTEXT_SOLO, - CONTEXT_NULL, NUM_OUTLETS -}; - -static const char *outlet_names_[NUM_OUTLETS] - = {"one", "two", "shared", "solo", "null"}; +#include "lily-imports.hh" class Part_combine_iterator : public Music_iterator { @@ -55,41 +46,11 @@ protected: private: static const size_t NUM_PARTS = 2; Music_iterator *iterators_[NUM_PARTS]; - Moment start_moment_; - - SCM split_list_; Stream_event *mmrest_event_; - enum Status - { - INITIAL, - APART, - TOGETHER, - SOLO, - UNISONO, - UNISILENCE, - }; - Status state_; - - // For states in which it matters, this is the relevant part, - // e.g. 1 for Solo I, 2 for Solo II. - int chosen_part_; - - /* - TODO: this is getting off hand... - */ - Context_handle handles_[NUM_OUTLETS]; - - void substitute_both (Outlet_type to1, - Outlet_type to2); bool is_active_outlet (const Context *c) const; void kill_mmrest (Context *c); - void chords_together (); - void solo1 (); - void solo2 (); - void apart (); - void unisono (bool silent, int newpart); }; const size_t Part_combine_iterator::NUM_PARTS; @@ -108,9 +69,6 @@ Part_combine_iterator::Part_combine_iterator () for (size_t i = 0; i < NUM_PARTS; i++) iterators_[i] = 0; - split_list_ = SCM_EOL; - state_ = INITIAL; - chosen_part_ = 1; } void @@ -156,20 +114,6 @@ Part_combine_iterator::ok () const return false; } -void -Part_combine_iterator::substitute_both (Outlet_type to1, - Outlet_type to2) -{ - // TODO: There is no good reason to tie the parts together here. - // Factor out per-part stuff into a new class of iterator which - // reads a part-specific list similar to the existing combined - // "split-list". - iterators_[0]->substitute_outlet (iterators_[0]->get_outlet (), - handles_[to1].get_context ()); - iterators_[1]->substitute_outlet (iterators_[1]->get_outlet (), - handles_[to2].get_context ()); -} - bool Part_combine_iterator::is_active_outlet (const Context *c) const { for (size_t i = 0; i < NUM_PARTS; i++) @@ -186,8 +130,7 @@ Part_combine_iterator::kill_mmrest (Context *c) if (!mmrest_event_) { mmrest_event_ = new Stream_event - (scm_call_1 (ly_lily_module_constant ("ly:make-event-class"), - ly_symbol2scm ("multi-measure-rest-event"))); + (Lily::ly_make_event_class (ly_symbol2scm ("multi-measure-rest-event"))); mmrest_event_->set_property ("duration", SCM_EOL); mmrest_event_->unprotect (); } @@ -195,91 +138,9 @@ Part_combine_iterator::kill_mmrest (Context *c) c->event_source ()->broadcast (mmrest_event_); } -void -Part_combine_iterator::unisono (bool silent, int newpart) -{ - Status newstate = (silent) ? UNISILENCE : UNISONO; - - if ((newstate == state_) and (newpart == chosen_part_)) - return; - else - { - Outlet_type c1 = (newpart == 2) ? CONTEXT_NULL : CONTEXT_SHARED; - Outlet_type c2 = (newpart == 2) ? CONTEXT_SHARED : CONTEXT_NULL; - substitute_both (c1, c2); - - state_ = newstate; - chosen_part_ = newpart; - } -} - -void -Part_combine_iterator::solo1 () -{ - if ((state_ == SOLO) && (chosen_part_ == 1)) - return; - else - { - state_ = SOLO; - chosen_part_ = 1; - substitute_both (CONTEXT_SOLO, CONTEXT_NULL); - } -} - -void -Part_combine_iterator::solo2 () -{ - if ((state_ == SOLO) and (chosen_part_ == 2)) - return; - else - { - state_ = SOLO; - chosen_part_ = 2; - substitute_both (CONTEXT_NULL, CONTEXT_SOLO); - } -} - -void -Part_combine_iterator::chords_together () -{ - if (state_ == TOGETHER) - return; - else - { - state_ = TOGETHER; - - substitute_both (CONTEXT_SHARED, CONTEXT_SHARED); - } -} - -void -Part_combine_iterator::apart () -{ - if (state_ == APART) - return; - else - { - state_ = APART; - substitute_both (CONTEXT_ONE, CONTEXT_TWO); - } -} - void Part_combine_iterator::construct_children () { - start_moment_ = get_outlet ()->now_mom (); - split_list_ = get_music ()->get_property ("split-list"); - - Context *c = get_outlet (); - - for (int i = 0; i < NUM_OUTLETS; i++) - { - SCM type = (i == CONTEXT_NULL) ? ly_symbol2scm ("Devnull") : ly_symbol2scm ("Voice"); - /* find context below c: otherwise we may create new staff for each voice */ - c = c->find_create_context (type, outlet_names_[i], SCM_EOL); - handles_[i].set_context (c); - } - SCM lst = get_music ()->get_property ("elements"); iterators_[0] = unsmob (get_iterator (unsmob (scm_car (lst)))); iterators_[1] = unsmob (get_iterator (unsmob (scm_cadr (lst)))); @@ -288,62 +149,12 @@ Part_combine_iterator::construct_children () void Part_combine_iterator::process (Moment m) { - Moment now = get_outlet ()->now_mom (); - Moment *splitm = 0; - - /* This is needed if construct_children was called before iteration - started */ - if (start_moment_.main_part_.is_infinity () && start_moment_ < 0) - start_moment_ = now; - Context *prev_active_outlets[NUM_PARTS]; - for (size_t i = 0; i < NUM_PARTS; i++) - prev_active_outlets[i] = iterators_[i]->get_outlet (); - - for (; scm_is_pair (split_list_); split_list_ = scm_cdr (split_list_)) - { - splitm = unsmob (scm_caar (split_list_)); - if (splitm && *splitm + start_moment_ > now) - break; - - SCM tag = scm_cdar (split_list_); - - if (scm_is_eq (tag, ly_symbol2scm ("chords"))) - chords_together (); - else if (scm_is_eq (tag, ly_symbol2scm ("apart")) - || scm_is_eq (tag, ly_symbol2scm ("apart-silence")) - || scm_is_eq (tag, ly_symbol2scm ("apart-spanner"))) - apart (); - else if (scm_is_eq (tag, ly_symbol2scm ("unisono"))) - { - // Continue to use the most recently used part because we might have - // killed mmrests in the other part. - unisono (false, (chosen_part_ == 2) ? 2 : 1); - } - else if (scm_is_eq (tag, ly_symbol2scm ("unisilence"))) - { - // as for unisono - unisono (true, (chosen_part_ == 2) ? 2 : 1); - } - else if (scm_is_eq (tag, ly_symbol2scm ("silence1"))) - unisono (true, 1); - else if (scm_is_eq (tag, ly_symbol2scm ("silence2"))) - unisono (true, 2); - else if (scm_is_eq (tag, ly_symbol2scm ("solo1"))) - solo1 (); - else if (scm_is_eq (tag, ly_symbol2scm ("solo2"))) - solo2 (); - else if (scm_is_symbol (tag)) - { - string s = "Unknown split directive: " - + (scm_is_symbol (tag) ? ly_symbol2string (tag) : string ("not a symbol")); - programming_error (s); - } - } - bool any_outlet_changed = false; for (size_t i = 0; i < NUM_PARTS; i++) { + prev_active_outlets[i] = iterators_[i]->get_outlet (); + if (iterators_[i]->ok ()) iterators_[i]->process (m);