alberto/supercollider-experiments
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add midi functions

Browse source
This commit is contained in:
Alberto Venturini 2018-03-14 22:01:02 +02:00
parent aa57a4e967
commit dedb5bc5e9
1 changed files with 37 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

37
synthbass.scd
View file

@ -39,6 +39,8 @@ p = Pdef(\pattern,
p.play; p.play;
) )
FreqScope.new;
// PBinds generate events. It's like a stream of events. We can look at each Event object // PBinds generate events. It's like a stream of events. We can look at each Event object
// by polling the stream. // by polling the stream.
// Events are objects containing key-value pairs, e.g.: // Events are objects containing key-value pairs, e.g.:
@ -54,3 +56,38 @@ p.asStream.next(Event.new);
p.play; p.play;
// Midi input
(
var keys;
keys = Array.newClear(128);
~noteOnFunc = {arg src, chan, num, vel;
var node;
node = keys.at(num);
if (node.notNil, {
node.release;
keys.put(num, nil);
});
node = Synth.new(\synthbass, [\freq, num.midicps, \amp, vel/1500]);
keys.put(num, node);
[chan,num,vel/1500].postln;
};
MIDIIn.addFuncTo(\noteOn, ~noteOnFunc);
~noteOffFunc = {arg src, chan, num, vel;
var node;
node = keys.at(num);
if (node.notNil, {
node.release;
keys.put(num, nil);
});
};
MIDIIn.addFuncTo(\noteOff, ~noteOffFunc);
)
// cleanup
(
MIDIIn.removeFuncFrom(\noteOn, ~noteOnFunc);
MIDIIn.removeFuncFrom(\noteOff, ~noteOffFunc);
)