BrainModular

Posted: **09 May 2009, 07:40**

Hi All!

I can't find a script that actually generates midi values. I want to just send 24 very low volume very short notes to Mr. Ray every time I do a patch change, so I don't get a bunch of clicks (known bug in the VSTi....)

Here's the script I tried. I thought it should work, but it sends out values constantly, after recieving the first trigger. What am I doing wrong. I only see the 'in loop' message once.....

Code: Select all

//////////////////////////
// send out 24 notes
/////////////////////////
// parameters declaration
var output  &#58; Tparameter;
var trigger &#58; Tparameter;
var start &#58; integer;


// initialisation &#58; create parameters
procedure init;
begin  
 Output &#58;= CreateParam&#40;'Out',ptMidi&#41;;               SetIsInput&#40;Output,false&#41;;
 trigger &#58;= CreateParam&#40;'trig',ptButton&#41;;           SetIsOutput&#40;Trigger,false&#41;; 


end;

// Global variables
var i            &#58; integer;
var noteOn       &#58; TMidi;
var noteOff      &#58; TMidi;


//////////////////////////////
// main proc
//////////////////////////////

begin
  start &#58;= trunc&#40;getValue&#40;Trigger&#41;&#41;;
  if start = 1 then 
  begin
    writeln&#40;'in loop'&#41;;  
    
    SetLength&#40;outPut,48&#41;;      // set the number of output codes
    for i &#58;= 0 to 23         // loop for all input codes, for polyphonic data &#40;chords&#41;
    do begin
      noteOn.data1 &#58;= i + 12;
      noteOn.data2 &#58;= 1;
      noteOn.msg &#58;= 128; 
      SetMidiArrayValue&#40;output,i,noteOn&#41;; // set output value
    end
    for i &#58;= 24 to 47
    do begin  
      noteOff.data1 &#58;= i - 12;
      noteOff.data2 &#58;= 0;
      noteOff.msg &#58;= 128; 
      SetMidiArrayValue&#40;output,i,noteOff&#41;; // set output value 
    end;  
  end
  else  
     begin
     end;
end.

thanks for any tips.....

-eric

Posted: **09 May 2009, 09:42**

Hi,

Just try:
after "if start=1"
SetValue(Trigger, 0); (a security to reset the value of trigger)

And at the end of the script, after "else begin"
SetLength(output, 0); (this sets the output to nothing if no trigger is received)

Hope it can help.

Regards,

B.

Posted: **11 May 2009, 06:51**

great, that did it!!

thanks!
-e

Posted: **14 May 2009, 09:00**

okay, that sort of did it. It works sometimes, and not others.

Code: Select all

//////////////////////////
// send out 24 notes
/////////////////////////
// parameters declaration
var output  &#58; Tparameter;
var trigger &#58; Tparameter;
var start &#58; integer;


// initialisation &#58; create parameters
procedure init;
begin  
 Output &#58;= CreateParam&#40;'Out',ptMidi&#41;;               SetIsInput&#40;Output,false&#41;;
 trigger &#58;= CreateParam&#40;'trig',ptButton&#41;;           SetIsOutput&#40;Trigger,false&#41;; 


end;

// Global variables
var i            &#58; integer;
var noteOn       &#58; TMidi;
var noteOff      &#58; TMidi;
var vol          &#58; TMidi;


//////////////////////////////
// main proc
//////////////////////////////

begin
  start &#58;= trunc&#40;getValue&#40;Trigger&#41;&#41;;
  if start = 1 then 
  
  begin
    writeln&#40;'in loop'&#41;;  
    
    SetLength&#40;outPut,50&#41;;      // set the number of output codes
    vol.data1 &#58;= 7;
    vol.data2 &#58;= 0;
    vol.msg &#58;= 176;
    vol.channel &#58;= 1;
    SetMidiArrayValue&#40;output,0,vol&#41;;
    for i &#58;= 1 to 24         // loop for all input codes, for polyphonic data &#40;chords&#41;
    do begin
      noteOn.data1 &#58;= i + 12;
      noteOn.data2 &#58;= 1;
      noteOn.msg &#58;= 144; 
      noteOn.channel &#58;= 1;
      SetMidiArrayValue&#40;output,i,noteOn&#41;; // set output value
    end
    for i &#58;= 25 to 48
    do begin  
      noteOff.data1 &#58;= i - 12;
      noteOff.data2 &#58;= 0;
      noteOff.msg &#58;= 128;
      noteOff.channel &#58;= 1;
      SetMidiArrayValue&#40;output,i,noteOff&#41;; // set output value 
     end;
     vol.data1 &#58;= 7;
     vol.data2 &#58;= 127;
     vol.msg &#58;= 176;
     vol.channel &#58;= 1;
     SetMidiArrayValue&#40;output,49,vol&#41;;  
  end
  else  
     begin
        SetLength&#40;output, 0&#41;;
     end;
   SetValue&#40;Trigger, 0&#41;;
end.

any ideas what's happening? I can get it to work from a trigger in about 1 in 20 times.

thanks,
-eric

Posted: **14 May 2009, 09:51**

I found another problem I can't solve. I would like to send noteons, and then wait a few milliseconds before sending noteoffs. But I can't figure out when the midi data actually gets sent! Do I have any control over that? I put a wait in half way through the script, but that just makes it wait to send everything out.....

It's also only working about every 40th time now.

What the????

Posted: **14 May 2009, 10:00**

hmmmm. looks like a bug in the display of midi cable data. I discovered 'trace out' in the preferences, and it's actually showing up fine in the console.

Actually, I noticed a similar problem with looking at data streams after a 'has changed'. I was only getting a tiny fraction of the values showing up in the inspector.

So I split the script into 2, and delayed the trigger for the noteOff portion, and it seems to work okay.

-e

BrainModular

script to send out midi notes