JMCC_babbling_brook_m.hs

-- babbling brook (jmcc)
-- http://lists.create.ucsb.edu/pipermail/sc-users/2007-April/033239.html
module Sound.SC3.Graph.JMCC_babbling_brook_m where

import Sound.SC3.Monad {- hsc3 -}

babbling_brook :: UId m => m UGen
babbling_brook = do
  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
                     return (rhpf n4 n3 0.03 * g)
  x <- clone 2 (b 14 400 500 0.006)
  y <- clone 2 (b 20 800 1000 0.010)
  return (x + y)

main :: IO ()
main = audition . out 0 =<< babbling_brook