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

-- red_frik (f0)
module Sound.SC3.Graph.F0_red_frik_m where

import Sound.SC3 {- hsc3 -}

red :: UId m => UGen -> UGen -> m UGen
red tr n = do
  r1 <- tRandM 0.3 3 tr
  r2 <- tRandM 0.3 5 tr
  r3 <- tRandM 0 0.5 tr
  r4 <- tRandM 0.49 0.56 tr
  r5 <- tRandM 0.3 0.6 tr
  r6 <- tRandM 0.3 0.5 tr
  let o1 = fSinOsc KR r2 0 * r3 + r4
      o2 = fSinOsc KR o1 0 * r5 + r6
  return (rhpf n r1 o2)

red_frik :: UId m => m UGen
red_frik = do
  n <- clone 2 (brownNoiseM AR)
  let tr = impulse KR 0.1 0
  red tr n

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