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.