// title: Birds
// author: BROKENCODE//
// description:
// I haven't found a quite satisfying code about birds, so here's a very simple SynthDef to start with
// code:
(
SynthDef(\bird,{
	var sig, freqenv, env, trig;
	trig = Dust.ar(2);
	env = EnvGen.ar(Env.perc(0.01,0.4,0.8,-8), trig, doneAction: 2);
	freqenv = EnvGen.ar(Env([Rand(1000,3000), Rand(3000,6000), Rand(1000,2000), Rand(2000,5000)],[0.1,0.01,0.1]);, trig);
	sig = SinOsc.ar(freqenv, 0, env);
	sig = Pan2.ar(sig, Rand(-1.0,1.0));
	Out.ar(0, sig);
}).add;
)

(
Routine({
	inf.do({
		Synth(\bird);
		rrand(1.0,2.0).wait;
	})
}).play;
)