JMCC_random_sine_waves.hs

-- random sine waves (jmcc) #1
module Sound.SC3.Graph.JMCC_random_sine_waves where

import Sound.SC3 {- hsc3 -}
import Sound.SC3.Lang.Control.OverlapTexture {- hsc3-lang -}

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

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