s-chirp (rd)

> import Sound.SC3.Monadic

> main =
>   let { x = mouseX kr 15 0 Linear 0.1
>       ; y = mouseY kr 15 27 Linear 0.1
>       ; scl = [0, 2, 3.2, 5, 7, 9, 10] }
>   in do { t <- dust kr 9
>         ; b <- tChoose t (mce [36, 48, 60, 72])
>         ; n <- fmap (* 0.04) (lfNoise1 kr (mce2 3 3.05))
>         ; d <- tiRand x y t
>         ; e <- fmap (decay2 t 0.005) (tRand 0.02 0.15 t)
>         ; o <- let { k = degreeToKey 0 d 12
>                    ; f = midiCPS (b + k + n)
>                    ; m = e * sinOsc ar f 0 * 0.2
>                    ; u = pulseDivider t 9 0 }
>                in do { r0 <- tRand 0.0075 0.125 u
>                      ; r1 <- tRand 0.05 0.15 u
>                      ; return (m * 0.5 + allpassC m 0.15 r0 r1) }
>         ; withSC3 (\fd -> do { async fd (b_alloc 0 7 1)
>                              ; send fd (b_setn1 0 0 scl)
>                              ; play fd (out 0 o) }) }