xy-interference.lhs

xy-interference (rd)

> 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 =<< replicateM 3 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

(let* ((x (MouseX kr 20 22000 1 (Mce 0.005 0.025)))
       (y (MouseY kr 20 22000 1 (Mce 0.005 0.075)))
       (nd (lambda (_)
	     (let* ((n (LFNoise0 kr (Mce 5 9)))
		    (a (SinOsc ar (Add x n) 0))
		    (b (SinOsc ar y 0)))
	       (Mul a b)))))
  (audition (Out 0 (mix/fill 3 nd))))