Manual testing suite

dev_sessions/midi_cc.scd

@@ -1,90 +0,0 @@
-(
-m = MIDIOut.newByName("MIDI", "Bus 1");
-~cc >>+ [num: 20, pat: "[10 50 100 [120 100]]/2", midiout: m ];
-~cc.play;
-)
-
-(
-m = MIDIOut.newByName("MIDI", "Bus 1");
-~test >> [
-  midiout: m,
-  degree: [0, 2, 4, 5].pxrand(inf),
-  chan: 1, dur: [5,8,0].eu / 4,
-  octave: 5, amp: 1/2,
-];
-~test.play;
-)
-
-(
-m = MIDIOut.newByName("MIDI", "Bus 1");
-~cc >>+ [
-  num: 20, dur: 1/8, midiout: m,
-  pat: "10 20 30 40 50 70 100 120",
-];
-~cc.play;
-)
-
-
-// TEST: Avec des samples
-(
-~test => [pat: "[kick hat snare hat:5]/2", test: Pfunc { |e| e.postln; e }];
-~hat => [pat: "[hat!3 hat:5]", test: Pfunc { |e| e.postln; e }, speed: 2, release: 1/16];
-~test.play;
-~hat.play;
-)
-
-// TEST: Avec un synthétiseur
-(
-~test => [pat: "0 3 5 <7 ~>", i: "Pwaveshape", octave: 6, harm: 0.25];
-~test.play;
-)
-
-// TEST: une mélodie MIDI
-(
-m = MIDIOut.newByName("MIDI", "Bus 1");
-~test >> [
-  scale: Scale.dorian,
-  pat: "<[[0, 3, 6] 1 2 3] [[0, 4, 7] 5 6 7]>/2",
-  midiout: m,
-  amp: [0.0, 1.0].pwhite(inf),
-  octave: [6], legato: 0.5,
-  chan: 1, release: 1/8,
-];
-~test.play;
-~other >> [
-  scale: Scale.dorian,
-  pat: "<[[0, 3, 6] 1 2 3] [[0, 4, 7] 5 6 7]>",
-  midiout: m,
-  amp: [0.0, 1.0].pwhite(inf),
-  octave: [
-    [5, 5, 6].pseq(8),
-    [4, 5, 7].pseq(8),
-  ].pseq(inf),
-  legato: 0.5,
-  chan: 1, release: 1/8,
-];
-~other.play;
-~ground => [pat: "[kick:3!2, snare:3]/2", amp: 12];
-~ground.play;
-)
-
-(
-SynthDef('acid', {
-  var freq = \freq.kr(100).varlag(\glide.kr(0.05));
-  var signal = PulseDPW.ar([freq / 2, freq / 1.99])
-    + SawDPW.ar([freq, freq / 1.99]);
-  var env = Env.perc(
-    \attack.kr(0.1),
-    \release.kr(0.125)).ar(0);
-  var synth = signal * env;
-  synth = RLPF.ar(signal,
-    \ffreq.kr(1500).lag(\glide.kr),
-    \res.kr(0.2).lag(\glide.kr));
-  synth = Pan2.ar(synth, \pan.kr(0));
-  OffsetOut.ar(\out.kr(0), synth * \amp.kr(-24.dbamp));
-}).add;
-~acid -> ['acid', dur: (1/2), amp: 0.5, pat: "[0 2 4 5]/2"];
-~acid.play;
-)
-
-~acid.source

dev_sessions/test_suite.scd

@@ -1,3 +1,4 @@
+// Remplacer la PATH par un chemin valide (dossiers/samples)
 (
 Boot(samplePath: "/Users/bubo/.config/livecoding/samples");
 )
@@ -118,4 +119,47 @@ SynthDef('acid', {
 ~acid.play;
 )
 
-// ================ SCRATCHPAD ================
+// ================ COMMANDES MIDI ================
+
+(
+MIDIClient.init;
+m = MIDIOut.newByName("MIDI", "Bus 1");
+)
+
+// TEST: ça passe (le canal 0 ne fonctionne pas !)
+(
+~notes >> [
+  midiout: m, chan: 1,
+  degree: [0, 4, 7, 10].pseq(inf),
+  dur: [1, 1/2, 1/4].pxrand(inf),
+];
+~notes.play;
+)
+
+
+// TEST: ça passe (le canal 0 ne fonctionne pas !)
+(
+~notes >> [
+  midiout: m, chan: 1, pat: "0 4 0 3 0 5",
+  octave: [3, 4, 5, 6].pxrand(inf),
+  legato: [0.125, 0.5].pwhite(inf),
+];
+~notes.play;
+)
+
+// TEST: ça passe
+(
+~control >>+ [
+  midiout: m, chan: 1, num: 20, val: [0, 127].pwhite(inf),
+  dur: [1, 1/2, 1/4].pxrand(inf),
+];
+~control.play;
+)
+
+// TEST: ça passe
+(
+~control >>+ [
+  midiout: m, chan: 1, num: 20, pat: "0 10 20 30 40 100 120",
+];
+~control.play;
+)