PJ_forest_sounds_m.hs

-- sc-users, 2007-04-06 (pj) [paul jones]
module Sound.SC3.Graph.PJ_forest_sounds_m where

import Sound.SC3 {- hsc3 -}

insects :: UId m => m UGen
insects = do
  n1 <- brownNoiseM AR
  n2 <- lfNoise2M 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