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.