«Pulsing noise creation» by wondersluyter

on 20 Feb'14 20:48 in noisefilteringpulsing

From a while ago

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(
{
	var t, grav, sf, chain, sig;
	sf = LFPulse.ar(0.5);
	grav = LFNoise2.ar(1).range(0.1, 0.7);
	t = TBall.ar(sf, grav, 0.01, 0.0001) * 10;
	
	chain = FFT(LocalBuf(1024), t);
	chain = chain.pvcalc(1024, {|mags, phases|
		[phases, mags];
	});
	chain = PV_BrickWall(chain, LFNoise2.kr(1).range(-1, 0.5));
	chain = PV_RandComb(chain, LFNoise2.kr(1).range(0, 1), Dust.kr(20));
	sig = IFFT(chain);
	
	sig = sig ! 2;
	sig = sig + AllpassC.ar([sig[1], sig[0]], 0.1, {LFNoise2.kr(0.5).range(0.01, 0.1)} ! 2, 2);
	sig = sig + AllpassC.ar(sig, 0.1, {LFNoise2.kr(0.1).range(0.01, 0.1)} ! 2, 1);
	
	sig = LPF.ar(sig, 15000) + LPF.ar([sig[1], sig[0]], 500, 5) + LPF.ar(sig, 200, 10);
	sig = sig * 10;
}.play;
)
raw 720 chars (focus & ctrl+a+c to copy)
reception
comments