hsc3-graphs-0.8: src/sweepy-noise.lhs

sweepy noise (jmcc)

> import Sound.SC3.Monadic

> main =
>   do { n <- clone 2 (whiteNoise ar)
>      ; let { lfoDepth = mouseY kr 200 8000 Exponential 0.1
>            ; lfoRate = mouseX kr 4 60 Exponential 0.1
>            ; freq = lfSaw kr lfoRate 0 * lfoDepth + (lfoDepth * 1.2)
>            ; filtered = rlpf (n * 0.03) freq 0.1 }
>        in audition (out 0 (combN filtered 0.3 0.3 2 + filtered)) }

{ var lfoDepth = MouseY.kr(200, 8000, 'exponential', 0.1)
; var lfoRate = MouseX.kr(4, 60, 'exponential', 0.1)
; var freq = LFSaw.kr(lfoRate, 0) * lfoDepth + (lfoDepth * 1.2)
; var filtered = RLPF.ar(WhiteNoise.ar([0.03,0.03]), freq, 0.1)
; Out.ar(0, CombN.ar(filtered, 0.3, 0.3, 2) + filtered) }.play