Diff from Funky Klangs by Schemawound (23 Feb'12 15:50) to blipecho context by vividsnow (01 Mar'12 14:08)

name
Funky Kblaipecho congstext
description
Just example mash-up friome "Funtiky Klangs" with patternsd "Re: Dub Echo"
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; )
category tags
echo, funeedbacky, code fork, klangs
ancestors
1-1P8, 1-1Pw