le ballon rouge - 1er brouillon

kludge.scd

MIDIClient.init;
MIDIClient.sources;
MIDIIn.connect;    // init for one port midi interface
MIDIIn.removeFuncFrom(\control, ~controlKludge);
~current = 0;
~controlKludge = { arg src, chan, num, val;

	if (val == 127, {
		[chan,num,val].postln;

		if (num == 0 || num == 2, {
			"stop".postln;
			s.freeAll;
			CmdPeriod.run;
			~buildWorld.value;
			~current = ~current - 1;
			if (~current < 0, {~current=0});
		});
		if (num==2 || num==3,{

			("restart or start: " ++ ~current).postln;
			~redballon.at(\ORDRE)[~current][1].at(\action).value;
			~current = ~current + 1;
		});

		m = NetAddr("192.168.0.101", 9000); // loopback

		if (~current > 0, {
			m.sendMsg("/1/label8/text", ~redballon.at(\ORDRE)[~current - 1][1].at(\name));
		}, {
			m.sendMsg("/1/label8/text", "NEANT GEANT, NUL, ZERO");
		});
		"current ".post;
		~current.postln;
	});
};