«minor random bliss in two for Prout» by nova

on 12 Dec'16 10:57 in ambientrandomgenerativechilleasysmoothminor
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
29
30
31
(

SynthDef(\param, { arg freq = 100, sustain, amp;
	var sig;
    sig = LFPar.ar(freq: freq,
        mul: EnvGen.kr(Env.perc(0, sustain, 0.5), doneAction:2) * amp);
	sig = Splay.ar(sig);
	Out.ar(0, sig);
}).add;

e = Pbind(
	\midinote, Prout({
		var tone0, tone1, tone2, interval, freq0, delta;
		loop {
			tone0 = rrand(0,11);
			interval = rrand(2,4);
			tone1 = Scale.minor(\pythagorean).at(tone0) + [0,12,24].choose + 0.07;
			tone2 = Scale.minor(\pythagorean).at(tone0 + interval) + [0,12,24].choose;
			freq0 = [tone1,tone2]+48;
			postln(freq0);
			freq0.yield;
		}
	}),
    \dur, Prand([1,2,4,8,12,16,4,6,8], inf),
    \instrument, \param,
	\amp, 0.5,
	\sustain, 2,
).play(quant:1); // returns an EventStream
TempoClock.default.tempo = 1200/60;

)
raw 785 chars (focus & ctrl+a+c to copy)
reception
comments