hsc3-graphs-0.12: gr/random-panning-sines.hs

-- random panning sines (jmcc)

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

-- > Sound.SC3.UGen.Dot.draw rps
rps :: UGen
rps =
    let nd = let o = fSinOsc AR (linRand 'a' 80 2000 0) 0
                 l = lfNoise1 'b' KR (rand 'b' 0.8 1.2)
                 a = lfNoise1 'c' KR (rand 'c' 0.82 0.98)
             in pan2 o l a
    in mix (uclone 'a' 8 nd) * (0.4 / 8)

main :: IO ()
main = overlapTextureU (8,8,2,maxBound) rps