ar busses = ~dirt.orbits.collect { |x| x.dryBus };
var ctrl_bus = Bus.control(s,1);

SynthDef(\p_ctrler, { | n|
	var bus;
	bus = Select.kr(n, busses);
	Out.kr(ctrl_bus, n)
}).add;


SynthDef(\p_wobble,{|out, gain=0.1, size=5, freq = 100, cutoff=2000, resonance=1, pan = 0, sustain=0.5|
	var x, sines, sig, bound, spread, env, lfo;
	bound=2;
	spread=1;
	x = 0;

	lfo = In.kr(ctrl_bus,1);

	sines = Array.fill(5,{|f|
		f = (f + freq)/2;
		x = SinOsc.ar(f + [0,1], x*SinOsc.kr(lfo).range(1,bound).mod(2pi));
		x
	});
	env = EnvGen.ar(Env.sine(sustain,1),doneAction:2);//Env.perc(0.002, sustain, 1, -1), doneAction:2);
	sig = RLPF.ar(Splay.ar(sines,center:pan,spread:spread),cutoff,resonance)* gain;
	OffsetOut.ar(out,
			DirtPan.ar(sig.tanh, ~dirt.numChannels, pan, env)
	);
}).add;
)
/*
then in tidal :
d2 $ sound "p_ctrler:2" # orbit "1"
d3 $ slow 8 $ n "g3" # s "p_wobble" # gain "0.8" # sustain "9"
*/