Browse Source

first draft v200402 for 4 channels, incl -6db limiter on all channels

8-channel
Luka Prinčič 1 year ago
parent
commit
be828a7173
2 changed files with 39 additions and 9 deletions
  1. +9
    -0
      lib/octoPanOut.scd
  2. +30
    -9
      rhizosphere.scd

+ 9
- 0
lib/octoPanOut.scd View File

@ -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);


+ 30
- 9
rhizosphere.scd View File

@ -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;
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


Loading…
Cancel
Save