adso (rd)
> import Sound.OpenSoundControl
> import Sound.SC3
> import System.Random
> main =
> let { rrand l r = getStdRandom (randomR (l, r))
> ; rrand_l j l r = sequence (replicate j (rrand l r))
> ; n = 24
> ; adso = let { get b j = let k = mce [0 .. constant j - 1]
> in bufRdN 1 kr b k NoLoop
> ; m = sinOsc kr (get 3 n) 0
> ; f = midiCPS (get 0 n) * (m * get 4 n + 1)
> ; l = get 2 n
> ; g = get 1 n }
> in out 0 (mix (pan2 (sinOsc ar f 0) l g))
> ; pattern fd t = do { z <- do { l <- rrand 22 48
> ; r <- rrand 54 122
> ; sequence (replicate n (rrand l r)) }
> ; send fd (b_setn1 0 0 z)
> ; let rn i l r = do { d <- rrand_l n l r
> ; send fd (b_setn1 i 0 d) }
> in do { rn 1 0 0.1
> ; rn 2 (-1) 1
> ; rn 3 2 12
> ; rn 4 0.001 0.0075
> ; rn 5 1 24
> ; rn 6 0.05 2.4 }
> ; pauseThread t } }
> in withSC3 (\fd -> do { mapM_ (\i -> async fd (b_alloc i n 1)) [0..6]
> ; play fd adso
> ; mapM_ (pattern fd) =<< rrand_l 32 0.025 0.75
> ; reset fd })