pitchShift.help.lhs

> import Sound.SC3 {- hsc3 -}

> gr_01 =
>     let s = sinOsc AR 440 0 * 0.1
>         r = mouseX KR 0.5 2.0 Linear 0.1
>         d = mouseY KR 0.0 0.1 Linear 0.1
>     in pitchShift s 0.2 r d 0

> gr_02 =
>     let s = soundIn 0
>         pd = mouseX KR 0.0 0.1 Linear 0.1
>         td = mouseY KR 0.0 0.1 Linear 0.1
>     in pitchShift s 0.2 (mce2 1.0 1.5) pd td