hsc3-graphs-0.11: src/reverberated-sine-percussion.hs

-- reverberated sine percussion (jmcc)

import Sound.SC3.Monadic

reverberated_sine_percussion :: (Functor m,UId m) => m UGen
reverberated_sine_percussion = do
  let d = 6
      c = 5
      a = 4
      s_ = do n <- dust AR (2 / constant d)
              r <- rand 0 3000
              return (resonz (n * 50) (200 + r) 0.003)
      x_ i = do r <- clone 2 (rand 0 0.05)
                return (allpassN i 0.05 r 1)
      (>=>) f g x = f x >>= g
      chain n f = foldl (>=>) return (replicate n f)
  s <- fmap sum (sequence (replicate d s_))
  y <- do let z = delayN s 0.048 0.48
          r <- clone c (rand 0 0.1)
          n <- lfNoise1 KR r
          return (mix (combL z 0.1 (n * 0.04 + 0.05) 15))
  x <- chain a x_ y
  return (s + x * 0.2)

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