Hackpact.Mx

. . . make and document something new everyday, for one month
Inicio Proyectos     Contacto Ligas

Ernesto Romero

 

//código SuperCollider

/*
Tito Livecoding 1 de Agosto del 2011
*/

p=ProxySpace.push(s.boot)
s.meter;

(
f={Array.exprand(100,30,1000).choose};
~uno={Mix.fill(20,{|i| var g=f.value*LFNoise2.kr(rrand(0.1,0.05),0.2,1); Pan2.ar((Pulse.ar(g,LFNoise1.kr(rrand(0.01,0.05),0.49,0.5),1/5)+ SinOsc.ar(g*LFNoise2.kr(rrand(0.1,0.01),0.05,0.1)*[0.125,0.25,0.5,16], LFNoise1.kr(rrand(1,10.0),pi,pi),1/[4,32]))* (SinOsc.kr(rrand(0.01,0.05),0,0.5,0.5) *rrand(0.01,0.1))*LFPulse.kr(rrand(0.01,20),rrand(0,1.0),rrand(0,1.0)) *LFPulse.kr(rrand(0.01,20),rrand(0,1.0),rrand(0,1.0)), LFNoise1.kr(rrand(0.1,0.01)))})};
)

p.fadeTime=40;
~salida=~uno
~lpf={LPF.ar(~salida.ar,150,8)};
~rev={FreeVerb.ar(~salida.ar+~lpf.ar,0.5,0.8)}
~salida.stop;~rev.play
~rev=0

reproducir muestra

31 Julio 2011

//código SuperCollider

/*
Tito Livecoding 31 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)
s.meter
~o.play
(
var v1=0.5,v2=0.235,v3=0.5,v4=0.975,vPerc=0.2,vPerc2=1.0;
(
~vTrigDem={Demand.kr(Impulse.kr(0.5),0,Dseq([1,2],inf))};
~vTrig={Impulse.ar(~vTrigDem.kr)};
~vNotas={Demand.ar(~vTrig.ar,0, Dseq([0,2,4,0,-5,-1,7,9,5,7,2,5,4] .pyramid.midiratio*150,inf))};
~v={CombN.ar(~vTrig.ar,0.2,1/~vNotas.ar,2)*v1};
~vCuerpo={Decay2.ar(~vTrig.ar,0.01,2,SinOsc.ar(~vNotas.ar,0,0.2))*v1};
);
/*
~o=~v+~vCuerpo
*/
(
~vTrigDem2={Demand.kr(Impulse.kr(2),0,Dseq([0.5,2,4]*2,inf))};
~vTrig2={Impulse.ar(~vTrigDem2.kr)};
~vNotas2={Demand.ar(~vTrig2.ar,0,Dseq([0,2,4,0,-5,-1,7,9,5,7,2,5,4] .pyramid.scramble.midiratio*300,inf))};
~v2={CombN.ar(~vTrig2.ar,0.2,1/~vNotas2.ar,2)*v2};
~vCuerpo2={Decay2.ar(~vTrig2.ar,0.01, 2,SinOsc.ar(~vNotas2.ar,0,0.2))*v2};
);
(
~vTrigDem3={Demand.kr(Impulse.kr(0.5),0, Dseq([1,2,3,4]*1,inf))};
~vTrig3={Impulse.ar(~vTrigDem3.kr)};
~vNotas3={Demand.ar(~vTrig3.ar,0, Dseq([12,12,11,11,9,9,7,5,4,4,2,2,-1,11,-3,9,-5,-5] .pyramid.scramble.midiratio*300,inf))};
~v3={CombN.ar(~vTrig3.ar,0.2,1/~vNotas3.ar,1)*v3};
~vCuerpo3={Decay2.ar(~vTrig3.ar,0.01,1, SinOsc.ar(~vNotas3.ar,0,0.2))*v3};
);
(
~vPercTrig={Impulse.ar(6)};
~vPercDur={Demand.ar(~vPercTrig.ar,0,Dseq([0.1,0.1,0.45],inf))};
~vPercAmp={Demand.ar(~vPercTrig.ar,0,Dseq([1,0,1],inf))};
~vPerc={Decay2.ar(~vPercTrig.ar,0.01,~vPercDur.ar,WhiteNoise.ar(vPerc)) *~vPercAmp.ar};
);
(
~vPercTrig2={Impulse.ar(8)};
~vPercAmp2={Demand.kr(Impulse.kr(8),0,Dseq([1,1,1,1,1,0,1,0]*1,inf))};
~vPerc2={Decay2.ar(~vPercTrig2.ar,0.001,0.05, Resonz.ar(PinkNoise.ar(vPerc2),1300,0.1,9))*~vPercAmp2.ar};
);
(
~vAmp4={Demand.kr(Impulse.kr(6),0,Drand( [Dseq([1,1,0,1,0,1],2),Dseq([1,0,1,1,1,0],2)]*1,inf))};
~vTrig4={Impulse.ar(6)};
~vNotas4={Demand.ar(~vTrig4.ar,0,Drand([Dseq( [0,12,-5,-5,12,0],2),Dseq(-5!6,2)].midiratio*75,inf))};
~vCuerpo4={Decay2.ar(~vTrig4.ar,0.01,1, Blip.ar(~vNotas4.ar,2,0.2))*v4*~vAmp4.ar};
);
)
p.fadeTime=20;
p.fadeTime=0
/*
~o=~v+~vCuerpo+~v2+~vCuerpo2+~v3+~vCuerpo3+~vPerc+~vCuerpo4+~vPerc2
*/
p.fadeTime=20
~o=~vPerc+~vCuerpo4+~vPerc2
~o=0

reproducir muestra

30 Julio 2011

//código SuperCollider

/*
Tito Livecoding 30 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)
s.meter
~o.play

~i={|freq=2| Mix.fill(4,{|i| Pan2.ar(RLPF.ar(Impulse.ar(freq*(i+1)), ((i+1)**4)+100,0.1,4)+ Impulse.ar(freq*(i+1),0,0.25)*LFPulse.kr((i+1)/8,(i+1)/16)* LFPulse.kr((i+8)/32,((i+4)/8).range(0,1)),rrand(-1.0,1))})}
~o=~i

~i2={CombC.ar(Impulse.ar(LFNoise1.kr(1,1,1.1)),0.2, 1/LFNoise0.kr(1,200,260),3,0.35)};
~i2={CombC.ar(Impulse.ar(LFPulse.kr(0.25,0,0.5,0.5,1)),0.2, 1/LFPulse.kr(0.25,0,0.5,60,120),3,0.35)*0.25};
~o=~i+~i2;

~i3freq={LFPulse.kr(0.25,0.25,0.5,20,60)};
~i3In={Impulse.ar(LFPulse.kr(0.25,0.25,0.5,0.25,0.5))};
~i3Bajo={Decay2.ar(~i3In.ar,0.01,2, SinOsc.ar(LFPulse.kr(0.25,0.25,0.5,20,60),0,0.4))};

~i3={~i3Bajo.ar+CombC.ar(~i3In.ar,0.2,1/~i3freq.kr,7,0.635)};
~o=~i+~i2+~i3

~oRev={FreeVerb.ar(~o.ar,0.5,0.81)}

~o.stop;~oRev.play
~o.play;~oRev.stop

p.fadeTime=10

reproducir muestra

29 Julio 2011

//código SuperCollider

/*
Tito Livecoding 29 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)

~o.play
s.meter

~j1={Impulse.ar(10)}
~o=~j1

~j1={Mix.fill(10,{|i|Impulse.ar(((i+1)*1)/8)})}
~j1={Mix.fill(10,{|i|RLPF.ar(Impulse.ar(((i+1)*1)/8,i/10), (i+1)*50+100,0.1)})}
~j1={Mix.fill(10,{|i|RLPF.ar(Impulse.ar(((i+1)*1)/8,i/10), (i+1)*SinOsc.kr(1,pi/2,500,510)+100,0.1)})}
~j1={Mix.fill(10,{|i|CombC.ar(RLPF.ar(Impulse.ar(((i+1)*1)/8,i/10), (i+1)*SinOsc.kr(1,pi/2,500,510)+100,0.1),1, SinOsc.kr(0.053,pi/2,0.49,0.5),SinOsc.kr(1.1,pi/2,5,6))})}
~j1={Mix.fill(10,{|i|PitchShift.ar(CombC.ar(RLPF.ar(Impulse.ar(((i+1)*1)/8,i/10), (i+1)*SinOsc.kr(1,pi/2,500,510)+100,0.1),1, SinOsc.kr(0.053,pi/2,0.49,0.5), SinOsc.kr(1.1,pi/2,5,6)),pitchRatio:SinOsc.kr((i+1)/10,pi/2,1.9,2))})}

~bajos={~j1.ar+LPF.ar(~j1.ar,150,4)}
~o=~bajos

~j2Trig={Dust.ar(LFNoise1.kr(1,2,1.9))};
~j2Dem={Demand.ar(~j2Trig.ar,0,Drand(Array.exprand(10,100,12000),inf))};
~j2Env={SelectX.ar(SinOsc.ar(1,0,0.5,0.5).round, [SinOsc.ar(0,pi/2,0.5,0.5),LFPulse.ar(10)])};
~j2={Decay2.ar(~j2Trig.ar,0.01,LFNoise1.kr(0.1,0.4,0.5), SinOsc.ar(~j2Dem.ar,0,0.3))*~j2Env.ar}
~o=~bajos+~j2
p.fadeTime=10

reproducir muestra

28 Julio 2011

//código SuperCollider

/*
Tito Livecoding 28 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)

~out.play
p.fadeTime=2
(
~saw={Saw.ar(LFSaw.kr(1,0,20,60))*LFPulse.kr(2,0.5,0.5)};
~saw2={Decay2.ar(Impulse.ar(2),0.01,0.2,Saw.ar(LFSaw.kr(4,0,400,1020)))};
~saw3={SinOsc.ar(Demand.kr(Impulse.kr(8),0, Drand([0,2,4,5,7,9,11,12].midiratio*600,inf)))*0.5};
)
~out=~saw
~out=~saw+~saw2+~saw3

~multiPulse={Mix(SinOsc.ar(Array.rand(4,100,600) *Demand.kr(Impulse.kr(0.25),0,Drand([0,2,3,5,7,8,10].midiratio,inf)),0,1/8) *LFPulse.kr(Array.rand(8,1,8)/4,{[0,0.5].choose}!4))}
~out=~multiPulse

p.fadeTime=12
~out=0

reproducir muestra

27 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot)

~out.play
s.meter

(
~hRitmo={LFPulse.kr(1,rrand(0,0.5),rrand(0.25,0.75))*LFPulse.kr(4)};
~h={SinOsc.ar(100*Demand.kr(Impulse.kr(0.5),0, Dseq([0,7,7,4,4,5,9,7,9,11].midiratio*1,inf)))*~hRitmo*0.25};

~hRitmo1={LFPulse.kr(1,rrand(0,0.5),rrand(0.25,0.75))*LFPulse.kr(4)};
~h1={SinOsc.ar(100*Demand.kr(Impulse.kr(0.5),0, Dseq([0,7,7,4,4,5,9,7,9,11].midiratio*2,inf)))*0.25};

~hRitmo2={LFPulse.kr(1,rrand(0,0.5),rrand(0.25,0.75))*LFPulse.kr(8)};
~h2={SinOsc.ar(100*4.midiratio*4)*~hRitmo2*0.25};

~hRitmo3={LFPulse.kr(3,rrand(0,0.5),rrand(0.25,0.75))*LFPulse.kr(4)*LFPulse.kr(8)};
~h3={SinOsc.ar(100*Demand.kr(Impulse.kr(1),0, Dseq([0,7,7,4,4,5,9,7,9,11].midiratio*4,inf)))*~hRitmo3*0.25};
)
~out=~h+~h2+~h3+~h1
~out=~h
~out=~h+~h2
~out=~h+~h2+~h3
~out=~h+~h2+~h3+~h1
p.fadeTime=10
~out=0

reproducir muestra

descargar codigo

TitoHackPact27

26 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot)

~out.play

~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,100)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})}

~fDem={Demand.kr(Dust.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*200,inf))};
~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,~fDem.kr)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})}

~fDemFilt={Demand.kr(Dust.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*400,inf))};
~fFilt={RLPF.ar(~f.ar,~fDemFilt.kr,0.1)*1};

~fSinDem={Demand.kr(Dust.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*100,inf))};
~fSin={SinOsc.ar(~fSinDem.kr)}

~out=~f
~out=~fFilt
~out=~f+~fFilt
~out=~f+~fFilt+~fSin

(
~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,100)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})};

~fDem={Demand.kr(Impulse.kr(2),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*200,inf))};
~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,~fDem.kr)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})};

~fDemFilt={Demand.kr(Impulse.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*400,inf))};
~fFilt={RLPF.ar(~f.ar,~fDemFilt.kr,0.1)*1};

~fSinDem={Demand.kr(Impulse.kr(1),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*100,inf))};
~fSin={Decay2.ar(Impulse.ar(1),0.01,1,SinOsc.ar(~fSinDem.kr))};
)

(
~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,100)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})};

~fDem={Demand.kr(Impulse.kr(2),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*200,inf))};
~f={Decay2.ar(Impulse.ar(2),0.01,0.5,Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,~fDem.kr)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)}))};

~fDemFilt={Demand.kr(Impulse.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*400,inf))};
~fFilt={Decay2.ar(Impulse.ar(4),0.01,0.25,RLPF.ar(~f.ar,~fDemFilt.kr,0.1)*1)};

~fSinDem={Demand.kr(Impulse.kr(1),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*100,inf))};
~fSin={Decay2.ar(Impulse.ar(1),0.01,1,SinOsc.ar(~fSinDem.kr))};
)

(
~f={Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,100)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)})};

~fDem={Demand.kr(Dust.kr(20),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*200,inf))};
~f={Decay2.ar(Dust.ar(2),0.01,0.5,Mix.fill(20,{|i| Pulse.ar(SinOsc.kr(0.05,0,30,~fDem.kr)+(i*SinOsc.kr(0.001,0,10,10)),0.5,1/10)}))};

~fDemFilt={Demand.kr(Dust.kr(8),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*400,inf))};
~fFilt={Decay2.ar(Dust.ar(8),0.01,0.25,RLPF.ar(~f.ar,~fDemFilt.kr,0.1)*1)};

~fSinDem={Demand.kr(Dust.kr(4),0,Dseq([0,2,3,2,5,7,5,3,2,-1,2].midiratio*100,inf))};
~fSin={Decay2.ar(Dust.ar(4),0.01,1,SinOsc.ar(~fSinDem.kr))};
)

reproducir muestra

descargar codigo

TitoHackPact26

25 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot)

~out.play

~e={Limiter.ar(SinOsc.ar(SinOsc.ar(LFNoise1.kr(0.1,0.2,0.25),0,60, SinOsc.kr(0.05,0,20,100))*((1..10)/10)),0.5)}
~e={Limiter.ar(Blip.ar(SinOsc.ar(LFNoise1.kr(0.1,0.2,0.25),0,60, SinOsc.kr(0.05,0,20,100))*((1..10)/10),SinOsc.kr(0.01,0,50,51)),0.5)}

 

~ePitch={PitchShift.ar(~e.ar,pitchRatio:4/(1..10))/2}

~brillo={Mix(Decay2.ar(Dust.ar(2),0.01,0.62,RLPF.ar(~ePitch.ar, LFNoise1.ar(0.1,5000,10000),0.01)*4))}

~comb={Limiter.ar(CombC.ar(~e.ar,1,LFNoise0.kr( LFNoise1.kr(0.2,5,6),0.02,0.023),10),0.5)*LFPulse.kr(1)}
s.meter

~out=~e
~out=~e+~ePitch
~out=~e+~ePitch+~brillo
~out=~brillo+~comb
~out=~comb
~out=~e+~ePitch+~brillo+~comb

reproducir muestra

descargar codigo

TitoHackPact25

24 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot)

~out.play

~si={Limiter.ar(Saw.ar(LFSaw.kr((2..8)/16,0,500,(1..6) +LFNoise2.kr(1,1000,1100)))*SinOsc.kr((1..6)*SinOsc.kr(5,300,400)),0.9)}

~siFilth={RLPF.ar(~si.ar,LFNoise2.kr(0.5,500,560),0.1)}

~siPitch={PitchShift.ar(~si.ar, pitchRatio:LFSaw.kr(SinOsc.kr(0.1,0,4,4.1),0,1.9,2))}
~siPitch2={PitchShift.ar(~si.ar,pitchRatio:0.1)}

~siSelect={SelectX.ar(LFNoise1.kr(0.1,0.5,0.5) *3,[~si.ar,~siFilth.ar,~siPitch.ar,~siPitch2.ar])}

~out=~sis
~out=~siFilth
~out=~siSelect
~out=~siPitch
~out=~siPitch2
s.meter
~out=0

reproducir muestra

descargar codigo

TitoHackPact24

23 Julio 2011

//código SuperCollider

/*
Tito live coding HackPact 23 Julio del 2011
*/

p=ProxySpace.push(s.boot)

~out.play
~out.stop
p.fadeTime=10
~meandro.stop

(
~pelops={Mix.fill(10,{|i| Blip.ar(rrand(100,1000),rrand(1,7),1/10)})};
~propontide={SinOsc.ar(rrand(80,120),0,0.5)};
~platea={Mix.fill(10,{|i| Blip.ar(rrand(2000,10000),rrand(1,7),1/10)})};
~meandro={~out.ar*SinOsc.kr(rrand(1,10))}
)

(
~pelops={Mix.fill(10,{|i| Blip.ar(rrand(100,1000) +LFNoise2.kr(0.05,100,101),rrand(1,7),1/10)})};
~propontide={SinOsc.ar(rrand(80,120),0,0.5)};
~platea={Mix.fill(10,{|i| Blip.ar(rrand(2000,10000) +LFNoise2.kr(0.05,1000,1001),rrand(1,7),1/10)})};
~meandro={~out.ar*SinOsc.kr(rrand(1,10)+LFNoise1.kr(0.05,4.5,5))}
)
(
~gorgiasFreq={LFNoise2.kr(LFNoise1.kr(1.91,0.5,0.6),300,601)};
~gorgias={FreeVerb.ar(Gendy2.ar(minfreq:~gorgiasFreq, maxfreq:~gorgiasFreq)*0.525*LFNoise1.kr(2).round,0.5,0.97)};
~gorgiasFreq2={LFNoise2.kr(LFNoise1.kr(2.91,0.5,0.6),300,801)};
~gorgias2={FreeVerb.ar(Gendy2.ar(minfreq:~gorgiasFreq2, maxfreq:~gorgiasFreq2)*0.525*LFNoise1.kr(3).round,0.5,0.97)};
)
(
~gorgiasFreq={LFNoise2.kr(LFNoise1.kr(1.91,0.5,20.6),300,601)};
~gorgias={FreeVerb.ar(Gendy2.ar(minfreq:~gorgiasFreq, maxfreq:~gorgiasFreq)*0.525*LFNoise1.kr(2),0.5,0.97)};
~gorgiasFreq2={LFNoise2.kr(LFNoise1.kr(2.91,0.5,20.6),300,801)};
~gorgias2={FreeVerb.ar(Gendy2.ar(minfreq:~gorgiasFreq2, maxfreq:~gorgiasFreq2)*0.525*LFNoise1.kr(3),0.5,0.97)};
)
~out=~pelops
s.meter
~out=~propontide
~out=~pelops+~propontide+~platea
~meandro={~out.ar*SinOsc.kr(rrand(1,10)+LFNoise1.kr(0.05,4.5,5))}
~meandro={~out.ar*SinOsc.kr(rrand(1,10)+LFNoise1.kr(0.31,4.5,5)) +~gorgias.ar}
~meandro={~out.ar*SinOsc.kr(rrand(1,10)+LFNoise1.kr(0.31,4.5,5)) +~gorgias.ar+~gorgias2.ar}
~meandro={~gorgias.ar+~gorgias2.ar}
~meandro=0
~out.stop;~meandro.play

reproducir muestra

descargar codigo

TitoHackPact23

22 Julio 2011

//código SuperCollider

/*
Tito livecoding HackPact 22 de Julio 2011
*/

p=ProxySpace.push(s.boot)

~o.play

(
var freq=(1..10)+70;
~b1={Mix.fill(10,{|i|Limiter.ar(Pulse.ar(LFSaw.kr((1..10)* SinOsc.kr(0.01,0,0.005,0.025),0,20,freq[i])* -1 +(freq[i]* 2)).wrap2(0.5799),0.015)})};

~b2={PitchShift.ar(~b1.ar,pitchRatio:LFNoise1.kr(LFNoise1.kr(1.2,2,3),1.9,2))*2}
)

~o=~b1+~b2

(
var freq=(1..10)+70;
~b1Pulse={Mix.fill(10,{|i|Limiter.ar(Pulse.ar(LFSaw.kr((1..10) *SinOsc.kr(0.01,0,0.005,0.025),0,20,freq[i])* -1 +(freq[i]* 2)).wrap2(0.5799),0.015)})*LFPulse.kr(LFNoise2.kr(1.2,4,4.1))};

~b2Pulse={PitchShift.ar(~b1.ar,pitchRatio:LFNoise1.kr( LFNoise1.kr(1.2,2,3),1.9,2))*LFPulse.kr(LFNoise2.kr(1.2,4,4.1))*2}
)

~o=~b1Pulse+~b2Pulse

 

~b1LPF={LPF.ar(~b1Pulse.ar,150,4)};
~b2LPF={LPF.ar(~b2Pulse.ar,150,4)};
~o=~b1Pulse+~b2Pulse+~b1LPF+~b2LPF

~b1BPF={Limiter.ar(Resonz.ar(~b1Pulse.ar,LFNoise2.kr(10).range(100,11000) ,LFNoise1.kr(1.1).range(2,0.001)),0.5)*1.2};
~b2BPF={Limiter.ar(Resonz.ar(~b2Pulse.ar,LFNoise2.kr(11).range(100,11000) ,LFNoise1.kr(1.41).range(2,0.001)),0.5)*1.2};
~o=~b1Pulse+~b2Pulse+~b1LPF+~b2LPF+~b1BPF+~b2BPF

~comb={CombC.ar(~o.ar,2.5,LFNoise1.kr(LFNoise2.kr(0.1,4,4.1),1,1.01) ,LFNoise1.kr(1.7,2,2.01))}

~oLeak={LeakDC.ar(~comb.ar)}
~oLeak={LeakDC.ar(~b1Pulse.ar+~b2Pulse)}
~oLeak={LeakDC.ar(SelectX.ar(LFNoise0.ar(10,1.5,1.5).round,[(~b1.ar+~b2) ,(~b1Pulse.ar+~b2Pulse),~comb.ar,(~b1LPF.ar+~b2LPF.ar)]))}
~oLeak.play;~o.stop

~oLeak.stop
s.meter

reproducir muestra

descargar codigo

TitoHackPact22

21 Julio 2011

//código SuperCollider

*
Tito livecoding HackPact 21 de Julio 2011
*/
p=ProxySpace.push(s.boot)

~o.play

~a1={SinOsc.ar(SinOsc.ar(SinOsc.ar(0.01,0,100, 100.01),0,9040,10000))*0.125}
~o=~a1

~a3Dem={Demand.kr(Dust.kr(0.5),0,Drand([1,LFPulse.kr( LFNoise1.kr(0.1,3,2))],inf))}
~a2={SinOsc.ar(SinOsc.ar(0.045,0,10,75)*[1, LFNoise1.kr(0.1,0.1,1)])*0.125*~a3Dem.kr}
~o=~a1+~a2

~a3={Resonz.ar(~a1.ar,SinOsc.ar(0.03,0,7000,7060),0.1)*3}

~o=~a1+~a2+~a3

~a4Dem={Demand.kr(Dust.kr(0.5),0,Drand([1,LFPulse.kr( LFNoise1.kr(0.1,3,2))],inf))}
~a4={SinOsc.ar(SinOsc.ar(0.035,0,1000,15000)*[1, LFNoise1.kr(0.1,0.1,1)])*0.125*~a4Dem.kr}
~o=~a1+~a2+~a3+~a4

~a5={SinOsc.ar(SinOsc.ar(SinOsc.ar(0.021,0,100,100.01),0,9040,10000))*0.125}
~o=~a1+~a2+~a3+~a4+~a5
s.meter
~o.stop

reproducir muestra

descargar codigo

TitoHackPact21

20 Julio 2011

//código SuperCollider

/*
Tito livecoding HackPact 20 de Julio 2011
*/
p=ProxySpace.push(s.boot)
p.fadeTime=10;
~out.play
~sins={Mix.fill(10,{|i| SinOsc.ar(((i+1)*10)+200,i/10,1/10)})};
~out=~sins;
~sons={Mix(SinOsc.ar((1..10)*50+100,2pi/(1..10),1/10)) *SinOsc.kr(0.1,pi/(1..10))};
~out=~sons;
~sans={Mix.fill(10,{|i| SinOsc.ar(((i+1)*1)+400,(i/10) *2pi,1/10)})};
~out=~sans;
~sens={Mix.fill(10,{|i| SinOsc.ar(((i+1)*2)+100,(i/10) *2pi,1/10)})};
~out=~sens;

~suns={|por=2,mas=100| Mix.fill(10,{|i|SinOsc.ar(((i+1)*por)+mas,(i/10) *2pi,1/10)})*0.5*SinOsc.kr(LFNoise1.kr(0.2,0.02,0.021))};
~out=~suns;
~suns.set(\mas, exprand(1,10000), \por, rrand(1,100));

~mezcla={SelectX.ar((LFTri.ar(0.0125,3,0.5,0.5) *4),[~sins.ar,~sons.ar,~sans.ar,~sens.ar])}
~out=~mezcla;

~out=~sins
~out=~sons
~out=~sans
~out=~sens
~out=~suns

~out=~mezcla+~suns
s.meter
(
Tdef(\suns, {inf.do{
~suns.set(\mas, exprand(1,10000), \por, rrand(1,100));
rrand(7,10).wait;
}}).quant_(0).play;
);
Tdef(\suns).stop
~out=0
~out.stop

reproducir muestra

descargar codigo

TitoHackPact20

19 Julio 2011

//código SuperCollider

/*
Tito Livecoding 19 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)
p.fadeTime=10;
s.meter
~o.play
/*
voy moviendo lor rrand(70,150) para ir haciendo mas agudos o mas graves los acordes
*/
(
~huy1={Pan2.ar(SinOsc.ar(rrand(70,50)*Array.rand(10,1,1.15)* [1,1/2]*LFNoise2.kr(0.1,0.2,1),0,1/10),rrand(-1.0,1))};
~huy2={Pan2.ar(SinOsc.ar(rrand(60,100)*Array.rand(10,1,1.15)* [1,1/2]*LFNoise2.kr(0.1,0.2,1),0,1/10),rrand(-1.0,1))};
~huy3={Pan2.ar(SinOsc.ar(rrand(70,40)*Array.rand(10,1,1.15)* [1,1/2]*LFNoise2.kr(0.1,0.2,1),0,1/10),rrand(-1.0,1))};
~huy4={Pan2.ar(SinOsc.ar(rrand(70,40)*Array.rand(10,1,1.15)* [1,1/2]*LFNoise2.kr(0.1,0.2,1),0,1/10),rrand(-1.0,1))};
)

~ruido={CombC.ar(LFNoise0.ar(LFNoise2.kr(0.1,50,100),0.3) *SinOsc.kr(LFNoise1.kr(0.1,0.25,0.251))*LFPulse.kr(Array.rand(10,0.1,0.05)) *LFPulse.kr(LFNoise1.kr(0.1,0.1,0.2,0,0.01)),1,LFNoise1.kr(0.1,0.3,0.5),1)}
~ruidoBajo={LPF.ar(~ruido.ar,150,4)};
~ruidoAlto={HPF.ar(~ruido.ar,10050,4)};

~o=~huy1+~huy2+~huy3+~huy4
~o=~huy1+~huy2+~huy3+~huy4+~ruidoBajo+~ruidoAlto
~o=0
~huy.set(\freq,rrand(200,500))

reproducir muestra

18 Julio 2011

//código SuperCollider

/*
Tito live coding 18. HactPact Julio 2011. Con el MicoRex
*/

s.boot
p=ProxySpace.push

~out.play
(
~bajoDem={Demand.ar(Impulse.ar(10),0,Dseq((Array.rand(25,0,24) -6).midiratio*90,inf))};
~bajoSilencio={Demand.ar(Impulse.ar(10),0,Drand([0,1],inf))};
~bajo={Saw.ar(10)+SinOsc.ar(~bajoDem.ar).wrap2(0.99)*LFPulse.kr(10) *~bajoSilencio.ar};
~bajo3={Saw.ar(10)+SinOsc.ar(~bajoDem.ar)*LFPulse.kr(10)*~bajoSilencio.ar};

~bajo2DemSilencio={Demand.ar(Impulse.ar(10),0,Drand([0,0,0,1],inf))};
~bajoDem2={Demand.ar(Impulse.ar(10),0,Dseq((Array.rand(25,0,24) -6).midiratio*90,inf))};
~bajo2={SinOsc.ar(~bajoDem.ar*[4,2].choose).wrap2(0.9)*LFPulse.kr(10) *~bajo2DemSilencio.ar};
)
(
~bajoDem={Demand.ar(Impulse.ar(10),0,Dseq(rrand(0,12).midiratio*90,inf))};
~bajoSilencio={Demand.ar(Impulse.ar(10),0,Drand([0,1],inf))};
~bajo={Saw.ar(10)+SinOsc.ar(~bajoDem.ar).wrap2(0.99)*LFPulse.kr(10) *~bajoSilencio.ar};
~bajo3={Saw.ar(10)+SinOsc.ar(~bajoDem.ar)*LFPulse.kr(10)*~bajoSilencio.ar};

~bajo2DemSilencio={Demand.ar(Impulse.ar(10),0,Drand([0,0,0,1],inf))};
~bajoDem2={Demand.ar(Impulse.ar(10),0,Dseq(rrand(0,12).midiratio*90,inf))};
~bajo2={SinOsc.ar(~bajoDem.ar*[4,2].choose).wrap2(0.9)*LFPulse.kr(10) *~bajo2DemSilencio.ar};
)

~out=~bajo+~bajo2+~bajo3

~filtro={RLPF.ar(~out.ar,SinOsc.ar(2.5,0,5000,5060),0.1)}
~filtro.play;~out.stop
~rev={FreeVerb.ar(~pitch.ar+~repet.ar,0.5,0.001)}
~rev={FreeVerb.ar((~pitch.ar+~repet.ar)*LFPulse.ar(0.125),0.079,0.001)}
~rev.play;~filtro.stop
~pitch={PitchShift.ar(~filtro.ar,pitchRatio:SinOsc.ar(2.5/16,0,0.5,1))}
~pitch={PitchShift.ar(~filtro.ar,pitchRatio:SinOsc.ar(2.5/16,0,0,1))}
~final={~pitch.ar+LPF.ar(~pitch.ar,130,0.5)}
~pitch.stop;~final.play

~repet={Mix((SinOsc.ar(SinOsc.ar(0.1,0,[10,200],[100,1000])*1,0,[1,1]) +Pulse.ar(SinOsc.ar(0.1,0,200,1000))))*SinOsc.ar(0.01) *LFPulse.ar(10)*LFPulse.ar(0.05)*0.25}

p.fadeTime=10
~pitch=0
~repet=0

reproducir muestra

17 Julio 2011

//código SuperCollider

/*

Tito live coding HackPact 17 de Julio del 2011. México DF.
Me distraje un poco
*/

p=ProxySpace.push(s.boot)
p.fadeTime=2

~rev={FreeVerb.ar(~out.ar,0.725,0.975)*1.5}

~rev.play

(
(
Tdef(\aloha, {inf.do{
~voz1={SinOsc.ar([-24,0,5].midiratio*60.midicps *[1,1,1,{rrand(0.01,0.05)}!3].flat,0,0.125/2)};
4.wait;
~voz1={SinOsc.ar([-15 -12,-3,4].midiratio*60.midicps *[1,1,1,{rrand(0.01,0.05)}!3].flat,0,0.125/2)};
4.wait;
}}).play.quant_(0);
);

(
Tdef(\omaha, {inf.do{

~voz2={Decay2.ar(Impulse.ar([0.125,0.25,0.5].choose),0.1,2 ,SinOsc.ar([0,4,7,9,11,12].choose.midiratio*60.midicps*2,0,0.125/2))};
8.wait;
~voz2={Decay2.ar(Impulse.ar([0.125,0.25,0.5].choose),0.1,2 ,SinOsc.ar([0,4,7,9,11,12].choose.midiratio*60.midicps*2,0,0.125/2))};
8.wait
}}).play.quant_(0);
)
)
~out=~voz1+~voz2

Tdef(\omaha).stop;
Tdef(\aloha).stop
p.fadeTime=10
~rev=0

reproducir muestra

16 Julio 2011

//código SuperCollider

/*
Tito Livecoding 16 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)
s.meter
~o.play

~ala={Pulse.ar(LFNoise0.kr(4,500,650),SinOsc.kr(10),0.5)}
~o=~ala

~alaDem={Demand.ar(Impulse.ar(4),0,Dseq(Array.rand(8,50,1100),inf))};
~ala={Pulse.ar(~alaDem.ar,SinOsc.kr(10),0.5)}

(
~alaDem={Demand.ar(Impulse.ar(4),0,Dseq([Dseq(Array.exprand(8,50,400),2), Dseq(Array.exprand(8,50,1100),2)],inf))};
~ala={Pulse.ar(~alaDem.ar,SinOsc.kr(10),0.5)*LFPulse.kr(4,0,0.2)};

~alaDem2={Demand.ar(Impulse.ar(4),0,Dseq([Dseq(Array.exprand(8,50,1100),2), Dseq(Array.exprand(8,500,1100),2)],inf))};
~ala2={Pulse.ar(~alaDem.ar,SinOsc.kr(10),0.5)*LFPulse.kr(4,0.5,0.2)};
);
/*
~o=~ala+~ala2
*/

(
(
~alaDem={Demand.ar(Impulse.ar(4),0,Dseq([Dseq( Array.exprand(8,50,400),2), Dseq(Array.exprand(8,50,1100),2)],inf))};
~ala={(SinOsc.ar(~alaDem.ar,0,0.5)+Pulse.ar(~alaDem.ar,SinOsc.kr(10),0.5)) *LFPulse.kr(4,0,0.2)*0.15};

~alaDem2={Demand.ar(Impulse.ar(4),0,Dseq( [Dseq(Array.exprand(8,50,1100),2), Dseq(Array.exprand(8,500,1100),2)],inf))};
~ala2={(SinOsc.ar(~alaDem2.ar,0,0.5) +Pulse.ar(~alaDem.ar,SinOsc.kr(10),0.5)) *LFPulse.kr(4,0.5,0.2)*0.15};
);

~bataca={Mix(Decay2.ar(Impulse.ar(4),0.01,[0.3,0.2], SinOsc.ar((1..4)+[60,170],pi/2) +PinkNoise.ar([0.2,0.64])) *LFPulse.kr(2,[0,0.5])*0.68)!2};

~bajoDem={Demand.kr(Impulse.kr(0.125),0,Dseq([30,40],inf))};
~bajo={Mix(Decay2.ar(Impulse.ar(8),0.01,0.3, Pulse.ar(~bajoDem.kr,0.5,0.152) +RLPF.ar(Pulse.ar(~bajoDem.kr,0.5,0.152), SinOsc.kr(0.25,pi/2,2000,3100),0.1))*0.8)!2};
)
~o=~ala+~ala2+~bataca+~bajo

~o=~bajo+~bataca
~o=0
p.fadeTime=2.5

reproducir muestra

15 Julio 2011

//código SuperCollider

/*
Tito HackPact 15 de julio 2011. Huajuapan, Oax. México.
*/
p=ProxySpace.push(s.boot)
~mezcla3={FreeVerb.ar(Mix.fill(4,{|j|SelectX.ar( LFNoise0.ar((j+1)/8,4,5,4.5).round, Array.fill(9,{|i|RLPF.ar(Saw.ar((i+1)/2),((i+1)*100+ SinOsc.ar(100.01,0,(i+1)*50,(i+1) *(100*(j+1))))/2,0.01,0.05) *LFPulse.ar(((1..8)/8).choose,[0,0.5].choose)}))}) *SinOsc.ar(0.01),0.195,1)!2};
~mezcla3.play

reproducir muestra

14 Julio 2011

//código SuperCollider

/*
Tito hackPact 14 de Julio del 2011. Huajuapan de Leon. Oax. México
Pongan los archivos guelaguetza01.wav y guelaguetza02.wav en la carpeta sounds de Supercollider
Ayer fui a ver la Guelaguetza y pues grabe unos soniditos. Ciao.
*/

s.boot

p=ProxySpace.push(s)
~out.play

b=Buffer.read(s,"sounds/guelaguetza01.wav")
c=Buffer.read(s,"sounds/guelaguetza02.wav")
(
(
~freqTrig=[1,2,4,8].choose;
~trig1={Impulse.ar(~freqTrig)};
~silencio1=[0.125,0.5,1,2].choose;
h=[b,c].choose;
~cambios={Demand.ar(~trig1.ar,0, Dseq(Array.rand([2,4,8].choose,0,h.numFrames),inf))};
~play1={RLPF.ar(PlayBuf.ar(2,h.bufnum, rrand(0.1,2),~trig1.ar,~cambios.kr,1), SinOsc.kr([0.125,0.25,0.5,1,2,4].choose,0,1000, rrand(1100,7000)),0.1,2)};
~env={Decay2.ar(~trig1.ar,0.01,1/~freqTrig,~play1.ar) *LFPulse.ar(~silencio1)};
);
(
~freqTrig2=[1,2,4,8].choose;
~trig2={Impulse.ar(~freqTrig2)};
~silencio2=[0.125,0.5,1,2].choose;
g=[b,c].choose;
~cambios2={Demand.ar(~trig2.ar,0, Dseq(Array.rand([2,4,8].choose,0,g.numFrames),inf))};
~play2={RLPF.ar(PlayBuf.ar(2,g.bufnum, rrand(0.1,2),~trig2.ar,~cambios2.kr,1), SinOsc.kr([0.125,0.25,0.5,1,2,4].choose,0,1000, rrand(1100,7000)),0.1,2)};
~env2={Decay2.ar(~trig2.ar,0.01,1/~freqTrig2,~play2.ar) *LFPulse.ar(~silencio2)};
);

~tarola={Decay2.ar(Impulse.ar(2),0.01,0.2,(SinOsc.ar(200) +PinkNoise.ar(0.5))) *LFPulse.ar(1)*2};
~bombo={Decay2.ar(Impulse.ar(4),0.01,0.2,(SinOsc.ar(100,0,1.5) +PinkNoise.ar(0.15)))*LFPulse.ar(1,0.5)*2};
)
(
~cambios={Demand.ar(~trig1.ar,0, Dseq(Array.rand([2,4,8].choose,0,h.numFrames),inf))};
~cambios2={Demand.ar(~trig2.ar,0, Dseq(Array.rand([2,4,8].choose,0,g.numFrames),inf))};
)
(
~freqTrig=[1,2,4,8].choose;
~freqTrig2=[1,2,4,8].choose;
)
(
~silencio1=[0.125,0.5,1,2].choose;
~silencio2=[0.125,0.5,1,2].choose;
)

~out=~env+~env2+~bombo+~tarola
~out=~env+~env2
~out=0

reproducir muestra

descargar codigo y muestras de audio

TitoHackPact14Julio2011

13 Julio 2011

//código SuperCollider

/*
Tito HackPact 13 de Julio del 2011. Huajuapan de Leon, Oax. México.
*/

p=ProxySpace.push(s.boot)

~out.play
p.fadeTime=10

~pichu={Pulse.ar(LFSaw.ar(4,20,40))}
~out=~pichu
~pichu={Mix.fill(10,{|i| SinOsc.ar(LFSaw.ar((i+1) *0.001,20,(i+1)+1000),0.5,1/10)})};
~fijate={Mix.fill(10,{|i|Resonz.ar(~pichu.ar,SinOsc.kr((i+1)*0.01,0,500,(i+1) *10000),0.1,2)})};
~verga={Mix.fill(10, {|i| ~fijate.ar*SinOsc.kr((i+1)*10)})/10};
~orale={Mix.fill(10, {|i| CombN.ar(~verga.ar,0.5,(i+1)*0.05,(i+1)*0.1)})/10};
~out=~pichu+~fijate
~out=~fijate
~out=~orale
~out=~verga

s.meter

(
~pichu={Mix.fill(10,{|i| SinOsc.ar (LFSaw.ar((i+1)*0.001,20,(i+1)+1000),0.5,1/10)})};
~fijate={Mix.fill(10,{|i|Resonz.ar (~pichu.ar,LFNoise2.kr((i+1)*0.01,500,(i+1)*10000),0.1,2)})};
~verga={Mix.fill(10, {|i| ~fijate.ar *LFNoise2.kr((i+1)*10)})/2.5};
~orale={Mix.fill(10, {|i| CombN.ar (~verga.ar,0.5,(i+1)*0.05,(i+1)*0.1)})/2.5};
)
~out=~orale

~corte={Mix(Decay2.ar(Dust.ar([3,1]),0.01,0.3,~orale.ar+~sins.ar))}
~out=~corte

~sins={Mix(SinOsc.ar(LFNoise0.kr(1,5000,(8000..8010) +LFNoise0.kr(10,1000,2000)),0,1/40))}
~sins2={Mix(SinOsc.ar(LFNoise0.kr(1,50,(100..110) +LFNoise0.kr(10,10,20)),0,1/10))}
~corte={Mix(Decay2.ar(Dust.ar(3),0.01,0.3,~orale.ar +~sins.ar+~sins2.ar))}

~rev={FreeVerb.ar(~out.ar,0.5,LFNoise0.kr(0.2,0.5,0.5))}
~out.stop;~rev.play

~corte={Mix(PitchShift.ar(Decay2.ar(Dust.ar([3,4]),0.01,0.3,~orale.ar +~sins.ar+~sins2.ar),pitchRatio:[1,0.125]))}
~corte={Mix(PitchShift.ar(Decay2.ar(Dust.ar([3,4] *MouseY.kr(20,0.1)),0.01,0.3,~orale.ar+~sins.ar+~sins2.ar) ,pitchRatio:[1,0.125]*MouseX.kr(0,4)))}

~out=0

reproducir muestra

12 Julio 2011

//código SuperCollider

/*
Tito hackPact 12 Julio 2011
*/

p=ProxySpace.push(s.boot)

~fuera.play
(
~tarola={Decay2.ar(Impulse.ar(2),0.01,0.2,(SinOsc.ar(200)+PinkNoise.ar(0.5))) *LFPulse.ar(1)};
~bombo={Decay2.ar(Impulse.ar(4),0.01,0.2, (SinOsc.ar(100,0,1.5)+PinkNoise.ar(0.15)))*LFPulse.ar(1,0.5)};
~arpegio={Mix(Pulse.ar(LFSaw.ar(4/8,0,300,[600,750]+LFNoise0.kr(0.25,200,200)) ,LFSaw.kr(4/16,0,0.24,0.25),0.0351))*LFPulse.kr(8)};
~bajo={Pulse.ar(LFNoise0.kr(4,20,100)/2,0.5,0.1)*LFPulse.ar(4)};
~melodia={SinOsc.ar(LFNoise0.kr(1,100,400),0,0.0912) *LFPulse.kr(LFPulse.kr(2,0,0.5,2,4))*LFPulse.kr(LFPulse.kr(2,0,0.5,1,1))};
~melodia2={SinOsc.ar(LFNoise0.kr(1,100,500),0,0.0912) *LFPulse.kr(LFPulse.kr(2,0,0.5,2,4))*LFPulse.kr(LFPulse.kr(2,0,0.5,1,2))};
)
~fuera=~bombo+~tarola
~fuera=~bombo+~tarola+~bajo
~fuera=~bombo+~tarola+~bajo+~melodia+~melodia2
~fuera=~bombo+~tarola+~bajo+~arpegio
~fuera=~bombo+~tarola+~arpegio+~bajo+~melodia+~melodia2
s.meter
(
~tarola={Decay2.ar(Impulse.ar([1,2,4,8].choose),0.01,0.2,(SinOsc.ar(200) +PinkNoise.ar(0.5)))*LFPulse.ar(1)};
~bombo={Decay2.ar(Impulse.ar([1,2,4,8].choose),0.01,0.2,(SinOsc.ar(100,0,1.5) +PinkNoise.ar(0.15)))*LFPulse.ar(1,0.5)};
~arpegio={Mix(Pulse.ar(LFSaw.ar(4/8,0,300,[600,750]+LFNoise0.kr(0.25,200,200)) ,LFSaw.kr(4/16,0,0.24,0.25),0.0351))*LFPulse.kr([1,2,4,8].choose)};
~bajo={Pulse.ar(LFNoise0.kr(4,20,100)/2,0.5,0.1)*LFPulse.ar([1,2,4,8].choose)};
~melodia={SinOsc.ar(LFNoise0.kr(1,100,400),0,0.0912) *LFPulse.kr(LFPulse.kr(2,0,0.5,2,4))*LFPulse.kr(LFPulse.kr(2,0,0.5,1,1))};
~melodia2={SinOsc.ar(LFNoise0.kr(1,100,500),0,0.0912) *LFPulse.kr(LFPulse.kr(2,0,0.5,2,4))*LFPulse.kr(LFPulse.kr(2,0,0.5,1,2))};
)
~fuera=0

reproducir muestra

11 Julio 2011

//código SuperCollider

/*
Tito HackPact 11 de Julio 2011
*/

l=NetAddr("192.168.1.64", 4444)

p=ProxySpace.push(s.boot)

~out.play

~sin={|t_trig=1,freq=30|RLPF.ar(Pulse.ar(freq), SinOsc.kr((1/0.225)/8,0,6000,7000),0.1) *EnvGen.kr(Env.perc(0.01,0.2),t_trig)/2}
~bombo={|t_trig=1, cutOff=300, freq=0|Mix(LPF.ar(PinkNoise.ar(0.3525),cutOff) +SinOsc.ar((100..98)+freq,0))*EnvGen.kr(Env.perc(0.01,0.215),t_trig)*1}
(
~demandSonidito={Demand.kr(Impulse.kr((1/0.225)/1),0, Dseq([1,2,0.5,0.25].scramble,inf))};
~demandLFPulse={Demand.kr(Impulse.kr((1/0.225)/1),0, Dseq([1,2,0.5,0.25].scramble,inf))};
~sonidito={Saw.ar(SinOsc.kr((1/0.225)/~demandSonidito.kr,0,100, MouseY.kr(10000,1000,1)),1/5) *LFPulse.kr((1/0.225)/~demandLFPulse.kr)*LFPulse.kr((1/0.225)/3)}
)
~out=~sin
~out=~sin+~bombo
~out=~sin+~bombo+~sonidito
~out=~bombo+~sonidito
~bombo.set(\t_trig, 1)
p=Pseq([0,2,3,2].midiratio*30*0.midiratio,inf).asStream
p=Pseq([0,2,3,2].midiratio*30*5.midiratio,inf).asStream
p=Pseq([0,2,3,2].midiratio*30*7.midiratio,inf).asStream

p=Pseq([7,7,7,7,7,7,7,7,6,6,6,6,6,6,6,6].midiratio*30*0.midiratio,inf).asStream
p=Pseq([0,2,3,7,12,10,8,7].midiratio*30*0.midiratio,inf).asStream

(
Tdef(\notas, {var notas;
inf.do{|i|
notas=p.next;
~sin.set(\freq, notas*[1,2].choose, \t_trig, 1);
l.sendMsg("/tito", notas);
switch(i%4, 0.0,{~bombo.set(\t_trig, 1, \cutOff, 500, \freq, 0);
l.sendMsg("/tito2", 500)},
2.0,{~bombo.set(\t_trig, 1, \cutOff, 3000, \freq, 100);
l.sendMsg("/tito2", 3000)}
);
(0.225/1).wait;
}}).play.quant_(0)
)

~out=~sonidito+~sin
s.meter
(
Tdef(\notas, {var notas;
inf.do{|i|
notas=p.next;
~sin.set(\freq, notas*[1,2].choose, \t_trig, 1);
l.sendMsg("/tito", notas);
switch(i%4, 0.0,{~bombo.set(\t_trig, 1, \cutOff, 500, \freq, 0);
l.sendMsg("/tito2", 500)},
2.0,{~bombo.set(\t_trig, 1, \cutOff, 3000, \freq, 100);
l.sendMsg("/tito2", 3000)}
);
(0.225/2).wait;
}}).play.quant_(0)
)

~out=~sin+~bombo+~sonidito
Tdef(\notas).stop
~out.stop

reproducir muestra

10 Julio 2011

//código SuperCollider

p=ProxySpace.push(s.boot)
s.meter
~out.play
~rev={FreeVerb.ar(~out.ar*LFPulse.kr(SinOsc.kr(0.01,0,3,3.1)),0.95, SinOsc.kr(0.02,0,0.5,0.5))}
~out.stop;~rev.play
~inicio={SinOsc.ar([80,75])}
~out=~inicio
~inicio2={SinOsc.ar([15000,12500],0,1/5)}
~out=~inicio+~inicio2

~inicio={SinOsc.ar([80,75])*LFPulse.kr(5)}
~inicio2={SinOsc.ar([15000,12500],0,1/5)*LFPulse.kr(6)}

~cresc={Mix(RLPF.ar(Pulse.ar((1..10)+100,0.5,1/20), XLine.kr(60,20000,120),0.1))!2};
~cresc={Mix(RLPF.ar(Pulse.ar((1..10)+60,0.5,1/20), XLine.kr(20000,60,120),0.1))!2};

~pink={RLPF.ar(PinkNoise.ar(0.25),(1..10)*20 +SinOsc.kr(0.01,0,2000,2100),0.01,1/5)*LFPulse.kr((120..100))}
~fm={SinOsc.ar(SinOsc.kr(LFNoise2.kr(10,10,10.1),0,9040,10000),0, SinOsc.kr(0.01,0,1/4))}
~noise={RLPF.ar(Demand.ar(Dust.ar(1000),0,Drand([-1,1],inf)).wrap2( LFNoise0.kr(10)),SinOsc.kr(0.1,0,10,100),0.5)}
p.fadeTime=1
~out=~inicio+~inicio2+~cresc
~out=~inicio+~inicio2+~cresc+~pink
~out=~cresc
~out=~cresc+~pink
~out=~inicio+~inicio2+~cresc+~pink+~fm+~noise
~out=~fm
~out=~noise
~out=~noise+~pink
~out=~hola
s.meter

reproducir muestra

descargar codigo

TitoHackPact10

9 Julio 2011

//codigo SuperCollider

/*
Tito Livecoding 9 HackPact Julio 2011
*/

p=ProxySpace.push(s.boot)

~out.play
s.meter
~son1={Saw.ar(30)}
~out=~son1

~son1={Saw.ar(SinOsc.ar(1,0,10,30))}
~son2={Resonz.ar(Saw.ar(SinOsc.ar(1,0,10,30)),6000,0.51)};
~out=~son1+~son2
~son2={Resonz.ar(Saw.ar(SinOsc.ar(1,0,10,30)), SinOsc.ar(0.5,0,1000,6000),0.51,8)}
~out=~son2
~son3={Resonz.ar(Saw.ar(SinOsc.ar(0.25,0,10,30)), SinOsc.ar(0.125,0,100,600),0.51,8)}
~out=~son3
~out=~son1+~son2+~son3
~out=~son1+~son3
~son4={SinOsc.ar([14000,65],0,[0.21,1])};
~out=~son3+~son4
~son5={LFNoise0.ar(100)*LFPulse.ar(LFNoise1.ar(1,4,7)) *LFPulse.ar(LFNoise1.ar(1,0.5,0.6))};
~out=~son3+~son4+~son5;
~son5={RLPF.ar(LFNoise0.ar(100)*LFPulse.ar(LFNoise1.ar(1,4,7)) *LFPulse.ar(LFNoise1.ar(1,0.5,0.6)),100,0.1,5)};
~son6={Gendy2.ar(minfreq:500,maxfreq:500,mul:0.1)};
~out=~son3+~son4+~son5+~son6;
~son6Gliss={SinOsc.ar([0.04,0.03],0,100,[800,200])};
~son6={Gendy2.ar(minfreq:~son6Gliss.ar, maxfreq:~son6Gliss.ar,mul:0.1)};
~out=~son6
~son6Env={SinOsc.ar([0.2,0.1])};
~son6={Gendy2.ar(minfreq:~son6Gliss.ar, maxfreq:~son6Gliss.ar,mul:0.1)*~son6Env.ar};
~out=~son3+~son5+~son6;

~son6={Gendy2.ar(minfreq:[300,SinOsc.kr(1,0,100,700)],maxfreq: [300,SinOsc.kr(1,0,100,700)],mul:0.1)};
~son6={Gendy2.ar(minfreq:SinOsc.kr([0.21,0.1],0,100,[200,700]), maxfreq:SinOsc.kr([0.21,0.1],0,100,[200,700]),mul:0.1) *SinOsc.kr([0.1541,0.231])};

p.fadeTime=2
~out=0
~out=~son1
~out=~son2
~out=~son1+~son2+~son3
~out=~son4+~son5+~son6;
~out=~son4
~out=~son5
~out=~son1+~son2
~out=~son1+~son2+~son3
~out=~son1+~son2+~son3+~son4
~out=~son1+~son4
~out=~son2+~son4
~out=~son3+~son4
~out=~son6+~son4
~out=~son5+~son4
~out=~son6+~son5
~out=~son6+~son5+~son4
~out=~son1+~son2+~son3+~son4+~son5+~son6
~out=~son1+~son4
~son1={Saw.ar(SinOsc.ar(0.05,0,10,30))}
p.fadeTime=20
~out=0

reproducir muestra

8 Julio 2011

//codigo SuperCollider

/*
Tito HackPact 8 de Julio 2011
*/

p=ProxySpace.push(s.boot)
~rev={FreeVerb.ar(~out.ar,0.5,0.3467)!2}
~out.stop;~rev.play
s.meter

~dardanoNotas={Demand.ar(~dardanoTrig.ar,0, Drand([0,3,7,4,12].midiratio*30,inf))};
~dardano={SinOsc.ar(~dardanoNotas.ar*2,0,0.95) +RLPF.ar(Pulse.ar(~dardanoNotas.ar,0.5,0.125),6000,0.1)};
~dardanoTrig={Impulse.ar(3)};
~dardanoSilencio={Demand.ar(~dardanoTrig.ar,0, Drand(Array.rand(8,0,1),inf))};
~dardanoDecay={Decay2.ar(~dardanoTrig.ar,0.05,1/3,~dardano.ar)};
~out=~dardanoDecay;

~helespontoNotas={Demand.ar(~helespontoTrig.ar,0, Drand([0,3,7,4,12].midiratio*30*8,inf))};
~helespontoSilencio={Demand.ar(~helespontoTrig.ar,0,Drand (Array.rand(8,0,1),inf))};
~helesponto={(SinOsc.ar(~helespontoNotas.ar,0,0.5) +RLPF.ar(Pulse.ar(~helespontoNotas.ar,0.5,0.5),10000,0.1)) *~helespontoSilencio.ar*0.2};
~helespontoTrig={Impulse.ar(3.5)};
~helespontoDecay={Decay2.ar(~helespontoTrig.ar,0.01,0.85, ~helesponto.ar)};
~out=~dardanoDecay+~helespontoDecay;

~dardanoTrig={Impulse.ar(3.5)};
~helespontoTrig={Impulse.ar(3.5)};
~helespontoNotas={Demand.ar(~helespontoTrig.ar,0,Dseq( [3,0,3,5,7,12,10,8].midiratio*30*8,inf))};
~dardanoNotas={Demand.ar(~dardanoTrig.ar,0, Dseq([0,0,0,0,0,-5,-3,-1].midiratio*60,inf))};

1/3.5;
1/2.2857142857143;
~ritmoAcordes={LFPulse.ar(Demand.ar(Impulse.ar(0.4375),0, Dseq([3.5/2,3.5*2],inf)))};
~acordesDemand={Demand.ar(Impulse.ar(0.4375),0, Dseq([[0,3,7],[-2,5,8]],inf))};
~acordes={Mix(Blip.ar(~acordesDemand.ar.midiratio*120*2,10,1/15)) *~ritmoAcordes.ar*LFPulse.kr(3.5/3)};
~out=~dardanoDecay+~helespontoDecay+~acordes;

~out=~dardanoDecay;
~out=~helespontoDecay;
~out=~acordes;
~out=~dardanoDecay+~helespontoDecay;
~out=~helespontoDecay+~acordes;
~out=~dardanoDecay+~acordes;
~out=~dardanoDecay+~helespontoDecay+~acordes;

p.fadeTime=10
~out=0

reproducir muestra

descargar codigo

TitoHachPact8

7 Julio 2011

//codigo SuperCollider

p=ProxySpace.push(s.boot)

s.record

~out.play
~gorgias={Mix(SinOsc.ar((500..540),0,1/10))}
~tales={Mix(Pulse.ar((1500..1540),0.1,1/10))}

~out=~gorgias
~out=~tales

~out=~tales+~gorgias

(
Tdef(\helade, {inf.do{
~out=~gorgias;
0.04.wait;
~out=~tales;

0.04.wait;
}}).play
)

~gorgias={Mix(SinOsc.ar((500..540)+SinOsc.kr(3,0,400,400),0,1/10))}
~tales={Mix(Pulse.ar((1500..1540)+SinOsc.kr(3,0,400,400),0.1,1/10))}

(
Tdef(\pelops, {inf.do{
~gorgias={Mix(SinOsc.ar((500..540)+SinOsc.kr(3,0,400,400),0,1/10))};
~tales={Mix(Pulse.ar((1500..1540)+SinOsc.kr(3,0,400,400),0.1,1/10))};
0.18.wait;
~gorgias={Mix(SinOsc.ar((500..540),0,1/10))};
~tales={Mix(Pulse.ar((1500..1540),0.1,1/10))};

0.18.wait;
}}).play
)



~hoplita={LFNoise0.ar(200,0.21)}

~out2.play

~out2=~hoplita

~hoplita={LFNoise0.ar(200,0.21)*LFPulse.kr(4)}
~hoplita={LFNoise0.ar(LFPulse.kr(2,0.5,0.5,200,1500),0.21)*LFPulse.kr(4)}
~hoplita={LPF.ar(LFNoise0.ar(300,0.21),4000).wrap2(LFNoise1.kr(10,0.5,0.5))}

Tdef(\helade).stop
Tdef(\pelops).stop

Tdef(\helade).play
Tdef(\pelops).play

~out.stop
~out2.stop
s.stopRecording

reproducir muestra

6 Julio 2011

//codigo SuperCollider

p=ProxySpace.push(s.boot)

~out.play

~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(300,5))}

~out=~alex

~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(300*4.midiratio,5))}

~out=~alex+~fuckedUp

~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio*300,inf))}

~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))}

~lalo={SinOsc.ar(150,0,0.5)}
~out=~alex+~fuckedUp+~lalo
~lalo={SinOsc.ar(150/2,0,0.5)}

~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*300,inf))}
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))}
~out=~alex+~fuckedUp+~lalo+~roy

(
~fund=300*5.midiratio;
~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~fund,5))};
~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio*~fund,inf))};
~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))};
~lalo={SinOsc.ar(~fund/4,0,0.5)};
~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*~fund,inf))};
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))};
)
(
~fund={Demand.kr(Impulse.kr(1),0,Dseq([5,0,7,0].midiratio*300,inf))};
~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~fund.kr,5))};
~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio*~fund.kr,inf))};
~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))};
~lalo={SinOsc.ar(~fund.kr/4,0,0.5)};
~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*~fund.kr,inf))};
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))};
)
~jaime={SinOsc.ar(Demand.kr(Impulse.kr(0.5),0, Drand([0,2,4,5,7,9,11,12].midiratio*300,inf)),0,1/2)}
~out=~alex+~fuckedUp+~lalo+~roy+~jaime

~impulseJaime={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2],inf))}
~jaime={SinOsc.ar(Demand.kr(Impulse.kr(~impulseJaime.kr),0, Drand([0,2,4,5,7,9,11,12].midiratio*300,inf)),0,1/3)}

~impulseOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2],inf))}
~olmo={SinOsc.ar(Demand.kr(Impulse.kr(~impulseOlmo.kr),0, Drand([0,2,4,5,7,9,11,12].midiratio*300,inf)),0,1/3)}
~out=~alex+~fuckedUp+~lalo+~roy+~jaime+~olmo

~yo={Decay2.ar(Impulse.ar(2),0.01,0.3,SinOsc.ar((60..90) *LFPulse.kr(1,0,0.5,1,1),0,5.75)+PinkNoise.ar(0.5))}
~out=~alex+~fuckedUp+~lalo+~roy+~jaime+~olmo+~yo

(
~fund={Demand.kr(Impulse.kr(1),0,Dseq([5,0,7,0].midiratio*300,inf))};
~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~fund.kr,5))};
~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio*~fund.kr,inf))};
~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))};
~lalo={SinOsc.ar(~fund.kr/4,0,0.5)};
~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*~fund.kr,inf))};
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))};
~yo={Decay2.ar(Impulse.ar(2),0.01,0.3,SinOsc.ar((60..90) *LFPulse.kr(1,0.5,0.5,1,1),0,5.75)+PinkNoise.ar(0.5))};
~impulseOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2],inf))};
~olmo={SinOsc.ar(Demand.kr(Impulse.kr(~impulseOlmo.kr),0, Drand([0,2,4,5,7,9,11,12].midiratio*600,inf)),0,1/5)};
~impulseJaime={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2],inf))};
~jaime={SinOsc.ar(Demand.kr(Impulse.kr(~impulseJaime.kr),0 ,Drand([0,2,4,5,7,9,11,12].midiratio*600,inf)),0,1/5)};
)

(
~fund={Demand.kr(Impulse.kr(1),0,Dseq([5,0,7,0].midiratio*300,inf))};
~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~fund.kr,5))};
~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio *~fund.kr,inf))};
~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))};
~lalo={SinOsc.ar(~fund.kr/4,0,0.5)};
~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*~fund.kr,inf))};
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))};
~yo={Decay2.ar(Impulse.ar(2),0.01,0.3,SinOsc.ar((60..90) *LFPulse.kr(1,0.5,0.5,1,1),0,5.75)+PinkNoise.ar(0.5))};
~silencioOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([0,1,1],inf))};
~impulseOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2,4],inf))};
~olmo={SinOsc.ar(Demand.kr(Impulse.kr(~impulseOlmo.kr),0, Drand([Dseq([0,2,4,5],1),Dseq([12,9,5,7],1), Dseq([0,2,4,5,7,9,11,12],1)].midiratio*300,inf)),0,1/5)*~silencioOlmo.kr};
~silencioJaime={Demand.kr(Impulse.kr(0.5),0,Drand([0,1,1],inf))};
~impulseJaime={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2,4],inf))};
~jaime={SinOsc.ar(Demand.kr(Impulse.kr(~impulseJaime.kr),0, Drand([Dseq([5,5,5,5,4,4,4,4,2,2,2,2,0],1),Dseq([12,9,5,7],1), Dseq([0,2,4,5,7,9,11,12],1)].midiratio*600,inf)),0,1/5)*~silencioJaime.kr};
)

(
~fund={Demand.kr(Impulse.kr(1),0,Dseq([5,0,7,0].midiratio*300,inf))};
~alex={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~fund.kr,5))};
~notasFuckedUp={Demand.kr(Impulse.kr(8),0,Dseq([4,7].midiratio*~fund.kr,inf))};
~fuckedUp={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasFuckedUp.kr,5))};
~lalo={SinOsc.ar(~fund.kr/4,0,0.975)};
~notasRoy={Demand.kr(Impulse.kr(4),0,Dseq([7,9,11,12].midiratio*~fund.kr,inf))};
~roy={Decay2.ar(Impulse.ar(4),0.01,0.25,Blip.ar(~notasRoy.kr,5))};
~yo={Decay2.ar(Impulse.ar(2),0.01,0.3,SinOsc.ar((60..90) *LFPulse.kr(1,0.5,0.5,1,1),0,5.75)+PinkNoise.ar(0.5))};
~silencioOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([0,1,1],inf))};
~impulseOlmo={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2,4],inf))};
~olmo={SinOsc.ar(Demand.kr(Impulse.kr(~impulseOlmo.kr),0, Drand([Dseq([0,2,4,5],1),Dseq([12,9,5,7],1), Dseq([0,2,4,5,7,9,11,12],1)].midiratio*300,inf)),0,1/5)*~silencioOlmo.kr};
~silencioJaime={Demand.kr(Impulse.kr(0.5),0,Drand([0,1,1],inf))};
~impulseJaime={Demand.kr(Impulse.kr(0.5),0,Drand([1,0.5,2,4],inf))};
~jaime={SinOsc.ar(Demand.kr(Impulse.kr(~impulseJaime.kr),0, Drand([Dseq([5,5,5,5,4,4,4,4,2,2,2,2,0],1),Dseq([12,9,5,7],1), Dseq([0,2,4,5,7,9,11,12],1)].midiratio*600,inf)),0,1/5)*~silencioJaime.kr};
)

~out=~alex+~fuckedUp+~lalo+~roy+~jaime+~olmo+~yo
~out=~alex+~fuckedUp
~out=~alex+~fuckedUp+~lalo+~jaime+~olmo
~out=~alex+~fuckedUp+~lalo+~roy+~jaime+~olmo+~yo
~out=~alex+~fuckedUp+~lalo+~roy+~yo
~out=~alex+~fuckedUp+~lalo+~roy+~jaime+~olmo
~out=~alex+~fuckedUp+~roy+~jaime+~olmo
~out=~alex+~fuckedUp+~jaime+~olmo
~out=~alex+~jaime+~olmo
~out=~alex
~out=0

reproducir muestra

descargar codigo

TitoHackPact6Julio2011

5 Julio 2011

*
Hack Pact Tito 5 de Julio 2011
*/

p=ProxySpace.push(s.boot)

~out.play
p.fadeTime=2
~a={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,800),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,6))*LFPulse.kr(0.2)};
~b={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,700),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,6))*LFPulse.kr(0.2)}

~out=~a

~out=~a+~b

~c={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,1800),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,6))*LFPulse.kr(0.2)};
~d={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,1700),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,6))*LFPulse.kr(0.2)}

~out=~a+~b+~c+~d

~e={RLPF.ar(Pulse.ar((30..50),0.5,1/10),SinOsc.kr(0.051,0,7000,7060),0.5)}

~out=~a+~b+~c+~d+~e

(
var t=rrand(5,20), l=rrand(0.5,2);
~a={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,800),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~b={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,700),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~c={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,1800),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~d={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,200,1700),0.01) *LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
)

 

(
var t=rrand(5,20), l=rrand(0.5,2);
~a={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,rrand(100,700), rrand(1000,7000)),0.01)*LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~b={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,rrand(100,700), rrand(1000,7000)),0.01)*LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~c={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,rrand(100,700), rrand(1000,7000)),0.01)*LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
~d={Resonz.ar(LFNoise0.ar(5000),LFNoise2.kr(0.2,rrand(100,700), rrand(1000,7000)),0.01)*LFPulse.kr(LFNoise1.kr(0.2,3,t))*LFPulse.kr(rrand(0.5,2))};
)

~f={RLPF.ar(Pulse.ar((2000..2050),0.5,1/10),SinOsc.kr(0.051,0,7000,7060),0.5)}
~out=~a+~b+~c+~d+~e+~f

~out=~e+~f
p.fadeTime=7
Tdef(\fu, {inf.do{
(
~f={RLPF.ar(Pulse.ar((1..30)+rrand(60,200),0.5,1/10) ,SinOsc.kr(0.051,0,7000,7060),0.5)};
~e={RLPF.ar(Pulse.ar((1..30)+rrand(600,2000),0.5,1/10) ,SinOsc.kr(0.051,0,7000,7060),0.5)}
);
rrand(1,7).wait}}).play
~out=~a+~b+~c+~d+~e+~f
Tdef(\fu).stop
p.fadeTime=17
~out=0

reproducir muestra

4 Julio 2011

/*
Tito HackPact livecoding 4 de Julio 2011
*/

p=ProxySpace.push(s.boot)
~out.play
p.fadeTime=2
(
Tdef(\nino, {inf.do{
~nuno={Pulse.ar(Array.rand(5,60,400),0.5,1/5)};
2.wait;
}}).play
)
~out=~nuno

(
var acordes=Pseq([[0,3,4,7,8],[2,4,6,9,10]].midiratio*100,inf).asStream;
Tdef(\nino, {inf.do{
~nuno={Pulse.ar(acordes.next,0.5,1/5)};
2.wait;
}}).play
)

(
var acordes=Pseq([[0,3,4,7,8] -12,[2,4,6,9,10]].midiratio*100,inf).asStream;
var durs=Pseq([1,2,1,3],inf).asStream;
Tdef(\nino, {inf.do{
~nuno={Pulse.ar(acordes.next*[1,2].choose,0.5,1/10)};
durs.next.wait;
}}).play
)

(
var acordes=Pseq([[0,3,4,7,8] -12,[2,4,6,9,10]].midiratio*100,inf).asStream;
var durs=Pseq([1,2,1,3],inf).asStream;
Tdef(\neno, {inf.do{
~nano={SinOsc.ar(acordes.next*[2,4].choose,0,1/10)};
durs.next.wait;
}}).play
)
~out=~nuno+~nano

~nene={SinOsc.ar(Demand.kr(Dust.kr(0.5),0,Dseq(Array.rand(12,0,12).midiratio *400,inf)),0,0.125)*SinOsc.kr(0.1)}
~out=~nuno+~nano+~nene
~nena={SinOsc.ar(Demand.kr(Dust.kr(0.5),0,Dseq(Array.rand(12,0,12).midiratio *100,inf)),0,0.125)*SinOsc.kr(0.1)}
~out=~nuno+~nano+~nene+~nena
~neno={SinOsc.ar(Demand.kr(Dust.kr(0.5),0,Dseq(Array.rand(12,0,12).midiratio *100,inf)),0,0.125)*SinOsc.kr(0.1)}

~out=~nena+~neno+~nene+~nuno+~nano
~out=~nuno+~nano+~nene+~nena

(
var acordes=Pseq([-2,0,3,5,7].midiratio*100,inf).asStream;
var durs=Pseq([1,2,1,3]*4,inf).asStream;
Tdef(\nino, {inf.do{
~nuno={Pulse.ar(acordes.next*[1,2].choose,0.5,1/10)};
durs.next.wait;
}}).play
)

(
var acordes=Pseq([-10,-7,2,5].midiratio*100,inf).asStream;
var durs=Pseq([1,2,1,3]*4,inf).asStream;
Tdef(\neno, {inf.do{
~nano={SinOsc.ar(acordes.next*[2,4].choose,0,1/10)};
durs.next.wait;
}}).play
)
~out=~nuno+~nano
p.fadeTime=12
~out=0

reproducir muestra

3 Julio 2011

//código SuperCollider

s.boot

p=ProxySpace.push(s)

~out.play

~triste={Pulse.ar(0.midiratio*300)}
~out=~ triste
(
f=200*0.midiratio;
~triste={LPF.ar(Pulse.ar(0.midiratio*300),SinOsc.kr(0.1,0,4500,5000))};
~triste={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(0.25),0,Dseq([0, 7].midiratio*f,inf))) ,SinOsc.kr(0.1,0,4500,5000))};
~feliz={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(0.5),0, Dseq([0,2,3,5,7,8,10,12].scramble.midiratio*f*2,inf))),SinOsc.kr(0.1,0,4500,5000))};
~ out=~triste+~feliz;
~oblicuo={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(1),0, Dseq([0,2,3,5,7,8,10,12].scramble.midiratio*f*4,inf))),SinOsc.kr(0.1,0,4500,5000))};
~ out=~triste+~feliz+~oblicuo;
)
(
f=200*[0,2,7].choose.midiratio;
~triste={LPF.ar(Pulse.ar(0.midiratio*300),SinOsc.kr(0.1,0,4500,5000))};
~triste={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr([0.25,0.5,1,2].choose),0, Dseq([0, 7].midiratio*f,inf))),SinOsc.kr(0.1,0,4500,5000))};
~feliz={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr([0.25,0.5,1,2].choose),0,Dseq([0, 2,3,5,7,8,10,12].scramble.midiratio*f*2,inf))),SinOsc.kr(0.1,0,4500,5000))};
~ out=~triste+~feliz;
~oblicuo={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr([0.25,0.5,1,2].choose),0, Dseq([0,2,3,5,7,8,10,12].scramble.midiratio*f*4,inf))),SinOsc.kr(0.1,0,4500,5000))};
~ out=~triste+~feliz+~oblicuo;
)
p.fadeTime=5
(
f=200*[0,2,7].choose.midiratio;
~triste={LPF.ar(Pulse.ar(0.midiratio*300),SinOsc.kr(0.1,0,4500,5000))};
~triste={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(0.01),0,Dseq([0, 7].midiratio *f,inf))),SinOsc.kr(0.1,0,4500,5000))};
~feliz={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(0.01),0, Dseq([0,2,3,5,7,8,10,12].scramble.midiratio*f*2,inf))),SinOsc.kr(0.1,0,4500,5000))};
~ out=~triste+~feliz;
~oblicuo={LPF.ar(Pulse.ar(Demand.kr(Impulse.kr(0.01),0, Dseq([0,2,3,5,7,8,10,12].scramble.midiratio *f*4,inf))),SinOsc.kr(0.1,0,4500,5000))};
~out=~triste+~feliz+~oblicuo;
)
~out.stop

reproducir muestra

2 Julio 2011

//código SuperCollider

s.boot
p=ProxySpace.push(s)
~out=0
~out.play

~mimo={Demand.ar(Dust.ar(30),0,Drand([-1,0,1],inf))}
~out=~mimo
~mimo={Demand.ar(Dust.ar(300),0,Dseq([-1,0,1],inf))}
~mamo={Demand.ar(Dust.ar(1300),0,Dseq([-1,0,1],inf))}
~out=~mimo+~mamo

~mimo={RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01)};
~mamo={RLPF.ar(Demand.ar(Dust.ar(1300),0, Dseq([-1,0,1],inf)),Array.rand(4,3000,8200),0.01)};
s.meter
~mimo={RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01) *LFPulse.kr(10)};
~mamo={RLPF.ar(Demand.ar(Dust.ar(1300),0, Dseq([-1,0,1],inf)),Array.rand(4,3000,8200),0.01) *LFPulse.kr(11)};
~memo={RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01) +LFPulse.kr(10)};
~out=~mimo+~mamo+~memo

~mimo={RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01) *LFPulse.kr(LFNoise1.kr(0.21,2,10))};
~mamo={RLPF.ar(Demand.ar(Dust.ar(1300),0, Dseq([-1,0,1],inf)),Array.rand(4,3000,8200),0.01) *LFPulse.kr(LFNoise1.kr(0.1,2,10))};
~memo={RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,0,12).midiratio*600,0.01) +LFPulse.kr(10)};

~mimo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01),SinOsc.kr(1,0,9000,9070)) *LFPulse.kr(LFNoise1.kr(0.21,2,10))};
~mamo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(1300),0, Dseq([-1,0,1],inf)),Array.rand(4,3000,8200),0.01),SinOsc.kr(1.1,0,9000,9070)) *LFPulse.kr(LFNoise1.kr(0.1,2,10))};
~memo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,0,12).midiratio*600,0.01), SinOsc.kr(1.2,0,9000,9070)) +LFPulse.kr(10)};

~mimo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,300,1200),0.01), SinOsc.kr(0.1,0,9000,9070)) *LFPulse.kr(LFNoise1.kr(0.21,2,10))};
~mamo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(1300),0, Dseq([-1,0,1],inf)),Array.rand(4,3000,8200),0.01), SinOsc.kr(0.11,0,9000,9070)) *LFPulse.kr(LFNoise1.kr(0.1,2,10))};
~memo={LPF.ar(RLPF.ar(Demand.ar(Dust.ar(300),0, Dseq([-1,0,1],inf)),Array.rand(4,0,12).midiratio*600,0.01), SinOsc.kr(0.12,0,9000,9070)) +LFPulse.kr(10)};

~campana={~out.ar.wrap2(Line.kr(1,0,20))};
~out.stop;~campana.play

reproducir muestra

1 Julio 2011

//código SuperCollider

s.boot

p=ProxySpace.push(s)
~out.play

~hola={SinOsc.ar(100)}
~out=~hola
~hola={SinOsc.ar([100,XLine.kr(100,800,120)],0,1/2)}
~hola={SinOsc.ar([100,XLine.kr(100,800,120)],LFNoise1.kr(10),1/2)}
~quetal={SinOsc.ar([800,XLine.kr(800,100,120)],LFNoise1.kr(10),1/2)}
~out=~hola+~quetal
~chido={SinOsc.ar(LFNoise2.kr(6,150,500),0,LFPulse.kr(10) *LFPulse.kr(LFNoise1.kr(1,3,4)))}
~hola={SinOsc.ar([100,XLine.kr(100,800,120)],LFNoise1.kr(10),1/2).wrap2(0.4567895)}
~quetal={SinOsc.ar([800,XLine.kr(800,100,120)] ,LFNoise1.kr(10),1/2).wrap2(0.4567895)}
~chido={SinOsc.ar(LFNoise2.kr(6,450,1500),0,LFPulse.kr (LFNoise1.kr(1,4.5,5))*LFPulse.kr(LFNoise1.kr(1,0.25,0.51)))}
~out=~hola+~quetal+~chido
~chido2={SinOsc.ar(LFNoise2.kr(6,450,2500),0,LFPulse.kr (LFNoise1.kr(1,4.5,5),0,1/2)*LFPulse.kr(LFNoise1.kr(1,0.25,0.51)))}
~out=~hola+~quetal+~chido+~chido2
~hola={SinOsc.ar([100,XLine.kr(100,800,120)],LFNoise1.kr (10),1/2).wrap2(0.4567895)}
~quetal={SinOsc.ar([800,XLine.kr(800,100,120)],LFNoise1.kr (10),1/2).wrap2(0.4567895)}
~bien={SinOsc.ar([100,XLine.kr(200,500,120)],LFNoise1.kr (10),1/2).wrap2(0.4567895)}
~tu={SinOsc.ar([800,XLine.kr(500,200,120)],LFNoise1.kr( 10),1/2).wrap2(0.4567895)}
~out=~hola+~quetal+~chido+~chido2+~bien+~tu
~vientos={SinOsc.ar([(100..150),XLine.kr(200,500,120)], LFNoise1.kr(10),1/2).wrap2(0.4567895)*0.1}
~out=~hola+~quetal+~chido+~chido2+~bien+~tu+~vientos

~filth={LPF.ar(~out.ar,MouseY.kr(20000,50))}

~out.stop;~filth.play
~out=0

reproducir muestra