BrainModular

MIDI rechannel

2011-10-25T10:59:12+02:00

"midi transf" replace this script.

Statistics: Posted by jeanrene — 25 Oct 2011, 10:59

MIDI rechannel

2009-08-08T13:09:51+02:00

thanks for the addon

not tested, there might be small error in the script.
it should be:
NewC := getvalue(NewChannel) - 1;

check here for reference discussion:
http://www.sensomusic.com/forums/viewtopic.php?id=1449

Statistics: Posted by amiga909 — 08 Aug 2009, 13:09

MIDI rechannel

2009-08-07T15:03:06+02:00

ok, i've added it

k

Statistics: Posted by kara — 07 Aug 2009, 15:03

MIDI rechannel

2009-08-07T14:45:54+02:00

thanks
I think that it a good idea to put it in the add-ons section?

Statistics: Posted by senso — 07 Aug 2009, 14:45

MIDI rechannel

2009-08-07T13:32:01+02:00

I noticed that in the add-ons there is a MIDI rechannel patch based on modules.
This is version based on a script, don't know if it usefull enough to put it in the add-on section, I've just made this one for my own user purposes.

CODE:

//////////////////////////// Rechannel MIDI messages/////////////////////////// parameters declarationvar MidiIn : Tparameter;var MidiOut: Tparameter;var Newchannel: Tparameter;// initialisation : create parametersprocedure init;begin  MidiIn := CreateParam('In',ptMidi);MidiOut := CreateParam('Out',ptMidi);Newchannel:= CreateParam('Newchannel',ptDataFader);SetIsInput(MidiOut,false);SetIsOutput(MidiIn,false);SetIsOutput(Newchannel,false);SetMin(Newchannel,1);SetMax(Newchannel,16);SetFormat(Newchannel,'%.0f');SetDefaultValue(Newchannel,1);end;// Global variablesvar cnt: integer;var lngthMidi: integer;var ReceivedMidi: TMidi;var Newc: single;//////////////////////////////// main proc//////////////////////////////begin  lngthMidi := GetLength(MidiIn);  if lngthMidi > 0  then beginSetLength(MidiOut,lngthMidi);NewC := getvalue(NewChannel);for cnt := 0 to lngthMidi-1do begin GetMidiArrayValue(MidiIn,cnt,ReceivedMidi); ReceivedMidi.Channel := trunc(NewC);SetMidiArrayValue(MidiOut,cnt,ReceivedMidi);end;  end  else SetLength(MidiOut,0);end.

Statistics: Posted by kara — 07 Aug 2009, 13:32

MIDI rechannel

2011-10-25T10:59:12+02:00

"midi transf" replace this script.

Statistics: Posted by jeanrene — 25 Oct 2011, 10:59

MIDI rechannel

2009-08-08T13:09:51+02:00

Statistics: Posted by amiga909 — 08 Aug 2009, 13:09

MIDI rechannel

2009-08-07T15:03:06+02:00

ok, i've added it

k

Statistics: Posted by kara — 07 Aug 2009, 15:03

MIDI rechannel

2009-08-07T14:45:54+02:00

thanks
I think that it a good idea to put it in the add-ons section?

Statistics: Posted by senso — 07 Aug 2009, 14:45

MIDI rechannel

2009-08-07T13:32:01+02:00

CODE:

//////////////////////////// Rechannel MIDI messages/////////////////////////// parameters declarationvar MidiIn : Tparameter;var MidiOut: Tparameter;var Newchannel: Tparameter;// initialisation : create parametersprocedure init;begin  MidiIn := CreateParam('In',ptMidi);MidiOut := CreateParam('Out',ptMidi);Newchannel:= CreateParam('Newchannel',ptDataFader);SetIsInput(MidiOut,false);SetIsOutput(MidiIn,false);SetIsOutput(Newchannel,false);SetMin(Newchannel,1);SetMax(Newchannel,16);SetFormat(Newchannel,'%.0f');SetDefaultValue(Newchannel,1);end;// Global variablesvar cnt: integer;var lngthMidi: integer;var ReceivedMidi: TMidi;var Newc: single;//////////////////////////////// main proc//////////////////////////////begin  lngthMidi := GetLength(MidiIn);  if lngthMidi > 0  then beginSetLength(MidiOut,lngthMidi);NewC := getvalue(NewChannel);for cnt := 0 to lngthMidi-1do begin GetMidiArrayValue(MidiIn,cnt,ReceivedMidi); ReceivedMidi.Channel := trunc(NewC);SetMidiArrayValue(MidiOut,cnt,ReceivedMidi);end;  end  else SetLength(MidiOut,0);end.

Statistics: Posted by kara — 07 Aug 2009, 13:32