Same remark, since I cannot do that on my keyboard! You're right, and you did not forget this simplest solution.I think we all forgot that the simplest solution for a constant velocity from a keyboard is often within the keyboard itself
Statistics: Posted by Guest — 21 Apr 2007, 18:51
Statistics: Posted by bsork — 21 Apr 2007, 10:09
Statistics: Posted by Guest — 20 Apr 2007, 20:00

Statistics: Posted by nay-seven — 20 Apr 2007, 19:06
Statistics: Posted by Guest — 20 Apr 2007, 15:35
Statistics: Posted by bsork — 20 Apr 2007, 09:32
CODE:
/////////////////////////////// Set Velocity/////////////////////////////// This script sets all midi note velocity to a choosen value from 0 to 127// Connect Midi In to 'Midi In'// Connect Midi Out to 'Midi Out'// Connect a fader with range set from 0 to 127 to 'Velocity'/////////////////////////////// parameters declarationvar Input : Tparameter;var Vel : TParameter;var Output : Tparameter;// initialisation : create parametersprocedure init;begin Input := CreateParam('Midi In',ptMidi); Vel := CreateParam('Velocity',ptDataFader); Output := CreateParam('Midi Out',ptMidi); SetIsOutPut(Input,false); SetIsOutPut(Vel,false); SetFormat(Vel,'%.0f'); SetMin(Vel,0); SetMax(Vel,127); SetDefaultValue(Vel,100); SetValue(Vel,100); SetIsInput(Output,false);end;// Global variablesvar i : integer;var nbMidiIn : integer;var SetVelo : byte;var ReceivedMidi : TMidi;// main procbegin SetVelo := trunc(getValue(Vel)); // new velocity value nbMidiIn := GetLength(Input); // get the number of incoming midi codes SetLength(outPut,nbMidiIn);// sets the number of outgoing midi codes if nbMidiIn > 0 then // if notes are recieved begin for i := 0 to nbMidiIn-1 // loops each note of polyphonic data do begin GetMidiArrayValue(Input,i,ReceivedMidi);// get individual midi data ReceivedMidi.data2 := SetVelo;// sets the velocity SetMidiArrayValue(Output,i,ReceivedMidi);// sets output value end; end end./////////////////////////////// 20-04-2007// Vincent MICHEL/////////////////////////////Statistics: Posted by Guest — 20 Apr 2007, 01:06
Statistics: Posted by nay-seven — 20 Apr 2007, 00:10
Statistics: Posted by neufena — 19 Apr 2007, 22:07
Statistics: Posted by Guest — 18 Apr 2007, 18:08
Statistics: Posted by bsork — 18 Apr 2007, 16:05
Statistics: Posted by neufena — 18 Apr 2007, 11:44
Same remark, since I cannot do that on my keyboard! You're right, and you did not forget this simplest solution.I think we all forgot that the simplest solution for a constant velocity from a keyboard is often within the keyboard itself
Statistics: Posted by Guest — 21 Apr 2007, 18:51
Statistics: Posted by bsork — 21 Apr 2007, 10:09
Statistics: Posted by Guest — 20 Apr 2007, 20:00

Statistics: Posted by nay-seven — 20 Apr 2007, 19:06
Statistics: Posted by Guest — 20 Apr 2007, 15:35
Statistics: Posted by bsork — 20 Apr 2007, 09:32
CODE:
/////////////////////////////// Set Velocity/////////////////////////////// This script sets all midi note velocity to a choosen value from 0 to 127// Connect Midi In to 'Midi In'// Connect Midi Out to 'Midi Out'// Connect a fader with range set from 0 to 127 to 'Velocity'/////////////////////////////// parameters declarationvar Input : Tparameter;var Vel : TParameter;var Output : Tparameter;// initialisation : create parametersprocedure init;begin Input := CreateParam('Midi In',ptMidi); Vel := CreateParam('Velocity',ptDataFader); Output := CreateParam('Midi Out',ptMidi); SetIsOutPut(Input,false); SetIsOutPut(Vel,false); SetFormat(Vel,'%.0f'); SetMin(Vel,0); SetMax(Vel,127); SetDefaultValue(Vel,100); SetValue(Vel,100); SetIsInput(Output,false);end;// Global variablesvar i : integer;var nbMidiIn : integer;var SetVelo : byte;var ReceivedMidi : TMidi;// main procbegin SetVelo := trunc(getValue(Vel)); // new velocity value nbMidiIn := GetLength(Input); // get the number of incoming midi codes SetLength(outPut,nbMidiIn);// sets the number of outgoing midi codes if nbMidiIn > 0 then // if notes are recieved begin for i := 0 to nbMidiIn-1 // loops each note of polyphonic data do begin GetMidiArrayValue(Input,i,ReceivedMidi);// get individual midi data ReceivedMidi.data2 := SetVelo;// sets the velocity SetMidiArrayValue(Output,i,ReceivedMidi);// sets output value end; end end./////////////////////////////// 20-04-2007// Vincent MICHEL/////////////////////////////Statistics: Posted by Guest — 20 Apr 2007, 01:06
Statistics: Posted by nay-seven — 20 Apr 2007, 00:10
Statistics: Posted by neufena — 19 Apr 2007, 22:07
Statistics: Posted by Guest — 18 Apr 2007, 18:08
Statistics: Posted by bsork — 18 Apr 2007, 16:05
Statistics: Posted by neufena — 18 Apr 2007, 11:44