Quarks.install("Steno");

t = Steno.push;

(
t.filter(\d, {
	|in|
	var mix = 1.0;
	var filterfreqs = Array.geom(23, 60, 2**(1/3));
	var rq = ((2**(1/3)) - 1) / (2**(1/6));
	var width = 2**(1/6);
	var fmin = filterfreqs / width;
	var fmax = filterfreqs * width;
	var g = { |f| 2.27 * (f**0.477) };
	var snd, mod;
	snd = in;
	snd = BPF.ar(snd, filterfreqs, rq);
	mod = SinOsc.ar(0.5 * g.value((0.2*fmin) + (0.8*fmax)));
	mod = (1 - mix) + (mix * mod);
	snd = snd * mod;
	snd = Splay.ar(snd) * 20;
})
)


t.quelle(\a, { Blip.ar(SinOsc.kr(Rand(0.2, 1)).exprange(Rand(2, 4), ExpRand(5, 100))) });

--adad addd ad addd add ada