-- xy-interference-m (rd)
module Sound.SC3.Graph.RD_xy_interference_m where

import Sound.SC3 {- hsc3 -}

xy_interference :: UId m => m UGen
xy_interference = do
  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 <- lfNoise0M KR (mce2 5 9)
              let a = sinOsc AR (x + n) 0
                  b = sinOsc AR y 0
              return (a * b)
  fmap sum (sequence (replicate 3 nd))

main :: IO ()
main = audition . out 0 =<< xy_interference