import Sound.SC3 {- hsc3 -}
import qualified Sound.SC3.UGen.Record as R {- hsc3-rec -}
import qualified Sound.SC3.UGen.Record.Pitch as P

main :: IO ()
main =
    let x = mouseX KR 220 660 Linear 0.1
        y = mouseY KR 0.05 0.25 Linear 0.1
        s = saw AR x * y
        a = amplitude KR s 0.05 0.05
        MCE [f,_] = R.ugen P.pitch {P.input = s}
    in audition (out 0 (mce [s * 0.25,sinOsc AR (f / 2) 0 * a]))