nharm.lhs

nharm (rd)

> import Control.Concurrent
> import Control.Monad
> import Sound.SC3
> import System.Random

> 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) }