SynthDef(\minmag, {arg fftbuf;

var in, chain, out;

in = SinOsc.ar(440, 0, 0.5) + PinkNoise.ar * 0.5;

chain = FFT(fftbuf, in);

// let the weakest (0 - 1023) partials through

chain = PV_MinMagN(chain, MouseX.kr(0,1023));

out = IFFT(chain);

Out.ar(0, out);

}).load(s);


s.boot;


// the fft buf

s.sendMsg(\b_alloc, 0, 2048);

// start the synth

s.sendMsg(\s_new, \minmag, z = s.nextNodeID, 0, 1, \fftbuf, 0);

// free it

s.sendMsg(\n_free, z);

s.sendMsg(\b_free, 0);


s.quit