nharm (rd)
> import Control.Concurrent
> import Control.Monad
> import Sound.SC3.Monadic
> import System.Random
> main =
> let { nharm n f = map ((* f) . fromIntegral) [1..n]
> ; rrand l r = getStdRandom (randomR (l, r))
> ; threadPause n = when (n>0) (threadDelay (floor (n * 1e6)))
> ; klg m u = do { n <- rrand 4 u
> ; d <- rrand 9 12
> ; f <- rrand m (m + 2)
> ; l <- sequence (replicate n (rrand 0.01 0.02))
> ; p <- rrand (-1.0) 1.0
> ; let { a = 0.5
> ; e = envGen kr 1 0.9 0 1 RemoveSynth (envSine d a)
> ; nh = nharm n (midiCPS f)
> ; s = klangSpec nh l (replicate n 0.0) }
> in return (pan2 (klang ar 1 0 s) p e) }
> ; ply :: Int -> (Double, Double) -> UGen -> Int -> IO ()
> ; ply n (l,r) m u = replicateM_ n (do { threadPause =<< rrand l r
> ; audition . out 0 =<< klg m u }) }
> in do { forkIO (ply 32 (0.25, 0.75) 92 24)
> ; forkIO (ply 8 (1.25, 1.75) 12 54) }