NOT FUTURE

/*
HackPact 2015
Alex HR
Código 5

//////////////////
*/
s.boot

(
SynthDef(\kick,{|amp=1,out = 0,dur=0.15,pan=0|
var atk = 0.005;
var sin, env,freq;

freq = EnvGen.ar( Env([220,20,25],[0.07, 0.2],[-13, -1] ) );
sin = SinOsc.ar(freq,0,amp);
env = EnvGen.ar(
Env.perc( atk, 0.8,
curve: \amp_c.kr([-1,6])), doneAction: 2 );

Out.ar(out, Pan2.ar(sin,pan,env) );
}).add;
SynthDef(\snare,{|amp=0.5,freq=880,release=0.5|
	var sin,env,fil;
	sin = WhiteNoise.ar;
	fil = Resonz.ar(sin,freq,0.5);
	env = EnvGen.kr(Env.perc(0.001,release,amp,-8),doneAction:2);
	Out.ar(fil,Pan2.ar(fil,0,env));
}).add;
SynthDef(\bass,{|amp = 0.5,freq=110|
	var sin, env;
	sin = Mix(SinOsc.ar([freq,freq*2,freq*3/5,freq*0.5],0,[0.7,0.5,0.3,0.3].normalizeSum * amp));
	env = EnvGen.kr(Env.perc(0.1,1,1),1,doneAction:2);
	Out.ar(0,Pan2.ar(sin,0,env));

}).add;

Ndef(\alex)[0] = Pbind(
\instrument,\snare
	,\dur,Pseq([Rest(1),1/2,1/8,1/8,Rest(1/4),Rest(3/8),1/8,1/4,Rest(1/4),1/2,1/2],inf)
	,\freq,Pseq([\rest,980,680,980,\rest,\rest,980,680,\rest,980,1080],inf)*1.2
	,\tempo,180/60
	,\amp,Pseq([0,0.45,0.2,0.3,0,0,0.1,0.3,0,0.2,0.2],inf) *
	Pseg(Pseq([0,0,1,1,0]),Pseq([55,0,95,30]),-4)
	,\release,0.2
);

Ndef(\alex)[1] = Pbind(
	\instrument,\kick
	,\dur,Pseq([1,Rest(3)],inf)
	,\tempo,180/60
	,\amp,0.5 * Pseg(Pseq([0,1,1,0]),Pseq([10,145,30]),\lin);
);

Ndef(\alex)[2] = Pbind(
	\instrument,\snare
	,\dur,1/4
	,\freq,10280
	,\tempo,180/60
	,\release,0.2
	,\amp,0.2 * Pseg(Pseq([0,0,1,1,0]),Pseq([15,5,115,30]),-4);
	,\type,Pseq([\note,\rest],inf)
);

Ndef(\alex)[3] = Pbind(
	\instrument,\bass
	,\dur,Pwrand([1,Pseq([1/2,1/2]),2,4],[0.5,0.1,0.3,0.1],inf)
	,\amp,0.2 * Pseg(Pseq([0,0,1,1,0]),Pseq([35,0,85,0]),-4);
	,\freq,Pseq([Pn(69,40),Prand([69,76,72,80,60].midicps,inf)/8])
	,\note,Pwrand([\note,\rest],[0.7,0.3],inf)
);

Ndef(\alex)[4] = {
	var sin,demand,env,imp;

	demand = Demand.kr(Impulse.kr(3/4),0,Drand(440 * [0,3,5,7,11].midiratio,inf));
	sin =  GrainSin.ar(2,Impulse.kr(3);,6,demand,0,-1,mul:0.32);
	env = EnvGen.kr(Env([0,0,0.5,0.5,0],[40,10,10,15],-4),1,doneAction:2);
	sin * env;
};

Ndef(\alex).play;
)


Hackpact 2015. Código 5

/*
HackPact 2015
Alex HR
Código 6

///////////////////////
Eco
///////////////////////

*/

s.boot;

(
SynthDef(\vozChord,{|out=0,in=0,gate=1,amp=1,ampIn=1|
	var grainSize,sig,env;
	grainSize = 1;
	env = EnvGen.ar(Env.asr(5,1,15),gate,doneAction:2);
	sig = PitchShift.ar(
		SoundIn.ar([in,in],ampIn),
        grainSize,
        1,
        0.3,
		grainSize,8
    );
	Out.ar(out,(sig*amp)*env);
}).add;
)

~effect = Synth(\vozChord);
~effect.set(\gate,0);

Hackpact 2015. Código 6. Eco

/*
HackPact 2015
Alex HR
Código 7.

//////////////////
*/

s.boot;

(
b = Buffer.read(s, Platform.userHomeDir ++ "/code/hack/213259__maurolupo__girl-sings-laa.wav");
play(
	{
		var sin,trig1,trig,mix,in,demand1,demand2;
		trig  = Dust.kr([1,1.5]);
		demand1 = Demand.kr(trig[0],0,Drand([1,1.1,1.2],inf));
		demand2 = Demand.kr(trig[1],0,Drand([-1,0.8,0.9],inf));
		in = LocalIn.ar(2)*0.8;
		sin = Mix(TGrains2.ar(2,Impulse.kr([20,50]).range(-1,1),b,[demand1,demand2]
			,BufDur.kr(b) * TRand.kr(0.01,0.8, trig),[0.9,0.85],[0.5,-0.5]
			,0.1,0.9,0.9,4
		)) * EnvGen.kr(Env([0,1,1,0],[30,30,30],-4));
		mix = DelayL.ar(sin + in,0.5,0.5);
		LocalOut.ar(mix);
		mix;
	}
)
)


Hackpact 2015. Código 7. Aria

/*
HackPact 2015
Alex HR
Código 8.

//////////////////
annoying
/////////////////
*/

s.boot;

(
{
	var fund = Array.rand(5,100,500);
	var mul = [1,2,3/2,5/4,7/4,11/8,13/8,17/16,19/16];
	var arr = Array.fill(500,{|i|
		var in = ((i)/mul.size).floor;
		(fund.at(i.mod(fund.size)) * (in+1) )* mul[ i.mod( mul.size )];
	});
	20.do({|iL|
		play({
			var freq = Array.fill(mul.size,{|i|
				var index = i + ( iL * mul.size);
				arr.at( index.mod(arr.size) );
			});

			var mod = SinOsc.kr( Array.fill );

			Pan2.ar(DynKlang.ar(`[ freq, Array.geom(mul.size,1,0.7).normalizeSum/3,nil  ])  , rrand(-1.0,1.0),1)
			* EnvGen.kr(Env.linen(5,1,5,1,6),doneAction:2);
		});
		iL.postln;
		3.wait;

	});
}.fork
)


Hackpact 2015. Código 8. Annoying

infinite

user:: nobody

Mordaza

Grabación de campo en la cual se puede apreciar como una multittud se reune para ver La Danza de los Voladores, en la plaza principal del pueblo de Cuetzalan. Puebla, México

-----------------------------------------------------
Field recording in which a large crowd gathers to observe La Danza de los Voladores (Dance of the Flyers) at the main plaza of Cuetzalan Town. State of Puebla, Mexico.

Alex H. Rosas

Popular tracks