warp1.help.lhs

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

> import Sound.SC3 {- hsc3 -}

    > let fn = "/home/rohan/data/audio/pf-c5.aif"
    > withSC3 (async (b_allocRead 10 fn 0 0))

> g_01 =
>     let p = linLin (lfSaw KR 0.05 0) (-1) 1 0 1
>         x = mouseX KR 0.5 2 Linear 0.1
>     in warp1 1 10 p x 0.1 (-1) 8 0.1 2

real-time (delayed) input

    > withSC3 (async (b_alloc 10 8192 1))

> g_02 =
>     let i = soundIn 4
>         r = recordBuf AR 10 0 1 0 1 Loop 1 DoNothing i
>         ph = (8192 / sampleRate) * 2 * pi
>         p = lfSaw KR (1 / bufDur KR 10) ph * 0.5 + 0.5
>         x = mouseX KR 0.5 2 Linear 0.2
>         y = mouseY KR 0.01 0.2 Linear 0.2
>         w = warp1 1 10 p x 0.1 (-1) 8 y 4
>     in mrg2 (i + w) r