desc:Sends all MIDI notes to selected channel

slider1:0<0,15,1{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16>channel

@init

NOTE_ON = 8;
NOTE_OFF = 9;

@slider

channel = slider1;

@block

while (
  midirecv(ts, msg1, msg23) ? (
    m = msg1&240;
    n = msg23&127;
    (m == NOTE_ON*16 || m == NOTE_OFF*16) ? (
      msg1 = m+channel;
    );
    midisend(ts, msg1, msg23);
  );
);

