pv_Invert.help.lhs

pv_Invert buffer

> import Sound.SC3

> let { s = sinOsc AR 440 0 * 0.4
>     ; n = Sound.SC3.UGen.Base.pinkNoise 'a' AR * 0.1
>     ; i = s + n
>     ; c0 = fft' 10 i
>     ; c1 = pv_Invert c0 
>     ; run fd = do { async fd (b_alloc 10 2048 1)
>                   ; audition (out 0 (mce2 i (ifft' c1) * 0.5)) } }
> in withSC3 run