16 lines
472 B
Plaintext
16 lines
472 B
Plaintext
(
|
|
SynthDef(\hhgen, {
|
|
var sig;
|
|
sig = Pulse.ar(Array.fill(6, {arg i; \freq.kr(20) * (i + {Rand(1.02, 1.03)})}));
|
|
sig = Mix.ar(sig);
|
|
sig = BPF.ar(sig, 10000, 0.15);
|
|
sig = HPF.ar(sig, 7000);
|
|
sig = LPF.ar(sig, 3700);
|
|
sig = HPF.ar(sig, \ff.kr(1500)) * 20.dbamp;
|
|
sig = sig * Env.perc(0.001, \decay.kr(0.1), curve: \curve.kr(-4)).ar(Done.freeSelf);
|
|
sig = Pan2.ar(sig, \pan.kr(0));
|
|
Out.ar(\out.kr(0), sig!2);
|
|
}).add;
|
|
)
|
|
|
|
// Synth(\hhgen, [freq: 60, decay: 0.1, ff: 6000]); |