xy-interference.lhs

xy-interference (rd)

> import Sound.SC3

> let { x = mouseX kr 20 22000 Linear (mce2 0.005 0.025)
>     ; y = mouseY kr 20 22000 Linear (mce2 0.005 0.075)
>     ; nd = do { n <- lfNoise0 kr (mce2 5 9)
>               ; let { a = sinOsc ar (x + n) 0
>                     ; b = sinOsc ar y 0 }
>                 in return (a * b) } }
> in audition . (out 0) . sum =<< sequence (replicate 3 nd)

the same graph, written using a non-monadic noise constructor

> import qualified Sound.SC3.UGen.Base as B

> 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 = B.lfNoise0 (uid 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 [1..3])))

{ 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