Fork Code: Verschwende deine Jugend (bassline cover)

name

code content

/* An approach to try to reproduce the 'famous' bassline of "Verschwende deine Jugend" by D.A.F. */

SynthDef(\daf_bass,{ |out, freq=440, sustain=1, gate=1, amp=0.1|
	var snd, env, fenv, harm;
	
	harm = [1,1.01,2,2.02,3.5,4.01,5.501];
	harm = harm ++ (harm*2);
	
	snd = SinOsc.ar(freq*harm).sum.distort.squared * 6;
	snd = snd + SinOsc.ar(freq / [1, 2]).sum!2;

	fenv = EnvGen.kr(Env.adsr(0.075,0.05,0.1,0.25));

	snd = RLPF.ar(snd, fenv.range(freq*2, freq*8), 0.75, 2) + (snd * 0.25);
	env = EnvGen.kr(Env.adsr(0.001,0.2,0.9,0.25), gate, amp, doneAction:2);
	
	snd = LeakDC.ar(Limiter.ar(snd * env));
	OffsetOut.ar(out, (snd!2));
}).add;

// approx 65 bpm
TempoClock.default.tempo = 65/60;

// approx bass pattern + modulation of Verschwende Deine Jugend bassline
Pdef(\daf_bass,
	PmonoArtic(\daf_bass,
		\scale, Scale.minor,
		\octave, [3],
		\root, 2,
		\ctranspose,Pseq([
			Pn(0,  8*4),
			Pn(-5, 8*4)
		], inf),
		\degree, Pseq([7,7s,1,8,1,1,7,1]-1,inf),
		\dur, 0.18
	)
).play;

// link: http://www.youtube.com/watch?v=KjqrnUBdLqY

code description use markdown for formating

category tags comma separated, i.g. "wild, siren" (do not enter default SC class names, please)

ancestor(s) comma separated identificators, i.g. "1-C,1-1,1-4M,1-x"

Private? the code will be accessible by direct url and not visible in public activity

comment of change