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)) }