//a single burst of dissolution
(

SynthDef("activeDecay?", { arg out=0, nAtoms=1e+3 , tHalf=0.7, innerBus=16;
	var activity, output, n;
	activity = InFeedback.ar(innerBus,1);
	n = max(0, nAtoms - PulseCount.ar(activity, Impulse.ar(0)));
	output = Dust.ar( n * 2.log / tHalf);
	Out.ar(innerBus, output);
	Out.ar(out, output)
}).send(s);

)

//dirac impulse (approach)
(
SynthDef("dirac", { arg out=0, amp=1.0; 
					var trig;
					trig = Impulse.ar;
					FreeSelf.kr(trig);
					OffsetOut.ar(out, trig * amp)
}, [\ir, \ir]).send(s)
)


********************