pv_Diffuser.help.lhs

pv_Diffuser buffer trig

Adds a different constant random phase shift to each bin.
The trigger will select a new set of random phases.

buffer - fft buffer.
trig   - a trigger selects a new set of random values.

> let fileName = "/home/rohan/audio/metal.wav"
> in withSC3 (\fd -> do { async fd (b_alloc 10 2048 1)
>                       ; async fd (b_allocRead 12 fileName 0 0) })

> let { a = playBuf 1 12 (bufRateScale KR 12) 0 0 Loop
>     ; f = fft' 10 a
>     ; x = mouseX KR 0 1 Linear 0.1
>     ; h = pv_Diffuser f (x >* 0.5) }
> in audition (out 0 (ifft' h * 0.5))