// title: mrcl snippets #3: feedback timer
// author: elgiano
// description:

// code:
(
Ndef(\fbTimer){
	m = (Dust.ar(0.5!2)*20).tanh+\in.ar(0!2);
	r = Timer.kr(Onsets.kr(FFT(LocalBuf(128)!2,m)));
	c = CombL.ar(m+(LocalIn.ar(2)*0.8),4,r.clip(0.0001,4),r*4);
	l = Resonz.ar(c,TRand.kr(20,20000,m),0.1,1000).tanh;
	LocalOut.ar(m+l);
	m+c;
}.play
)


(
Ndef(\fbTimerSel){
	m = (Dust.ar(0.5!2)*20).tanh+\in.ar(0!2);
	r = Timer.kr(Onsets.kr(FFT(LocalBuf(128)!2,m)));
	c = CombL.ar(m+(LocalIn.ar(2)*0.8),4,r.clip(0.0001,4),r*4);
	l = Resonz.ar(c,TRand.kr(20,20000,m),0.1,1000).tanh;
	n = SelectX.ar(LFNoise0.kr(r.linlin(0,4,0.1,10)).range(0,4),[m,K2A.ar(r),c,l]);

	LocalOut.ar(n);
	n

}.play
)


(
Ndef(\fbTimer3){
	var localin = (LocalIn.ar(2)*0.98)+\in.ar(0!2);
	var dust = (Dust.ar(Rand(0.5,10)!2)*200)+\in.ar;
	var timer = Timer.ar(dust);
	var comb = 	CombL.ar(dust+localin,4,timer.clip(0.0001,4),timer*4);
	var filt = Resonz.ar(comb,TRand.kr(20,Rand(20,20000),dust),0.1,1000).tanh;
	LocalOut.ar(dust+filt);
	comb+dust;
	comb+dust*timer;
}.play
)