|
|
Música de alba para ti Izam, estás vivo y el cosmos dentro de ti.
SUPERCOLLIDER CODE / copy + compile = play
////// Synth A //////
(
SynthDef(\saw6, {|freq,amp,elfo|
var sig, env;
sig=Saw.ar(freq,amp);
env=EnvGen.kr(Env.perc(0,0.826,0.026),doneAction:2);
Out.ar(0,Pan2.ar(sig*env,LFNoise1.kr(elfo)));
}).send(s);
)
////// Task A //////
(
w=Pseq([Pseq([0, 5, 7, 8, 11, 12],3),Pseq([0, 2, 3, 7, 8, 12],3)],inf).asStream;
Tdef(\lp6,{
inf.do{
5.do{
Synth(\saw6,[\freq,[1600,6402,4801,3200,8004].choose*[1,1.010,0.990].choose*(w.next).midiratio,\amp,exprand(0.68, 1.48),\elfo, rrand(6, 12)]);
[0.33/2,0.33/12,0.33/8,0.33/16,0.33/4,0.33/8,0.33/8].choose.wait
}}}
))
////// Synth B //////
(
SynthDef(\saw7, {|freq,amp,elfo|
var sig, env;
sig=Saw.ar(freq,amp);
env=EnvGen.kr(Env.perc(0,0.999,0.030),doneAction:2);
Out.ar(0,Pan2.ar(sig*env,LFNoise1.kr(elfo)));
}).send(s);
)
/// Task B ///
(
w=Pseq([Pseq([0, 5, 7, 8, 11, 12],3),Pseq([0, 2, 3, 7, 8, 12],3)],inf).asStream;
Tdef(\lp7,{
inf.do{
5.do{
Synth(\saw7,[\freq,[401,1600,4801,4802].choose*[1,1.010,1.006,0.990,0.994].choose*(w.next).midiratio,\amp,exprand(0.68, 1.48), \elfo, rrand(6, 12)]);
[0.33/2,0.33/2,0.33/4,0.33/4,0.33/12,0.33/8,0.33/16,0.33/4,0.33/8,0.33/8].choose.wait
}}}
))
////// Play-Stop BOTH //////
(
Tdef(\lp6).quant_(0).play;
Tdef(\lp7).quant_(0).play;
)
(
Tdef(\lp6).quant_(0).stop;
Tdef(\lp7).quant_(0).stop;
)
|