|
|
|
@ -51,6 +51,7 @@ Server.default.waitForBoot { |
|
|
|
|
~panBus2x.free; ~panBus2y.free; ~panBus2r.free; |
|
|
|
|
~panBus3x.free; ~panBus3y.free; ~panBus3r.free; |
|
|
|
|
~panBus4x.free; ~panBus4y.free; ~panBus4r.free; |
|
|
|
|
~revBus.free; |
|
|
|
|
|
|
|
|
|
// octoBus1 + panners and control busses: |
|
|
|
|
~octoBus1 = Bus.audio(s,1); |
|
|
|
@ -88,37 +89,67 @@ Server.default.waitForBoot { |
|
|
|
|
~panBus4x.value = 0; |
|
|
|
|
~panBus4r.value = 0.1; |
|
|
|
|
|
|
|
|
|
// 8chan reverb bus |
|
|
|
|
~revBus = Bus.audio(s,8); |
|
|
|
|
">>> loaded all busses".postln; |
|
|
|
|
); |
|
|
|
|
|
|
|
|
|
( |
|
|
|
|
var timeLine, r; |
|
|
|
|
|
|
|
|
|
// CmdPeriod frees these, but not the busses, so only these need to be re-inst. |
|
|
|
|
|
|
|
|
|
"--- freeing old octoPanners ...".postln; |
|
|
|
|
~octoPanner1.free; ~octoPanner2.free; ~octoPanner3.free; ~octoPanner4.free; |
|
|
|
|
~octoPanner1 = Synth("octoPanner", [\inBus, ~octoBus1], addAction: \addToTail); |
|
|
|
|
|
|
|
|
|
"--- loading octoPanners ...".postln; |
|
|
|
|
~octoPanner1 = Synth("octoPanner", [\inBus, ~octoBus1, \outBus, ~revBus], addAction: \addToTail); |
|
|
|
|
~octoPanner1.map(\x, ~panBus1x); |
|
|
|
|
~octoPanner1.map(\y, ~panBus1y); |
|
|
|
|
~octoPanner1.map(\radius, ~panBus1r); |
|
|
|
|
|
|
|
|
|
~octoPanner2 = Synth("octoPanner", [\inBus, ~octoBus2], addAction: \addToTail); |
|
|
|
|
~octoPanner2 = Synth("octoPanner", [\inBus, ~octoBus2, \outBus, ~revBus], addAction: \addToTail); |
|
|
|
|
~octoPanner2.map(\x, ~panBus2x); |
|
|
|
|
~octoPanner2.map(\y, ~panBus2y); |
|
|
|
|
~octoPanner2.map(\radius, ~panBus2r); |
|
|
|
|
|
|
|
|
|
~octoPanner3 = Synth("octoPanner", [\inBus, ~octoBus3], addAction: \addToTail); |
|
|
|
|
~octoPanner3 = Synth("octoPanner", [\inBus, ~octoBus3, \outBus, ~revBus], addAction: \addToTail); |
|
|
|
|
~octoPanner3.map(\x, ~panBus3x); |
|
|
|
|
~octoPanner3.map(\y, ~panBus3y); |
|
|
|
|
~octoPanner3.map(\radius, ~panBus3r); |
|
|
|
|
|
|
|
|
|
~octoPanner4 = Synth("octoPanner", [\inBus, ~octoBus4], addAction: \addToTail); |
|
|
|
|
~octoPanner4 = Synth("octoPanner", [\inBus, ~octoBus4, \outBus, ~revBus], addAction: \addToTail); |
|
|
|
|
~octoPanner4.map(\x, ~panBus4x); |
|
|
|
|
~octoPanner4.map(\y, ~panBus4y); |
|
|
|
|
~octoPanner4.map(\radius, ~panBus4r); |
|
|
|
|
~octoPanner4.map(\radius, ~panBus4r); |
|
|
|
|
|
|
|
|
|
~reverb = Synth("reverBusser", [\inBus, ~revBus, \outBus, 0], addAction: \addToTail); |
|
|
|
|
|
|
|
|
|
timeLine = Routine { |
|
|
|
|
"--- starting main routine ...".postln; |
|
|
|
|
|
|
|
|
|
1.wait; |
|
|
|
|
//1.wait; |
|
|
|
|
|
|
|
|
|
/* |
|
|
|
|
~panBus1y.value = 0.2; // set a fixed value to a bus |
|
|
|
|
~panBus1x.value = 0; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
~darkHenon1 = Synth(\henonLsynth2, [\out, ~octoBus1, \fadeTime, 3]); |
|
|
|
|
~darkHenon1.set(\gate, 0); |
|
|
|
|
~darkHenon1.free |
|
|
|
|
~darkHenon1.set(\gate, 0); |
|
|
|
|
~darkHenon1.set(\amp, 0); |
|
|
|
|
~noiseCr1.set(\fadeTime, 20, \gate, 0); |
|
|
|
|
|
|
|
|
|
~darkHenon2 = Synth(\henonLsynth2, [\out, ~octoBus2]); |
|
|
|
|
|
|
|
|
|
~darkHenon1.free |
|
|
|
|
~darkHenon2.free |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
*/ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* ***** ************************ |
|
|
|
|
|
|
|
|
@ -180,7 +211,6 @@ timeLine = Routine { |
|
|
|
|
~markov8.set(\gate, 0); |
|
|
|
|
~markov9.set(\gate, 0); |
|
|
|
|
wait(1); |
|
|
|
|
**********/ |
|
|
|
|
|
|
|
|
|
~markov7 = Synth(\markovS1, [ \out, ~octoBus1, |
|
|
|
|
\freq, 141, \tsize, 3, \amp, 0.5, \clip, 0.9, \fadeTime, 0.01 ]); |
|
|
|
@ -249,6 +279,7 @@ timeLine = Routine { |
|
|
|
|
|
|
|
|
|
~noiseCr1.set(\fadeTime, 20, \gate,0); |
|
|
|
|
|
|
|
|
|
**********/ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
@ -281,50 +312,52 @@ timeLine.play; |
|
|
|
|
); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
( // metering/analysis |
|
|
|
|
s.meter; |
|
|
|
|
s.scope; |
|
|
|
|
s.plotTree; |
|
|
|
|
FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
) ///////////////////////////////////// |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// testing stuff! /////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
~lorenzTrig1 = Synth(\lorenzTrigRing, [\out, ~octoBus1, \freq, 1400, \amp, 0.5]); |
|
|
|
|
~reverb.set(\verb1wet, 0.3); |
|
|
|
|
~reverb.set(\verb2wet, 1); |
|
|
|
|
|
|
|
|
|
// 'set' values - disconnects mapping! |
|
|
|
|
~octoPanner1.set(\x, 0, \y, 0.14, \radius, 0.1); |
|
|
|
|
~octoPanner1.set(\x, 0, \y, 0.28, \radius, 0.001); |
|
|
|
|
|
|
|
|
|
( // send oscilations to control bus |
|
|
|
|
~panner1y.free; |
|
|
|
|
~panner1y = {Out.kr(~panBus1y, LFNoise0.kr(9).range(0,0.28))}.play; |
|
|
|
|
~panner1y = {Out.kr(~panBus1y, SinOsc.kr(0.1).range(0,0.28))}.play; |
|
|
|
|
~panner1y = SynthDef(\randomPanY, { Out.kr(~panBus1y, LFNoise0.kr(9).range(0,0.28))}).play; |
|
|
|
|
// convert to SynthDef + Synth for common oscilations? |
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
~lorenzTrig1.free; |
|
|
|
|
///////////////////////////////////////////////////////////////////////////////////////////////////////// |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
( // metering/analysis |
|
|
|
|
s.meter; |
|
|
|
|
s.scope; |
|
|
|
|
s.plotTree; |
|
|
|
|
FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
) ///////////////////////////////////// |
|
|
|
|
|
|
|
|
|
// synths |
|
|
|
|
|
|
|
|
|
~henonS1 = Synth(\henonSynth1, [\out, ~octoBus1], ~octoPanner1, \addBefore); |
|
|
|
|
~henonS1 = Synth(\henonSynth1, [\out, ~octoBus1], addAction:\addToHead);// addToHead is default action |
|
|
|
|
~henonS1 = Synth(\henonSynth1, [\out, ~octoBus1]); |
|
|
|
|
~Henons1 = Synth(\henonSynth1, [\out, 0]); |
|
|
|
|
~henonS1.free; |
|
|
|
|
|
|
|
|
|
~darkHenon = Synth(\henonLsynth2, [\out, ~octoBus2], ~octoPanner2, \addBefore); |
|
|
|
|
~darkHenon = Synth(\henonLsynth2, [\out, ~octoBus2]); |
|
|
|
|
~darkHenon = Synth(\henonLsynth2, [\out, 0]); |
|
|
|
|
~darkHenon.free; |
|
|
|
|
|
|
|
|
|
~hpfHenon = Synth(\henonLsynth1, [\out, ~octoBus3, \hpfreqmin, 100]); |
|
|
|
|
~hpfHenon = Synth(\henonLsynth1, [\out, ~octoBus1, \hpfreqmin, 100]); |
|
|
|
|
~hpfHenon.set(\hpfreqmin, 1000) |
|
|
|
|
~hpfHenon.free; |
|
|
|
|
|
|
|
|
|
~distbleeps = Synth(\latooTriggers, [\out, ~octoBus1, \trigA, 1.1], ~octoPanner1, \addBefore); |
|
|
|
@ -338,6 +371,8 @@ FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
~henonSquare.set(\gate,0); |
|
|
|
|
|
|
|
|
|
~latooWan1 = Synth(\latooWanderings, [\out, ~octoBus4, \fadeTime, 0.1]); |
|
|
|
|
~latooWan1.set(\out,1) |
|
|
|
|
~latooWan1.set(\amp,1) |
|
|
|
|
~latooWan1.set(\gate, 0, \fadeTime, 10); |
|
|
|
|
~latooWan1.free; |
|
|
|
|
|
|
|
|
@ -354,10 +389,14 @@ FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
~noiseCr1 = Synth(\noiseCrackle, [\out, ~octoBus1, \fadeTime, 5 ]); |
|
|
|
|
~noiseCr1 = Synth(\noiseCrackle, [\out, 0, \fadeTime, 5 ]); |
|
|
|
|
~noiseCr2 = Synth(\noiseCrackle, [\out, 1, \fadeTime, 5 ]); |
|
|
|
|
~noiseCr1.set(\lpfa,1,\hpfa,0); |
|
|
|
|
~noiseCr1.set(\hpfa,1,\lpfa,0); |
|
|
|
|
~noiseCr1.set(\amp,0.3); |
|
|
|
|
|
|
|
|
|
~noiseCr1.set(\fadeTime, 20, \gate,0); |
|
|
|
|
~noiseCr2.set(\fadeTime, 20, \gate,0); |
|
|
|
|
~noiseCr1.free; |
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -380,7 +419,7 @@ FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
~latooTrig1 = Synth(\latooTrigRing, [\out, ~octoBus1, \freq, 300], ~octoPanner1, \addBefore); |
|
|
|
|
~latooTrig1.free; |
|
|
|
|
|
|
|
|
|
~lorenzTrig1 = Synth(\lorenzTrigRing, [\out, ~octoBus1, \freq, 1400, \amp, 0.5], ~octoPanner1, \addBefore); |
|
|
|
|
~lorenzTrig1 = Synth(\lorenzTrigRing, [\out, ~octoBus1, \freq, 1400, \amp, 0.5]); |
|
|
|
|
~lorenzTrig1.free; |
|
|
|
|
|
|
|
|
|
~fhnTrig1 = Synth(\fhnTrigRing, [\out, ~octoBus1, \freq, 2100, \amp, 0.5], ~octoPanner1, \addBefore); |
|
|
|
@ -395,8 +434,8 @@ FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
~soil1.set(\rate, 0.2); |
|
|
|
|
~soil1.set(\out, 1); |
|
|
|
|
~soil1.set(\dur, 0.01); |
|
|
|
|
~soil1.set(\amp, 3); |
|
|
|
|
|
|
|
|
|
~soil1.set(\amp, 0.1); |
|
|
|
|
~soil1.set(\out, 1); |
|
|
|
|
~soil1.set(\envbuf, ~planotaBuf); |
|
|
|
|
|
|
|
|
|
// send SinOscilation to a argument via bus |
|
|
|
@ -409,6 +448,8 @@ FreqScope.new(400, 200, 0, server: s); |
|
|
|
|
~soil2 = Synth(\granSoil, [\out, ~octoBus2, \sndbuf, ~forestSoilBuf]); |
|
|
|
|
~soil2.map(\dur, ~foreskrBus); |
|
|
|
|
|
|
|
|
|
~soil2.set(\amp, 0.1) |
|
|
|
|
|
|
|
|
|
~soil1.set(\gate, 0, \fadeTime, 2); // use envelope to fade out |
|
|
|
|
~soil2.set(\gate, 0, \fadeTime, 2); // use envelope to fade out |
|
|
|
|
|
|
|
|
|