BrainModular

Need a script

2009-01-17T01:13:14+02:00

Thanks you Bsork!
It work like a charm and it's exactly what I need.
Thanks you again for your help.
Regards

Statistics: Posted by moody33 — 17 Jan 2009, 00:13

Need a script

2009-01-15T23:01:50+02:00

You could do it with patching using either the unpack feature of the Midi In module (if that's where the data is coming from), and there's also a Midi/Midi Tools/Midi Unpack.script that you can use to split up Midi data to one message per execution block. Anyhow, it's a small script (and mostly copy and paste from older stuff):

CODE:

VAR pIn, pOut, pReset : tParameter;VAR tmp : tMidi;VAR len, i : integer;PROCEDURE Init;BEGIN   pIn := CreateParam('midi in', ptMidi); SetIsOutput(pIn, FALSE);   pOut := CreateParam('array out', ptArray); SetIsInput(pOut, FALSE);   pReset := CreateParam('reset to 0', ptButton); SetIsOutput(pReset, FALSE);   SetLength(pOut, 128);END; // Init// mainBEGIN   len := GetLength(pIn);   FOR i := 0 TO (len - 1) DO BEGIN      GetMidiArrayValue(pIn, i, tmp);      IF ((tmp.msg = 144) AND (tmp.data2 > 0)) THEN BEGIN // NoteOn         SetDataArrayValue(pOut, tmp.data1, 1);         //writeln('NoteOn:'+IntToStr(tmp.data1));      END      ELSE IF (   (tmp.msg = 128)               OR ((tmp.msg = 144) AND (tmp.data2 = 0))) THEN BEGIN // NoteOff         SetDataArrayValue(pOut, tmp.data1, 0);         //writeln('NoteOff:'+IntToStr(tmp.data1));      END;   END;   IF (GetValue(pReset) = 1) THEN BEGIN      FOR i := 0 TO 127 DO BEGIN         SetDataArrayValue(pOut, i, 0);      END;      SetValue(pReset, 0);   END;END.

Statistics: Posted by bsork — 15 Jan 2009, 22:01

Need a script

2009-01-15T14:10:29+02:00

Bsork: Thanks you for your advice. But I can't do it with patching probably because of my polyphonic needed.
I remember a patch ( 12notes switch) but it send integer values, and I don't want 127 wire !

Here is the script ( I dont remember who is the author) . I want quite the same thing but with a single array output in place of integer values. Hope it help.

//////////////////////////
// Remaps each midi note from range 60-71 to triggers
/////////////////////////
// parameters declaration

var input : Tparameter;

var msg : Tparameter;
var data1 : Tparameter;
var data2 : Tparameter;

var trigs : array of Tparameter;

// initialisation : create parameters
procedure init;
var i : integer;
begin
Input := CreateParam('In',ptMidi);
msg := CreateParam('msg', ptdataField);
data1 := CreateParam('data1', ptdataField);
data2 := CreateParam('msg', ptdataField);

SetIsOutPut(Input,false);
SetIsInput(msg, false);
SetIsInput(data1, false);
SetIsInput(data2, false);

setarraylength(trigs,12);
for i := 0 to 11
do begin
trigs := CreateParam('trig'+inttostr(i+1), ptSwitch);
setisInput(trigs, false);
end;
end;

// Global variables

var nbOfMidi : integer;
var Miditmp : TMidi;
var i : integer;
var index : integer;

//////////////////////////////
// main proc
//////////////////////////////
begin

nbOfMidi := GetLength(input); // get the number of incoming midi codes
if nbOfMidi > 0
then begin
for i := 0 to nbOfMidi - 1 do begin
GetMidiArrayValue(input, i, Miditmp);
setValue(msg,MidiTmp.msg);
setValue(data1,MidiTmp.data1);
setValue(data2,MidiTmp.data2);

if ((MidiTmp.msg = 144) or (MidiTmp.msg = 128))
and (MidiTmp.data1 >= 60) and (MidiTmp.data1 <= 71)
then begin
index := MidiTmp.data1 - 60;
if (MidiTmp.msg = 128)
or((MidiTmp.data2 = 0) and (MidiTmp.msg = 144))
then // NoteOff
SetValue(trigs[index], 0)
else
SetValue(trigs[index], 1);
end;
end;
end;
end.

--------------------------------------------------------------------------------

Statistics: Posted by moody33 — 15 Jan 2009, 13:10

Need a script

2009-01-15T14:05:22+02:00

Precision :

Midi data input flow: Midi note On and Note Off only .
Array ouput format? Don't sure to understand. I need a 127 size array ( corresponding to the 127 note range in midi flow. )
When a Note On ( number 32 for example) is detect, the number off the note activate the corresponding array position (32 here) and set it to 1.
when a Note Off is detect, (32 again), the corresponding array position is set to 0 . 0 is the defaut value for the array.

do you understand what I mean?

Statistics: Posted by moody33 — 15 Jan 2009, 13:05

Need a script

2009-01-15T13:59:24+02:00

I might volunteer, it shouldn't be very hard - in fact it would be a simplified version of the ClearMidiNotes script (or whatever I called the AllNotesOff thingie I made some time ago).

This could however be done with patching of not too many modules, using SetArrayElement with index=NoteNumber and a bit checking for values (remember that a NoteOn with velocity = 0 is a NoteOff...).

Can't help anything more right now, so if you haven't found out how to patch it and noone else has done it in the meantime, I can create something for you before the weekend.

Statistics: Posted by bsork — 15 Jan 2009, 12:59

Need a script

2009-01-15T13:49:26+02:00

not sure but maybe possible with patching...
as amiga909 ask , can you be more precise about your needs.....?

Statistics: Posted by nay-seven — 15 Jan 2009, 12:49

Need a script

2009-01-15T13:33:11+02:00

Gold Members

Re: Need a script

for what do u need this?

what kind of midi data do you put in there?

what kind of array data do you need (eg. format, precision)?

Statistics: Posted by amiga909 — 15 Jan 2009, 12:33

Need a script

2009-01-15T13:06:13+02:00

Hi all.

As I don't understand scripts , I ask you for help !

I need a simple script like this:

One Midi input. Range 0-127
One Array output. Range 0-127 (or user defined?)

Each time a note number is triggered, array output is set to 1 until received a note off ( 0 )
For example, if Note number 64 is pressed, then array position "64" is set to 1 .
Of course, I need a polyphonic script, so if I pressed note number 64 and note number 72, array position 64 and 72 would be set to 1, and the other to 0.

Thansk in advance for those who can help me.

And why not, another script that make the inverse? array trigger midi notes?

Statistics: Posted by moody33 — 15 Jan 2009, 12:06

Need a script

2009-01-17T01:13:14+02:00

Thanks you Bsork!
It work like a charm and it's exactly what I need.
Thanks you again for your help.
Regards

Statistics: Posted by moody33 — 17 Jan 2009, 00:13

Need a script

2009-01-15T23:01:50+02:00

CODE:

VAR pIn, pOut, pReset : tParameter;VAR tmp : tMidi;VAR len, i : integer;PROCEDURE Init;BEGIN   pIn := CreateParam('midi in', ptMidi); SetIsOutput(pIn, FALSE);   pOut := CreateParam('array out', ptArray); SetIsInput(pOut, FALSE);   pReset := CreateParam('reset to 0', ptButton); SetIsOutput(pReset, FALSE);   SetLength(pOut, 128);END; // Init// mainBEGIN   len := GetLength(pIn);   FOR i := 0 TO (len - 1) DO BEGIN      GetMidiArrayValue(pIn, i, tmp);      IF ((tmp.msg = 144) AND (tmp.data2 > 0)) THEN BEGIN // NoteOn         SetDataArrayValue(pOut, tmp.data1, 1);         //writeln('NoteOn:'+IntToStr(tmp.data1));      END      ELSE IF (   (tmp.msg = 128)               OR ((tmp.msg = 144) AND (tmp.data2 = 0))) THEN BEGIN // NoteOff         SetDataArrayValue(pOut, tmp.data1, 0);         //writeln('NoteOff:'+IntToStr(tmp.data1));      END;   END;   IF (GetValue(pReset) = 1) THEN BEGIN      FOR i := 0 TO 127 DO BEGIN         SetDataArrayValue(pOut, i, 0);      END;      SetValue(pReset, 0);   END;END.

Statistics: Posted by bsork — 15 Jan 2009, 22:01

Need a script

2009-01-15T14:10:29+02:00

Statistics: Posted by moody33 — 15 Jan 2009, 13:10

Need a script

2009-01-15T14:05:22+02:00

Statistics: Posted by moody33 — 15 Jan 2009, 13:05

Need a script

2009-01-15T13:59:24+02:00

Statistics: Posted by bsork — 15 Jan 2009, 12:59

Need a script

2009-01-15T13:49:26+02:00

not sure but maybe possible with patching...
as amiga909 ask , can you be more precise about your needs.....?

Statistics: Posted by nay-seven — 15 Jan 2009, 12:49

Need a script

2009-01-15T13:33:11+02:00

Gold Members

Re: Need a script

for what do u need this?

what kind of midi data do you put in there?

what kind of array data do you need (eg. format, precision)?

Statistics: Posted by amiga909 — 15 Jan 2009, 12:33

Need a script

2009-01-15T13:06:13+02:00

Statistics: Posted by moody33 — 15 Jan 2009, 12:06