From be828a7173bdafa77b36454d88865c037b348270 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= <luka@lukaprincic.si>
Date: Fri, 3 Apr 2020 00:58:09 +0200
Subject: [PATCH] first draft v200402 for 4 channels, incl -6db limiter on all
 channels

---
 lib/octoPanOut.scd |  9 +++++++++
 rhizosphere.scd    | 39 ++++++++++++++++++++++++++++++---------
 2 files changed, 39 insertions(+), 9 deletions(-)

diff --git a/lib/octoPanOut.scd b/lib/octoPanOut.scd
index 879da78..bba4184 100644
--- a/lib/octoPanOut.scd
+++ b/lib/octoPanOut.scd
@@ -52,6 +52,15 @@ SynthDef("reverBusser", {
 	var verb1, verb2, verb3, verb4;
 	var snd = In.ar(inBus, 8);
 
+	snd.put(0, Limiter.ar(in:snd.at(0), level:-6.dbamp, dur:0.04));
+	snd.put(1, Limiter.ar(in:snd.at(1), level:-6.dbamp, dur:0.04));
+	snd.put(2, Limiter.ar(in:snd.at(2), level:-6.dbamp, dur:0.04));
+	snd.put(3, Limiter.ar(in:snd.at(3), level:-6.dbamp, dur:0.04));
+	snd.put(4, Limiter.ar(in:snd.at(4), level:-6.dbamp, dur:0.04));
+	snd.put(5, Limiter.ar(in:snd.at(5), level:-6.dbamp, dur:0.04));
+	snd.put(6, Limiter.ar(in:snd.at(6), level:-6.dbamp, dur:0.04));
+	snd.put(7, Limiter.ar(in:snd.at(7), level:-6.dbamp, dur:0.04));
+	
 	verb1 = JPverb.ar(snd.at([0,1]) * verb1wet);
 	verb2 = JPverb.ar(snd.at([2,3]) * verb2wet);
     verb3 = JPverb.ar(snd.at([4,5]) * verb3wet);
diff --git a/rhizosphere.scd b/rhizosphere.scd
index fd5bd96..b68198d 100644
--- a/rhizosphere.scd
+++ b/rhizosphere.scd
@@ -84,6 +84,16 @@ s.meter; s.plotTree;
 ">>> loaded all busses".postln;
 );
 
+
+r = Recorder(s);
+r.recHeaderFormat = "wav";
+r.record(numChannels:8);
+r.stopRecording;
+
+
+
+
+
 ( ///////////////////////////////////////////////////////////////////////////////
 var timeLine;
 "\n>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>".postln;
@@ -114,16 +124,32 @@ var timeLine;
 // 4 x stereo reverbs are fixed to outputs ([0,1][2,3][4,5][6,7]) not panners!
 ~reverb = Synth("reverBusser", [\inBus, ~revBus, \outBus, 0], addAction: \addToTail);
 
+
 // some default oscilations of pan and reverb
-~panner1y = SynthDef(\randomPanY1, { Out.kr(~panBus1y, LFNoise1.kr(1).range(0,0.28))}).play;
-~panner2y = SynthDef(\randomPanY2, { Out.kr(~panBus2y, LFNoise1.kr(1).range(0,0.28))}).play;
-~panner3y = SynthDef(\randomPanY3, { Out.kr(~panBus3y, LFNoise1.kr(1).range(0,0.28))}).play;
-~panner4y = SynthDef(\randomPanY4, { Out.kr(~panBus4y, LFNoise1.kr(1).range(0,0.28))}).play;
+~panner1y = SynthDef(\randomPanY1, { Out.kr(~panBus1y, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner2y = SynthDef(\randomPanY2, { Out.kr(~panBus2y, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner3y = SynthDef(\randomPanY3, { Out.kr(~panBus3y, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner4y = SynthDef(\randomPanY4, { Out.kr(~panBus4y, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner1x = SynthDef(\randomPanX1, { Out.kr(~panBus1x, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner2x = SynthDef(\randomPanX2, { Out.kr(~panBus2x, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner3x = SynthDef(\randomPanX3, { Out.kr(~panBus3x, LFNoise1.kr(0.1).range(0,1))}).play;
+~panner4x = SynthDef(\randomPanX4, { Out.kr(~panBus4x, LFNoise1.kr(0.1).range(0,1))}).play;
+
 
 ~reverb1wetBus.free; // ~wetOsc.free; // clean up
+
 ~reverb1wetBus = Bus.control(s, 1); // create control bus
 ~reverb.map(\verb1wet, ~reverb1wetBus); // map an argument to control bus
+~reverb2wetBus = Bus.control(s, 1); // create control bus
+~reverb.map(\verb2wet, ~reverb2wetBus); // map an argument to control bus
+~reverb3wetBus = Bus.control(s, 1); // create control bus
+~reverb.map(\verb3wet, ~reverb3wetBus); // map an argument to control bus
+~reverb4wetBus = Bus.control(s, 1); // create control bus
+~reverb.map(\verb4wet, ~reverb4wetBus); // map an argument to control bus
 ~wetOsc = SynthDef(\randomVerb1, {Out.kr(~reverb1wetBus, LFNoise2.kr(1).range(0, 0.8)) }).play;
+~wetOsc = SynthDef(\randomVerb2, {Out.kr(~reverb2wetBus, LFNoise2.kr(1).range(0, 0.8)) }).play;
+~wetOsc = SynthDef(\randomVerb3, {Out.kr(~reverb3wetBus, LFNoise2.kr(1).range(0, 0.8)) }).play;
+~wetOsc = SynthDef(\randomVerb4, {Out.kr(~reverb4wetBus, LFNoise2.kr(1).range(0, 0.8)) }).play;
 
 // ~wetOsc.free;
 // ~reverb.set(\verb1wet, 0);
@@ -345,11 +371,6 @@ timeLine.play;
 
 // recording
 
-r = Recorder(s);
-r.recHeaderFormat = "wav";
-r.record(numChannels:2);
-r.stopRecording;
-
 
 
 //- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -