«Gravel» by alextiberiuskirk
on 06 Nov'13 17:54 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
(
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);
)
)
reception
awesome spacial quality!