pattern-buffer.lhs

pattern buffer (rd)

> let { nf = 2 * 48000
>     ; c = 24
>     ; tseq l = let n = fromIntegral (length l) / 2.0
>                in select (lfSaw KR 0.5 0 * n + n) (mce l)
>     ; rrand l r = getStdRandom (randomR (l, r))
>     ; p = phasor AR 0 (bufRateScale KR 10) 0 (bufFrames KR 10) 0
>     ; t = bufRdC 1 AR 10 p Loop 
>     ; rs h = do { r0 <- rrand 0 nf
>                 ; r1 <- rrand 0.0 1.0
>                 ; send h (b_set1 10 r0 r1) } }
> in do { r1 <- replicateM c (rrand 36 96)
>       ; r2 <- replicateM c (rrand (-1.0) 1.0)
>       ; r3 <- rrand 0 1
>       ; n1 <- tRand 0.02 0.08 t
>       ; let { e = decay2 t 0.01 n1
>             ; f = midiCPS (tseq r1)
>             ; l = tseq r2
>             ; o = [sinOsc AR f 0, saw AR f] !! r3 }
>         in withSC3 (\fd -> do { async fd (b_alloc 10 (nf * 2) 1)
>                               ; replicateM_ c (rs fd)
>                               ; play fd (out 0 (pan2 o l e)) }) }