default (jmcc)

> import Sound.SC3.Monadic
> import Sound.OpenSoundControl
> import System.Random

> main =
>   let { def = do { r0 <- rand (-0.4) 0.0
>                  ; r1 <- rand 0.0 0.4
>                  ; r2 <- rand 4000 5000
>                  ; r3 <- rand 2500 3200
>                  ; let { f = control KR "freq" 440
>                        ; a = control KR "amp" 0.1
>                        ; p = control KR "pan" 0
>                        ; g = control KR "gate" 1
>                        ; e = linen g 0.01 (a * 0.7) 0.3 RemoveSynth
>                        ; f3 = mce [f, f + r0, f + r1]
>                        ; l = xLine KR r2 r3 1 DoNothing
>                        ; z = lpf (mix (varSaw AR f3 0 0.3)) l * e }
>                    in return (pan2 z p 1) }
>       ; rrand lr = getStdRandom (randomR lr)
>       ; tone fd nid = do { pan <- rrand (-1, 1)
>                          ; amp <- rrand (0.1, 0.3)
>                          ; indx <- rrand (0, 7)
>                          ; let note = [60, 62, 64, 65, 67, 69, 71, 72] !! indx
>                            in send fd (s_new "default" nid AddToTail 1
>                                        [("freq", midiCPS note)
>                                        ,("pan", pan)
>                                        ,("amp", amp)])
>                          ; pauseThread 0.075
>                          ; send fd (n_set nid [("gate", 0)])
>                          ; pauseThread 0.075 } }
>   in withSC3 (\fd -> do { u <- def
>                         ; async fd (d_recv (synthdef "default" (out 0 u)))
>                         ; reset fd
>                         ; mapM_ (tone fd) [1024..1036] })