diff --git a/2016-12-12_Prout_interval_randomness.scd b/2016-12-12_Prout_interval_randomness.scd new file mode 100644 index 0000000..bb9ee18 --- /dev/null +++ b/2016-12-12_Prout_interval_randomness.scd @@ -0,0 +1,30 @@ +( + +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; +)