red-frik.lhs

red frik (f0)

> let red tr n = 
>     do { r1 <- tRand 0.3 3 tr
>        ; r2 <- tRand 0.3 5 tr
>        ; r3 <- tRand 0 0.5 tr
>        ; r4 <- tRand 0.49 0.56 tr
>        ; r5 <- tRand 0.3 0.6 tr
>        ; r6 <- tRand 0.3 0.5 tr
>        ; let { o1 = fSinOsc KR r2 0 * r3 + r4
>              ; o2 = fSinOsc KR o1 r5 * r6 }
>          in return (rhpf n r1 o2) }
> in do { n <- clone 2 (brownNoise AR)
>       ; let tr = impulse KR 0.1 0
>         in audition . out 0 =<< red tr n }

{ var red = { arg tr, n
            ; var r1 = TRand.kr(0.3, 3, tr)
            ; var r2 = TRand.kr(0.3, 5, tr)
            ; var r3 = TRand.kr(0, 0.5, tr)
            ; var r4 = TRand.kr(0.49, 0.56, tr)
            ; var r5 = TRand.kr(0.3, 0.6, tr)
            ; var r6 = TRand.kr(0.3, 0.5, tr)
            ; var o1 = FSinOsc.kr(r2, 0, r3, r4)
            ; var o2 = FSinOsc.kr(o1, r5, r6)
            ; RHPF.ar(n, r1, o2) }
; var n = [BrownNoise.ar, BrownNoise.ar]
; var tr = Impulse.kr(0.1, 0)
; Out.ar(0, red.value(tr, n)) }.play