«Controlling an external synth parameters with NRPN / adding LFOs» by g_montel

on 23 Oct'20 10:06 in patternmidinrpnexternal synth

I bought a Sequential OB-6 recently and you can control all the parameters with NRPN messages. I wanted to control these NRPN parameters with patterns, adding LFOs for instance.

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
MIDIClient.init;

~ob6 = MIDIOut.newByName("OB-6", "OB-6");
// ~ob6.latency = Server.default.latency;

(
p = Pbind(
	\type, \midi,
	\midicmd, \noteOn,
	\midiout, ~ob6,
	\chan, 0,
	\degree, Pwhite(-7, 12, inf),
	\dur, Pwrand([0.25, Pn(0.125, 2)], #[0.8, 0.2], inf),
	\legato, sin(Ptime(inf) * 0.5).linexp(-1, 1, 1/10, 1),
	\amp, Pexprand(0.5, 1.0, inf)
).play(quant: 1);
)

~ob6.allNotesOff(0);

(
Event.addEventType(\OB6_NRPN, {
	var midiout = ~midiout.value;
	var chan = ~chan.value;
	var nrpnNum = ~nrpnNum.value;
	var nrpnValue = ~nrpnValue.value;

	if (nrpnValue.class == String) {
		if (nrpnValue.beginsWith("c")) {
			nrpnValue = Bus.new('control', nrpnValue[1..].asInteger, 1, s).getSynchronous();
		};
	};

	nrpnValue = nrpnValue.asInteger;

	midiout.control(chan, 0x63, nrpnNum >> 7);
	midiout.control(chan, 0x62, nrpnNum & 0x7F);
	midiout.control(chan, 0x06, nrpnValue >> 7);
	midiout.control(chan, 0x26, nrpnValue & 0x7F);
});
)

// randomize filter cutoff

(
p = Pbind(
	\type, \OB6_NRPN,
	\midiout, ~ob6,
	\chan, 0,
	\nrpnNum, 45,
	\nrpnValue, Pwhite(0, 164),
	\dur, 1
).play(quant: 1);
)

// randomize filter cutoff with a LFO from a Node bus

(
p = Pbind(
	\type, \OB6_NRPN,
	\midiout, ~ob6,
	\chan, 0,
	\nrpnNum, 45,
	\nrpnValue, Ndef(\bla, { SinOsc.kr(1/10).range(0,164) }).asMap,
	\dur, 0.1
).play(quant: 1);
)

// do crazy stuff

(
p = Pbind(
	\type, \OB6_NRPN,
	\midiout, ~ob6,
	\chan, 0,
	\nrpnNum, Pwhite(0, 150),
	\nrpnValue, Pwhite(0,255),
	\dur, 1
).play(quant: 1);
)
raw 1571 chars (focus & ctrl+a+c to copy)
reception
comments