hsc3-graphs-0.15: Sound/SC3/Graph/SP_insects_m.hs

-- insects (sp)
module Sound.SC3.Graph.SP_insects_m where

import Sound.SC3 {- hsc3 -}

insect :: UId m => m UGen
insect = do
  r1 <- randM 2000 3000
  r2 <- randM 0.05 0.1
  n1 <- lfNoise2M KR (r2 * 50 + 50)
  r4 <- randM 1 10
  r5 <- randM 0.05 0.1
  n2 <- lfNoise2M KR r5
  let a = sinOsc KR r4 0 * 0.5 + 0.5
      o = sinOsc AR (r1 + n1) r2 * 0.005 * a
  return (pan2 o n2 1)

insects :: UId m => m UGen
insects = fmap sum (sequence (replicate 60 insect))

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