luka
/
ark_d.amorphic
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

untabify

chaos_201207
Luka Prinčič 2020-07-08 15:00:54 +02:00
parent 70c3c0101b
commit c520d49c9e
1 changed files with 88 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

164
work/bufCyc.scd
View File

@ -2,40 +2,36 @@
( (
// function to partially match filename for buffers // function to partially match filename for buffers
~getSmp = { |regexp| ~getSmp = { |regexp|
~smpBuffers.detect { |buf| ~smpBuffers.detect { |buf|
regexp.matchRegexp(buf.path) regexp.matchRegexp(buf.path)
} }
}; };
) )
( (
SynthDef(\bufCyc, { SynthDef(\bufCyc, {
arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1, arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1,
attackTime=0.01, releaseTime=1, attackTime=0.01, releaseTime=1, fltfact = 1;
fltfact = 1 var snd, env;
;
var snd, env; env = Linen.kr(gate, attackTime:attackTime, releaseTime:releaseTime, doneAction:2);
env = Linen.kr(gate, attackTime:attackTime, releaseTime:releaseTime, doneAction:2); freq = [freq, freq * (1 + (chanDetune * 0.0005))];
freq = [freq, freq * (1 + (chanDetune * 0.0005))]; snd = BufRd.ar(
numChannels: 1,
bufnum: bufnum,
phase: LFSaw.ar(freq).range(0, BufFrames.ir(bufnum)),
loop: 1,
interpolation: 2);
snd = BufRd.ar( snd = (snd * 0.5) + (snd.clip2(0.3) * 2);
numChannels: 1,
bufnum: bufnum,
//phase: LFSaw.ar(BufDur.ir(bufnum).reciprocal).range(0, BufFrames.ir(bufnum)),
phase: LFSaw.ar(freq).range(0, BufFrames.ir(bufnum)),
loop: 1,
interpolation: 2);
snd = (snd * 0.5) + (snd.clip2(0.3) * 2); snd = RLPF.ar(snd, (freq * fltfact).min(20000), rq: 0.3).clip2(1.0.linrand+0.8);
snd = RLPF.ar(snd, (freq * fltfact).min(20000), rq: 0.3).clip2(1.0.linrand+0.8); snd = snd * amp * env;
snd = snd * amp * env;
Out.ar(out, snd);
Out.ar(out, snd);
}).add; }).add;
) )
@ -44,30 +40,30 @@ Pdef(\x32).fadeTime = 0;
( (
Pdef(\x32, Pdef(\x32,
Pbind( Pbind(
\instrument, \bufCyc, \instrument, \bufCyc,
\bufnum, [~getSmp.value("0229"),~getSmp.value("0246")], \bufnum, [~getSmp.value("0229"),~getSmp.value("0246")],
\dur, Pseq([0.20, 0.40, 0.60, Prand([0.20,0.60]), Prand([Pseq([0.10,0.10]), Pseq([0.30,0.10])])], inf) , \dur, Pseq([0.20, 0.40, 0.60, Prand([0.20,0.60]), Prand([Pseq([0.10,0.10]), Pseq([0.30,0.10])])], inf) ,
\degree, Pseq([ 2, 2, 4, 1 ], inf), \degree, Pseq([ 2, 2, 4, 1 ], inf),
\mtranspose, Pseq([ Pn([0], 10 ), \mtranspose, Pseq([ Pn([0], 10 ),
Pn([1], 5 ), Pn([1], 5 ),
Pn([0], 10 ), Pn([0], 10 ),
Pn([3], 4 ) ], inf), Pn([3], 4 ) ], inf),
\ctranspose, Pseq([ Pn([0], 50 ), \ctranspose, Pseq([ Pn([0], 50 ),
Pn([5], 5 ) ],inf), Pn([5], 5 ) ],inf),
\octave, [3, 2, 4], \octave, [3, 2, 4],
\amp, [0.3, 0.5, 0.1] * 0.6, \amp, [0.3, 0.5, 0.1] * 0.6,
\detune, [0.2, 0], \detune, [0.2, 0],
\chanDetune, 30, \chanDetune, 30,
\legato, Prand([0.8,0.6,0.4],inf), \legato, Prand([0.8,0.6,0.4],inf),
\releaseTime, 0.01, \releaseTime, 0.01,
\fltfact, Prand([9,15,12,7],inf) \fltfact, Prand([9,15,12,7],inf)
)); ));
) )
// cleaning up // cleaning up
@ -78,59 +74,59 @@ Pdef(\x33).play
Pdef(\x33).fadeTime = 0; Pdef(\x33).fadeTime = 0;
( (
Pdef(\x33, Pdef(\x33,
Pbind( Pbind(
\instrument, \bufCyc, \instrument, \bufCyc,
\bufnum, [~getSmp.value("0246"),~getSmp.value("0229")], \bufnum, [~getSmp.value("0246"),~getSmp.value("0229")],
\dur, Pseq([ 0.20, \dur, Pseq([ 0.20,
0.40, 0.40,
Prand([0.60,0.20]), Prand([0.60,0.20]),
0.10, 0.10,
0.10, 0.10,
Prand([ Pseq([0.13,0.07]), Pseq([0.30,0.10]) ]) Prand([ Pseq([0.13,0.07]), Pseq([0.30,0.10]) ])
], inf), ], inf),
\degree, Pseq([ [4,9], 2, 8, 4, 1], inf), \degree, Pseq([ [4,9], 2, 8, 4, 1], inf),
\mtranspose, Pseq([ Pn([0],10), Pn([3],10), Pn([0],10), Pn([5],5), Pn([7],2) ], inf), \mtranspose, Pseq([ Pn([0],10), Pn([3],10), Pn([0],10), Pn([5],5), Pn([7],2) ], inf),
\ctranspose, Pseq([ Pn([0],50), Pn([5],10) ], inf), \ctranspose, Pseq([ Pn([0],50), Pn([5],10) ], inf),
\octave, [4,5,6], \octave, [4,5,6],
\legato, Prand([0.1,0.3,0.2,0.4],inf), \legato, Prand([0.1,0.3,0.2,0.4],inf),
\releaseTime, Prand([0.1, 0.01, 0.02, 0.03, 0.05, 0.09],inf), \releaseTime, Prand([0.1, 0.01, 0.02, 0.03, 0.05, 0.09],inf),
\fltfact, Prand([2,20,9],inf), \fltfact, Prand([2,20,9],inf),
\amp, [0.7,0.5,0.1] * 0.2, \amp, [0.7,0.5,0.1] * 0.2,
\detune, [0,0.3,-0.3], \detune, [0,0.3,-0.3],
\chanDetune, Pseq([-10,0,5,10,-5],inf), \chanDetune, Pseq([-10,0,5,10,-5],inf),
)); ));
) )
Pdef(\x35).play Pdef(\x35).play
Pdef(\x35).fadeTime = 0; Pdef(\x35).fadeTime = 0;
( (
Pdef(\x35, Pdef(\x35,
Pbind( Pbind(
\instrument, \bufCyc, \instrument, \bufCyc,
\bufnum, [~getSmp.value("0246"),~getSmp.value("0229")], \bufnum, [~getSmp.value("0246"),~getSmp.value("0229")],
\dur, Pseq([ 0.20, \dur, Pseq([ 0.20,
0.10, 0.10,
Prand([0.10,0.20]), Prand([0.10,0.20]),
0.10, 0.10,
0.10, 0.10,
Prand([ Pseq([0.13,0.07]), Prand([ Pseq([0.13,0.07]),
Pseq([0.30,0.10]) ]) Pseq([0.30,0.10]) ])
], inf), ], inf),
\degree, Pseq([ [4,9], 2, 8, 4, 1 ], inf), \degree, Pseq([ [4,9], 2, 8, 4, 1 ], inf),
\mtranspose, Pseq([ Pn([0],10), Pn([3],10), Pn([0],10), Pn([5],5), Pn([7],2) ], inf), \mtranspose, Pseq([ Pn([0],10), Pn([3],10), Pn([0],10), Pn([5],5), Pn([7],2) ], inf),
\ctranspose, Pseq([ Pn([0],50), Pn([5],10) ], inf), \ctranspose, Pseq([ Pn([0],50), Pn([5],10) ], inf),
\octave, 5, \octave, 5,
\detune, [0, 0.3, -0.3], \detune, [0, 0.3, -0.3],
\chanDetune, Pseq([ -10, 0, 5, 10, -5 ], inf), \chanDetune, Pseq([ -10, 0, 5, 10, -5 ], inf),
\legato, Prand([ 0.1, 0.05 ], inf), \legato, Prand([ 0.1, 0.05 ], inf),
\amp, [0.7, 0.5, 0.1] * 0.1, \amp, [0.7, 0.5, 0.1] * 0.1,
\fltfact, Prand([ 2, 5 ], inf), \fltfact, Prand([ 2, 5 ], inf),
\releaseTime, Prand([ 0.01, 0.02, 0.05, 0.09 ], inf) \releaseTime, Prand([ 0.01, 0.02, 0.05, 0.09 ], inf)
)); ));
) )