hsc3-graphs-0.9: src/tipnso.lhs

tipnso (rd)

> import Sound.SC3.Monadic
> import qualified Sound.SC3.ID as I

> main =
>   let { x = linLin (I.lfNoise0 'a' KR 3) (-1) 1 1 32
>    {- ; x = mouseX kr 1 32 Linear 0.1 -}
>       ; t = impulse ar x 0 }
>   in do { n1 <- tiRand 16 72 t
>         ; n2 <- tiRand 0 1 t
>         ; n3 <- pinkNoise ar
>         ; let { e = decay2 t 0.01 (mce2 0.1 0.15)
>               ; f = midiCPS (n1 + 36 + (12 * n2))
>               ; s = sinOsc ar f 0 * e
>               ; b = bpf (n3 * e) (36 + midiCPS n1) (175 / (midiCPS n1)) }
>           in audition (out 0 ((s + b) * mce2 0.15 0.1)) }