pv_HainsworthFoote.help.lhs

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

> import Sound.SC3.ID

> let { i = soundIn 0
>     ; b = mrg2 (localBuf 'a' 2048 1) (maxLocalBufs 1)
>     ; f = fft' b i
>     ; x = mouseX' KR 0.5 1.25 Linear 0.2
>     ; h = pv_HainsworthFoote f 1 0 x 0.04
>     ; o = sinOsc AR (mrg2 440 445) 0 * decay (h * 0.1) 0.1 }
> in audition (out 0 (o + i))