hsc3-rec-0.8: Help/pitch.hs

import Sound.SC3
import qualified Sound.SC3.UGen.Record as R
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]))