«X-Files» by grirgz
on 01 Sep'13 22:13 inI always liked this sound when watching X-Files, then I re-created it by chance =) (fork of the tweet 0007 by redFrik)
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
(
~name = 'xfiles';
SynthDef(~name, { arg out=0, amp=0.1, gate=1, pan=0, spread=0.8, freq=200, doneAction=2,
ifreq=5, maxdelaytime=0.05, delaytime= 0.05, decaytime=0.2, ffreq=1000, rq=0.3;
var sig, sig1, sig2, sig3;
sig = BPF.ar(
Pluck.ar(
Crackle.ar(\crackle.kr([1.9,1.8])),
Impulse.ar(ifreq),
maxdelaytime,
delaytime,
decaytime
),
ffreq,
rq
);
sig = sig * EnvGen.ar(\adsr.kr(Env.adsr(0.01,0.1,0.8,0.1)),gate,doneAction:doneAction);
sig = Splay.ar(sig, spread, amp, pan);
Out.ar(out, sig);
}).add;
);
(
Pdef(~name, Pbind(
\instrument, ~name,
\maxdelaytime, 0.15,
\delaytime, Pwhite(0.0001,0.010),
\ifreq, Pseq([3,5.2,2,4.33],inf),
\ifreq, Pwhite(4.1,18.1),
\legato, 1.5,
\dur, 1/8 * Pwhite(0.9,1.9),
\amp, 4.0
)).play;
);
reception
comments