Diff from Morphing Saw Bass by ecbeckmann (13 Mar'16 11:45) to Re: Morphing Saw Bass by grirgz (14 Mar'16 22:29)
name
Re: Morphing Saw Bass
description
code
(
SynthDef("\bass", { arg freq = 440, amp = 0.5, gate = 1;
var snd, env, oscfreq, output;
var lfo;
oscfreq = {freq * LFNoise2.kr(Rand(0.0001,0.5)).range(0.98, 1.02)}!13;
sndlfo = { SplayinOsc.akr(LFS{ 1/Raw.arnd(oscfreq2,52) mul: amp}!13)) };
env = Env.adsr(0.07, 41, 0.9, 0.1).kr(doneAction:2, gate: gate);
sndoutput = LFSaw.ar(oscfreq, mul: lfo.value.randge(0,1));
output = RLPF.ar(sndoutput, (env*freq) + 21*freq * lfo.value.range(1/4,2), lfo.value.range(0.1,1));
output = Splay.ar(output, lfo.value.range(0,1));
output = output * env * amp;
Out.ar(0, output);
}).add;
)
Pdef(\bass, Pbind(
\instrument, "\bass",
\tempo, 113/60,
\ctranspose, -26,
\degree, Pseq([Pseq([3, 5, 1, 3, 5, 8, 1], 2), Pseq([3, 2, 5, -1], 1), Pseq([3, 2, 5, 0], 1), Pseq([1, 5, 0,1,2,5,4], 2), Pseq([1, 0,2],2), 3],inf),
\dur, Pseq([Pseq([8, 4, 4, 8, 4, 2, 2], 2), Pseq([8,4,2, 2], 2),Pseq([8, 4, 4, 8, 4, 2, 2], 2), Pseq([8, 4, 4], 2), 16], inf),
\legato, 1.0,
\amp, 0.6,
)).play;
Pdef(\bass, Pmono(\bass,
\tempo, 113/60,
\ctranspose, -26,
\degree, Pseq([Pseq([3, 5, 1, 3, 5, 8, 1], 2), Pseq([3, 2, 5, -1], 1), Pseq([3, 2, 5, 0], 1), Pseq([1, 5, 0,1,2,5,4], 2), Pseq([1, 0,2],2), 3],inf),
\dur, Pseq([Pseq([8, 4, 4, 8, 4, 2, 2], 2), Pseq([8,4,2, 2], 2),Pseq([8, 4, 4, 8, 4, 2, 2], 2), Pseq([8, 4, 4], 2), 16], inf),
\legato, 1.0,
\amp, 0.6,
)).play;
category tags
bass, code fork, morphing, sawtooth
ancestors
1-514