fm-iter.lhs

fm-iter (rd)

> let { t0 = impulse ar (recip 0.30) 0
>     ; t1 = tDelay t0 0.15
>     ; t = mce2 t0 t1 }
> in do { k <- M.tRand 56 57 t
>       ; i <- M.tRand 40 480 t
>       ; j <- M.tRand (-1) 1 t
>       ; let { c = midiCPS k
>             ; m = midiCPS (k + 1 + j)
>             ; s = envPerc 0.01 0.9
>             ; e = envGen ar t 0.1 0 1 RemoveSynth s
>             ; f = sinOsc ar c 0 * i + m }
>         in audition (out 0 (sinOsc ar f 0 * e)) }