TempoClock.tempo = 0.25;

SynthDef(\perc,
	{ |freq=440|
		var sig = SinOsc.ar(freq:freq, mul:EnvGen.kr(Env.perc(attackTime:0.01, releaseTime:0.1)));
		Out.ar(0, sig);
}).add;


Pdef(\backingPattern,
	Pbind(\instrument, \perc,
		\dur, 1/4,
		\freq, Pseq([1, 1.2, 1.4, 1.6], inf) * 200
	);
).play;

Pdef(\ornement).quant = 0;
Pdef(\ornement,
	Pbind(\instrument, \perc,
		\dur, 1/4,
		\freq, Pseq([2], 2) * 400,
	);
).stop;

~buttonCallback = {|v=0|
	Synth(\perc);
	// postf("BUTTON value % \n", v);

	Pdef(\ornement).play;
};

OSCdef(\parseButton).free;
OSCdef(\parseButton, {
	| msg, time, addr, port |

	var val;
	val = msg[1];
	// postf("BUTTON value % \n", val);
	~buttonCallback.value( val);

}, '/button', n);