implosion.lhs

implosion (rd)

> let { mkls bp t = let e = envCoord bp t 1 EnvLin
>                   in envGen kr 1 1 0 1 RemoveSynth e
>     ; mkrmp l r t = mkls [(0, l), (1, r)] t
>     ; wrp i l r = linLin i (-1) 1 l r
>     ; pmr_n rt l0 l1 r0 r1 d = let { le = mkrmp l0 r0 d
>                                    ; re = mkrmp l1 r1 d }
>                                in do { n <- M.whiteNoise rt
>                                      ; return (wrp n le re) } }
> in do { n0 <- M.rand (-1) 0
>       ; n1 <- M.rand 0 1
>       ; d  <- M.rand 7.5 13.5
>       ; f0 <- M.rand 10990 16220
>       ; f1 <- M.rand  9440 19550
>       ; f <- pmr_n ar 440 f0 f1 f1 d
>       ; l <- pmr_n kr n0 n1 0 0 d
>       ; a <- pmr_n kr 0.1 0.6 0 0 d
>       ; audition (out 0 (pan2 (saw ar f) l a)) }