helper:play-plist   scheme


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_midi.xtm

Implementation

;; helper:play-plist
;;;;
;; play all midi pitches in a list, one per beat
;; used by mu:testkit, only for testing
(define helper:play-plist
  (lambda (beat lst ch)
      (play ch (car lst) 90 1/8)
    (if (not (null? (cdr lst)))  
    (callback (*metro* (+ beat (* 1/2 1))) 
        'helper:play-plist (+ beat 1) (cdr lst) ch))))


Back to Index