mcc   macro


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/portmidi.xtm

Implementation

(impc:aot:do-or-emit
  (define-macro (mcc . args)
    (if (symbol? (car args))
        `(send-midi-cc (+ (*metro* beat) *midioffset*) ,(car args)
                        (real->integer ,(cadr args))
                        (real->integer ,(caddr args))
                        (real->integer ,(car (cdddr args))))
        `(send-midi-cc (+ (*metro* (+ beat ,(car args))) *midioffset*) ,(cadr args)
                        (real->integer ,(caddr args))
                        (real->integer ,(car (cdddr args)))
                        (real->integer ,(car (cddddr args)))))))


Back to Index

Similar Entries

  • MCC    xtlang