buf_delay_lpf_fb.scd

Routine {

	SynthDef.new(\buf_del_lpf_fb, {
		arg buf,
		in=0, out=0,
		amp=1.0, pan=0, fb = 0.7,
		fc=4000, rq=1, time=1.0, timelag=0.5;

		var del, loop;

		loop = LocalIn.ar(1);
		time = Ramp.kr(time, timelag);
		del = BufDelayL.ar(b.bufnum, SoundIn.ar(in) + loop, time);

		LocalOut.ar(RLPF.ar(del * fb, fc, rq));
		Out.ar(0, Pan2.ar(del, 0));
	}).send(s);

	b = Buffer.alloc(s, s.sampleRate * 10, 1);

	s.sync;
	z = Synth.new(\buf_del_lpf_fb, [\buf, b.bufnum], s);


	inf.do({
		t = 1 * (1+9.rand) / (1+11.rand);
		t.postln;
		z.set(\time, t);
		(1 + 4.rand).wait;
	});

}.play;