me gusta Ween
_rrr está formado por Ernesto Romero y Ezequiel Netri en la parte sonora y Jaime Vilarreal en la parte visual. Aqui se muestran solamente los códigos de Ernesto Romero. 
/*// Select all & play         /////////////////////////////////  1  ///////////////////////////////// ( ( Tdef(\meloWeen, {                 inf.do{|i|                       Synth(\melodiaWeen, [\amp, [0.1,0].wchoose([0.95,0.05]), \dur, 0.5, \freq, ~arrayWeen[i%13].midiratio*350*[1,0.5,2,4].wchoose([0.7,0.1,0.1,0.1]), \wrap, [0.05,0.025,0.25].wchoose([0.9,0.05,0.05]), \freqMod, [0,4,8].wchoose([0.85,0.15/2,0.15/2])]);                       ~arrayWeenDur[i%13].wait;                       }             }).quant_(0); ); ( ~arrayBajoWeen=[12,7,7,9,16,16,14,12, 12,7,7,9,4,7,9,7].midiratio; ~tiemposBajoWeen=[2/4,1/8,1/4,5/8,1/8,1/8,1/8,1/8]*2; Tdef(\bajoWeen, {                 inf.do{|i|                      Synth(\bajoWeen, [\freq, ~arrayBajoWeen[i%~arrayBajoWeen.size]*175/8]);                      ~tiemposBajoWeen[i%~tiemposBajoWeen.size].wait;                      }             }).quant_(0); ) )          /////////////////////////////////  2  ///////////////////////////////// ( ~bajoWeenBNotas=[ -2, -2, -4, -4, -5, -5 , 10,10,8,7,  -4, -4,-5, -5, -7, -7 , 8, 8, 7, 5]; ~bajoWeenBDur=[1/4,1/4,1/4,1/4,1/4,1/4, 1/8,1/8,1/8,1/8, 1/4,1/4,1/4,1/4,1/4,1/4, 1/8,1/8,1/8,1/8]*2; ( Tdef(\meloWeen, {                 inf.do{|i|                       8.do{|i|                                  Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 24.midiratio*350/2]);                                 Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 22.midiratio*350/2]);                                 Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 19.midiratio*350/2]);                                 0.5.wait;};                       8.do{|i|                                  Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 24.midiratio*350/2]);                                 Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 20.midiratio*350/2]);                                 Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, 17.midiratio*350/2]);                                 0.5.wait;}                                              }             }).quant_(0); ); ( Tdef(\bajoWeen, {                 inf.do{                      ~bajoWeenBNotas.size.do{|i|Synth(\bajoWeen, [\freq, ~bajoWeenBNotas[i%~bajoWeenBNotas.size].midiratio*175/4]);~bajoWeenBDur[i%~bajoWeenBDur.size].wait;};                      }             }).quant_(0); ) ) Tdef(\batacaWeen).play; Tdef(\meloWeen).play; Tdef(\bajoWeen).play;  Tdef(\batacaWeen).stop; Tdef(\meloWeen).stop; Tdef(\bajoWeen).stop;       */   ( ( ( SynthDef(\bomboW, {|dur=0.3, freq=40, amp=1, pan=0|                 var sig, env, freqLine;                 freqLine=Line.kr(freq*1.2,freq,dur/2);                 sig=Pulse.ar(freqLine*[1,1.1],0.5,amp/2).mean;                 sig=sig+SinOsc.ar((freqLine+50)*[1.0,1.5,100],pi/2,amp/[1.5,1.5,6]).mean;                 sig=sig*LFPulse.kr(12);                 sig=sig+(SinOsc.ar(60)*EnvGen.kr(Env([1,1,0],[0.1,0])));                 sig=sig+EnvGen.ar(Env([0,1,1,0],[0,1/freq,0]));                 sig=Limiter.ar(sig,0.95);                 sig=Pan2.ar(sig,pan);                 env=EnvGen.kr(Env.perc(0,dur,1,4),doneAction:2);                 Out.ar(0,sig*env)                 }).store; ); /* Synth(\bomboW, [\freq, 35, \dur, 0.3]) */ ( SynthDef(\sonidoWeen, {|freq=100, dur=0.1, amp=0.131|                     var sig, trigger, env;                     trigger=Impulse.kr(freq);                     sig=EnvGen.ar(Env([0,1,1,0],[0,1/(freq+10),0]),trigger)!2;                     Out.ar(0, sig*amp);                     }).send(s); ); /* t=Synth(\sonidoWeen) t.set(\freq, 400) t.free */ ( SynthDef(\tarolaWeen, {|freq=400, dur=0.1, amp=0.5, pan=0|                     var sig, trigger, env;                     trigger=Impulse.kr(freq);                     sig=EnvGen.ar(Env([0,1,1,0],[0,1/(freq+10),0]),trigger);                     sig=Pan2.ar(sig,pan);                     env=EnvGen.kr(Env.perc(0,dur),doneAction:2);                     Out.ar(0, sig*env*amp);                     }).send(s); ); /* t=Synth(\tarolaWeen, [\dur, 0.3]) t.set(\freq, 400) t.free */  ( SynthDef(\melodiaWeen, {|freq=440, dur=2, amp=0.43, pan=0, wrap=0.05, freqMod=0|                     var sig, env;                     sig=SinOsc.ar(freq*[1,1.01]*SinOsc.kr(freqMod,0,0.05,1),0,amp*SinOsc.kr(4)).wrap2(wrap);                     sig=Pan2.ar(sig,pan);                     env=EnvGen.kr(Env.perc(0,dur),doneAction:2);                     Out.ar(0,sig*env*1.25);                     }).send(s); ); /* Synth(\melodiaWeen, [\amp, 0.075, \dur, 0.5]); */ ( SynthDef(\bajoWeen, {|freq=70, dur=0.2, amp=0.17|                     var sig, env;                     sig=Gendy2.ar(minfreq:freq, maxfreq:freq, initCPs:42, mul:amp);                     sig=sig+Pulse.ar(freq,0.5,amp);                     sig=sig+Blip.ar(freq*[2,4,8],3,amp/[0.15,2,2]).mean;                     sig=Pan2.ar(sig,0);                     //sig=RLPF.ar(sig, freq*2, 0.1);                     env=EnvGen.kr(Env([0,1,1,0],dur*[0.01,0.98,0.01]),doneAction:2);                     Out.ar(0,sig*env);                     }).send(s); ) /* Synth(\bajoWeen, [\freq, 175/4]) */ ); ( ( Tdef(\batacaWeen, {var freqBombo=35, freqTarola=500;                 inf.do{                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       b[2].sendMsg("/s_new", "tarolaWeen", -1, 0,0, \freq, freqTarola, \dur, 0.3);                       0.5.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3/2);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3/2);                       0.25.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       b[2].sendMsg("/s_new", "tarolaWeen", -1, 0,0, \freq, freqTarola, \dur, 0.3);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3/2);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       b[2].sendMsg("/s_new", "tarolaWeen", -1, 0,0, \freq, freqTarola, \dur, 0.3);                       0.5.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       b[2].sendMsg("/s_new", "bomboW", -1, 0,0, \freq, freqBombo, \dur, 0.3);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       b[2].sendMsg("/s_new", "tarolaWeen", -1, 0,0, \freq, freqTarola, \dur, 0.3);                       0.5.wait;                       }                 }).quant_(0); ); /* Tdef(\batacaWeen).play Tdef(\batacaWeen).stop */ ( Tdef(\batacaWeen, {var freqBombo=35, freqTarola=500;                 inf.do{                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       0.5.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       0.25.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3/2]);                       0.25.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       0.5.wait;                       Synth(\bomboW, [\freq, freqBombo, \dur, 0.3]);                       0.5.wait;                       Synth(\tarolaWeen, [\freq, freqTarola, \dur, 0.3]);                       0.5.wait;                       }                 }).quant_(0); ); /* Tdef(\batacaWeen).play Tdef(\batacaWeen).stop */ ); ~arrayWeen=[-5,2,4,7,12,4,14,12,0,2,4,7,12]; ~arrayWeenDur=[ 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1]; ~sieteMajDes=[-2, 2, 5, 10, 12, 14, 17, 22]; ~cuartoMin=[-2, 0, 2, 5, 10, 14, 17, 22] -2; ~sieteDesBaja=[10,10,8,7]; ~seisDesBaja=[8,8,7,5]; ( ( Tdef(\meloWeen, {                 inf.do{|i|                       Synth(\melodiaWeen, [\amp, 0.1, \dur, 0.5, \freq, ~arrayWeen[i%13].midiratio*350]);                       ~arrayWeenDur[i%13].wait;                       }             }).quant_(0); ); ( ~arrayBajoWeen=[12,7,7,9,16,16,14,12, 12,7,7,9,4,7,9,7].midiratio; ~tiemposBajoWeen=[2/4,1/8,1/4,5/8,1/8,1/8,1/8,1/8]*2; Tdef(\bajoWeen, {                 inf.do{|i|                      Synth(\bajoWeen, [\freq, ~arrayBajoWeen[i%~arrayBajoWeen.size]*175/8]);                      ~tiemposBajoWeen[i%~tiemposBajoWeen.size].wait;                      }             }).quant_(0); ) ) ;  )