shifting-pulses.lhs

shifting pulses (rd)

> do { [n0, n1, n2] <- replicateM 3 (clone 2 (brownNoise KR))
>    ; t <- dust KR 0.75
>    ; let { warp i = linLin i (-1) 1
>          ; l = latch t t
>          ; p = pulse AR (warp n0 2 (mce2 11 15)) 0.01 * 0.1 
>          ; f = warp n1 300 1800 
>          ; rq = warp n2 0.01 2 }
>      in audition (out 0 (l * rlpf p f rq)) }

{ var n0 = BrownNoise.kr.dup
; var n1 = BrownNoise.kr.dup
; var n2 = BrownNoise.kr.dup
; var t = Dust.kr(0.75)
; var l = Latch.kr(t, t)
; var p = Pulse.ar(n0.range(2, [11, 15]), 0.01) * 0.1 
; var f = n1.range(300, 1800)
; var rq = n2.range(0.01, 2)
; Out.ar(0, l * RLPF.ar(p, f, rq)) }.play

(let* ((wrp (lambda (i l r) (LinLin i -1 1 l r)))
       (n1 (clone 2 (BrownNoise kr)))
       (n2 (clone 2 (BrownNoise kr)))
       (n3 (clone 2 (BrownNoise kr)))
       (t (Dust kr 0.75))
       (l (Latch t t))
       (p (Mul (Pulse ar (wrp n1 2 (Mce 11 15)) 0.01) 0.1))
       (f (wrp n2 300 1800))
       (rq (wrp n3 0.01 2)))
  (audition (Out 0 (Mul l (RLPF p f rq)))))