diff --git a/gtr.scd b/gtr.scd index e17892c..b2a5b86 100644 --- a/gtr.scd +++ b/gtr.scd @@ -103,10 +103,15 @@ SynthDef.new(\mic, { }).add; SynthDef.new(\ptr, { - arg out=0, buf=0; + arg out=0, buf=0, ptrMode=0; var sig; - sig = Phasor.ar(0, BufRateScale.kr(buf), 0, BufFrames.kr(buf)); - Out.ar(out, sig); + sig = Select.ar(ptrMode, [ + Phasor.ar(0, BufRateScale.kr(buf), 0, BufFrames.kr(buf)), + LFNoise1.ar(100).exprange(10000, 1001) + //LFNoise1.ar(100).exprange(1/BufFrames.kr(buf), BufFrames.kr(buf)) + ]); + + Out.ar(out, sig); }).add; SynthDef.new(\rec, { @@ -122,7 +127,7 @@ SynthDef.new(\rec, { SynthDef("recBuf",{ arg micIn=0, out=0, ptrIn=0, bufnum=0, t_trig=0, l=0, overdub=0; var sig, ptr, chain, onsets; - sig = SoundIn.ar(micIn, 1); + sig = In.ar(micIn, 1); ptr = In.ar(ptrIn, 1); // Onsets @@ -196,8 +201,8 @@ r = Synth(\recBuf, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b, \t_trig, 0], ~re Synth(\mic, [\in, 0, \out, ~micBus], ~micGrp); -Synth(\ptr, [\buf, b, \out, ~ptrBus], ~ptrGrp); -Synth(\rec, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b], ~recGrp); +~pointer = Synth(\ptr, [\buf, b, \out, ~ptrBus], ~ptrGrp); +//.Synth(\rec, [\ptrIn, ~ptrBus, \micIn, ~micBus, \buf, b], ~recGrp); b.zero; @@ -244,13 +249,13 @@ OSCFunc.trace(false); // Turn posting off ( // ---------------------------------------------------- ~overdubMode= 0; ~pitchMode = 0; ~posMode = 0; ~impulseMode = 0; -~gdurMode=0; ~gpanMode=0; ~channelmode=0; -~instrPanMode=0; +~gdurMode=0; ~gpanMode=0; ~channelmode=0; ~instrPanMode=0; +/* ~btnstate = []; ~btnsA = []; ~btnsB = []; -~btnsC = []; +~btnsC = [];*/ ~btn0val = -1; ~btn1val = -1; ~btn2val = -1; ~btn3val = -1; ~btn4val = -1; ~btn5val = -1; ~btn6val = -1; ~btn7val = -1; @@ -259,6 +264,7 @@ OSCFunc.trace(false); // Turn posting off ~btn9val = -1; ~btn10val = -1; ~btn11val = -1; ~btn12val = -1; ~btn13val = -1; ~btn14val = -1; ~btn15val = -1; ~btn16val = -1; +//~pitchMode=7; (( // accel gyro quaternion mapping /////////////////// @@ -266,7 +272,27 @@ OSCFunc.trace(false); // Turn posting off o = OSCdef(\test, { arg msg, time, addr, recvPort, rlow, rhigh; - ~g.do({arg n; n.set(\rateRand, msg[2].linlin(0, 1, 1, 50); )}; ); + if ( ~pitchMode == 7, + { + //"it's 7".postln; + msg.postln; + ~g.do({arg n; n.set( + \rate, msg[2].linlin(-1, 1, 0.5, 2); + \rateRand, msg[3].linlin(0, -0.5, 1, 10); + )}; ); + }, + {"not 7".postln;} ); + + if ( ~posMode == 7, + { + //"it's 7".postln; + msg.postln; + ~ptr.do({arg n; n.set( + //\ptrRandSamples, s.sampleRate * 0.125, \minPtrDelay, 1000, \ptrSampleDelay, s.sampleRate * msg[2].linlin(-0.3, 0.3, 0.1, 3) ; + //\sig, BufFrames.kr(b) * msg[2].linlin(-0.3, 0.3, 0.1, 1) + )}; ); + }, + {"not 7".postln;} ); }; , '/euler'); @@ -287,11 +313,11 @@ n = NetAddr("127.0.0.1", NetAddr.langPort); p = OSCdef(\keys, { arg msg, time, addr, recvPort; //msg[1].postln; - ~btnsA[~btn2val, ~btn3val]; +/* ~btnsA[~btn2val, ~btn3val]; ~btnsB[~btn4val, ~btn5val, ~btn6val, ~btn7val]; - ~btnsC[~btn5val]; + ~btnsC[~btn5val];*/ - ~btnstate = [~btnsA, ~btnsB, ~btnsC]; + // ~btnstate = [~btnsA, ~btnsB, ~btnsC]; /// PRESETS !!!!!!!!!!!!!!!!!!!!!!! @@ -394,11 +420,11 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort; {~pitchMode == 4 }{{~pitchModeGui.value_(4) }.defer; ~g.do({arg n; n.set(\rate, 1, \rateRand, 5) }); } {~pitchMode == 5 }{{~pitchModeGui.value_(5) }.defer; ~g.do({arg n; n.set(\rate, 1, \rateRand, 10) }); } {~pitchMode == 6 }{{~pitchModeGui.value_(6) }.defer; ~g.do({arg n; n.set(\rate, 1, \rateRand, 100) }); } - {~pitchMode == 7 }{{~pitchModeGui.value_(7) }.defer; ~g.do({arg n; n.set(\rate, [0.5,1,2,].choose;) }); }; + {~pitchMode == 7 }{{~pitchModeGui.value_(7) }.defer; ~g.do({arg n; n.set() }); }; case {~gdurMode == 0 }{{~durModeGui.value_(0) }.defer; ~g.do({arg n; n.set(\baseDur, 1, \durRand, 1)}); } - {~gdurMode == 1 }{{~durModeGui.value_(1) }.defer; ~g.do({arg n; n.set(\baseDur, 2, \durRand, 1)}); } + {~gdurMode == 1 }{{~durModeGui.value_(1) }.defer; ~g.do({arg n; n.set(\baseDur, 4, \durRand, 1)}); } {~gdurMode == 2 }{{~durModeGui.value_(2) }.defer; ~g.do({arg n; n.set(\baseDur, 1/4, \durRand, 5)});} {~gdurMode == 3 }{{~durModeGui.value_(3) }.defer; ~g.do({arg n; n.set(\baseDur, 1/8, \durRand, 100)});} {~gdurMode == 4 }{{~durModeGui.value_(4) }.defer; ~g.do({arg n; n.set(\baseDur, 1/16, \durRand, 1)});} @@ -414,10 +440,10 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort; \ptrRandSamples, s.sampleRate * 0.25, \minPtrDelay, 1500, \ptrSampleDelay, s.sampleRate * 1) }); } {~posMode == 2 }{{~posModeGui.value_(2) }.defer; ~g.do({arg n; n.set( - \ptrRandSamples, s.sampleRate * 0.5, \minPtrDelay, 15000, \ptrSampleDelay, s.sampleRate * 1) }); } + \ptrRandSamples, s.sampleRate * 0.5, \minPtrDelay, 1500, \ptrSampleDelay, s.sampleRate * 1) }); } {~posMode == 3 }{{~posModeGui.value_(3) }.defer; ~g.do({arg n; n.set( - \ptrRandSamples, s.sampleRate * 1, \minPtrDelay, 15000, \ptrSampleDelay, s.sampleRate * 1) }); } + \ptrRandSamples, s.sampleRate * 1, \minPtrDelay, 1500, \ptrSampleDelay, s.sampleRate * 1) }); } {~posMode == 4 }{{~posModeGui.value_(4) }.defer; ~g.do({arg n; n.set( \ptrRandSamples, s.sampleRate * 2, \ptrSampleDelay, s.sampleRate * 1) }); } @@ -428,8 +454,7 @@ p = OSCdef(\keys, { arg msg, time, addr, recvPort; {~posMode == 6 }{{~posModeGui.value_(6) }.defer; ~g.do({arg n; n.set( \ptrRandSamples, s.sampleRate * 5, \minPtrDelay, 1500, \ptrSampleDelay, s.sampleRate * 1) }); } - {~posMode == 7 }{{~posModeGui.value_(7) }.defer; ~g.do({arg n; n.set( - \ptrRandSamples, s.sampleRate * 1, \minPtrDelay, 15000; ) }); }; + {~posMode == 7 }{{~posModeGui.value_(7) }.defer; ~g.do({arg n; n.set( ) }); }; //SENSOR MODE - SEE ABOVE //[1,2,3].choose; @@ -730,6 +755,8 @@ r.set(\overdub, 0.9); // overdub mode 0 - 0.99 - MAPPED TO SWITCH 4 ~rec.set(\overdubLevel, 0.1); +~pointer.set(\ptrMode, 1); + //////////////////////////////////////////////////////////////////////// thisProcess.platform.recordingsDir;// find where the recordings are written to