El hackpact es un acuerdo por hacer y documentar algo nuevo cada día durante un determinado tiempo;
en este caso lo haremos por 15 días, programando en SuperCollider.

Blanco Sobre Blanco
En qué momento se acaba el aparato cognitivo para aprehender la complejidad? En las tormentas de la tundra los matices del blanco son interminables, en las tormentas de la mente los matices del blanco son inalcanzables.

Código de supercollider:
(
~min = 439;
~max = 441;
~den = 1;
~pan = 0.1;
~tiempo = 20;
SynthDef(\blanco, {|gate 1, min 439, max 441, den 1, pani 0.1|
	var sen, env, pan;

	sen = SinOsc.ar(LFNoise2.kr(den).range(min, max), (0,0.1..8).choose, 1);
	env = EnvGen.kr(Env.asr(0.1, 1, 5), gate, doneAction:2);
	pan = Pan2.ar(sen*env, LFNoise2.kr(pani).range(-1, 1));

	Out.ar(2, pan)
	}
).add;
SynthDef(\sobreblanco, {|gate 1, durgra 1, dengra 30|
	var in, densidad, lag, envden, env;

	in = Limiter.ar(InFeedback.ar(2, 2), 0.85);
	densidad = Dust.kr(Lag.kr(dengra, 60));
	lag = Lag.kr(durgra, 60);
	envden = EnvGen.kr(Env.linen(lag*0.05, lag*0.9, lag*0.05, 1, 'sine'), densidad);
	env= EnvGen.kr(Env.asr(0.05, 1, 0.01), gate, doneAction:2);

	Out.ar(0, in*envden*env)
	}
).add;
~con = Tdef(\cont,
	{
		1.do{
			b = Synth(\sobreblanco)
		};
		1000.do{
			a=Synth(\blanco, [\gate, 1, \min, ~min, \max, ~max, \den, ~den, \pani, ~pan]);
			~min = ~min - 0.2;
			~max = ~max + 0.2;
			~den = ~den + 1;
			~pan = ~pan + 0.1;
			~tiempo.wait;
		};
		1.do{
			b.set(\durgra, 0.01);
			30.wait;
		};
		1.do{
			b.set(\dengra, 0.1);
			70.wait;
		};
		1.do{
			s.freeAll;
		}
	}
).play;
~conti = Tdef(\conti,
	{
		10.do{
			~tiempo = ~tiempo / 2;
			20.wait;
		}
	}
).play;
)

Hack Pact 2015 - 01 Blanco Sobre Blanco

El hackpact es un acuerdo por hacer y documentar algo nuevo cada día durante un determinado tiempo;
en este caso lo haremos por 15 días, programando en SuperCollider.

Crunch!
The ruitmo on the dance floor!

Código de supercollider:
(
SynthDef(\crunch, {|gate 1, tasa 1, tita 15, frecor 3000, ancho 6000|
	var sen, env, pan;

	sen = Wrap.ar(WhiteNoise.ar(WhiteNoise.kr(WhiteNoise.kr(LFNoise0.kr(Lag.kr(tasa, tita)).range(0.001, 1.0)))),  LFNoise0.kr(Lag.kr(tasa, tita)).range(0.01, 1) * -1, LFNoise0.kr(Lag.kr(tasa, tita)).range(0.01, 1));
	sen = BPF.ar(sen, frecor, ancho/frecor);
	env = EnvGen.kr(Env.asr(0.1, 1, 10), gate, doneAction:2);
	pan = Pan2.ar(sen*env, LFNoise0.kr(Lag.kr(tasa, tita)).range(-1, 1));

	Out.ar(0, pan)
	}
).add;
~crunchi = Tdef(\crunchi,
	{
		1.do{
			~ba =Synth(\crunch, [\gate, 1, \tasa, 1, \frecor, 3000, \ancho, 6000]);
			~me =Synth(\crunch, [\gate, 1, \tasa, 1, \frecor, 9000, \ancho, 6000]);
			~ag =Synth(\crunch, [\gate, 1, \tasa, 1, \frecor, 15000, \ancho, 6000]);
			15.wait;
			~ag.set(\tasa, 2);
			~me.set(\tasa, 2);
			45.wait;
			~ba.set(\tasa, 3);
			~me.set(\tasa, 3);
			~ag.set(\tasa, 3);
			30.wait;
			~me.set(\tasa, 6, \tita, 0.1);
			~ag.set(\tasa, 6, \tita, 0.1);
			10.wait;
			~ba.set(\tasa, 6, \tita, 0.1);
			~me.set(\tasa, 3, \tita, 0.1);
			~ag.set(\tasa, 3, \tita, 0.1);
			20.wait;
			~ba.set(\tasa, 5, \tita, 15);
			~me.set(\tasa, 5, \tita, 15);
			~ag.set(\tasa, 10, \tita, 15);
			60.wait;
			~ba.set(\gate, 0);
			~me.set(\gate, 0);
			~ag.set(\gate, 0);
			10.wait;
		};
	}
).play;
)

Hack Pact 2015 - 02 Crunch!

El hackpact es un acuerdo por hacer y documentar algo nuevo cada día durante un determinado tiempo;
en este caso lo haremos por 15 días, programando en SuperCollider.

Código número 3: Sobófono.

Siempre contesta "la computadora" a la pregunta, qué instrumento tocas? entonces este patch es para tí!

Este pequeño tutorial te enseñará en como transformar tu computadora en un instrumento de interfaz táctil para que no tengas que abrir el facebook cuando tocas con tus amiguitos por aburrimiento!

Materiales:
- 1 computadora personal con micrófono integrado, no importa si es Mac, Windows o Linux.
- 1 audífonos stereo.
- ganas de hacer arte sonoro.

Receta:
Paso1: Instala el lenguaje de programación supercollider.
Paso 2: Prenda el servidor oprimiendo las teclas cmd + B.
Paso 3: Abra un nuevo documento y pegue el código abajo mostrado.
Paso 4: Seleccione con el cursor todo el código que está dentro del primer parentesis, de tal manera que quede seleccionado desde la palabra "SynthDef", hasta la palabra "store" y presione shift + enter.
Paso 5: Selecione la última linea del codigo y presione shift + enter.
Paso 6: Aparecerá una ventana, esa es la ventana de configruación de su sobófono quiera y cuidela. Antes de oprimir "Start" asegúrese de tener puesto sus audífono!!!!. Una vez checado ese punto, oprima el botón de start y comience a dusfrutar.
Paso 7: juege con los sliders para obtener difernetes timbres, el slider llamado Ampg es el control general de su instrumento.
Paso 9: Frote su computadora para sacarle sonido, rásquela, soplele, escuche su ventilador, pase suavemente sus dedos sobre el teclado.

Si ha seguido las instrucciones al pie de la letra Felicidades! ya es usted un sobofonista!

Código:

(
SynthDef(\eco, {|gate 1, ampsen 0,amp1 0, dec1 3,amp2 0,dec2 3,amp3 0, dec3 3,amp4 0, dec4 3,amp5 0, dec5 3,amp6 0, dec6 3,amp7 0, dec7 3,ampg 0|
			  var sen, env, e1, e2, e3, e4, e5, e6, e7;
			  sen = SoundIn.ar(0, 10);
			  e1 = CombL.ar(sen, 5, 5, dec1);
			  e2 = CombL.ar(sen, 5, 4, dec2);
			  e3 = CombL.ar(sen, 5, 3, dec3);
			  e4 = CombL.ar(sen, 5, 2, dec4);
			  e5 = CombL.ar(sen, 5, 0.5, dec5);
			  e6 = CombL.ar(sen, 5, 0.25, dec6);
			  e7 = CombL.ar(sen, 5, 0.1, dec7);
			  sen = Mix([sen*ampsen, e1*amp1, e2*amp2, e3*amp3, e4*amp4, e5*amp5, e6*amp6, e7*amp7]);
			  env=EnvGen.kr(Env.asr(0.01, 1, 2), gate, doneAction:2);
	Out.ar(0, Pan2.ar((sen*env)*ampg, LFNoise1.kr(5).range(-1, 1)))			       },
			  metadata: (specs: (ampsen:[0, 1],
			  				  amp1:[0, 1],
			  				  dec1:[3, 5],
			  				  amp2:[0, 1],
			  				  dec2:[3, 5],
			  				  amp3:[0, 1],
			  				  dec3:[3, 5],
			  				  amp4:[0, 1],
			  				  dec4:[3, 5],
			  				  amp5:[0, 1],
			  				  dec5:[3, 5],
			  				  amp6:[0, 1],
			  				  dec6:[3, 5],
			  				  amp7:[0, 1],
			  				  dec7:[3, 5],
			  				  ampg:[0, 1]
			  				  )
			  		   )
			  ).store
);
SynthDescLib.global[\eco].makeWindow;

Jaime Alonso Cardoso