initial commit
This commit is contained in:
16
hatgen.scd
Normal file
16
hatgen.scd
Normal file
@ -0,0 +1,16 @@
|
||||
(
|
||||
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]);
|
||||
Reference in New Issue
Block a user