;; 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))))