before I screw something up

8 months ago · 35ea60b2ab
parent 209076ec38
commit 35ea60b2ab
1 changed files with 201 additions and 0 deletions
--- a/neo-hasidic_brainsex/near.scd
+++ b/neo-hasidic_brainsex/near.scd
@ -0,0 +1,201 @@
+b = Buffer.read(s, "/home/lcoogan/snd/live/2025-04-26.Basic_City_Brewery/trax/01-Cantor_Samual_Malavsky_Shomea_Kol_Bichios.wav");
+
+
+
+(
+// PV_BrickWall (CC 0-3)
+SynthDef(\pv_brickwall, { |amp = 0.5, mod1 = 10, mod2 = 0.1, mod3 = 0|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(2048), sig);
+    chain = PV_BrickWall(chain, SinOsc.ar(mod1) + SinOsc.kr(mod2));
+    sig = IFFT(chain.dup);
+    sig = Splay.ar(sig, mod3);
+    sig = CombL.ar(sig, mod3, mod3, mod3);
+    Out.ar(0, sig * amp);
+}).add;
+)
+
+(
+// PV_RectComb (CC 20-23)
+SynthDef(\pv_rectcomb, { |amp = 0.5, mod1 = 0, mod2 = 0, mod3 = 0.2|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(2048), sig);
+    chain = PV_RectComb(chain, mod1, mod2, mod3);
+    Out.ar(0, IFFT(chain).dup * amp);
+}).add;
+)
+
+(
+// PV_MagSmear (CC 16-19)
+SynthDef(\pv_magsmear, { |amp = 0.5, mod1 = 0|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(1024), sig);
+    chain = PV_MagSmear(chain, mod1);
+    Out.ar(0, IFFT(chain).dup * amp);
+}).add;
+)
+
+(
+// PV_Freeze (CC 4-7)
+SynthDef(\pv_freeze, { |amp = 0.5, mod1 = 10|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(1024), sig);
+	chain = PV_Freeze(chain, SinOsc.kr(mod1) > 0.5);
+    Out.ar(0, IFFT(chain).dup * amp);
+}).add;
+)
+
+(
+// PV_MagGate (CC 8-11)
+SynthDef(\pv_maggate, { |amp = 0.5, mod1 = 50, mod2 = 0.5, mod3 = 0|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(1024), sig);
+    chain = PV_MagGate(chain, mod1, mod2);
+	chain = PV_MagShift(chain, 1, mod3);
+    Out.ar(0, IFFT(chain).dup * amp);
+}).add;
+)
+
+(
+// PV_MagShift (CC 12-15)
+SynthDef(\pv_magshift, { |amp = 0.5, mod1 = 0|
+    var sig = PlayBuf.ar(1, b, BufRateScale.kr(b), loop: 1);
+    var chain = FFT(LocalBuf(1024), sig);
+    Out.ar(0, IFFT(chain).dup * amp);
+}).play;
+)
+
+
+
+
+
+
+
+
+
+(
+~midiControlMap_BrickWall = (
+    00: \amp,
+    01: \mod1,
+    02: \mod2,
+    03: \mod3
+);
+~midiControlMap_RectComb = (
+	04: \amp,
+	05: \mod1,
+	06: \mod2,
+	07: \mod3
+);
+~midiControlMap_MagSmear = (
+    08: \amp,
+    09: \mod1,
+);
+~midiControlMap_Freeze = (
+	10: \amp,
+	11: \mod1
+);
+~midiControlMap_MagGate = (
+	12: \amp,
+	13: \mod1,
+	14: \mod2,
+	15: \mod3
+);
+
+// Your pv_brickwall synth
+(
+~synth_BrickWall = Synth(\pv_brickwall, [\bufnum, b]);
+~synth_MagSmear = Synth(\pv_magsmear, [\bufnum, b]);
+~synth_RectComb = Synth(\pv_rectcomb, [\bufnum, b]);
+~synth_MagGate = Synth(\pv_maggate, [\bufnum, b]);
+)
+
+
+/*s.bind {
+    ~synth_BrickWall = Synth(\pv_brickwall, [\bufnum, b]);
+    ~synth_MagSmear = Synth(\pv_pv_magsmear, [\bufnum, b]);  // Check name
+    ~synth_RectComb = Synth(\pv_rectcomb, [\bufnum, b]);     // Make sure this SynthDef exists
+};*/
+
+
+
+(
+// Connect MIDI CCs for pv_brickwall
+~midiControlMap_BrickWall.keysValuesDo { |cc, param|
+    MIDIFunc.cc({ |val, num, chan, src|
+        if (chan == 2) {  // MIDI channel 2
+            var mappedVal;
+            mappedVal = case
+            { param == \amp } { val.linlin(0, 127, 0.0, 1.0) }
+            { param == \mod1 } { val.linlin(0, 127, 1.0, 20.0) }
+            { param == \mod2 } { val.linlin(0, 127, 1.0, 20.0) }
+            { param == \mod3} { val.linlin(0, 127, 0.0, 1.0) }
+            { val / 127 };  // default fallback
+            ~synth_BrickWall.set(param, mappedVal);
+            ("CC" ++ cc ++ " (" ++ param ++ ") → " ++ mappedVal).postln;
+        }
+    }, cc);
+};
+
+
+// Connect MIDI CCs for pv_brickwall
+	~midiControlMap_RectComb.keysValuesDo { |cc, param|
+    MIDIFunc.cc({ |val, num, chan, src|
+        if (chan == 2) {  // MIDI channel 2
+            var mappedVal;
+            mappedVal = case
+            { param == \amp } { val.linlin(0, 127, 0.0, 1.0) }
+            { param == \mod1 } { val.linlin(0, 127, 1.0, 20.0) }
+            { param == \mod2 } { val.linlin(0, 127, 1.0, 20.0) }
+            { param == \mod3} { val.linlin(0, 127, 0.0, 1.0) }
+            { val / 127 };  // default fallback
+            ~synth_RectComb.set(param, mappedVal);
+            ("CC" ++ cc ++ " (" ++ param ++ ") → " ++ mappedVal).postln;
+        }
+    }, cc);
+};
+
+// Connect MIDI CCs for pv_pv_magsmear
+~midiControlMap_MagSmear.keysValuesDo { |cc, param|
+    MIDIFunc.cc({ |val, num, chan, src|
+        if (chan == 2) {  // MIDI channel 2
+            var mappedVal;
+            mappedVal = case
+            { param == \amp } { val.linlin(0, 127, 0.0, 1.0) }
+            { param == \mod1 } { val.linlin(0, 127, 0.0, 40.0) }
+            { val / 127 };  // default fallback
+            ~synth_MagSmear.set(param, mappedVal);
+            ("CC" ++ cc ++ " (" ++ param ++ ") → " ++ mappedVal).postln;
+        }
+    }, cc);
+};
+
+
+~midiControlMap_MagGate.keysValuesDo { |cc, param|
+    MIDIFunc.cc({ |val, num, chan, src|
+        if (chan == 2) {  // MIDI channel 2
+            var mappedVal;
+            mappedVal = case
+            { param == \amp } { val.linlin(0, 127, 0.0, 1.0) }
+            { param == \mod1 } { val.linlin(0, 127, 0.0, 40.0) }
+            { val / 127 };  // default fallback
+            ~synth_MagGate.set(param, mappedVal);
+            ("CC" ++ cc ++ " (" ++ param ++ ") → " ++ mappedVal).postln;
+        }
+    }, cc);
+};
+)
+
+
+MIDIClient.init;
+MIDIIn.connectAll;
+
+
+
+
+
+
+
+
+
+
+