fft

b = Buffer.read(s,"/Users/evgenijbylina1/Documents/SamplePack_Kate/02 Di Vaga Crepa, Di Gelo Futuro.wav" );

//mono version, for mono buffer and mono sample;

(
SynthDef("phaseReset", {
    arg soundBuf;
    var in, chain;
    var fftBuf = LocalBuf(256, 1);
    in = PlayBuf.ar(1, soundBuf, loop:1);
    chain = FFT(fftBuf, in);
    chain = chain.pvcollect(256, { |mag, phase, bin|
        [mag, 30]; // change this parameter do nothing!
        });
    Out.ar(0, 0.5 * IFFT(chain));
}).play(s, [\soundBuf, b]);
)

//stereo version, stereo buffers. need to arbitary phases on each chanell - 0 and 90
//message pvcollect not undestood
(
SynthDef("phaseReset", {
    arg soundBuf;
    var in, chain;
    var fftBuf = Array.fill(2, { LocalBuf(256, 1) });
    in = PlayBuf.ar(1, soundBuf, loop:1);
    chain = ({FFT(fftBuf, in)}!2);
    chain = chain.collect { |channel| channel.pvcollect(256, {
        |mag, phase, bin|
        [mag, 90]; })};
    Out.ar(0, 0.5 * IFFT(chain).dup);
}).play(s, [\soundBuf, b]);
)