l2   scheme


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

Implementation

(define l2
  (lambda (beat pitch dur)
    (if (> pitch 100) (set! dur 4.))
    (play fmsynth pitch 100 .2 .5 10.)
    (callback (*metro* (+ beat (* .5 dur))) 'l2 (+ beat dur)
              (if (> pitch 100) 60 (pc:relative pitch 1 (pc:scale root 'aeolian)))
              1/6)))


Back to Index

Similar Entries