rd-20061028.hs

-- xy-interference (rd, 2006-10-28)
let x = mouseX kr 20 22000 Linear (mce2 0.005 0.025)
    y = mouseY kr 20 22000 Linear (mce2 0.005 0.075)
    nd _ = sinOsc ar (x + lfNoise0 kr (mce2 5 9)) 0 * sinOsc ar y 0
in mixFill 3 nd * 0.5

-- xy-interference (rd, 2006-10-28) ; monad
let xy_interference_m = 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_opt (sequence (replicate 3 nd))
in uid_st_eval xy_interference_m * 0.5

-- xy-interference (rd, 2006-10-28) ; id
let x = mouseX kr 20 22000 Linear (mce2 0.005 0.025)
    y = mouseY kr 20 22000 Linear (mce2 0.005 0.075)
    nd z _ = let n = lfNoise0Id (z,'α') kr (mce2 5 9)
                 a = sinOsc ar (x + n) 0
                 b = sinOsc ar y 0
             in a * b
in mixFillId 'β' 3 nd