hsc3-graphs-0.12: gr/theremin.hs

-- theremin (jmcc)

import Sound.SC3 {- hsc3 -}

theremin :: UGen
theremin =
  let m = 7
      detune = 0
      x = mouseX KR 0 0.6 Linear 0.2
      y = mouseY KR 4000 200 Exponential 0.8
      f = y + detune
      f' = f + f * sinOsc AR m 0 * 0.02
      a = sinOsc AR f' 0 * x
  in pan2 a 0 1

main :: IO ()
main = audition (out 0 theremin)