schollz / glitchlets Goto Github PK

(
SynthDef(\loop, {| out = 0, gate = 1, pos = 0, speed = 1, freq = 0, endfreq = 0.001, sustain, wobble = 3, boost = 1|
	var player,env,amp;
	freq = XLine.ar(freq,endfreq,sustain/4);
	freq = freq.cpsmidi + (LFNoise2.ar(3).range(-1,1) * (1/12));
	freq = freq.midicps;
	env = Env.adsr(0.0001,0.01, 1, sustain/8, 1);
	amp = EnvGen.kr(env, gate, doneAction:2);
	player = RLPF.ar(Saw.ar(freq, 0.1)+WhiteNoise.ar(0.01), SinOsc.ar(wobble/sustain).range(20000,80), XLine.ar(0.2,0.9,sustain)) * boost;
	Out.ar(out, Compander.ar(player, player, 0.1, 1, 1/8, 0.002, 0.01););
}).store;
)


(
Pbind(
\instrument, \loop,
\out, 1,
\freq, 400,
\endfreq,40,
\wobble, Prand([1/2,2,1,1/3,4]),
\legato, 1,
).play;
)