1
2declare name "organ -- a simple additive synth";
3declare author "Albert Graef";
4declare version "1.0";
5
6import("music.lib");
7
8// control variables
9
10vol	= hslider("vol", 0.3, 0, 10, 0.01);	// %
11pan	= hslider("pan", 0.5, 0, 1, 0.01);	// %
12attack	= hslider("attack", 0.01, 0, 1, 0.001);	// sec
13decay	= hslider("decay", 0.3, 0, 1, 0.001);	// sec
14sustain = hslider("sustain", 0.5, 0, 1, 0.01);	// %
15release = hslider("release", 0.2, 0, 1, 0.001);	// sec
16freq	= nentry("freq", 440, 20, 20000, 1);	// Hz
17gain	= nentry("gain", 0.3, 0, 10, 0.01);	// %
18gate	= button("gate");			// 0/1
19
20// relative amplitudes of the different partials
21
22amp(1)	= hslider("amp1", 1.0, 0, 3, 0.01);
23amp(2)	= hslider("amp2", 0.5, 0, 3, 0.01);
24amp(3)	= hslider("amp3", 0.25, 0, 3, 0.01);
25
26// additive synth: 3 sine oscillators with adsr envelop
27
28partial(i) = amp(i+1)*osc((i+1)*freq);
29
30process	= sum(i, 3, partial(i))
31  * (gate : vgroup("1-adsr", adsr(attack, decay, sustain, release)))
32  * gain : vgroup("2-master", *(vol) : panner(pan));
33