Se suben todos los archivos que uso en LCN Ensamble

laadeho · Jul 27, 2016 · 5e27ae6 · 5e27ae6
1 parent ceb8e96
commit 5e27ae6
Show file tree

Hide file tree

Showing 42 changed files with 8,466 additions and 0 deletions.
diff --git a/05_13_LCN_Ensamble.scd b/05_13_LCN_Ensamble.scd
@@ -0,0 +1,149 @@
+s.boot
+s.options.sampleRate=44100
+s.meter
+(
+q = ();
+NetAddr.broadcastFlag = true;
+q.addrs = (0..7).collect { |x| 
+		NetAddr("255.255.255.255", 57120 + x)
+};
+q.sendAll = { |q ... args|
+		q.addrs.do { |addr|
+				addr.sendMsg(*args)
+		}; ""
+}
+)
+
+(
+History.start;
+History.makeWin;
+OSCdef(\hist, {|msg|
+	/*msg.postln;*/    /* Para no tener cometarios duplicados en post */
+	History.enter(msg[2].asString, msg[1]);
+}, \hist).fix;
+History.localOff;
+
+History.forwardFunc = { |code|
+	q.sendAll(\hist, \Lalo1, code);
+};
+);
+"me ven? soy paquito, ya no hare travesuras"
+
+//MANDELHUB LIB
+m = MandelHub.start("LALO LIDER"); // SER EL LIDER
+
+MandelHub.join("EL_LALO_01", action: {m = MandelHub.instance}); //UNIRSE A SESION DEL LIDER
+
+m.clear //limpiar el mandel
+m.gui	 //iniciar gui de mandel
+
+m.changeTempo(1, 10);
+m.changeTempo(60/60, 20);
+m.changeTempo(118/60, 10);
+m.changeTempo(140/60, 120);
+m.TempoClock.default.tempo_(120/60)
+
+//////////////////////////////////////
+/////////////SYNTHS/////////////////
+///////////////NDEF/////////////////
+///////////////////////////////////////
+
+//======
+//Atm—sferas
+//======
+
+(
+SynthDef(\at01, {|amp=0.4 freq=600| Out.ar(0,Pan2.ar(FreeVerb.ar(BPF.ar(WhiteNoise.ar(amp)*Saw.kr(8)*SinOsc.kr(0.0015, 0, 0.4), SinOsc.kr(0.2,0,50,freq), 100/freq, 0.85), MouseX.kr(0.1,1,0), MouseY.kr(0.1,1,0),0.4,0.1)),0)}
+).add
+)
+a = Synth(\at01)
+a.set(\freq, 800, \amp, 0.75);
+a.free
+
+//BUFFER
+b=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/04/lo03.wav");
+//b.bufnum			b.numFrames
+Ndef(\eho_buf).play
+Ndef(\eho_buf)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(b.numChannels,b.bufnum,rate,t_trig,posc,loop:1)*EnvGen.kr(Env.perc(0.1,0.1),t_trig),pan,amp)}
+
+Ndef(\eho_buf).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,3,5,7],inf), \posc, Prand([0.1,0.2,0.3]*b.numFrames,inf),\rate, 1, \amp, Prand([0.1],inf), \pan, Prand([0],inf), \t_trig,1)
+
+//Pitch, Echo, Reverb, 
+Ndef(\eho_buf).release
+b.release
+
+/////////////
+c=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/01/lo02.wav");    
+Ndef(\eho_buf2).play
+Ndef(\eho_buf2)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(c.numChannels,c.bufnum,rate,t_trig,posc,loop:1)*amp,0)*EnvGen.kr(Env.perc(0.1,0.05),t_trig)}
+
+Ndef(\eho_buf2).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,3,4,5].scramble,inf), \posc, Pseq([0.3]*c.numFrames,inf),\amp,0.25, \rate, Prand(Array.series(10,0,0.1).choose,inf), \t_trig,1)
+
+Array.series(10,0,0.1).choose
+
+Ndef(\eho_buf2).release
+c.release
+
+///////////// 
+g=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s03.aif");    
+Ndef(\eho_buf2).play
+Ndef(\eho_buf2)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(g.numChannels,g.bufnum,rate,t_trig,posc,loop:1)*amp,0)*EnvGen.kr(Env.perc(0.05,0.05),t_trig)}
+
+Ndef(\eho_buf2).quant_(4)[1]=\set -> Pbind(\dur, Prand([0.25].scramble,inf), \posc, Pseq([Array.series(18,0.1,0.05)]*g.numFrames,inf), \amp,1, \rate,Prand([1],inf), \t_trig,1)
+
+//[Array.series(10,0,0.1)].choose*c.numFrames,inf
+
+Ndef(\eho_buf2).release
+c.release
+
+/////////////
+d=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s01.aif");
+Ndef(\eho_buf3).play
+Ndef(\eho_buf3)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=0.2,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(d.numChannels,d.bufnum,rate,t_trig,posc,loop:1)*amp)*EnvGen.kr(Env.perc(0.25,1),t_trig)}
+
+Ndef(\eho_buf3).quant_(4)[1]=\set -> Pbind(\dur, Prand(([2]).scramble,inf), \posc, Prand(d.numFrames/[Array.series(10,0,0.1)].scramble.choose,inf), \amp, Prand([0.5,0.5,0.6],inf), \rate, Prand([-0.5,-0.8,-0.3],inf), \t_trig,1)
+
+//o bien
+Ndef(\eho_buf3).quant_(4)[1]=\set -> Pbind(\dur, Prand([2,1,1,1,0.5,0.5],inf), \posc, Prand([Array.series(20,0,0.5)*d.numFrames].scramble.choose,inf), \amp, Prand([0.3]*0.35,inf), \rate, Prand([-1],inf), \t_trig,1)
+Ndef(\eho_buf3).release
+d.release
+
+/////////////VOZ
+e=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s02.aif");
+Ndef(\eho_buf0).play
+Ndef(\eho_buf0)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=0.1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(e.numChannels,e.bufnum,rate,t_trig,posc,loop:1)*amp)*EnvGen.kr(Env.perc(0.01,0.2),t_trig)}
+
+Ndef(\eho_buf0).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,2,0.5]*4,inf), \posc,Prand([0.6,0.2,0.34,0.1]*e.numFrames,inf), \amp, Prand([0.4,0.7,0.8],inf), \rate, Prand([1,0.98].reverse,inf), \t_trig,1)
+
+Ndef(\eho_buf0).release
+e.release
+
+s.prepareForRecord
+
+m.changeTempo(125/60, 10);
+
+
+//======
+//Ritmos
+//======
+
+Ndef(\eho1).play
+Ndef(\eho1)[0]={|frec=80,t_trig=1, dur2=40| Pan2.ar(Pulse.ar(dur2,0.5,0.5)*FSinOsc.ar(frec,0,0.5),0)*EnvGen.kr(Env.perc(0.1,0.5),t_trig)}
+
+Ndef(\eho1).quant_(4)[1]=\set -> Pbind(\dur, Prand([1],inf), \dur2, Prand([40],inf), \frec, Prand([60,63,67,71,74]-24.midicps,inf), \t_trig,1)
+
+Ndef(\eho2).play
+Ndef(\eho2)[0]={|frec=80,t_trig=1| Pan2.ar(SinOsc.ar(frec,0,0.95),0)*EnvGen.kr(Env.perc(0.01,0.01),t_trig)}
+
+Ndef(\eho2).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,2],inf), \frec, Prand([80,82]*1.2,inf),\t_trig,1)
+
+Ndef(\eho3).play
+Ndef(\eho3)[0]={|t_trig=1, ac0= 10, ac1= 15, af0= 3, af1= 4, av0= 5, av1= 5| Pan2.ar(Atari2600.ar(ac0, ac1, af0, af1, av0, av1),0)*EnvGen.kr(Env.perc(0.1,0.75),t_trig)}
+
+Ndef(\eho3).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,2,4],inf), \ac0,Pseq([2,3,8,10],inf), \ac1,Prand([14,12],inf), \av0, Pseq([8,6,8,10],inf), \av1, Prand([0],inf), \t_trig, 1);
+
+Ndef(\eho1).release
+
+//fadeTime - release - send
+Ndef(\eho2).release
+Ndef(\eho3).release
diff --git a/05_20_LCN_Ensamble.scd b/05_20_LCN_Ensamble.scd
@@ -0,0 +1,156 @@
+s.boot
+s.options.sampleRate=44100
+s.meter
+(
+q = ();
+NetAddr.broadcastFlag = true;
+q.addrs = (0..7).collect { |x| 
+		NetAddr("255.255.255.255", 57120 + x)
+};
+q.sendAll = { |q ... args|
+		q.addrs.do { |addr|
+				addr.sendMsg(*args)
+		}; ""
+}
+)
+
+(
+History.start;
+History.makeWin;
+OSCdef(\hist, {|msg|
+	/*msg.postln;*/    /* Para no tener cometarios duplicados en post */
+	History.enter(msg[2].asString, msg[1]);
+}, \hist).fix;
+History.localOff;
+
+History.forwardFunc = { |code|
+	q.sendAll(\hist, \Lalo1, code);
+};
+);
+"me ven? soy paquito, ya no hare travesuras"
+
+//MANDELHUB LIB
+m = MandelHub.start("LALO LIDER"); // SER EL LIDER
+
+MandelHub.join("EL_LALO_01", action: {m = MandelHub.instance}); //UNIRSE A SESION DEL LIDER
+
+m.clear //limpiar el mandel
+m.gui	 //iniciar gui de mandel
+
+m.changeTempo(1, 10);
+m.changeTempo(60/60, 12);
+m.changeTempo(120/60, 200);
+m.changeTempo(140/60, 120);
+m.TempoClock.default.tempo_(120/60)
+
+//////////////////////////////////////
+/////////////SYNTHS/////////////////
+///////////////NDEF/////////////////
+///////////////////////////////////////
+
+//======
+//Atm—sferas
+//======
+
+(
+SynthDef(\at01, {|amp=0.4 freq=600| Out.ar(0,Pan2.ar(FreeVerb.ar(BPF.ar(WhiteNoise.ar(amp)*Saw.kr(8)*SinOsc.kr(0.0015, 0, 0.4), SinOsc.kr(0.2,0,50,freq), 100/freq, 0.85), MouseX.kr(0.1,1,0), MouseY.kr(0.1,1,0),0.4,0.1)),0)}
+).add
+)
+a = Synth(\at01)
+a.set(\freq, 800, \amp, 0.75);
+a.free
+
+//BUFFER
+b=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/04/lo03.wav");
+//b.bufnum			b.numFrames
+Ndef(\eho_buf).play
+//sin freeverb
+Ndef(\eho_buf)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(b.numChannels,b.bufnum,rate,t_trig,posc,loop:1)*EnvGen.kr(Env.perc(0.1,0.75),t_trig),pan,amp)}
+
+//con freeverb
+Ndef(\eho_buf)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(FreeVerb.ar(PlayBuf.ar(b.numChannels,b.bufnum,rate,t_trig,posc,loop:1)*EnvGen.kr(Env.perc(0.1,0.75),t_trig),pan,amp),0.7, 0.5,0.8, amp)}
+
+Ndef(\eho_buf).quant_(4)[1]=\set -> Pbind(\dur, Pseq([1,2,1,4,1,1]*0.5,inf), \posc, Prand([0.52,0.5,0.55,0.48,0.1]*b.numFrames,inf),\rate, Pseq([0.7],inf), \amp, Prand([0.4,0.5,0.6],inf), \pan, Prand([0],inf), \t_trig,1);
+//posiciones 0.1, 0.13, 0.1,0.14
+
+//Pitch, Echo, Reverb, 
+Ndef(\eho_buf).release
+b.release
+
+
+/////////////
+c=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/01/lo02.wav");    
+Ndef(\eho_buf2).play
+Ndef(\eho_buf2)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(c.numChannels,c.bufnum,rate,t_trig,posc,loop:1)*amp,0)*EnvGen.kr(Env.perc(0.1,0.05),t_trig)}
+
+Ndef(\eho_buf2).quant_(4)[1]=\set -> Pbind(\dur, Prand([1,3,4,5].scramble,inf), \posc, Pseq([0.3]*c.numFrames,inf),\amp,0.25, \rate, Prand([0.5,0.6,0.7],inf), \t_trig,1)
+
+//[Array.series(10,0,0.1)].choose*c.numFrames,inf
+
+Ndef(\eho_buf2).release
+c.release
+
+///////////// 
+g=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s03.aif");    
+Ndef(\eho_buf2).play
+Ndef(\eho_buf2)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(g.numChannels,g.bufnum,rate,t_trig,posc,loop:1)*amp,0)*EnvGen.kr(Env.perc(0.05,0.2),t_trig)}
+
+Ndef(\eho_buf2).quant_(4)[1]=\set -> Pbind(\dur, Prand([1].scramble,inf), \posc, Pseq([Array.series(18,0.1,0.05)]*g.numFrames,inf), \amp,1, \rate,Prand([1],inf), \t_trig,1)
+
+//[Array.series(10,0,0.1)].choose*c.numFrames,inf
+
+Ndef(\eho_buf2).release
+c.release
+
+/////////////
+d=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s01.aif");
+Ndef(\eho_buf3).play
+Ndef(\eho_buf3)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=0.2,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(d.numChannels,d.bufnum,rate,t_trig,posc,loop:1)*amp)*EnvGen.kr(Env.perc(0.125,0.1),t_trig)}
+
+Ndef(\eho_buf3).quant_(4)[1]=\set -> Pbind(\dur, Prand(([4,7,8]),inf), \posc, Prand(d.numFrames/[Array.series(10,0,0.1)].scramble.choose,inf), \amp, Prand([0.5,0.5,0.6],inf), \rate, Prand([1],inf), \t_trig,1)
+
+//o bien
+Ndef(\eho_buf3).quant_(4)[1]=\set -> Pbind(\dur, Prand([2,1,1,1,0.5,0.5],inf), \posc, Prand([Array.series(20,0,0.5)*d.numFrames].scramble.choose,inf), \amp, Prand([0.3],inf), \rate, Prand([-1],inf), \t_trig,1)
+Ndef(\eho_buf3).release
+d.release
+
+/////////////VOZ
+e=Buffer.read(s,"/Applications/SuperCollider_no_ide/sounds/03/s03.aif");
+Ndef(\eho_buf0).play
+Ndef(\eho_buf0)[0]={|t_trig=1,rate=1,trig=0.5,posc=1000,amp=0.1,pan=0| var sen,env; sen=Pan2.ar(PlayBuf.ar(e.numChannels,e.bufnum,rate,t_trig,posc,loop:1)*amp)*EnvGen.kr(Env.perc(0.01,0.15),t_trig)}
+
+Ndef(\eho_buf0).quant_(4)[1]=\set -> Pbind(\dur, Pseq([4,2],inf), \posc,Pseq([0.13,0.133,0.4,0.5]*e.numFrames,inf), \amp, Prand([0.7],inf), \rate, Prand([-1,-1.02],inf), \t_trig,1)
+
+Ndef(\eho_buf0).release
+e.release
+
+s.prepareForRecord
+
+m.changeTempo(125/60, 10);
+
+
+//======
+//Ritmos
+//======
+
+Ndef(\eho1).play
+Ndef(\eho1)[0]={|frec=80,t_trig=1, dur2=40| Pan2.ar(Pulse.ar(dur2,0.5,0.5)*FSinOsc.ar(frec,0,0.5),0)*EnvGen.kr(Env.perc(0.01,0.2),t_trig)}
+
+Ndef(\eho1).quant_(4)[1]=\set -> Pbind(\dur, Pseq([1,2,1,4],inf), \dur2, Prand([40,20],inf), \frec, Prand([60,63,67,71,74]-24.midicps,inf), \t_trig,1)
+
+Ndef(\eho2).play
+Ndef(\eho2)[0]={|frec=80,t_trig=1| Pan2.ar(SinOsc.ar(frec,0,SinOsc.kr(8,0,0.5,0.35)),0)*EnvGen.kr(Env.perc(0.1,0.7),t_trig)}
+
+Ndef(\eho2).quant_(4)[1]=\set -> Pbind(\dur, Prand([2,5,18],inf), \frec, Prand([80,82]*2,inf),\t_trig,1)
+Ndef(\eho2).release
+
+
+Ndef(\eho3).play
+Ndef(\eho3)[0]={|t_trig=1, ac0= 10, ac1= 15, af0= 3, af1= 4, av0= 5, av1= 5| Pan2.ar(Atari2600.ar(ac0, ac1, af0, af1, av0, av1),0)*EnvGen.kr(Env.perc(0.1,0.75),t_trig)}
+
+Ndef(\eho3).quant_(4)[1]=\set -> Pbind(\dur, Prand([2,4,5,6,0.5],inf), \ac0,Pseq([2,8],inf), \ac1,Prand([3],inf), \av0, Pseq([8,6,8,10],inf), \av1, Prand([5],inf), \t_trig, 1);
+
+Ndef(\eho1).release
+
+//fadeTime - release - send
+Ndef(\eho3).release