«mrcl snippets #3: feedback timer» by elgiano

on 20 Jul'18 16:20 in
1
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
)
raw 997 chars (focus & ctrl+a+c to copy)
reception
comments