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