19 lines
636 B
Plaintext
19 lines
636 B
Plaintext
(
|
|
SynthDef(\tom, {
|
|
var freq, decay, mod, sig, base, noise, vibrato, pitchEnv, ampEnv, filterEnv;
|
|
freq = \freq.kr(120);
|
|
decay = \decay.kr(1.6);
|
|
ampEnv = Env.perc(0, decay).ar(Done.freeSelf);
|
|
filterEnv = Env.perc(0, 0.15).ar;
|
|
pitchEnv = Env.perc(0, 0.035).ar;
|
|
noise = WhiteNoise.ar;
|
|
base = SinOsc.ar(freq + (freq * pitchEnv) * [0.5, 1]).sum;
|
|
sig = Splay.ar([base, noise], 0.1) * ampEnv * -2.dbamp;
|
|
sig = RLPF.ar(sig, 200 + (\ff.kr(900) * filterEnv), 0.45);
|
|
// sig = Fold.ar(sig, -0.6, 0.8);
|
|
sig = sig + GVerb.ar(sig, 22, 1, 0.8) * -16.dbamp;
|
|
Out.ar(\out.kr(0), sig * \amp.kr(1));
|
|
}).add;
|
|
)
|
|
|
|
Synth(\tom, [freq: 90, decay: 2]); |