midi-loop   scheme


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

Implementation

(define midi-loop
  (lambda (beat dur)
    (mplay *mout* (random (list 60 60 60 67 70 74 75)) (random 60 80) dur 0)
    (callback (*metro* (+ beat (* .5 dur))) 'midi-loop (+ beat dur) dur)))


Back to Index

Similar Entries