radioactivity


"modeling" radioactive decay
jr 2001/01



//a single burst of dissolution
(
var thalf, natoms, activity;
thalf = 0.7;
natoms = 1e+3;
{ natoms = Plug.kr(natoms);
	activity = Dust.ar(2.log/thalf*natoms);
	Sequencer.ar({ natoms.source = natoms.source-1; 0.0 }, activity);
	activity
	}.play;
)

	

//_________slow radiation beats
(

Synth.scope(	
	var trig;
	trig = Impulse.kr(0.3);
	TSpawn.ar({
	var thalf, natoms, activity, sound;
		thalf = rrand(0.02, 1);
		natoms = rrand(0.8, 2) * 1e+3;
		natoms = Plug.kr(natoms);
		
		activity = Dust.ar(2.log/thalf*natoms);
		Sequencer.ar({ natoms.source = natoms.source-1;  0.0 }, activity);
		sound = Pan2.ar(Ringz.ar(activity, natoms.max(110), 0.02, 0.1), 1.rand2);
		sound * EnvGen.kr(Env.linen(0.01, 10thalf, 0.1)) //thalf  10 is a good tchernobyl approximate for "nearly nothing left"...
	}, 2, trig)
	
)