here's (a/the) synth I'm running (from an external sclang):
On Bela:
scsynth -t 57110 -l 64 -z 16 -J 8 -K 8 -G 16 -i 2 -o 2
or
scsynth -t 57110 -l 64 -z 32 -Z 32 -J 8 -K 8 -G 16 -i 2 -o 2
in sclang (on my main machine):
(
g = Server(\bela, NetAddr("192.168.7.2", 57110));
g.startAliveThread(0);
g.doWhenBooted({
g.notify;
g.initTree
});
)
(
x = {
var freq = \freq.kr(50, 0.1);
var tilt = \tilt.kr(0.5);
var invTilt = (1-tilt) * 2;
tilt = tilt * 2;
(0..15).inject(Pulse.ar(LFNoise1.ar(LFNoise1.kr(0.1).range(0.1, 2)).exprange(freq, freq + 1), 0.2) * LFNoise1.ar(Rand(0.01, 0.1)), { |in|
var amp = Amplitude.ar(in, 0.1, 1);
Mix([tilt * in, invTilt * [RHPF, RLPF, BPF].choose.ar(DelayL.ar(in, 0.1, 1-amp.lag(Rand(0.1, 1)) * Rand(0.005, 0.1)).tanh.neg, amp * ExpRand(2000, 4000) + 100, Rand(0.8, 1))]);
}).tanh
}.play(g)
)