«mrcl snippets #3: feedback timer» by elgiano
on 20 Jul'18 22:20 in1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
(
Ndef(\fbTimer){
m = (Dust.ar(0.5!2)*20).tanh+\in.ar(0!2);
r = Timer.kr(Onsets.kr(FFT(LocalBuf(128)!2,m)));
c = CombL.ar(m+(LocalIn.ar(2)*0.8),4,r.clip(0.0001,4),r*4);
l = Resonz.ar(c,TRand.kr(20,20000,m),0.1,1000).tanh;
LocalOut.ar(m+l);
m+c;
}.play
)
(
Ndef(\fbTimerSel){
m = (Dust.ar(0.5!2)*20).tanh+\in.ar(0!2);
r = Timer.kr(Onsets.kr(FFT(LocalBuf(128)!2,m)));
c = CombL.ar(m+(LocalIn.ar(2)*0.8),4,r.clip(0.0001,4),r*4);
l = Resonz.ar(c,TRand.kr(20,20000,m),0.1,1000).tanh;
n = SelectX.ar(LFNoise0.kr(r.linlin(0,4,0.1,10)).range(0,4),[m,K2A.ar(r),c,l]);
LocalOut.ar(n);
n
}.play
)
(
Ndef(\fbTimer3){
var localin = (LocalIn.ar(2)*0.98)+\in.ar(0!2);
var dust = (Dust.ar(Rand(0.5,10)!2)*200)+\in.ar;
var timer = Timer.ar(dust);
var comb = CombL.ar(dust+localin,4,timer.clip(0.0001,4),timer*4);
var filt = Resonz.ar(comb,TRand.kr(20,Rand(20,20000),dust),0.1,1000).tanh;
LocalOut.ar(dust+filt);
comb+dust;
comb+dust*timer;
}.play
)
reception
comments