diff --git a/dev_sessions/midi_cc.scd b/dev_sessions/midi_cc.scd deleted file mode 100644 index 834daad..0000000 --- a/dev_sessions/midi_cc.scd +++ /dev/null @@ -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 diff --git a/dev_sessions/chasing_bugs.scd b/dev_sessions/test_suite.scd similarity index 71% rename from dev_sessions/chasing_bugs.scd rename to dev_sessions/test_suite.scd index c358fa2..50f1447 100644 --- a/dev_sessions/chasing_bugs.scd +++ b/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; +)