warp1.help.lhs

> import Sound.SC3 {- hsc3 -}

> fn_01 = "/home/rohan/data/audio/pf-c5.aif"

> m_01 = b_allocRead 10 fn_01 0 0

    withSC3 (async m_01)

> 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

> m_02 = b_alloc 10 8192 1

    withSC3 (async m_02)

> g_02 =
>     let i = soundIn 0
>         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