Compare commits
3 Commits
df2832ed89
...
9019b99243
Author | SHA1 | Date |
---|---|---|
Rob Canning | 9019b99243 | |
Rob Canning | f2fbda4f49 | |
Rob Canning | 065810e05f |
4
gtr.scd
4
gtr.scd
|
@ -1,4 +1,3 @@
|
|||
|
||||
// RUNME 0 =========================================
|
||||
|
||||
Server.default.waitForBoot { // see below .bundle timings for starting synths etc.
|
||||
|
@ -26,7 +25,7 @@ thisProcess.openUDPPort(57121);
|
|||
~fxGrp = Group.after(~micGrp);
|
||||
|
||||
//load the gui
|
||||
"/home/rob/gtr/gtr-gui-manual.scd".load;
|
||||
"/home/rob/gtr/GUI.scd".load;
|
||||
s.plotTree;
|
||||
s.meter;
|
||||
|
||||
|
@ -642,3 +641,4 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort;
|
|||
}; // end wait for boot
|
||||
|
||||
// todo countdown on density voices
|
||||
y
|
||||
|
|
|
@ -0,0 +1,105 @@
|
|||
|
||||
OSCFunc.trace(true); // Turn posting on
|
||||
OSCFunc.trace(false); // Turn posting off
|
||||
// ----------------------------------------------------
|
||||
// LIVE CODE / PERFORMABLE PARAMETERS /////////////////
|
||||
// ----------------------------------------------------
|
||||
// set recorder loop and overdub modes ////////////
|
||||
|
||||
// start recording (without button)
|
||||
|
||||
r.set(\in, 0, \l, 1, \overdub, 0.2, \t_trig, 1);
|
||||
r.set(\l, 0); // looping record on/off 0/1 - MAPPED TO SWITCH 3
|
||||
r.set(\overdub, 0.9); // overdub mode 0 - 0.99 - MAPPED TO SWITCH 4
|
||||
|
||||
// todo at gate on off to button control
|
||||
~g.do({arg n; n.set(\gate, 1 )});
|
||||
|
||||
b = Buffer.read(s, Platform.resourceDir +/+ "sounds/a11wlk01.wav");
|
||||
|
||||
b.plot;
|
||||
|
||||
// todo assign freeze toggle button combo to interface
|
||||
~ptrGrp.set(\rate, 0);
|
||||
~ptrGrp.set(\rate, 1);
|
||||
~gdurMode = 0;
|
||||
~pitchMode = 0;
|
||||
|
||||
Buffer
|
||||
|
||||
~pointer.set(\rate, 0);
|
||||
|
||||
|
||||
~g.set(\gate, 1);
|
||||
~g.do({arg n; n.set(\gate, 1 )});
|
||||
~g.do({arg n; n.set(\rate, 2 )});
|
||||
|
||||
\amp, n.linlin(0,4, -3,-20).dbamp,
|
||||
|
||||
~g.do({arg n; n.set(\amp, 0.8)});
|
||||
~g.do({arg n; n.set(\rateRand, 300 )});
|
||||
~g.do({arg n; n.set(\amp, 0.3, \dens, 4 )});
|
||||
~g.do({arg n; n.set(\rateRand, 0)});
|
||||
|
||||
~g.do({arg n; n.set(\baseDur, 2)});
|
||||
~g.do({arg n; n.set(\durRand, 100)});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\panRand, 1)});
|
||||
~g.do({arg n; n.set(\sync, 1 )});
|
||||
~g.do({arg n; n.set(\atk, exprand(0.1, 1) )});
|
||||
~g.do({arg n; n.set(\atk, exprand(0.1, 1) )});
|
||||
~g.do({arg n; n.set(\atk, 1000 )});
|
||||
|
||||
~g.do({arg n; n.set(\rel, 1000 )});
|
||||
~g.do({arg n; n.set(\dens, exprand(1,80) )});
|
||||
|
||||
~g.do({arg n; n.set(\dens,10)});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\panRand, 1 )});
|
||||
|
||||
\ptrSampleDelay, n.linlin(0,4, 20000, s.sampleRate*5),
|
||||
|
||||
~g.do({arg n; n.set(\ptrSampleDelay, s.sampleRate * 4) });
|
||||
~g.do({arg n; n.set(\ptrRandSamples, s.sampleRate * 4 )});
|
||||
|
||||
~g.do({arg n; n.set(\ptrRandSamples, 2000 )});
|
||||
|
||||
~g.do({arg n; n.set(\minPtrDelay, 200 )});
|
||||
|
||||
~g.do({arg n; n.set([\baseDur, 0.0100])});
|
||||
~g.do({arg n; n.set([\durRand, 1000])});
|
||||
|
||||
|
||||
~g.do({arg n; n.set([\baseDur, 0, \durRand, 6, \dens, 1, \rate, 1, \rateRand, 1.1, \sync, 1, \ptrRandSamples, 200000, ])});
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\baseDur, 0.3, \durRand, 1, \sync, 1, \dens, 155 )});
|
||||
~g.do({arg n; n.set([\baseDur, 1.08, \durRand, 3, \sync, 0, \dens, 25 ])});
|
||||
|
||||
|
||||
~rec.set(\overdubLevel, 0.1);
|
||||
|
||||
~pointer.set(\ptrMode, 0);
|
||||
|
||||
|
||||
~g.do({arg n; n.set(\gate, 0 )});
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////
|
||||
|
||||
thisProcess.platform.recordingsDir;// find where the recordings are written to
|
||||
s.record(numChannels:4); // record
|
||||
|
||||
|
||||
|
||||
// CODE DUMP ZONE ///////////////////////////////
|
||||
|
||||
// switch to the custom env
|
||||
//~g1.set(\envbuf, z);
|
||||
//~g1.set(\envbuf, -1);
|
||||
n = NetAddr("127.0.0.1", NetAddr.langPort);
|
||||
//n = NetAddr.new("224.0.1.9", 6696);
|
||||
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
|
||||
kill `pidof ardour-6.5.0~ds0`
|
||||
|
||||
killall -9 jackd guitarix sclang scide;
|
||||
|
||||
/usr/bin/jackd -aa -u -dalsa -r44100 -p512 -n3 -D -Chw:U192k -Phw:U192k &
|
||||
|
||||
sleep 1;
|
||||
|
||||
guitarix &
|
||||
|
||||
sclang -D gtr.scd &
|
||||
|
||||
sleep 4;
|
||||
|
||||
rm recordings/ardour/gtr-2022-11-28-15-07-41/*.bak &
|
||||
rm recordings/ardour/gtr-2022-11-28-15-07-41/*.history &
|
||||
|
||||
ardour recordings/ardour/gtr-2022-11-28-15-07-41/gtr-2022-11-28-15-07-41.ardour &
|
||||
|
||||
sleep 5;
|
||||
|
||||
qjackctl &
|
||||
|
||||
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
|
||||
# /usr/bin/jackd -u -dalsa -dhw:USB -r44100 -p512 -n3 -S
|
||||
|
||||
killall -9 jackd
|
||||
|
||||
/usr/bin/jackd -aa -u -dalsa -r44100 -p512 -n3 -D -Chw:U192k -Phw:U192k
|
||||
|
Loading…
Reference in New Issue