Brute force MIDI notes

This commit is contained in:
2024-05-12 23:45:11 +02:00
parent 25745504b2
commit f98a22f3a0
2 changed files with 51 additions and 19 deletions

View File

@ -1,12 +1,14 @@
MIDIClient.destinations;
// NOTE: ajouter un truc pour tuer tout le MIDI quand j'appuie sur F12
m
// NOTE: Pattern rythmique de base
(
~test => [ sp: "kick", nb: 0 ];
~test.play;
)
// NOTE: Pattern de base, explicite (sans clés magiques)
(
~test = Pbind(
\instrument, 'splayer',
@ -15,6 +17,7 @@ m
~test.play;
)
(
~test >> [
pat: "0 2 3 4",
@ -29,10 +32,33 @@ m = MIDIOut.newByName("MIDI", "Bus 1");
~test.play;
)
// NOTE: Sans pattern Pmini
(
m = MIDIOut.newByName("MIDI", "Bus 1");
~test >> [ degree: [0, 2, 3, 4].pseq(inf), midiout: m ];
~test.play;
)
// NOTE: Avec Pmini + type explicite
(
m = MIDIOut.newByName("MIDI", "Bus 1");
~test >> [type: 'midi', pat: "0 1 2 3", midiout: m];
~test.play;
)
// NOTE: Avec Pmini, sans type explicite
(
m = MIDIOut.newByName("MIDI", "Bus 1");
~test >> [pat: "0 1 2 3", midiout: m];
~test.play;
)
// NOTE: : Pattern de démonstration
(
~baba = Pbind(
\type, \midi,
[\trig, \delta, \dur, \str, \num], Pmini("[1 2 3 4]/2"),
[\trig, \delta, \dur, \str, \num], Pmini("[1 ~ 2 3 4]/2").trace,
\degree, Pfunc({ |e| if(e.trig > 0) { e.str.asInteger } { \rest } }),
\midiout, m
);