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

a more frenzied version

chaos_201207
Luka Prinčič 2020-07-08 14:54:50 +02:00
parent 7b33ad464a
commit 70c3c0101b
1 changed files with 82 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
work/bufCyc.scd
View File

@ -10,7 +10,10 @@
(
SynthDef(\bufCyc, {
arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1, attackTime=0.01, releaseTime=1;
arg bufnum, gate=1, freq=440, chanDetune=1, out=0, amp = 1,
attackTime=0.01, releaseTime=1,
fltfact = 1
;
var snd, env;
@ -26,6 +29,10 @@ SynthDef(\bufCyc, {
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 = snd * amp * env;
Out.ar(out, snd);
@ -34,25 +41,39 @@ SynthDef(\bufCyc, {
Pdef(\x32).play
Pdef(\x32).fadeTime = 0;
(
Pdef(\x32,
Pbind(
\instrument, \bufCyc,
\bufnum, [~getSmp.value("0043"),~getSmp.value("0043")],
\octave, [3,2,4],
\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) ,
\degree, Pseq([ 2, 2, 4, 1 ], inf),
\mtranspose, Pseq([Pn([0],10),Pn([1],5),Pn([0],10),Pn([3],4)],inf),
\ctranspose, Pseq([Pn([0],50), Pn([5],5)],inf),
\detune, [0.1,0],
\chanDetune, 20,
//\dur, Pseq([0.20,0.40,0.60],inf),
\dur, Pseq([0.20,0.40,Prand([0.60,0.20])],inf),
\legato, 0.8,
\amp, [0.3,0.5,0.1],
\releaseTime, 0.06
\mtranspose, Pseq([ Pn([0], 10 ),
Pn([1], 5 ),
Pn([0], 10 ),
Pn([3], 4 ) ], inf),
\ctranspose, Pseq([ Pn([0], 50 ),
Pn([5], 5 ) ],inf),
\octave, [3, 2, 4],
\amp, [0.3, 0.5, 0.1] * 0.6,
\detune, [0.2, 0],
\chanDetune, 30,
\legato, Prand([0.8,0.6,0.4],inf),
\releaseTime, 0.01,
\fltfact, Prand([9,15,12,7],inf)
));
)
// cleaning up
Pdef(\x32).clear
Pdef(\x32).free
Pdef(\x33).play
Pdef(\x33).fadeTime = 0;
(
@ -60,15 +81,56 @@ Pdef(\x33,
Pbind(
\instrument, \bufCyc,
\bufnum, [~getSmp.value("0246"),~getSmp.value("0229")],
\octave, [4,5,6],
\dur, Pseq([ 0.20,
0.40,
Prand([0.60,0.20]),
0.10,
0.10,
Prand([ Pseq([0.13,0.07]), Pseq([0.30,0.10]) ])
], inf),
\degree, Pseq([ [4,9], 2, 8, 4, 1], inf),
\mtranspose, Pseq([Pn([0],10),Pn([3],10),Pn([0],10),Pn([5],5)],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),
\octave, [4,5,6],
\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),
\fltfact, Prand([2,20,9],inf),
\amp, [0.7,0.5,0.1] * 0.2,
\detune, [0,0.3,-0.3],
\chanDetune, Pseq([-10,0,5,10,-5],inf),
\dur, Pseq([0.20,0.40,Prand([0.60,0.20])],inf),
\legato, 0.1,
\amp, [0.7,0.5,0.1] * 0.1,
\releaseTime, 1
));
)
Pdef(\x35).play
Pdef(\x35).fadeTime = 0;
(
Pdef(\x35,
Pbind(
\instrument, \bufCyc,
\bufnum, [~getSmp.value("0246"),~getSmp.value("0229")],
\dur, Pseq([ 0.20,
0.10,
Prand([0.10,0.20]),
0.10,
0.10,
Prand([ Pseq([0.13,0.07]),
Pseq([0.30,0.10]) ])
], 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),
\ctranspose, Pseq([ Pn([0],50), Pn([5],10) ], inf),
\octave, 5,
\detune, [0, 0.3, -0.3],
\chanDetune, Pseq([ -10, 0, 5, 10, -5 ], inf),
\legato, Prand([ 0.1, 0.05 ], inf),
\amp, [0.7, 0.5, 0.1] * 0.1,
\fltfact, Prand([ 2, 5 ], inf),
\releaseTime, Prand([ 0.01, 0.02, 0.05, 0.09 ], inf)
));
)