hsc3-graphs-0.8: src/implosion.lhs

implosion (rd)

> import Sound.SC3.Monadic

> main =
>   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 <- whiteNoise rt
>                                        ; return (wrp n le re) } }
>   in do { n0 <- rand (-1) 0
>         ; n1 <- rand 0 1
>         ; d  <- rand 7.5 13.5
>         ; f0 <- rand 10990 16220
>         ; f1 <- 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)) }