c \partcombineUnisonoOnce c c c |
\partcombineAutomatic \partcombineSoloIOnce r2 c4 c |
\partcombineSoloIIOnce R1 |
+ d'2 \partcombineChordsOnce d4^"1 chord" d|
}
mII = \relative c' {
c4 \partcombineApartOnce c c c |
c c c c |
R1 |
r2 c4 c |
+ b4 b b b |
}
\score {
(if (< result-idx (vector-length result))
(let* ((now-state (vector-ref result result-idx)) ; current result
;; Extract all part-combine force events
- (ev1 (part-combine-events (car (voice-states now-state))))
- (ev2 (part-combine-events (cdr (voice-states now-state))))
- (evts (append ev1 ev2))
+ (evts (if (synced? now-state)
+ (append
+ (part-combine-events (car (voice-states now-state)))
+ (part-combine-events (cdr (voice-states now-state))))
+ '()))
;; result is (once-state permament-state):
(state (fold forced-result (cons 'automatic prev-res) evts))
;; Now let once override permanent changes: