You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
756 B
Plaintext
29 lines
756 B
Plaintext
(
|
|
SynthDef(\evenHarms, {
|
|
arg freq = 30, phaseRate = 1, phaseDepth = 100, cutoffBase = 800, cutoffModFreq = 50, amp = 0.5, atk = 0.01, rel = 1;
|
|
var sig, phaseMod, env, cutoff;
|
|
|
|
sig = Mix.fill(10, { |i|
|
|
var harmonicNum = 2 * (i + 1);
|
|
phaseMod = SinOsc.kr(phaseRate + i * 0.1).range(0, phaseDepth);
|
|
SinOsc.ar(freq * harmonicNum, phaseMod, 1 / (i + 1))
|
|
});
|
|
|
|
cutoff = cutoffBase + SinOsc.kr(cutoffModFreq).range(-400, 400);
|
|
sig = LPF.ar(sig, cutoff);
|
|
|
|
env = EnvGen.kr(Env.perc(atk, rel), doneAction: 2);
|
|
Out.ar(0, sig.dup * env * amp);
|
|
}).add;
|
|
)
|
|
|
|
|
|
(
|
|
t = TempoClock.new(180/60);
|
|
|
|
Pbind(\instrument, \evenHarms,
|
|
\freq, Pseq([190, 201, 188, 160, 80], inf),
|
|
// \dur, Pwhite(0.2, 2),
|
|
// \dur, 1
|
|
).play(t);
|
|
) |