«Re: Dissonator with Steno» by julian.rohrhuber

on 16 Jun'15 12:51 in effectcode forkdissonantring modulatorpsychoacousticlanguage

Here is a remix in the language Steno.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Quarks.install("Steno");

t = Steno.push;

(
t.filter(\d, {
	|in|
	var mix = 1.0;
	var filterfreqs = Array.geom(23, 60, 2**(1/3));
	var rq = ((2**(1/3)) - 1) / (2**(1/6));
	var width = 2**(1/6);
	var fmin = filterfreqs / width;
	var fmax = filterfreqs * width;
	var g = { |f| 2.27 * (f**0.477) };
	var snd, mod;
	snd = in;
	snd = BPF.ar(snd, filterfreqs, rq);
	mod = SinOsc.ar(0.5 * g.value((0.2*fmin) + (0.8*fmax)));
	mod = (1 - mix) + (mix * mod);
	snd = snd * mod;
	snd = Splay.ar(snd) * 20;
})
)


t.quelle(\a, { Blip.ar(SinOsc.kr(Rand(0.2, 1)).exprange(Rand(2, 4), ExpRand(5, 100))) });

--adad addd ad addd add ada
ancestors
full graph
raw 647 chars (focus & ctrl+a+c to copy)
reception
comments