«Birds» by BROKENCODE//

on 14 Jan'20 12:24 in simplebirdbirds

I haven't found a quite satisfying code about birds, so here's a very simple SynthDef to start with

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(
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;
)
raw 448 chars (focus & ctrl+a+c to copy)
reception
comments