Diff from Launchpad Spiral by Schemawound (18 May'16 13:41) to Re: Launchpad Spiral by grirgz (21 May'16 14:07)

name
Re: Launchpad Spiral
description
JustFor a quick dthemo of mchakillenge, a spiralet's pmattkern on a Novation Launche padth Mini Visual gof it here: https://www.instagrahm.icom/p/BFjqSxCwF4J/?taken-blly =schemawound)
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