22 lines
667 B
Plaintext
22 lines
667 B
Plaintext
// https://bzoennchen.github.io/supercollider-book/chapters/sounddesign/physical-modeling.html
|
|
|
|
(
|
|
SynthDef(\snare, {
|
|
var sig, exciter, local;
|
|
local = LocalIn.ar(2);
|
|
exciter = Impulse.ar(0!2);
|
|
sig = WhiteNoise.ar() * Decay2.ar(exciter, 0.008, 0.25) * \amp.kr(1.0);
|
|
sig = sig + local;
|
|
sig = BPF.ar(sig, \cutoff.kr(500));
|
|
|
|
local = DelayN.ar(sig, 0.01,
|
|
delaytime: 1/\freq.kr(220)) * \beta.kr(0.8);
|
|
LocalOut.ar(local);
|
|
sig = LPF.ar(sig, 5000);
|
|
// sig = JPverb.ar(sig, 0.6, 0.1);
|
|
sig = sig + PitchShift.ar(sig, 0.01, 0.9);
|
|
DetectSilence.ar(sig, doneAction: Done.freeSelf);
|
|
sig = Limiter.ar(sig);
|
|
Out.ar(0, sig);
|
|
}).add;
|
|
) |