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

-- three-cpsw (rd)
module Sound.SC3.Graph.RD_three_cpsw_m where

import Sound.SC3 {- hsc3 -}

three_cpsw :: UId m => m UGen
three_cpsw = do
  t <- dustM KR (mce2 12 18)
  f0 <- tRandM 1 64 t
  f1 <- lfNoise0M KR f0
  a <- tRandM 0.0 0.5 t
  dt <- tRandM 0.975 1.025 t
  dh <- tRandM 0.750 0.7505 t
  let f = f1 * mce2 9000 12000 + 9500
      o = saw AR f + saw AR (f * dh) + saw AR (f * dt)
  return (clip2 (o * a) 0.75)

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