loop2   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/polysynth.xtm

Implementation

;; now start another temporal recursion which plays our new saw_synth
;; instrument
(define loop2
  (lambda (beat dur)
    (let ((pitch (random '(55 36 63 70 72 72 75))))
      (play-note (*metro* beat) saw_synth pitch
                 (if (= pitch 36) 105 95) 600)
      (callback (*metro* (+ beat (* dur .5))) 'loop2
                (+ beat dur)
                dur))))


Back to Index

Similar Entries

  • loop2    scheme