hsc3-graphs-0.12: gr/overlap-add.hs

-- overlap-add (jmcc, rd)

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

sine :: UGen
sine =
    let r0 = expRand 'α' 500 1400
        r1 = rand 'α' (-1) 1
    in pan2 (sinOsc AR r0 0) r1 0.01

noise :: UGen
noise =
    let n0 = whiteNoise 'α' AR
        r0 = expRand 'α' 800 8400
        r1 = rand 'α' (-1) 1
    in pan2 (resonz (n0 * 0.1) r0 0.05) r1 0.25

main :: IO ()
main = audition (ppar [overlapTextureP (4,4,6,maxBound) sine
                      ,overlapTextureP (4,4,6,maxBound) noise])