test808   scheme


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

Implementation

(define test808
  (lambda (beat dur)
    (play sampler
          (case (modulo beat 4)
            ((0 1 2 3) 59)
            ((1/2 3/2 5/2 7/2) 51)
            (else -1))
          160 .1)
    (play sampler (random '(60 58 55 64)) (cosr 120 40 7/3) .01)
    (callback (*metro* (+ beat (* .5 dur))) 'test808 (+ beat dur) dur)))


Back to Index