96 lines
2.2 KiB
Plaintext
96 lines
2.2 KiB
Plaintext
fork {
|
|
|
|
|
|
var libPath, smpPath;
|
|
|
|
// be nice, say hi.
|
|
post("\n\n\n\n\n");
|
|
30.do({post("- ")});
|
|
postln ("\nhello. this is algoforte 03 project.");
|
|
30.do({post("- ");0.05.wait;});
|
|
post("\n");
|
|
|
|
smpPath = PathName.new(
|
|
PathName.new(thisProcess.nowExecutingPath).pathOnly +/+ "smp/");
|
|
|
|
~granSmp = smpPath.files;
|
|
~granBfrList = List();
|
|
~granBfr = List();
|
|
Buffer.freeAll(s);
|
|
|
|
postln("\n--- recording buffers init ...");
|
|
// buffer for recording
|
|
~pBuf1 = Buffer.alloc(s, s.sampleRate * 4, 2);
|
|
~pBufMono1 = Buffer.alloc(s, s.sampleRate * 4);
|
|
|
|
0.2.wait;
|
|
|
|
postln(" \n~~~ loading soundfiles ..." );
|
|
~granSmp.do({ |item, i|
|
|
postln(" " + i + "" + item.folderName +/+ item.fileName);
|
|
~granBfrList.add(item.fileName);
|
|
~granBfr.add(Buffer.readChannel(s, item.fullPath, channels:[0]));
|
|
// [0] forces mono!
|
|
});
|
|
|
|
0.2.wait;
|
|
|
|
postln("\n--- loading libs ...");
|
|
libPath = PathName.new(
|
|
PathName.new(thisProcess.nowExecutingPath).pathOnly +/+ "lib/");
|
|
libPath.filesDo({|afile|
|
|
// for each file in list, load/execute it
|
|
postln(">>> loading file: " + afile.folderName +/+ afile.fileName);
|
|
this.executeFile(afile.fullPath);
|
|
});
|
|
|
|
0.2.wait;
|
|
|
|
postln("\n--- creating busses ...");
|
|
~fxJPverbBus1.free; ~fxJPverbBus1 = Bus.audio(s, 2);
|
|
~fxGverbBus1.free; ~fxGverbBus1 = Bus.audio(s, 2);
|
|
~fxFeedDelayBus1.free; ~fxFeedDelayBus1 = Bus.audio(s, 2);
|
|
~fxDelayWarpBus1.free; ~fxDelayWarpBus1 = Bus.audio(s, 2);
|
|
|
|
0.2.wait;
|
|
|
|
postln("\n--- loading effects ...");
|
|
|
|
postln("\n--- please wait (FAILURE IN SERVER errors are ok here) ...");
|
|
|
|
|
|
0.5.wait;
|
|
~fxJPverb1.free;
|
|
~fxJPverb1 = Synth( \fxJPverb,
|
|
[\in, ~fxJPverbBus1, \wet, 3, \decay, 5],
|
|
addAction:\addToTail);
|
|
0.2.wait;
|
|
|
|
~fxGverb1.free;
|
|
~fxGverb1 = Synth( \fxGverb,
|
|
[\in, ~fxGverbBus1, \early, 0.1, \tail, 0.7, \decay, 10],
|
|
addAction:\addToTail);
|
|
0.2.wait;
|
|
|
|
~fxFeedDelay1.free;
|
|
~fxFeedDelay1 = Synth( \fxFeedDelay,
|
|
[\in, ~fxFeedDelayBus1, \feedback, 0.99, \time, 2],
|
|
addAction:\addToTail);
|
|
|
|
0.2.wait;
|
|
|
|
~fxDelayWarp1.free;
|
|
~fxDelayWarp1 = Synth( \fxDelayWarp,
|
|
[\in, ~fxDelayWarpBus1, \wet, 0.5],
|
|
addAction:\addToTail);
|
|
|
|
0.5.wait;
|
|
|
|
postln("\n--- done loading effects.");
|
|
|
|
30.do({post("- ");0.05.wait;});
|
|
|
|
postln("\n~~~ readyForPlay.\n\n\n");
|
|
|
|
};
|