wial (rd)

> import Sound.SC3.Monadic

> main =
>   let { pls c d f = let { t = pulseDivider c d 0
>                         ; e = decay2 t 0.05 0.75
>                         ; o = sinOsc ar (toggleFF t * f + f * 2) 0 }
>                      in do { 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 }
>   in do { n0 <- dust kr 2
>         ; f <- twChoose n0 (mce2 (20 * 0.66) 20) (mce2 0.25 0.75) 0
>         ; audition . out 0 . sum =<< mapM (plss clk) (smpl f) }