//===========================================
//	auto-surveilance
//	<www.joemariglio.com> 6.18.09
//===========================================

SynthDef("record", {|in=0, bufnum=0| RecordBuf.ar(SoundIn.ar(in), bufnum); }).store;

a = Routine({
	var name;
	name = 0;
	loop{
		b = Buffer.alloc(s, 44100, 1);
		wait(0.1);
		Synth("record", [\bufnum, b.bufnum]);
		wait(2);
		b.write("/Users/josephmariglio/Music/samples/pennsylvania/"++name, "wav", "int16");
		name = name + 1;
		wait(60*30);
		}
	});

a.play;