fm-kltr (rd)
> import Sound.OpenSoundControl
> import Sound.SC3.Monadic
> import System.Random
> main =
> let { rrand l r = getStdRandom (randomR (l, r))
> ; gr =
> do { r1 <- rand 0.975 1.025
> ; r2 <- rand 0.5 1.5
> ; r3 <- rand 0.975 1.025
> ; r4 <- rand 0.75 1.25
> ; let { o = control ir "out" 0
> {- ; t = control kr "trig" 0 {- unused -} -}
> ; a = control kr "amp" 0.1
> ; d = control kr "dur" 0.1
> ; f = control kr "freq" 400.0
> ; i = control kr "index" 40.0
> ; p = control kr "pan" 0.0
> ; f2 = control kr "freq2" 600
> ; ep = envPerc 0.01 d
> ; e = envGen ar 1 a 0 1 RemoveSynth ep
> ; so = sinOsc ar (xLine kr f (f * r1) d DoNothing) 0
> ; xl = xLine kr f2 (f2 * r3) d DoNothing
> ; m = so * line kr i (f * r2) d DoNothing + xl
> ; l = line kr p (p * r4) d DoNothing }
> in return (out o (pan2 (sinOsc ar m 0) l e)) }
> ; fm fd f ff a d i =
> do { r1 <- rrand (-1) 1
> ; r2 <- rrand (-1) 1
> ; send fd (s_new "fm" (-1) AddToTail 1
> [("freq", midiCPS f)
> ,("freq2", midiCPS ff + r1)
> ,("amp", a)
> ,("dur", d)
> ,("index", i)
> ,("pan", r2)]) }
> ; nd fd =
> do { ff <- rrand 48 96
> ; a <- rrand 0.1 0.4
> ; d <- rrand 1.2 7.2
> ; i <- rrand 240 1480
> ; t <- rrand 0.15 1.25
> ; fm fd 53 ff a d i
> ; pauseThread t } }
> in withSC3 (\fd -> do { u <- gr
> ; _ <- async fd (d_recv (synthdef "fm" u))
> ; sequence (replicate 32 (nd fd)) })