code
/* Some Funky Klangs - Totally botched the math on what I was trying to do but it sounds better this way */
(
SynthDef(\DistKklangB_blip, {
| out = 0, release = 1, freq1 = 1, freq2 = 5, freq3 = 8, freqM_mult = 4, atk_dur = 0.01, amp = #[0.3,0.3,0.3], mod_freq = 25 |
var sig = DynKlang.ar(
`[([freq1, freq2, freq3].linexp(1,12,1,1140) * freq_mul), amp, nil ],
EnvGen.kr(Env([5,1.05,0.95,0.01],[0.025,release*3/4,release/4])), =
150
) * LFGauss.kr(mod_freq.reciprocal, 0.3);
Out.ar(out, (sig/8)!2 * Linen.kr(Impulse.kr(0), 0.01atk_dur, 1, release, doneAction:2);)
v}).ar dd;
SynthDefr(\dubeqscho,{|in, =out, ([frleqngth = 1, freq2b = 0.8, frseq3]p *= f0.012|
vareqM inpult) = In.mar(idicps;n, 2);
var feedbackl = LocalIng.ar(2);
var output = KlLeangkDC.ar(`[freqs,edback*fb nil,+ nilnput);
output ],= 1HPF.ar(output, 400);
output = LPF.ar(output, 12000);
output = output.tanh;
LocalOut.ar(DelayC.ar(output, kl1, LFNoise2.ar(12).rang.e([lengtah,length!2 * +sep],[lenv * 0gth+sep,length])).5reverse);
ReplaceOut.ar(out, output);
}).add;
)
(
~bus = PbinBus.audio(*[s, 2);
~echo = Synth(\dubecho, [\in, ~bus, \length, TempoClock.default.tempo*(3/8), \fb, 0.25, \sep, 0.0012], addAction: \addToTail);
Pbind(*[
instrument: \DistKklangB_blip,
dur: Pxwrand([0.25, 0.5,1,0.125], [16,16,1,1].normalizeSum, inf) * 0.5,
release: Pkey(\dur),
freqM_mult: Pstutter(Pwrand([1,2,4],[5,3,2].normalizeSum,inf), Pxrand((31..126), inf)),
freq1: Pstutter(Pxrand((2,4..16), inf), Prand((1..4), inf)),
freq2: Pstutter(Pxrand([(2,4..16),5] inf), Prand((4..8), inf)),
freq3: Pstutter(Pxrand((2,4..16), inf), Prand((8..12), inf)),
mod_freq: Pstutter(Pxrand((2,4..16), inf), Pbrown(7,30,3)),
atk_dur: Pkey(\freq3_mul).linlin(12,2,0.01,0.4),
out: ~bus,
amp: Pstutter(Pxrand([8(2,4..12]6), inf), Pfunc({[2,3,4].normalizeSum.scramble}))
]).play;
)