Obama
_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. 
/* ~tempoTotTromp=0.172; // Select all & play ( ~aTrumpNotas=[0,0,3,7,8,8,10,8,8,8,8,8,8,10,10,10,7,3,0].midiratio; ~aTrumpDur=[1/16,1/16,1/16,1/16,1/4,3/16,1/8,1/8,1/16,1/16,1/16,1/16,1/16,1/16,1/16,1/16,1/16,1/16,1/16]*~tempoTotTromp*16; ~transTrump=4; Tdef(\trumpeta).reset.play ) ( ~aTrumpNotas=[-1,2].midiratio; ~aTrumpDur=[1/6,1/6]; ~transTrump=[4,5,7,9].choose; Tdef(\trumpeta).reset.play ) ( ~aTrumpNotas=[9,9,7,9,4,4,4,5,4,2,4].midiratio; ~aTrumpDur=[1/4,1/4,1/8,1/4,1/4,1/8,1/8,1/8,1/8,1/8,1/8]*~tempoTotTromp*8; ~transTrump=9; Tdef(\trumpeta).reset.play ) ( ~aTrumpNotas=[0,0,0,4,7,9,11,9].midiratio; ~aTrumpDur=(Array.rand(8,2,6)/8)*~tempoTotTromp*4; Tdef(\trumpeta).reset.play ) ( ~aTrumpNotas=((([0,2,4,5,7,9,11] -24)++([0,2,4,5,7,9,11] -12)++[0,2,4,5,7,9,11]++([0,2,4,5,7,9,11]+12)++([0,2,4,5,7,9,11]+24))+[0,2,4,5,7,9,11].choose).midiratio; ~aTrumpDur=(1/16)!49; ~transTrump=[4,5,7,9].choose; Tdef(\trumpeta).reset.play )  Synth(\pues, [\freq, 220/2]); Synth(\pues, [\freq, 220]); Synth(\pues, [\freq, 220*3]) Synth(\pues, [\freq, 220*13, \dur, 0.1]) Synth(\pues, [\freq, 220*14, \dur, 2.1]) Synth(\pues, [\freq, 440*0.midiratio, \dur, ~tempoPoi*5]); Synth(\paz, [\freq, 440*4.midiratio, \dur, ~tempoPoi*4]); Synth(\paz, [\freq, 440*5.midiratio, \dur, ~tempoPoi*2]); Synth(\paz, [\freq, 440*3.midiratio, \dur, ~tempoPoi*4]); Synth(\paz, [\freq, 440* -2.midiratio, \dur, ~tempoPoi*2]); Synth(\paz, [\freq, 440*5.midiratio, \dur, ~tempoPoi*2]); Synth(\paz, [\freq, 440* 0.midiratio, \dur, ~tempoPoi*4,\factor, 1, \anillo, 1]); Synth(\paz, [\freq, 440* 13.midiratio, \dur, ~tempoPoi*1,\factor, 12]); Synth(\paz, [\freq, 440*4.midiratio, \dur, ~tempoPoi*1]); Synth(\paz, [\freq, 440* -3.midiratio, \factor, 3, \dur, ~tempoPoi*2]); Synth(\paz, [\freq, 440* -3.midiratio, \factor, 5, \dur, ~tempoPoi*4]); 20.do{Synth(\paz, [\freq, 220* -3.midiratio, \factor, 12, \dur, ~tempoPoi*450, \cutoff, 5000, \anillo, 50, \amp, 0.01]);} Synth(\paz, [\freq, 440* -3.midiratio, \factor, 3, \dur, ~tempoPoi*4]); Synth(\bajoPoi, [\freq, 55* -2.midiratio, \dur, 0.2]); Synth(\bajoPoi, [\freq, 55* -3.midiratio, \dur, 0.2]);  ~transPoi= 0; ~transPoi= 2; ~transPoi= 7; ~transPoi= -2; ~transPoi= 3; ( ~transPoi= 0; ~seqBajoPoi=Pseq([0,0,0,-2,5,4,3,5,-2,12,10].scramble+~transPoi,inf).asStream; ~seqBajoPoiWait=Pseq([1,1,2,1,2,1,1,2,1,3,1].scramble*~tempoPoi,inf).asStream ) ( ~seqBajoPoi=Pseq([0,0,0,-2,5,4,3,5,-2].scramble+0,inf).asStream; ~seqBajoPoiWait=Pseq([1,1,2,1,2,1,1,2,1].scramble*~tempoPoi,inf).asStream ) ( ~seqBajoPoi=Pseq([-1,0,12,13,11].scramble+0,inf).asStream; ~seqBajoPoiWait=Pseq([1,0.5].scramble*~tempoPoi,inf).asStream ) ( ~seqBajoPoi=Pseq([0].scramble+0,inf).asStream; ~seqBajoPoiWait=Pseq([1].scramble*~tempoPoi,inf).asStream ) ( ~seqBajoPaz=Pseq([0].scramble+0,inf).asStream; ~seqBajoPazWait=Pseq([1].scramble*~tempoPoi,inf).asStream )  ~seqAnillo=Pseq(Array.rand(8,300,600),inf).asStream;  ~anillo=406 ~anillo=~seqAnillo.next ~ampPaz=0.53 ~ampPaz=0 ~factorPaz=210 ~cutoffPaz=2000 ( Tdef(\bajoPoi).play; Tdef(\pazPoi).play; ) ( Tdef(\bajoPoi).stop; Tdef(\pazPoi).stop )  */  ( ~tempoTotTromp=0.172; ( Tdef(\trumpeta, {var dur;                 ~aTrumpNotas.size.do{|i|                         dur=~aTrumpDur[i%~aTrumpNotas.size];                 Synth(\paz, [\freq, ~aTrumpNotas[i%~aTrumpNotas.size]*220, \dur, dur/2, \factor, 1]);                 Synth(\paz, [\freq, ~aTrumpNotas[i%~aTrumpNotas.size]*220*~transTrump.midiratio, \dur, dur, \factor, 1]);                 Synth(\paz, [\freq, ~aTrumpNotas[i%~aTrumpNotas.size]*220*~transTrump.midiratio/2, \dur, dur, \factor, 1]);                  dur.wait;                 }}         ).quant_(0).play );    ( ( SynthDef(\pues, {|freq=440, dur=1|                var sig, env;                sig=Klang.ar(`[Array.geom(10,1,1.1),1/2, 0],freq);                sig=sig*Saw.ar(10)!2;                env=EnvGen.kr(Env([0,1,1,0],[0.01,0.7,0.29]*dur),doneAction:2);                Out.ar(0,sig*env);                }).send(s); ); ( SynthDef(\paz, {|freq=440, dur=1, factor=1, cutoff=10000, anillo=3, amp=0.125, rq=0.21|                var sig, arrDemand, n, env;                n=3;                arrDemand=Array.rand(n,-1,1.0);                sig=Demand.ar(Impulse.ar(XLine.kr(freq,freq*factor,dur)*n),0,Dseq(arrDemand,inf))!2;                sig=Klank.ar(`[(1..7),nil,0.1],sig*0.21, freq);                sig=RHPF.ar(sig, freq*2, rq);                env=EnvGen.kr(Env([0,1,1,0],[0.1,0.8,0.1]*dur), doneAction:2);                Out.ar(10,sig*env*amp/18);                }).send(s); );  /* Synth(\paz, [\freq, [0,2,4,5,7,9,11,12].choose.midiratio*440, \dur, 2, \factor, 1]) Synth(\paz, [\freq, 0.midiratio*440, \dur, 10.3, \factor, 1]) */  ( SynthDef(\revObama, {|gate=0|               var sig, env;               sig=In.ar(10,2);               sig=FreeVerb.ar(sig,0.5,0.5);               env=EnvGen.kr(Env.asr(0,1,3),doneAction:2);               Out.ar(0,sig*env);               }).play; ); /* Synth(\revObama) */  ( SynthDef(\sin, {|gate=0, freq=440, amp=0.35|               var sig, env;               sig=SinOsc.ar(freq);               sig=FreeVerb.ar(sig,0.5,0.5);               env=EnvGen.kr(Env.asr(0,1,3),doneAction:2);               Out.ar(0,sig*env);               }).send(s); ); /* ~sin=Synth(\sin,[\freq, 440*2.midiratio]); ~sin2=Synth(\sin,[\freq, 440* -7.midiratio])  ~sin.set(\freq, 440*2.midiratio);~sin2.set(\freq, 440* -7.midiratio) ~sin.set(\freq, 440*0.midiratio);~sin2.set(\freq, 440* -9.midiratio) ~sin.set(\freq, 440*3.midiratio);~sin2.set(\freq, 440* -5.midiratio)  ~sin.set(\freq, 440* -1.midiratio);~sin2.set(\freq, 440* -8.midiratio) */ ( SynthDef(\poi, {|freq=440, dur=1, amp=0.5, factor=1|                var sig, env;                //sig=Klang.ar(`[(1..5),Array.geom(8,0.5,0.479).sum, 0],XLine.kr(freq,freq*factor,dur));                sig=Mix(SinOsc.ar(XLine.kr(freq*(1..5),freq*(1..5)*factor,dur),0,1/4));                sig=sig*SinOsc.ar(10);                sig=RLPF.ar(sig, freq,0.015, amp/4);                env=EnvGen.kr(Env([0,1,1,0],[0.01,0.7,0.29]*dur),doneAction:2);                Out.ar(0,sig*env*amp);                }).send(s); ); ( SynthDef(\bajoPoi, {|freq=440, dur=1, amp=1, factor=1|                var sig, env;                sig=Pulse.ar(freq,0.5,amp)!2;                env=EnvGen.kr(Env([0,1,1,0],[0.01,0.7,0.29]*dur),doneAction:2);                Out.ar(0,sig*env*amp*1.14);                }).send(s); ); ~tempoPoi=0.15; ); ~transPoi= 0; ~seqBajoPoi=Pseq([0,0,0,-2,5,4,3,5,-2,12,10].scramble+~transPoi,inf).asStream; ~seqBajoPoiWait=Pseq([1,1,2,1,2,1,1,2,1,3,1].scramble*~tempoPoi,inf).asStream; ~seqBajoPaz=Pseq([0].scramble+0,inf).asStream; ~seqBajoPazWait=Pseq([1].scramble*~tempoPoi,inf).asStream; ~seqAnillo=Pseq(Array.rand(8,300,600),inf).asStream; ~anillo=406; ~factorPaz=210; ~cutoffPaz=2000; ( Tdef(\bajoPoi, {             inf.do{ Synth(\bajoPoi, [\freq, 55* ~seqBajoPoi.next.midiratio*~transPoi.midiratio, \dur, 0.12]); //Synth(\paz, [\freq, 880* ~seqBajoPoi.next.midiratio*~transPoi.midiratio, \dur, ~tempoPoi*[0.5,1,2].choose,\factor, ~factorPaz, \cutoff, ~cutoffPaz, \anillo, ~anillo, \amp, ~ampPaz]);                     ~seqBajoPoiWait.next.wait;                     }             }).quant_(0); ); ( Tdef(\pazPoi, {             inf.do{ //Synth(\bajoPoi, [\freq, 55* ~seqBajoPoi.next.midiratio*~transPoi.midiratio, \dur, 0.12]); Synth(\paz, [\freq, 880* ~seqBajoPaz.next.midiratio*4.midiratio, \dur, ~tempoPoi*[0.5,1,0.125].choose,\factor, ~factorPaz, \cutoff, ~cutoffPaz, \anillo, ~anillo, \amp, ~ampPaz]);                     ~seqBajoPazWait.next.wait;                     }             }).quant_(0); ); )