Fork Code: balungan

name

code content

t = TempoClock(140/60/32)

(
SynthDef(\bform, { |out = 0, freq = (60.midicps), formfreq = 70, bwfreq = 200, gate = 1, amp = 0.1|
	var env = EnvGen.kr(Env.adsr(releaseTime:0.5, decayTime:0.1), gate, doneAction:2);
	var sig = Formant.ar(freq * ((-1..1)/500 + 1), formfreq * env.range(0.01,2), bwfreq);
	sig = sig * env;
	Out.ar(out, Splay.ar(sig) * amp)
}).add
)
~mbus2 = Bus.audio(s, 2)

Ndef(\l, {LFNoise1.kr(t.tempo)})
Ndef(\m2).put(0, { InFeedback.ar(~mbus2, 2)}).play
Ndef(\m2).put(1, \filter -> { |i| Decimator.ar(i, Ndef(\l).kr.range(1000,4000), bits:17)})
Ndef(\m2).put(2, \filter -> { |i| JPverb.ar(i, t60:5)}).set(\wet1, 0.3)

Pdef(\f, Pmono(\bform, \freq, 110/2, \formfreq, Pfunc({80.rrand(440)}), \dur, 1/4, \bwfreq, 60, \out, ~mbus2))

Pdef(\f).play(t)

Pdef(\f).stop

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