pitch.help.lhs

> Sound.SC3.UGen.Help.viewSC3Help "Pitch"
> Sound.SC3.UGen.DB.ugenSummary "Pitch"

> import Sound.SC3

> let {x = mouseX KR 220 660 Linear 0.1
>     ;y = mouseY KR 0.05 0.25 Linear 0.1
>     ;s = sinOsc AR x 0 * y
>     ;a = amplitude KR s 0.05 0.05
>     ;f = pitch s 440 60 4000 100 16 7 0.02 0.5 1}
> in audition (out 0 (mce [s, sinOsc AR (mceChannel 0 f / 2) 0 * a]))

> let {s = in' 1 AR numOutputBuses
>     ;a = amplitude KR s 0.1 0.1
>     ;f = pitch s 440 60 4000 100 16 7 0.02 0.5 1}
> in audition (out 0 (mce [s, sinOsc AR (mceChannel 0 f) 0 * a]))