hsc3-graphs-0.8: src/babbling-brook.lhs

babbling brook (jmcc)

> import Sound.SC3.Monadic

> main = 
>   let b f m a g = do { n1 <- brownNoise ar
>                      ; n2 <- brownNoise ar
>                      ; let { n3 = lpf n2 f * m + a
>                            ; n4 = onePole n1 0.99 }
>                        in return (rhpf n4 n3 0.03 * g) }
>   in do { x <- clone 2 (b 14 400 500 0.006)
>         ; y <- clone 2 (b 20 800 1000 0.010)
>         ; audition (out 0 (x + y)) }

{ var b = { arg f, m, a, g 
          ; { var n1 = OnePole.ar(BrownNoise.ar, 0.99)
            ; var n2 = LPF.ar(BrownNoise.ar, f) 
            ; RHPF.ar(n1, n2 * m + a, 0.03, g) } }
; var x = b.value(14, 400, 500, 0.006) ! 2
; var y = b.value(20, 800, 1000, 0.010) ! 2
; Out.ar(0, x + y) }.play

http://lists.create.ucsb.edu/pipermail/sc-users/2007-April/033239.html