3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 ;; autochange.scm - fairly related to part combining.
6 (define-public (make-autochange-music music)
7 (define (generate-split-list change-moment prev-dir event-list acc)
10 (let* ((now-tun (caar event-list))
11 (evs (map car (cdar event-list)))
13 (notes (filter (lambda (x)
14 (ly:in-event-class? x 'note-event))
16 (pitch (if (pair? notes)
17 (ly:event-property (car notes) 'pitch)
19 (dir (if pitch (sign (ly:pitch-steps pitch)) 0)))
21 (if (and (not (= dir 0))
22 (not (= dir prev-dir)))
23 (generate-split-list #f
31 (if (< dir 0) "down" "up")) acc))
33 (if pitch #f (if change-moment change-moment now))
35 (cdr event-list) acc)))))
37 (let* ((m (make-music 'AutoChangeMusic))
38 (m1 (make-non-relative-music (context-spec-music music 'Voice "one")))
39 (context-list (recording-group-emulate music
40 (ly:parser-lookup 'partCombineListener)))
41 (evs (car context-list))
42 (rev (reverse! (cdar context-list)))
43 (split (reverse! (generate-split-list
49 (set! (ly:music-property m 'element) music)
50 (set! (ly:music-property m 'split-list) split)