Paseo de permutaciones

Hice un código que hace un recorrido por todas las permutaciones de alturas las notas de do mayor. A la velocidad que lo pongo tocar todas tardaría una hora, asi que les pongo un fragmento solamente. Para aquellos interesados, también está el código. Saludos ={D


// Todas las permutaciones de do mayor


MIDIClient.init;
~mid = MIDIOut(2);
~a=Array.fill(7,{arg i; i});
(
~p=Array.fill(5040,{arg i;
	~a.permute(i).postln;
});
~b=Array.fill(5040,{arg i;
	~p[i][7.rand].postln;
});
~pflat=~p.flatten;

Pdef(\lite,
	Pbind(
		\scale, Scale.major,
		\type, \midi,
		\midicmd, \noteOn,
		\midiout, ~mid,	//  MIDI target
		\chan, 0,
		\degree,
		Pseq(~pflat,inf),
		\dur, 0.1,
		\amp, Pbrown(0.2,0.6,0.1,inf)
	)
).play;

Pdef(\bas,
	Pbind(
		\scale, Scale.major,
		\type, \midi,
		\midicmd, \noteOn,
		\midiout, ~mid,	//  MIDI target
		\chan, 0,
		\degree,
		Pseq(~b-12,inf),
		\dur, 7*0.1,
		\amp, Pbrown(0.2,0.4,0.1,inf)
	)
).play;
)

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s