hsc3-graphs-0.8: src/xy-interference.lhs

xy-interference (rd)

> import Sound.SC3.ID

> main =
>   let { x = mouseX KR 20 22000 Linear (mce2 0.005 0.025)
>       ; y = mouseY KR 20 22000 Linear (mce2 0.005 0.075)
>       ; nd k = let { n = lfNoise0 k KR (mce2 5 9)
>                    ; a = sinOsc AR (x + n) 0
>                    ; b = sinOsc AR y 0 }
>                in a * b }
>   in audition (out 0 (sum (map nd ['α'..'γ'])))

{ var x = MouseX.kr(20, 22000, 'linear', [0.005, 0.025])
; var y = MouseY.kr(20, 22000, 'linear', [0.005, 0.075])
; var nd = { var n = LFNoise0.kr([5, 9])
           ; var a = SinOsc.ar(x + n, 0)
           ; var b = SinOsc.ar(y, 0)
           ; a * b }
; Out.ar(0, Mix.fill(3, nd)) }.play