BrainModular

infinte note off

2009-03-04T20:58:05+02:00

ok it works well now
thanks
Vincent

Statistics: Posted by pansoul — 04 Mar 2009, 19:58

infinte note off

2009-03-04T10:18:41+02:00

Your problem is what I described at the end of my post: You have to empty the array between each NoteOn with SetLength(, 0) since the array is read once for each execution block.

You can see an example in for instance the ScriptsMidiTranspose.script in the distro. Here's the main loop:

CODE:

begin nbOfMidi := GetLength(input);  // get the number of incoming midi codes   if nbOfMidi > 0  then begin    SetLength(outPut,nbOfMidi);      // set the number of output codes    transpoVal := getValue(transpo); // get the transpo value    for i := 0 to nbOfMidi-1         // loop for all input codes, for polyphonic data (chords)    do begin      GetMidiArrayValue(input,i,ReceivedMidi); // get each code      ReceivedMidi.data1 := ReceivedMidi.data1+trunc(transpoVal); // calculate transpo      SetMidiArrayValue(output,i,ReceivedMidi); // set output value         end; end  else SetLength(outPut,0); // nothing received, set out length to 0end.

One thing that isn't obvious, is that you don't have to to set the length before filling in the output data, so the above example could also be done like this:

CODE:

begin nbOfMidi := GetLength(input);  // get the number of incoming midi codes   if nbOfMidi > 0  then begin    transpoVal := getValue(transpo); // get the transpo value    for i := 0 to nbOfMidi-1         // loop for all input codes, for polyphonic data (chords)    do begin      GetMidiArrayValue(input,i,ReceivedMidi); // get each code      ReceivedMidi.data1 := ReceivedMidi.data1+trunc(transpoVal); // calculate transpo      SetMidiArrayValue(output,i,ReceivedMidi); // set output value         end; end;  SetLength(outPut, nbOfMidi);end.

Statistics: Posted by bsork — 04 Mar 2009, 09:18

infinte note off

2009-03-04T01:19:41+02:00

oops sorry but i didn't explain myself correctly. when i say "infinte noteon" i mean that hundred of note on are produced in a few seconds (it is the same if replace noteon - 144 by noteoff -128 ).

what i explain in this example is not what i want to do. Actually i don't need 'if else end' statement but only 'if end' and i don't need to produce 88 or 89 anymore but it is a test to see that when i produce a value like 88 , it is generated only one time and when i produce noteon or off , hundred times.

the behaviour i want is :
-beat 1 read array 1
-beat 2 read array 2
-beat 3 read array 3
and so on but i can't solve this inopportune "infinite noteon"

Statistics: Posted by pansoul — 04 Mar 2009, 00:19

infinte note off

2009-03-04T01:01:59+02:00

Not a problem per se, just missing NoteOffs. I don't quite understand how you want this to behave, but the simplest way to generate NoteOffs is using the Midi Transformer with length > 0, which will give a gate length in milliseconds.

You may do this somewhere in your script, but I'd like to add this anyway: Remember to set the length of the Midi array to 0 when it's not supposed to send any messages, else you will be sending the same message for every block execution. You should take a look at some of the included Midi scripts in the distro and/or download some of add-ons.

Statistics: Posted by bsork — 04 Mar 2009, 00:01

infinte note off

2009-03-03T23:53:31+02:00

hello

i try to do a sequencer script and i have a problem with generating midi event.
here a small part of my script that i wrote to find where my problem come from.

beat = GetValue(beat-synchro-externe);

if (beat = 2)
then begin
setvalue(Out-data,88);
end
else begin
setvalue(Out-data,89);
end

this script works well it means that when the
beat value is 2 it generates 88 else it generates 89 (when the beat value is 1,3 or 4)

but when i try to create a midi note in place of value 89 it generates infinite note on, on every beat value.

beat = GetValue(beat-synchro-externe);

if (beat = 2)
then begin
setvalue(Out-data,88);
end
else begin
Midi-note.Msg := 144;
Midi-note.Data1 := 37;
Midi-note.Data2 := 100;
Midi-note.Channel := 4;
SetMidiArrayValue(out-mid,0,Midi-note);
SetLength(out-mid,1);
end

is there a problem in my way of generating midi ?

thanks
Vincent

Statistics: Posted by pansoul — 03 Mar 2009, 22:53

infinte note off

2009-03-04T20:58:05+02:00

ok it works well now
thanks
Vincent

Statistics: Posted by pansoul — 04 Mar 2009, 19:58

infinte note off

2009-03-04T10:18:41+02:00

CODE:

begin nbOfMidi := GetLength(input);  // get the number of incoming midi codes   if nbOfMidi > 0  then begin    SetLength(outPut,nbOfMidi);      // set the number of output codes    transpoVal := getValue(transpo); // get the transpo value    for i := 0 to nbOfMidi-1         // loop for all input codes, for polyphonic data (chords)    do begin      GetMidiArrayValue(input,i,ReceivedMidi); // get each code      ReceivedMidi.data1 := ReceivedMidi.data1+trunc(transpoVal); // calculate transpo      SetMidiArrayValue(output,i,ReceivedMidi); // set output value         end; end  else SetLength(outPut,0); // nothing received, set out length to 0end.

One thing that isn't obvious, is that you don't have to to set the length before filling in the output data, so the above example could also be done like this:

CODE:

begin nbOfMidi := GetLength(input);  // get the number of incoming midi codes   if nbOfMidi > 0  then begin    transpoVal := getValue(transpo); // get the transpo value    for i := 0 to nbOfMidi-1         // loop for all input codes, for polyphonic data (chords)    do begin      GetMidiArrayValue(input,i,ReceivedMidi); // get each code      ReceivedMidi.data1 := ReceivedMidi.data1+trunc(transpoVal); // calculate transpo      SetMidiArrayValue(output,i,ReceivedMidi); // set output value         end; end;  SetLength(outPut, nbOfMidi);end.

Statistics: Posted by bsork — 04 Mar 2009, 09:18

infinte note off

2009-03-04T01:19:41+02:00

Statistics: Posted by pansoul — 04 Mar 2009, 00:19

infinte note off

2009-03-04T01:01:59+02:00

Statistics: Posted by bsork — 04 Mar 2009, 00:01

infinte note off

2009-03-03T23:53:31+02:00

hello

i try to do a sequencer script and i have a problem with generating midi event.
here a small part of my script that i wrote to find where my problem come from.

beat = GetValue(beat-synchro-externe);

if (beat = 2)
then begin
setvalue(Out-data,88);
end
else begin
setvalue(Out-data,89);
end

beat = GetValue(beat-synchro-externe);

if (beat = 2)
then begin
setvalue(Out-data,88);
end
else begin
Midi-note.Msg := 144;
Midi-note.Data1 := 37;
Midi-note.Data2 := 100;
Midi-note.Channel := 4;
SetMidiArrayValue(out-mid,0,Midi-note);
SetLength(out-mid,1);
end

is there a problem in my way of generating midi ?

thanks
Vincent

Statistics: Posted by pansoul — 03 Mar 2009, 22:53