hsc3-graphs-0.11: src/random-sine-waves.hs

-- random sine waves (jmcc)

import Sound.SC3.ID
import Sound.SC3.Lang.Control.OverlapTexture

rsw :: UGen
rsw =
    let f = rand 'a' 0 2000
        o = fSinOsc AR f 0 * 0.02
    in pan2 o (rand 'b' (-1) 1) 1

main :: IO ()
main = overlapTextureU (2,5,12,maxBound) rsw