hsc3-graphs-0.12: gr/forest-sounds.hs

-- sc-users, 2007-04-06 (paul jones)

import Sound.SC3.Monad {- hsc3 -}

insects :: UId m => m UGen
insects = do
  n1 <- brownNoise AR
  n2 <- lfNoise2 KR 50
  let o = sinOsc KR (n2 * 50 + 50) 0 * 100 + 2000
  return (bpf n1 o 0.001 * 10)

forest_sounds :: UId m => m UGen
forest_sounds = clone 2 insects

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