Diff from Launchpad Spiral by Schemawound (18 May'16 19:41) to Re: Launchpad Spiral by grirgz (21 May'16 20:07)
name
Re: Launchpad Spiral
description
code
(
MIDIClient.init;
MIDIIn.connectAll;
~lpChan = 0;
~lpIn = MIDIClient.sources.select({arg item, i; (item.name == "Launchpad Mini")})[0]; //Pick the first launcpad mini you find
~lpOut = MIDIOut.newByName("Launchpad Mini", "Launchpad Mini");
~lpNoteNums = Array.fill([8,8], {|i,j| j+(i*16) });
)
(
var path = [{
~lpNoteNums[0][0],var ~lpNoteNums[0][1],dir ~lpNoteNums[0][2],= ~lpNoteNums[0][3]1, ~lpNoteNums[0][4], ~lpNoteNums[0][5], ~lpNoteNums[0][6], ~lpNoteNums[0][7],;
~lpNoteNums[1][7],var ~lpNoteNumis[2][7], ~lpNoteNums[3][7], ~lpNoteNums[4][7],= ~lpNoteNumLis[5][7], ~lpNot.neNums[6][7], ~lpNoteNums[7][7],w;
~lpNoteNums[7][6],var ~lpNoteNums[7][5],idx ~lpNoteNums[7][4],= ~lpNoteNums[7][3], ~lpNoteNums[7][2], ~lpNoteNums[7][-1], ~lpNoteNums[7][0],;
~lpNoteNums[6][0],var ~lpNoteNums[5][0], ~lpNotizeNums[4][0], ~lpNoteNums[3][0],= ~lpNoteNums[2][0], ~lpNoteNums[1][0],8;
~lpNoteNums[1][1], ~lpNotizeNums[1][2], ~lpN.doteNums[1][3], ~lpNoteNums[1][4],{ ~lpNoteNums[1][5],arg ~lpNoteNums[1][6],x;
~lpNoteNums[2][6] if(x==0, ~lpNoteNums[3][6]1, ~lpN2).doteNums[4][6], ~lpNoteNums[5][6], ~lpNoteNums[6][6],{
~lpNoteNum (s[6][5], ~lpNotizeNums[6][4], ~lpN-x).doteNums[6][3], ~lpNoteNums[6][2], ~lpNoteNums[6][1],{
~lpNoteNums[5][1], idx ~lpNoteNums[4][1],= ~lpNoteNums[3][1],idx ~lpNoteNums[2][1],+ dir;
~ lpNoteNumis[2][2], ~lpNoteNums[2][3], ~lpNoteNums[2][4], ~lpNoteNums[2][5],.add(idx);
~lpNoteNums[3][5], ~lpNoteNums[4][5], ~lpNoteNums[5][5], };
~lpNoteNums dir = [5] -1 * dir[41], ~lpNoteNumsdir[50][3 ],; ~lpN// rotateNums[5][2],
~lpNoteNums[4][2], ~lpNoteNums[3][2], };
~lpNoteNums[3][3], ~lpNoteNums[3][4],};
~lpNoteNumis[4][4], ~lpNoteNums[4][3],
];
}.value.collect({ arg ix; = x[0]+(x[1]*16) });
r = Routine({
inf.do{
var velocity = [127, 120, 107].choose;
path.do{|note, i|
~lpOut.noteOn(~lpChan, note, velocity);
0.015.wait;
~lpOut.noteOff(~lpChan, note, velocity);
i = i + 1;
}
}
});
TempoClock.default.sched(0, r);
);
category tags
code fork
ancestors
1-51B