Statistics: Posted by senso — 08 Jan 2009, 19:25
Statistics: Posted by amiga909 — 08 Jan 2009, 18:24
Statistics: Posted by cybercharles — 08 Jan 2009, 18:03
Statistics: Posted by amiga909 — 08 Jan 2009, 17:30
Statistics: Posted by cybercharles — 08 Jan 2009, 16:37
Statistics: Posted by bsork — 08 Jan 2009, 15:00

Statistics: Posted by amiga909 — 08 Jan 2009, 14:43
Statistics: Posted by bsork — 08 Jan 2009, 14:11

CODE:
//////////////////////////// Midi mute// by amiga909/////////////////////////// parameters declarationvar input : Tparameter;var output1 : Tparameter;var mute : Tparameter;// initi procedure init;begin input := CreateParam('In',ptMidi); output1 := CreateParam('Out',ptMidi); mute := CreateParam('mute',ptSwitch ); SetIsInput(output1,false); SetIsOutPut(input,false); //SetIsOutPut(mute,false); SetDefaultValue(mute,0);end;// Global variablesvar i : integer;var isMute : boolean;var nbOfMidiIN : integer;var nbOfMidiOUT1 : integer;var ReceivedMidi : TMidi;//////////////////////////////// main proc//////////////////////////////begin isMute := getValue(mute)>0; nbOfMidiIN := GetLength(input); // get the number of incoming midi codes if (nbOfMidiIN > 0) AND (isMute = false) then begin nbOfMidiOUT1 := 0; for i := 0 to nbOfMidiIN-1 // loop for all input codes, for polyphonic data (chords) do begin GetMidiArrayValue(input,i,ReceivedMidi); // get each code SetMidiArrayValue(output1,nbOfMidiOUT1,ReceivedMidi); // set output1 value nbOfMidiOUT1 := nbOfMidiOUT1 + 1 end; begin SetLength(outPut1,nbOfMidiOUT1); end; end else begin SetLength(outPut1,0); end;end.Statistics: Posted by amiga909 — 08 Jan 2009, 13:19
Statistics: Posted by senso — 08 Jan 2009, 10:06
Statistics: Posted by cybercharles — 08 Jan 2009, 09:52
Statistics: Posted by nay-seven — 08 Jan 2009, 07:11
Statistics: Posted by cybercharles — 07 Jan 2009, 23:57
Statistics: Posted by senso — 08 Jan 2009, 19:25
Statistics: Posted by amiga909 — 08 Jan 2009, 18:24
Statistics: Posted by cybercharles — 08 Jan 2009, 18:03
Statistics: Posted by amiga909 — 08 Jan 2009, 17:30
Statistics: Posted by cybercharles — 08 Jan 2009, 16:37
Statistics: Posted by bsork — 08 Jan 2009, 15:00

Statistics: Posted by amiga909 — 08 Jan 2009, 14:43
Statistics: Posted by bsork — 08 Jan 2009, 14:11

CODE:
//////////////////////////// Midi mute// by amiga909/////////////////////////// parameters declarationvar input : Tparameter;var output1 : Tparameter;var mute : Tparameter;// initi procedure init;begin input := CreateParam('In',ptMidi); output1 := CreateParam('Out',ptMidi); mute := CreateParam('mute',ptSwitch ); SetIsInput(output1,false); SetIsOutPut(input,false); //SetIsOutPut(mute,false); SetDefaultValue(mute,0);end;// Global variablesvar i : integer;var isMute : boolean;var nbOfMidiIN : integer;var nbOfMidiOUT1 : integer;var ReceivedMidi : TMidi;//////////////////////////////// main proc//////////////////////////////begin isMute := getValue(mute)>0; nbOfMidiIN := GetLength(input); // get the number of incoming midi codes if (nbOfMidiIN > 0) AND (isMute = false) then begin nbOfMidiOUT1 := 0; for i := 0 to nbOfMidiIN-1 // loop for all input codes, for polyphonic data (chords) do begin GetMidiArrayValue(input,i,ReceivedMidi); // get each code SetMidiArrayValue(output1,nbOfMidiOUT1,ReceivedMidi); // set output1 value nbOfMidiOUT1 := nbOfMidiOUT1 + 1 end; begin SetLength(outPut1,nbOfMidiOUT1); end; end else begin SetLength(outPut1,0); end;end.Statistics: Posted by amiga909 — 08 Jan 2009, 13:19
Statistics: Posted by senso — 08 Jan 2009, 10:06
Statistics: Posted by cybercharles — 08 Jan 2009, 09:52
Statistics: Posted by nay-seven — 08 Jan 2009, 07:11
Statistics: Posted by cybercharles — 07 Jan 2009, 23:57