Put this script as input fx:
-----------------------------------------
desc:MIDI Velocity Control min 1
//tags: MIDI processing
slider3:64<1,127,1>Velocity
in_pin:none
out_pin:none
@init
@slider
slider3<0?slider3=0;
@block
while (
midirecv(ts,msg1,msg23) ?
(
m=msg1&240;
vel=(msg23/256)|0;
note=msg23&127;
m == 9*16 && vel > 0 && note >= 1 && note <= 127 ?
(
vel = (vel*1)+0;
vel<slider3?vel=slider3:vel>slider3?vel=slider3;
vel|=0;
vel > 0 ? midisend(ts,msg1,note+vel*256); // send note on
) :
(
midisend(ts,msg1,msg23); // passthru
);
bla=1;
);
);
|