// title: Feedback with beats
// author: rukano
// description:
// Trying out some stuff to get some melodies/pads out of feedback and some beats in the background.
// code:
Ndef(\a, {
	var src, loc, delay=0.01;
	src = Decay2.ar(Impulse.ar(1/8), LFNoise2.kr(4).range(0.001, 0.0001),
	LFNoise2.kr(4).range(0.005, 0.05))!2
	* Saw.ar(LFNoise2.kr(4).exprange(40, 4000));
	loc = BPF.ar(LocalIn.ar(2) + [src, 0], LFNoise0.kr(1/4).range(100, 1200).lag, 3.2);
	loc = GVerb.ar(loc, 100, 4, mul:0.02, add:loc);
	loc = Compander.ar(loc, loc, 0.9, 1, 0.001);
	loc = (loc * 0.501).tanh;
	loc = Compander.ar(loc, loc, 0.1, 1, 0.1);	
	loc = DelayC.ar(loc, delay * 2, delay * 1);
	LocalOut.ar(loc.reverse * 0.49);
	Out.ar(0, loc * 0.9)
}).play;

Ndef(\b, {
	var src, loc, del;
	del = 1/100;
	src = Decay2.ar(TDuty.ar(1/4,0,Dseq([1, 0.5, 0.3, 0.1],inf)), 
	LFNoise2.kr(4).range(0.001, 0.0001), LFNoise2.kr(4).range(0.005, 0.05))!2
	* Saw.ar(LFNoise2.kr(200).exprange(40, 14000));
	loc = BPF.ar(LocalIn.ar(2) + [src, 0], LFNoise2.kr(0.1).range(40, 400), 3.2);
	loc = GVerb.ar(loc, 100, 4, mul:0.02, add:loc);
	loc = Compander.ar(loc, loc, 0.9, 1, 0.001);
	loc = (loc * 0.51).tanh;
	loc = Compander.ar(loc, loc, 0.1, 1, 0.1);	
	loc = DelayC.ar(loc, del * 2, del * 1);
	LocalOut.ar(loc.reverse * 0.45);
	Out.ar(0, Compander.ar(loc,loc,0.1, 1, 0.05) * 1.2)
}).play;

Ndef(\c, {
	var src, loc, del=1/4;
	src = Decay2.ar(Impulse.ar(1), 0.0001, 0.05) * SinOsc.ar(60);
	loc = src + LocalIn.ar(2);
	loc = BPF.ar(loc, 800, 3.2).softclip;
	loc = DelayN.ar(loc, del, [0, del]);
	LocalOut.ar(loc.reverse * 0.99);
	Out.ar(0, loc * 2)
}).play;