«Gravel» by alextiberiuskirk

on 06 Nov'13 17:54 in filtergrainbusbrown noise
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
(
SynthDef(\Grain,
	{var sig, grain, env, sum, filt, pan1,pan2;
		sig = DynKlank.ar(`[Array.fill(14,{Rand(60,1200)}),Array.fill(14,{ExpRand(0.128, 0.7)}),Array.fill(14,{ExpRand(0.128, 0.7)})],BrownNoise.ar(0.7));
		grain = GrainIn.ar(1,Dust.kr(14), 0.0128, sig);
		grain = CombC.ar(grain, LFNoise0.kr(0.7).range(0.7,3),0.7, 7);
		grain = FreeVerb.ar(grain, 0.3,0.3,0.3);
		env = EnvGen.kr(Env.sine(TRand.kr(1.28,3, Dust.kr(0.07))), Dust.kr(0.07));
		filt = LPF.ar(sig, 500);
		sum = filt*env;
		pan1 = Pan4.ar(sum, FSinOsc.kr(0.128,(pi * 1)), FSinOsc.kr(0.128,(pi * 0.5)));
		pan2 = Pan4.ar(grain, FSinOsc.kr(0.07,(pi * 2)), FSinOsc.kr(0.07,(pi * 1.5)));
		Out.ar(0, pan1+pan2*0.0007);
}).add;
(
SynthDef(\Verb,
	{var comb;
		comb = {FreeVerb.ar(In.ar(0),0.3,0.6,0,0.7)}!4;
		//comb1 = {CombC.ar(comb, 1.28,0.3,0.7)}!4;
		Out.ar(0,comb);
}).add;
);
)
)

(
(
~sound = Group.head(s);
~fx = Group.tail(s);
);
(
Synth.head(~source,\Grain);
Synth.head(~fx,\Verb);
)
)
descendants
«Re: Gravel» by S P (private)
full graph
raw 996 chars (focus & ctrl+a+c to copy)
reception
comments
gogo user 14 Feb'14 09:49

awesome spacial quality!