JMCC_scratchy_m.hs

-- scratchy-m (jmcc) #1
module Sound.SC3.Graph.JMCC_scratchy_m where

import Sound.SC3 {- hsc3 -}

scratchy :: UId m => m UGen
scratchy = do
  n <- clone 2 (brownNoiseM AR)
  let f = max (n * 0.5 - 0.49) 0 * 20
  return (rhpf f 5000 1)

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