mplay   macro


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/contrib/rtmidi-scm.xtm

Implementation

(define-macro (mplay . args)
  (if (symbol? (car args))
      `(play-midi-note (*metro* beat) ,(car args)
           (real->integer ,(cadr args))
           (real->integer ,(caddr args))
           (*metro* 'dur ,(car (cdddr args))) 0)
      `(play-midi-note (*metro* (+ beat ,(car args))) ,(cadr args)
           (real->integer ,(caddr args))
           (real->integer ,(car (cdddr args)))
           (*metro* 'dur ,(cadr (cdddr args))) 0)))


Back to Index

Similar Entries

  • mplay    macro
  • mplayob    macro
  • mplayob    macro
  • mplayobs    macro