12 lines
491 B
Plaintext
12 lines
491 B
Plaintext
SynthDef(\rangz, {
|
|
var exc, amps, freqs, rqs, sig, envPitch, cond, pitchoo, nb = 20;
|
|
freqs = Array.fill(nb, {ExpRand(65, \freq.kr(1000)) * ExpRand(0.5, 1.5)});
|
|
rqs = Array.fill(nb, {LFNoise2.kr(2).linexp(-1, 1, 0.001, 0.009)});
|
|
amps = rqs.collect({|item, i| 0.05 + (1 / item.sqrt) * ExpRand(0.05, 1.2)});
|
|
exc = BrownNoise.ar(1); // risky
|
|
sig = Resonz.ar(exc, freqs, rqs) * amps;
|
|
sig = Splay.ar(sig);
|
|
sig = (sig) * \amp.kr(1);
|
|
sig = Limiter.ar(sig);
|
|
Out.ar(\out.kr(0), sig);
|
|
}).add; |