mu:testseq   macro

;; MU:TESTSEQ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; util to play a sequence of midi pitches
;; arg1: channel (default:9)
;; 
(impc:aot:do-or-emit
   (define-macro (mu:testseq . args)
      (cond ((length-equal? args 0) ;; default ch:1 / major chord
            `(helper:play-plist (*metro* 'get-beat) (mkscale c3 'M 9) 1)) 
            ((length-equal? args 1) ; pitch list
            `(helper:play-plist (*metro* 'get-beat) ,(car args) 1)) 
            (#t (print 'Error: '0 'or '1 'args' 'max))))
)