-- wial (rd)
import Sound.SC3.Monadic
wial :: (Functor m,UId m) => m UGen
wial = do
let pls c d f = do let t = pulseDivider c d 0
e = decay2 t 0.05 0.75
o = sinOsc AR (toggleFF t * f + f * 2) 0
n0 <- tIRand 0 1 t
return (o * e * n0 * 0.5)
smpl f = [(4,6,f,0.75)
,(2,6,f * 2,0.75)
,(1,2,f * 16,0.025)
,(1,5,f * 64,0.005)
,(1,4,f * 128,0.035)
,(1,3,f * 256,0.15)
,(2,3,f * 512,0.35)]
plss c (d0,d1,f,a) = fmap (* a) (pls c (mce2 d0 d1) f)
clk = impulse AR 16 0
n0 <- dust KR 2
f <- tWChoose n0 (mce2 (20 * 0.66) 20) (mce2 0.25 0.75) 0
return.sum =<< mapM (plss clk) (smpl f)
main :: IO ()
main = audition . out 0 =<< wial