mu

mu are: eduardo meléndez, ezequiel netri and ernesto romero
Free SuperCollider codes >

//////////// Código 1

// En el que através de Pdefs se forma un insulso contrapunto.

SynthDef("si",{|freq|Out.ar(0,Blip.ar(freq,4,0.2)*EnvGen.ar(Env.perc(0.01,0.3),1,doneAction:2))}).store;\

w=Pseq([Pdef(\uno), Pdef(\dos), Pdef(\tres)], inf);

Pdef(\uno, Pbind(\instrument, \si, \dur, Pseq([0.5,0.25,0.25], 1), \degree, 0));
Pdef(\dos, Pbind(\instrument, \si, \dur, Pseq([0.125,0.125,0.25,0.25,0.25], 1), \degree, 3));
Pdef(\tres, Pbind(\instrument, \si, \dur, Pseq([0.125],8), \degree, 2));
Pdef(\tres, Pbind(\instrument, \si, \dur, Pseq([0.125,0.125,0.125,0.125,0.25,0.25],1), \degree, 2));

(
~rut=Routine({var count=0;2.do{count=count+1;
switch(count, 1,{Pdef(\tres, Pbind(\instrument, \si, \dur, Pseq([0.125,0.125,0.125,0.125,0.25,0.25],1), \degree, 2));},
2,{Pdef(\tres, Pbind(\instrument, \si, \dur, Pseq([0.125],8), \degree, 2));});
count.postln;
2.wait}
})
)

~rut.reset.play

w.play
w.stop

x=Pseq([Pdef(\cuatro), Pdef(\cinco), Pdef(\seis)], inf);

Pdef(\cuatro, Pbind(\instrument, \si, \dur, 0.25, \degree, Pseq([-7,-5,-3,-5], 2)));
Pdef(\cinco, Pbind(\instrument, \si, \dur, 0.5, \degree, Pseq([-4,-2], 1)));
Pdef(\seis, Pbind(\instrument, \si, \dur, 0.5, \degree, Pseq([-3,-1], 1)));

x.play

///////// Si.