Dynamic composition of a SysEx message with variable content and length

pianopaul · January 4, 2021, 2:07pm

No he is a German/Bavarian language learning French

megapeng · January 4, 2021, 2:16pm

da schau her

David-san · January 4, 2021, 7:15pm

And i now the Marterpfahl!!!

Coudl you please post your current version of the Keylab testing gig file, such that I can add a timer delayed display in it?

megapeng · January 4, 2021, 8:14pm

here you go…multisynth with piano(2).gig (210.1 KB)

David-san · January 4, 2021, 8:59pm

This is just for testing purposes for now:

multisynth_with_piano_3.gig (213.1 KB)

My changes in your script are after the // new comments. 2 sec after the last MIDI control message is received, the display will be refreshed. You will probably have to adapt the delay. Let me know if it works.

megapeng · January 5, 2021, 8:25am

nope it does not - later today ill make a little video - makes life easier.
i still believe it is possible,as i was looking at the script changes you made.
are you a beta tester?

David-san · January 5, 2021, 11:24am

Is your initial custom message displayed or not at all?
Did you increase the delay if the timer?
Could you please put a MIDI monitor widget on the MIDI in block connected to the instrument plugins and check if some MIDI messages are displayed when you act on the KeyLab controls ?

megapeng · January 5, 2021, 12:08pm

initial display message (startup GP load gig) works fine.
if i connect midi monitor to artirias input midi block it shows on the first pad i hit (program change) the programm change - and pitch wheel messages!! Probably thats on the output side and (here comes the marterpfahl) DELETES the midimonitor plugin/block!!!
i think i need a siesta…
ps did not change the delay i thought 2 secs is enough
sorry all bullshit…by switching,of course,i go to another rack where the is no midi monitor…

David-san · January 5, 2021, 12:54pm

OK, for a start, please avoid controls sending Program Change messages. Does it work with knobs or faders sending CC or pitchwheel messages ? It should

(please Marterpfahl mit groß M!)

megapeng · January 5, 2021, 2:31pm

i ll try - let you know later
(notorious kleinschreiber here)

megapeng · January 5, 2021, 4:18pm

the global song settings does not allow cc as it just recognises the cc but not the value (0-127) of the cc

David-san · January 5, 2021, 7:08pm

I am not sure we are talking from the same thing. I just would like to know if the modified script works. It is supposed to detect any control messages (not sure about PC that’s why I asked you to first avoid this), and each time a control message is detected it restarts the timer, thus once you stop to send control messages, wait two seconds and the script should refresh the KeyLab display.

megapeng · January 5, 2021, 7:40pm

ok i changed the song parts recall from PC to notes, and it does it.
if i THEN send a PC it shows first the PC value on the display and then the rackspace name reappears correctly after 2 second (delay in the script) .therefore the delay works.
BUT the cc`s on manipulated faders and knobs (wich normally show values) do not appear on the display anymore.
b.t.w. thanks for your geduld

David-san · January 5, 2021, 7:53pm

OK, so everything works for you, the display is properly refreshed with the Rackspace name, but the knobs sending CC messages are not displayed anymore, right?

This shouldn’t be related to what I modified in the script. Could you please comment out the script to verify that this behavior is not related to the script (to comment out, put /* on the first line of the script and */ on the last line. Then compile again to inhibit the script).

I am a very geduldig guy

megapeng · January 5, 2021, 7:56pm

mexican dinner now…tomorrow…

David-san · January 5, 2021, 8:03pm

megapeng · January 6, 2021, 7:28am

like this?

/*var
KeyLab_mkII_49 : MidiOutBlock;
SysEx : SysexManager;
KeyLab_mkII_49_LCD_PRE : String;
KeyLab_mkII_49_LCD_SEP : String;
KeyLab_mkII_49_LCD_END : String;
ASCII_STRING : String;
ASCII_HEX_STRING : String array;

// new
KeyLab_mkII_49_in  : MidiInBlock
DISPLAY_TIMER      : Ramp
TIMER_MS_DELAY     : Integer

Initialization
ASCII_STRING = " !"#$%&’()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[Y]^_`abcdefghijklmnopqrstuvwxyz{|}><";
ASCII_HEX_STRING = [“20”,“21”,“22”,“23”,“24”,“25”,“26”,“27”,“28”,“29”,“2A”,“2B”,“2C”,“2D”,“2E”,“2F”,“30”,“31”,“32”,“33”,“34”,“35”,“36”,“37”,“38”,“39”,“3A”,“3B”,“3C”,“3D”,“3E”,“3F”,“40”,“41”,“42”,“43”,“44”,“45”,“46”,“47”,“48”,“49”,“4A”,“4B”,“4C”,“4D”,“4E”,“4F”,“50”,“51”,“52”,“53”,“54”,“55”,“56”,“57”,“58”,“59”,“5A”,“5B”,“5C”,“5D”,“5E”,“5F”,“60”,“61”,“62”,“63”,“64”,“65”,“66”,“67”,“68”,“69”,“6A”,“6B”,“6C”,“6D”,“6E”,“6F”,“70”,“71”,“72”,“73”,“74”,“75”,“76”,“77”,“78”,“79”,“7A”,“7B”,“7C”,“7D”,“7E”,“7F”];
KeyLab_mkII_49_LCD_PRE = "# F0 00 20 6B 7F 42 04 00 60 01 ";
KeyLab_mkII_49_LCD_SEP = " 00 02 “;
KeyLab_mkII_49_LCD_END = " 00 F7”;

//new
TIMER_MS_DELAY = 4000; // 2000ms = 2sec delay

SetGeneratorOneShot(DISPLAY_TIMER,True);
SetGeneratorLength(DISPLAY_TIMER,TIMER_MS_DELAY+500);
SetGeneratorCoarseness(DISPLAY_TIMER,TIMER_MS_DELAY);

End

Function StringToHexString(str : String) Returns String
var i : Integer
result = “”;

For i=0; i<Length(str) ; i=i+1 Do
result = result + ASCII_HEX_STRING[IndexOfSubstring(ASCII_STRING, CopySubstring(str,i,1), True)];
End
End

Function KeyLab_mkII_49_LCD(line0 : String, line1 : String)
If Length(line0) > 16
Then
line0 = CopySubstring(line0, 0, 16);
End
line0 = StringToHexString(line0);

If Length(line1) > 16
Then
    line1 = CopySubstring(line1, 0, 16);
End
line1 = StringToHexString(line1);


SM_CreateSysexFromString(SysEx, KeyLab_mkII_49_LCD_PRE + line0 + KeyLab_mkII_49_LCD_SEP + line1 + KeyLab_mkII_49_LCD_END); 
SM_SendMidiOut(SysEx, KeyLab_mkII_49);

End

On Activate
var s : String;
s = “Rackspace:”;
KeyLab_mkII_49_LCD(s, GetRackspaceName());

// new
SetTimersRunning(true);

End

// new

// Catch note events before theyis catched by the MIDI event callbacks
On NoteEvent(m : NoteMessage) from KeyLab_mkII_49_in

KeyLab_mkII_49_in.SendNow(m);

End

On MidiEvent(msg : MidiMessage) from KeyLab_mkII_49_in

KeyLab_mkII_49_in.SendNow(msg);

// Comment the 2 following lines an GP won't crash anymore on closing or opening another script
EnableGenerator(DISPLAY_TIMER, False);    
EnableGenerator(DISPLAY_TIMER, True);

End

On TimePassing(time : integer, magnitude : double) from DISPLAY_TIMER

//KeyLab_mkII_49_LCD(s, GetRackspaceName());
Print("Display again!");

End*/

megapeng · January 6, 2021, 7:39am

if i did it (see above) correctly it is no good - still no difference and the display is stuck to the first rackspace name selected (i change rackspace by recalling)

David-san · January 6, 2021, 12:09pm

Oh sorry, I forgot to switch from the test code to the code which is working for you.

Please modify the code by removing the // before KeyLab_mkII_49_LCD…
And add it before Print…

megapeng · January 6, 2021, 12:42pm

ok it looks like this now, still no response from knobs and sliders…and the first rack name is not being displayed anymore
and i am learning!!! // is marking line as comment

/*var
KeyLab_mkII_49 : MidiOutBlock;
SysEx : SysexManager;
KeyLab_mkII_49_LCD_PRE : String;
KeyLab_mkII_49_LCD_SEP : String;
KeyLab_mkII_49_LCD_END : String;
ASCII_STRING : String;
ASCII_HEX_STRING : String array;

// new
KeyLab_mkII_49_in  : MidiInBlock
DISPLAY_TIMER      : Ramp
TIMER_MS_DELAY     : Integer

Initialization
ASCII_STRING = " !"#$%&’()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[Y]^_`abcdefghijklmnopqrstuvwxyz{|}><";
ASCII_HEX_STRING = [“20”,“21”,“22”,“23”,“24”,“25”,“26”,“27”,“28”,“29”,“2A”,“2B”,“2C”,“2D”,“2E”,“2F”,“30”,“31”,“32”,“33”,“34”,“35”,“36”,“37”,“38”,“39”,“3A”,“3B”,“3C”,“3D”,“3E”,“3F”,“40”,“41”,“42”,“43”,“44”,“45”,“46”,“47”,“48”,“49”,“4A”,“4B”,“4C”,“4D”,“4E”,“4F”,“50”,“51”,“52”,“53”,“54”,“55”,“56”,“57”,“58”,“59”,“5A”,“5B”,“5C”,“5D”,“5E”,“5F”,“60”,“61”,“62”,“63”,“64”,“65”,“66”,“67”,“68”,“69”,“6A”,“6B”,“6C”,“6D”,“6E”,“6F”,“70”,“71”,“72”,“73”,“74”,“75”,“76”,“77”,“78”,“79”,“7A”,“7B”,“7C”,“7D”,“7E”,“7F”];
KeyLab_mkII_49_LCD_PRE = "# F0 00 20 6B 7F 42 04 00 60 01 ";
KeyLab_mkII_49_LCD_SEP = " 00 02 “;
KeyLab_mkII_49_LCD_END = " 00 F7”;

//new
TIMER_MS_DELAY = 4000; // 2000ms = 2sec delay

SetGeneratorOneShot(DISPLAY_TIMER,True);
SetGeneratorLength(DISPLAY_TIMER,TIMER_MS_DELAY+500);
SetGeneratorCoarseness(DISPLAY_TIMER,TIMER_MS_DELAY);

End

Function StringToHexString(str : String) Returns String
var i : Integer
result = “”;

For i=0; i<Length(str) ; i=i+1 Do
result = result + ASCII_HEX_STRING[IndexOfSubstring(ASCII_STRING, CopySubstring(str,i,1), True)];
End
End

Function KeyLab_mkII_49_LCD(line0 : String, line1 : String)
If Length(line0) > 16
Then
line0 = CopySubstring(line0, 0, 16);
End
line0 = StringToHexString(line0);

If Length(line1) > 16
Then
    line1 = CopySubstring(line1, 0, 16);
End
line1 = StringToHexString(line1);


SM_CreateSysexFromString(SysEx, KeyLab_mkII_49_LCD_PRE + line0 + KeyLab_mkII_49_LCD_SEP + line1 + KeyLab_mkII_49_LCD_END); 
SM_SendMidiOut(SysEx, KeyLab_mkII_49);

End

On Activate
var s : String;
s = “Rackspace:”;
KeyLab_mkII_49_LCD(s, GetRackspaceName());

// new
SetTimersRunning(true);

End

// new

// Catch note events before theyis catched by the MIDI event callbacks
On NoteEvent(m : NoteMessage) from KeyLab_mkII_49_in

KeyLab_mkII_49_in.SendNow(m);

End

On MidiEvent(msg : MidiMessage) from KeyLab_mkII_49_in

KeyLab_mkII_49_in.SendNow(msg);

// Comment the 2 following lines an GP won't crash anymore on closing or opening another script
EnableGenerator(DISPLAY_TIMER, False);    
EnableGenerator(DISPLAY_TIMER, True);

End

On TimePassing(time : integer, magnitude : double) from DISPLAY_TIMER

KeyLab_mkII_49_LCD(s, GetRackspaceName());
Print("Display again!");

End*/