Matt Smith
2014-09-18 11:29:58 UTC
Hi there,
I have written the following code which produces a drone that should last
four minutes (due to the DoneAction on the LFGauss).
({
var freq, note1, beatchange, note2, note3, sig, env;
freq = (LFGauss.kr(240, 0.8, 0, 0, 2) * 55) + 55;
beatchange= SinOsc.kr(0.01, 0, 0.8, 0) + LFSaw.kr(1, 0.25, 0.2, 0);
note1 = Mix.ar(SinOsc.ar([freq, freq + (beatchange * 5), freq * 3, freq *
5, freq * 7, freq * 9]));
note2 = Mix.ar(Pulse.ar(Vibrato.kr(freq), 0.5), Pulse.ar(Vibrato.kr(freq *
3/2), 0.5),
Pulse.ar(Vibrato.kr(freq * 2), 0.5));
env = Env.perc(0.1, 0.3, 1, -4);
note3 = EnvGen.ar(env, Dust2.ar(0.25, 1, 0)) * Saw.ar(Vibrato.ar((freq * 2
* 2/3)), 0.4, 0).distort;
sig = Mix.ar(note1, note2, note3);
Pan2.ar(FreeVerb.ar(sig, 0.5, 0.8, 0.3, 1, 0))
}.play
)
I have written the following code which produces a drone that should last
four minutes (due to the DoneAction on the LFGauss).
({
var freq, note1, beatchange, note2, note3, sig, env;
freq = (LFGauss.kr(240, 0.8, 0, 0, 2) * 55) + 55;
beatchange= SinOsc.kr(0.01, 0, 0.8, 0) + LFSaw.kr(1, 0.25, 0.2, 0);
note1 = Mix.ar(SinOsc.ar([freq, freq + (beatchange * 5), freq * 3, freq *
5, freq * 7, freq * 9]));
note2 = Mix.ar(Pulse.ar(Vibrato.kr(freq), 0.5), Pulse.ar(Vibrato.kr(freq *
3/2), 0.5),
Pulse.ar(Vibrato.kr(freq * 2), 0.5));
env = Env.perc(0.1, 0.3, 1, -4);
note3 = EnvGen.ar(env, Dust2.ar(0.25, 1, 0)) * Saw.ar(Vibrato.ar((freq * 2
* 2/3)), 0.4, 0).distort;
sig = Mix.ar(note1, note2, note3);
Pan2.ar(FreeVerb.ar(sig, 0.5, 0.8, 0.3, 1, 0))
}.play
)