/*RUN*/

"/home/rob/gtr/motherPatterns.scd".load;

MIDIClient.init;

~m32_1 = MIDIOut.newByName("MidiSport 4x4", "MidiSport 4x4 MIDI 1").latency_(Server.default.latency);

~m32_2 = MIDIOut.newByName("MidiSport 4x4", "MidiSport 4x4 MIDI 2").latency_(Server.default.latency);

//  setup of mother 32 noteon events

Pdef(\m_1,  Pbind( \type, \midi, \midicmd, \noteOn, \midiout, ~m32_1)).play(quant: 4);

Pdef(\m_2,  Pbind( \type, \midi, \midicmd, \noteOn, \midiout, ~m32_2)).play(quant: 4);

// CC Control Message 1 --->  TOP Mother32 ASSIGN OUT
( Pdef(\m_1_CC,  Pbind( \type, \midi, \midicmd, \control, \midiout, ~m32_1,
	\ctlNum, 1, \control, Pexprand(72,127, inf), \dur, ~r1)).play(quant:4));

// CC Control Message 1 --->  BOTTOM Mother32 ASSIGN OUT
Pdef(\m_2_CC,  Pbind( \type, \midi, \midicmd, \control, \midiout, ~m32_2, \ctlNum, 1, \control, Pexprand(77,127, inf), \dur, 1/8 )).play(quant:4);


///////////////////////////////////

Pdef(\processing, Pfunc { ~host.sendMsg("/sc3p5", rrand(1,256).asFloat);}).play(quant: 4);

~host.sendMsg("/sc3p5", rrand(1,256).asFloat);

https://sc-users.bham.ac.narkive.com/75iSw2f6/sending-osc-commands-instead-of-trigger-synths-with-patterns

(

Event.addEventType(\processingOSC, { | server |
	var processingOscServer = NetAddr("127.0.0.1", 4859);
	var notes = [~midinote.value, ~ctranspose.value, ~velocity.value,
		~sustain.value, ~lag.value, ~timingOffset.value].flop;

	var bndl;
	var timeNoteOn, timeNoteOff;

	processingOscServer.sendMsg("/sc3p5", rrand(1,256).asFloat);

	notes.do {|note|
		processingOscServer.sendMsg("/sc3p5", rrand(1,256).asFloat);

		// sustain and timingOffset are in beats, lag is in seconds
		//timeNoteOn = (thisThread.clock.tempo.reciprocal*note[5])+note[4];
		//timeNoteOff =
		//(thisThread.clock.tempo.reciprocal*(note[3]+note[5]))+note[4];
		//{processingOscServer.sendMsg("/renoise/trigger/note_on", -1, -1,
			//(note[0]+note[1]).asInt, note[2].asInt)}.defer(timeNoteOn);
		//{processingOscServer.sendMsg("/renoise/trigger/note_off", -1, -1,
			//(note[0]+note[1]).asInt)}.defer(timeNoteOff);
	}
});
)


(
Pbind(*[
type: \processingOSC,
legato: Pgauss(0.2,0.05,inf),
dur: 0.2,
degree: [2,5,12],
ctranspose: Pseq([0,0,0,0,4,4,4,4,5,5,5,5],inf),
velocity: Pgauss(64,10,inf),
]).play;
)