Supercollider

s.boot;


~b0 = Buffer.read(s, "C:/8bits/CB.wav")
~b1 =Buffer.read(s, "C:/8bits/CH.wav")
~b2 =Buffer.read(s, "C:/8bits/CL.wav")
~b3 =Buffer.read(s, "C:/8bits/CP.wav")
~b4 =Buffer.read(s, "C:/8bits/MA.wav")
~b5 =Buffer.read(s, "C:/8bits/Kick_12_SP.wav")
~b6 =Buffer.read(s, "C:/8bits/Percussion_25_SP.wav")


~b0.play
~b1.play
~b2.play
~b3.play
~b4.play
~b5.play
~b6.play


//dos synthdefs por que un sample es estereo y el otro mono, y creo que no podes pasar cantidad de channels como arg



(
SynthDef.new(\pba, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig)!2;
}).add;

SynthDef.new(\pbb, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;

SynthDef.new(\pbc, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;

SynthDef.new(\pbd, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;

SynthDef.new(\pbe, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(1, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;

SynthDef.new(\pbf, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(2, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;

SynthDef.new(\pbg, {|amp=1, out=0, buf, da=2, rate =1|
var sig;
sig = PlayBuf.ar(2, buf, BufRateScale.kr(buf) * rate, doneAction:da);
sig = sig*amp;
Out.ar(out, sig);
}).add;
)

(
OSCdef.new(\texto,{
    |msg, time, addr, port|
    msg[1].postln;
    switch(msg[1],
        \y, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\e, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\u, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\o, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\a, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\i, {Synth.new(\pba, [\buf, ~b0.bufnum])},
		\no, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\si, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\la, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\lo, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\le, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\el, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\ni, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\ay, {Synth.new(\pbg, [\buf, ~b6.bufnum])},
		\fin, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\con, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\sin, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\les, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\las, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\los, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\sal, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\hay, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\ahi, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\asi, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\aca, {Synth.new(\pbf, [\buf, ~b5.bufnum])},
		\nada, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\para, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\toca, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\bala, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\mata, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\pala, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\pelo, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\toco, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\poco, {Synth.new(\pbb, [\buf, ~b1.bufnum])},
		\queda, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\pueda, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\muera, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\eleva, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\ataca, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\plaza, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\birra, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
		\autos, {Synth.new(\pbc, [\buf, ~b2.bufnum])},
        \lluvia, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\plomos, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\techos, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\mierda, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\fieras, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\ampara, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\atraca, {Synth.new(\pbe, [\buf, ~b4.bufnum])},
		\misterio, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		\silencio, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		\precioso, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		\negaran, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		\austero, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		\amanecio, {Synth.new(\pbd, [\buf, ~b3.bufnum])},
		);
},
'/supercollider',
)
)




Synth.new(\pba, [\buf, ~b1.bufnum])
Synth.new(\pbb, [\buf, ~b0.bufnum])
Synth.new(\pbc, [\buf, ~b2.bufnum])
Synth.new(\pbd, [\buf, ~b3.bufnum])
Synth.new(\pbe, [\buf, ~b4.bufnum])
Synth.new(\pbf, [\buf, ~b5.bufnum])
Synth.new(\pbg, [\buf, ~b6.bufnum])