thanks guys, worked like a charm.
antwan
Statistics: Posted by antwan — 30 Nov 2007, 20:07
]]>
CODE:
//////////////////////////////// main proc////////////////////////////////--------------------var Need_Reset : boolean;//--------------------begin if Need_Reset then begin need_reset := false; for i := 0 to 11 do SetValue(trigs[i], 0); end; 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 begin SetValue(trigs[index], 1); need_reset := true; end; end; end; end;end.Statistics: Posted by senso — 29 Nov 2007, 09:08
]]>
]]>
what's the proper way to script a trigger to come out of one of the ouputs?
i.e. lets say we have an output in the script module called "trigger" and under some condition I want a rapid 1 and then 0 to come out from "trigger".
thanks,
antwan
Statistics: Posted by antwan — 28 Nov 2007, 21:41
]]>
You could try to use modules though; filter Note messages, check note number values and use a PassEventFlow module when in the right interval. If you do, please tell whether you fixed it.
Statistics: Posted by bsork — 22 Nov 2007, 14:54
]]>
@Moody33: Are you looking for a script that filters all MIDI messages except NoteOns and NoteOffs between Note no X and Note no Y?
Yes, absolutely. I want to filter each notes of an octave. But i 'm bad in script...Statistics: Posted by moody33 — 22 Nov 2007, 11:07
]]>
@antwan: if you write
if MidiTmp.msg = 144 or MidiTmp.msg = 128
for most compiler it is ambiguous because it can interpreted as
if MidiTmp.msg = ((144 or MidiTmp.msg) = 128)
and generates a compilation error because 144 is not a boolean...
It's tricky, but for the first time, not my fault!
Statistics: Posted by senso — 21 Nov 2007, 21:27
]]>
@Moody33: Are you looking for a script that filters all MIDI messages except NoteOns and NoteOffs between Note no X and Note no Y?
Statistics: Posted by bsork — 21 Nov 2007, 21:02
]]>
I need the same script but with Midi Notes Output rather than On/Off switches...because I need the velocity output.
Anyone for scripting this? Thanks.
Statistics: Posted by moody33 — 21 Nov 2007, 20:21
]]>
Also, dont forget that 128 = NOTE OFF
and 144 with velocity = 0 gives also a NOTE OFF
CODE:
//////////////////////////////// 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 senso — 21 Nov 2007, 19:43
]]>
okay so I tried to follow both of your advice, but apparently did something wrong > it's giving a type mismatch. here's what i ended up with:
CODE:
//////////////////////////// Remaps each midi note from range 60-71 to triggers/////////////////////////// parameters declarationvar input : Tparameter;var msg : Tparameter;var data1 : Tparameter;var data2 : Tparameter;var trigs : array of Tparameter;// initialisation : create parametersprocedure 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[i] := CreateParam('trig'+inttostr(i+1), ptSwitch); setisInput(trigs[i], false); end;end;// Global variablesvar 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 = 144 and MidiTmp.data2 = 0) or MidiTmp.msg = 128) then // NoteOff SetDataArrayValue(trigs, index, 0); else SetDataArrayValue(trigs, index, 1); end; end; end;end.thanks
antwan
Statistics: Posted by antwan — 21 Nov 2007, 18:59
]]>
thanks for your replies, i'm right now solving another patch but after I get it done, I'll get back to learning scripting and have a good look at your tips. When I do, I will probably have more questions about your codes. Till then! Thanks,
antwan
Statistics: Posted by antwan — 21 Nov 2007, 08:22
]]>
I also forgot to initialize the values, which Senso remembered.
Statistics: Posted by bsork — 20 Nov 2007, 21:18
]]>
CODE:
var trigs : array of Tparameter;procedure init;var i : integer;begin ... // create other params here setarraylength(trigs,12); for i := 0 to 11 do begin trigs[i] := CreateParam('trig'+inttostr(i+1), ptSwitch); setisInput(trigs[i], false); end;....Statistics: Posted by senso — 20 Nov 2007, 19:06
]]>
I haven't tried your script (sorry, at work), but it could easily be simplified a bit to at least make it more CPU-friendly. Before I get into details, I'd like to add that the simplest way of creating a note-message-to-switch functionality in Usine would be to use MIDI learn on switches, but I guess you already knew that.
Since you're creating a lot of switches, using an output array would be the most effective and the program could have been quite a bit shorter. Without changing the structure of your program, you could for instance drop the triggerX variables (unless you're planning to expand the script of course) - you might as well just enter 0 and 1 directly into the trigX outputs. Then you could also skip the BEGIN/END pairs of the IF-THEN since you're only having one statement executed.
One thing you haven't done, is to loop through the incomming MIDI messages. If you've used the unpack feature on the MidiIn module, I guess that would work ok, but if not you could get into trouble when hitting several keys simultaniously. There are numerous examples of looping through MIDI messages in the scripts you've already have had a look at.
It might not be relevant to you, but you should also have in mind that a NoteOn with velocity = 0 (msg=144, data2=0) should also be treated as a NoteOff.
---
Here's an (untested!) example that should accomplish the same as your script using an output array, which can be accessed using various Usine modules.
CODE:
// initialisation : create parametersprocedure init;begin Input := CreateParam('In',ptMidi); msg := CreateParam('msg', ptdataField); data1 := CreateParam('data1', ptdataField); data2 := CreateParam('msg', ptdataField); trigArr := CreateParam('triggers', ptDataArray); SetLength(trigArr, 12); SetIsOutPut(Input,false); SetIsInput(msg, false); SetIsInput(data1, false); SetIsInput(data2, false); SetIsInput(trigArr, false);end;// Global variablesvar nbOfMidi : integer;var Miditmp : TMidi;var i : integer;var index : integer;//////////////////////////////// main proc//////////////////////////////beginnbOfMidi := 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 = 144 and MidiTmp.data2 = 0) or MidiTmp.msg = 128) then // NoteOff SetDataArrayValue(trigArr, index, 0); else SetDataArrayValue(trigArr, index, 1); end; end; end;end.Statistics: Posted by bsork — 20 Nov 2007, 09:31
]]>
I'm taking a journey into the realms of scripting in Usine. Hands up anyone who cares to help a complete amateur!
I've spent an evening intensively looking through the forum, at script examples and the manual and I'd say I've gotten somewhere from square one but still have mileage to cover
I'm doing a small exercise for myself and I have a couple of questions...
First of all:
What am I trying to accomplish?
A script that takes in Midi, looks for midi notes from the range 60-71, and maps note ons and offs for each note in that range to their own little on/off switch output.
Secondly, a few questions:
1) Is this the sort of idea that is smart to carry out by scripting?
2) Could someone have a look at my code and tell me what they see... I can see it works as I intended but the script looks very long and complex to me... maybe there's something I could learn in simplifying it - and making it better coding?
Feel free to smile, as I said, I'm a first-timer!
ps. the msg, data1 & data2 outputs are there just to... you know.... monitor what's going on...
CODE:
//////////////////////////// Remaps each midi note from range 60-71 to triggers/////////////////////////// parameters declarationvar input : Tparameter;var msg : Tparameter;var data1 : Tparameter;var data2 : Tparameter;var trig1 : Tparameter;var trig2 : Tparameter;var trig3 : Tparameter;var trig4 : Tparameter;var trig5 : Tparameter;var trig6 : Tparameter;var trig7 : Tparameter;var trig8 : Tparameter;var trig9 : Tparameter;var trig10 : Tparameter;var trig11 : Tparameter;var trig12 : Tparameter;// initialisation : create parametersprocedure init;begin Input := CreateParam('In',ptMidi); msg := CreateParam('msg', ptdataField); data1 := CreateParam('data1', ptdataField); data2 := CreateParam('msg', ptdataField); trig1 := CreateParam('trig1', ptSwitch); trig2 := CreateParam('trig2', ptSwitch); trig3 := CreateParam('trig3', ptSwitch); trig4 := CreateParam('trig4', ptSwitch); trig5 := CreateParam('trig5', ptSwitch); trig6 := CreateParam('trig6', ptSwitch); trig7 := CreateParam('trig7', ptSwitch); trig8 := CreateParam('trig8', ptSwitch); trig9 := CreateParam('trig9', ptSwitch); trig10 := CreateParam('trig10', ptSwitch); trig11 := CreateParam('trig11', ptSwitch); trig12 := CreateParam('trig12', ptSwitch); SetIsOutPut(Input,false); SetIsInput(msg, false); SetIsInput(data1, false); SetIsInput(data2, false); SetIsInput(trig1, false); SetIsInput(trig2, false); SetIsInput(trig3, false); SetIsInput(trig4, false); SetIsInput(trig5, false); SetIsInput(trig6, false); SetIsInput(trig7, false); SetIsInput(trig8, false); SetIsInput(trig9, false); SetIsInput(trig10, false); SetIsInput(trig11, false); SetIsInput(trig12, false); end;// Global variablesvar nbOfMidi : integer;var Miditmp : TMidi;var trigger1 : integer;var trigger2 : integer;var trigger3 : integer;var trigger4 : integer;var trigger5 : integer;var trigger6 : integer;var trigger7 : integer;var trigger8 : integer;var trigger9 : integer;var trigger10 : integer;var trigger11 : integer;var trigger12 : integer;//////////////////////////////// main proc//////////////////////////////beginnbOfMidi := GetLength(input); // get the number of incoming midi codes if nbOfMidi > 0 then begin GetMidiArrayValue(input,0,Miditmp); setValue(msg,MidiTmp.msg); setValue(data1,MidiTmp.data1); setValue(data2,MidiTmp.data2);if (MidiTmp.msg = 144) and (MidiTmp.data1 = 60) then begin trigger1 := 1; SetValue(trig1, trigger1);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 60) then begintrigger1 := 0;SetValue(trig1, trigger1);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 61) then begin trigger2 := 1; SetValue(trig2, trigger2);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 61) then begintrigger2 := 0;SetValue(trig2, trigger2);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 62) then begin trigger3 := 1; SetValue(trig3, trigger3);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 62) then begintrigger3 := 0;SetValue(trig3, trigger3);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 63) then begin trigger4 := 1; SetValue(trig4, trigger4);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 63) then begintrigger4 := 0;SetValue(trig4, trigger4);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 64) then begin trigger5 := 1; SetValue(trig5, trigger5);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 64) then begintrigger5 := 0;SetValue(trig5, trigger5);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 65) then begin trigger6 := 1; SetValue(trig6, trigger6);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 65) then begintrigger6 := 0;SetValue(trig6, trigger6);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 66) then begin trigger7 := 1; SetValue(trig7, trigger7);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 66) then begintrigger7 := 0;SetValue(trig7, trigger7);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 67) then begin trigger8 := 1; SetValue(trig8, trigger8);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 67) then begintrigger8 := 0;SetValue(trig8, trigger8);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 68) then begin trigger9 := 1; SetValue(trig9, trigger9);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 68) then begintrigger9 := 0;SetValue(trig9, trigger9);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 69) then begin trigger10 := 1; SetValue(trig10, trigger10);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 69) then begintrigger10 := 0;SetValue(trig10, trigger10);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 70) then begin trigger11 := 1; SetValue(trig11, trigger11);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 70) then begintrigger11 := 0;SetValue(trig11, trigger11);endif (MidiTmp.msg = 144) and (MidiTmp.data1 = 71) then begin trigger12 := 1; SetValue(trig12, trigger12);endif (MidiTmp.msg = 128) and (MidiTmp.data1 = 71) then begintrigger12 := 0;SetValue(trig12, trigger12);endendend./antwan
Statistics: Posted by antwan — 19 Nov 2007, 21:49
]]>