decay.help.lhs

> import Sound.DF

> do { n <- brown_noise_m
>    ; f <- lf_saw 0.1 0.0
>    ; i <- impulse (lin_lin f (-1.0) 1.0 2.0 5.0) 0.25
>    ; e <- decay i 0.2
>    ; audition [] (out1 (e * n)) }