s-chirp.lhs

s-chirp (rd)

> 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 <- M.dust kr 9
>       ; b <- M.tChoose t (mce [36, 48, 60, 72])
>       ; n <- liftM (* 0.04) (M.lfNoise1 kr (mce2 3 3.05))
>       ; d <- M.tiRand x y t
>       ; e <- liftM (decay2 t 0.005) (M.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 <- M.tRand 0.0075 0.125 u
>                    ; r1 <- M.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) }) }