Learning Patterns in SuperCollider, here’s a little lullaby:
|
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, 1, ).play(quant:1); // returns an EventStream TempoClock.default.tempo = 200/60; ) |
