I don't think the script belongs in the add-ons section as long as the effiency and the ease of use is bad compared to a relatively simple module-based patch, but thanks for the nice words anyway. I think there are plenty of other scripts in the distro and the add-ons that are better examples of eg using MIDI data as indexex to arrays, or a boolean or three to avoid unneccessary executions.
Statistics: Posted by bsork — 31 Mar 2009, 11:38
]]>
maybe i'll do a test like gurulogic to compare CPU and RAM usage of the brute-force and the clever way when i get home.
though the script isnt more efficient, i might use it, cause its more elegant, flexible and well arranged than the module version for my taste.
post as addon?
Statistics: Posted by amiga909 — 31 Mar 2009, 10:47
]]>
CODE:
VAR pIn : Tparameter;TYPE outArr = ARRAY of Tparameter;VAR pOut : outArr;VAR tmp : tMidi;VAR inLen, min, max, i, x : INTEGER;VAR outLen : ARRAY OF INTEGER;VAR updLen : BOOLEAN;PROCEDURE init;BEGIN pIn := CreateParam('midi in', ptMidi); SetIsOutput(pIn, FALSE); SetArrayLength(pOut, 16); SetArrayLength(outlen, 16); FOR i := 0 TO 15 DO BEGIN pOut[i] := CreateParam('midi ch ' + IntToStr(i + 1), ptMidi); SetIsInput(pOut[i], FALSE); END; min := 16; max := 0; updLen := FALSE;END;PROCEDURE SetMinMax(y : integer);BEGIN IF (y < min) THEN min := y; IF (y > max) THEN max := y;END;// mainBEGIN IF (updLen) THEN BEGIN FOR i := min TO max DO BEGIN IF (OutLen[i] > 0) THEN BEGIN SetLength(pOut[i], 0); OutLen[i] := 0; END; END; min := 16; max := 0; updLen := FALSE; END; inLen := GetLength(pIn); IF (inlen > 0) THEN BEGIN FOR i := 0 TO (inLen - 1) DO BEGIN GetMidiArrayValue(pIn, i, tmp); IF (tmp.msg <= 239) THEN BEGIN x := tmp.channel - 1; SetMidiArrayValue(pOut[x], OutLen[x], tmp); OutLen[x] := OutLen[x] + 1; SetMinMax(x); updLen := TRUE; END; END; IF (updLen) THEN BEGIN FOR i := min TO max DO BEGIN IF (OutLen[i] > 0) THEN BEGIN SetLength(pOut[i], OutLen[i]); END; END; END; END;END.Statistics: Posted by bsork — 31 Mar 2009, 10:03
]]>
]]>
in the end there is no way to beat mr. senso as it seems.. dont tell me he also walks on water, i might believe it
EDIT: @23fx: for this case I would guess CPU load would not vary significantly if one puts a 'Patch Active' module: the modules to check if a patch should be set active would prolly consume more than an unused midi filter patch itself. as gurulogic pointed out, the only advantage might be less RAM usage.
Statistics: Posted by amiga909 — 30 Mar 2009, 23:06
]]>
...and once the 16 ch filter patch is made... or should we maybe do 16 subpatchs that would be activated only on incoming stream to save CPu if chanels are not used, mm gonna try if it worth..?
just made me think CPu contests for things we all want could be ccol to find the best tech..
Statistics: Posted by 23fx23 — 30 Mar 2009, 22:36
]]>
Statistics: Posted by bsork — 30 Mar 2009, 22:25
]]>
I know a script version could be made more effective using a couple of tricks, but no matter how it's constructed, what is most effective will to some extent be dependent on the MIDI data.
I'd love to learn more about these tricks. the only thing I could think of is rejecting message types like clock (or activesense or sysex) - which would save some wires in comparison to a module version. apart from that I really dont know?
waiting for ur answer, excited to learn
Statistics: Posted by amiga909 — 30 Mar 2009, 13:09
]]>
I know a script version could be made more effective using a couple of tricks, but no matter how it's constructed, what is most effective will to some extent be dependent on the MIDI data. I'll see if I can find the time tonight to create and post an example that I think would work ok for a relatively dense MIDI stream.
Anyway, no matter how a script is written, I'm sure the module way of doing things would be better when the amount of MIDI data is moderate - especially if only a handful of MIDI channels are in use.
Statistics: Posted by bsork — 30 Mar 2009, 09:19
]]>
scripts dont recreate modules. afaik its a completely different mechanism: modules are compiled, while scripts are interpreted, which means that the actual code for modules is bytecode that is only readable by a machine. script languages (like javascript) do not come up with such an optimized source code but a human readable source code can be executed directly which also means less efficiency.
please correct me if i am wrong.
btw, thanks for your kind words above 23fx23. but the script master here is bsork (except olivier of course). I didnt do much more than recreating his ideas by now (got some queer midi script stuff in the pipeline, maybe I'll be able to add something new sometimes, but i want to finish the easy stuff first...)
about script efficiency. maybe its valid to say that it is a bad idea to recreate stuff with scripts that can be done quite easily with modules. in our example we also need the same amount of wires: a script maybe would be more efficient if you would split channels but merging 2 channels to 1 (means: 1+2 > out1, 15+16 > out8, etc.). scripts can be more powerful if you would want to change the midi filter 'split by channel' param in realtime: if u change the channel while a note is still held u get a nasty hanging note. bsorks method would take care of that.
Statistics: Posted by amiga909 — 30 Mar 2009, 00:35
]]>
Statistics: Posted by 23fx23 — 30 Mar 2009, 00:09
]]>
yeah, its what I got too (didnt look at the MB usage)
here a test. usine modules vs. script.
first the mentioned no script version, then the script version with 2x2 chn, and 16x16 chn:
and here the patches if u want to try urself:
http://www.sensomusic.com/forums/upload ... script.pat
http://www.sensomusic.com/forums/upload ... script.pat
result:
dont know if this measurement method is reliable?
hmmm.. usine modules are NOT slower from what i got.
not-script version is clearly better if u have only a few channels. they are about the same if it comes to extensive splitting, non-script being rather faster.
kinda disappointing for me.. I wonder if my script could be made faster?
kinda trust enforcing for usine! usine is even better than we expect
Statistics: Posted by amiga909 — 30 Mar 2009, 00:01
]]>
Both were fed 15 channels of 16 beats per bar midi. The midi filter example used about 30Mb and barely any cpu, the script example used about 8Mb and considerable more cpu. (including the vsti generating the midi , the filter patch cpu usage showed about 1.8%, the script patch about 8%)
I think I am best off sticking with multiple filters to split channels
Statistics: Posted by gurulogic — 29 Mar 2009, 23:54
]]>
Statistics: Posted by 23fx23 — 29 Mar 2009, 23:25
]]>
What do you mean exactly? Even though the MIDI channels are named 1 to 16, technically they're 0-15 AFAIK, if that's what you're referring to.
actually I have to apologize. your excellent clearmidinotes and miditransposewithoctavefoldback run perfect. probably it was rather in one of my buggy attempts, sorry.
to explain what i meant:
from clearmidinotes.script:
GetMidiArrayValue(pIn, i, tmp);
writeln('tmpchan'+inttostr(tmp.channel));
=> if channel = 1: tmpchan: 1
=> if channel = 16: tmpchan: 16
and thats why u put this line before u throw the message in a 0..15 array:
x := tmp.channel - 1;
Statistics: Posted by amiga909 — 29 Mar 2009, 23:14
]]>
]]>
corrected the script above and tested it with copy+paste the same piano roll and changing channels.
seems to work now.
have to check my other scripts for that issue too. thanks again
btw, in some of your scripts I found a bug with channel 16 messages (channel counts from 1-16, data from 0-127)
Statistics: Posted by amiga909 — 29 Mar 2009, 09:39
]]>
]]>
easy, easy.....its a very easy thingie, done in 10min.
)Statistics: Posted by nay-seven — 28 Mar 2009, 09:28
]]>
CORRECTED:
CODE:
(*/////////////////////////////////////////////////////// MEP_splitChn - midi script module for sensomusic usine // version: 2009-03-23 1.0; author: amiga909//// <Description> // splits midi messages by channel // <Parameters> // none// <Ports> // [channel 1-16]: //////////////////////////////////////////////////////*)//////////////////////////////////////////////////////// globals//////////////////////////////////////////////////////VAR pIn, pOut1, pOut2, pOut3, pOut4, pOut5, pOut6, pOut7, pOut8, pOut9, pOut10, pOut11, pOut12, pOut13, pOut14, pOut15, pOut16 : TParameter; VAR tmp : TMidi; VAR len, i, len1, len2, len3, len4, len5, len6, len7, len8, len9, len10, len11, len12, len13, len14, len15, len16 : INTEGER; //////////////////////////////////////////////////////// initialize//////////////////////////////////////////////////////PROCEDURE init; BEGIN pIn := createParam('in', ptMidi); pOut1 := createParam('chn 1', ptMidi); pOut2 := createParam('chn 2', ptMidi); pOut3 := createParam('chn 3', ptMidi); pOut4 := createParam('chn 4', ptMidi); pOut5 := createParam('chn 5', ptMidi); pOut6 := createParam('chn 6', ptMidi); pOut7 := createParam('chn 7', ptMidi); pOut8 := createParam('chn 8', ptMidi); pOut9 := createParam('chn 9', ptMidi); pOut10 := createParam('chn 10', ptMidi); pOut11 := createParam('chn 11', ptMidi); pOut12 := createParam('chn 12', ptMidi); pOut13 := createParam('chn 13', ptMidi); pOut14 := createParam('chn 14', ptMidi); pOut15 := createParam('chn 15', ptMidi); pOut16 := createParam('chn 16', ptMidi); setIsInput(pOut1,FALSE);setIsInput(pOut2,FALSE);setIsInput(pOut3,FALSE);setIsInput(pOut4,FALSE);setIsInput(pOut5,FALSE);setIsInput(pOut6,FALSE);setIsInput(pOut7,FALSE);setIsInput(pOut8,FALSE);setIsInput(pOut9,FALSE);setIsInput(pOut10,FALSE);setIsInput(pOut11,FALSE);setIsInput(pOut12,FALSE);setIsInput(pOut13,FALSE);setIsInput(pOut14,FALSE);setIsInput(pOut15,FALSE);setIsInput(pOut16,FALSE);setIsOutput(pIn,FALSE);END; ////////////////////////////////////////// main//////////////////////////////////////////////////////BEGIN len := getLength(pIn); //writeln('len: '+inttostr(len)); IF len > 0 THEN BEGIN len1 := 0;len2 := 0;len3 := 0;len4 := 0;len5 := 0;len6 := 0;len7 := 0;len8 := 0;len9 := 0;len10 := 0;len11 := 0;len12 := 0;len13 := 0;len14 := 0;len15 := 0;len16 := 0;FOR i := 0 TO (len - 1) DO BEGIN getMidiArrayValue(pIn, i, tmp); IF (tmp.channel = 1) THEN BEGIN setMidiArrayValue(pOut1, len1, tmp); len1 := len1 +1; ENDELSE IF (tmp.channel = 2) THEN BEGIN setMidiArrayValue(pOut2, len2, tmp); len2 := len2 +1; END ELSE IF (tmp.channel = 3) THEN BEGIN setMidiArrayValue(pOut3, len3, tmp); len3 := len3 +1; ENDELSE IF (tmp.channel = 4) THEN BEGIN setMidiArrayValue(pOut4, len4, tmp); len4 := len4 +1; ENDELSE IF (tmp.channel = 5) THEN BEGIN setMidiArrayValue(pOut5, len5, tmp); setLength(pOut5,len5); len5 := len5 +1; ENDELSE IF (tmp.channel = 6) THEN BEGIN setMidiArrayValue(pOut6, len6, tmp); len6 := len6 +1; ENDELSE IF (tmp.channel = 7) THEN BEGIN setMidiArrayValue(pOut7, len7, tmp); len7 := len7 +1; ENDELSE IF (tmp.channel = 8) THEN BEGIN setMidiArrayValue(pOut8, len8, tmp); len8 := len8 +1; ENDELSE IF (tmp.channel = 9) THEN BEGIN setMidiArrayValue(pOut9, len9, tmp); len9 := len9 +1; ENDELSE IF (tmp.channel = 10) THEN BEGIN setMidiArrayValue(pOut10, len10, tmp); len10 := len10 +1; ENDELSE IF (tmp.channel = 11) THEN BEGIN setMidiArrayValue(pOut11, len11, tmp); len11 := len11 +1; ENDELSE IF (tmp.channel = 12) THEN BEGIN setMidiArrayValue(pOut12, len12, tmp); len12 := len12 +1; ENDELSE IF (tmp.channel = 13) THEN BEGIN setMidiArrayValue(pOut13, len13, tmp); len13 := len13 +1; ENDELSE IF (tmp.channel = 14) THEN BEGIN setMidiArrayValue(pOut14, len14, tmp); len14 := len14 +1; ENDELSE IF (tmp.channel = 15) THEN BEGIN setMidiArrayValue(pOut15, len15, tmp); len15 := len15 +1; ENDELSE IF (tmp.channel = 16) THEN BEGIN setMidiArrayValue(pOut16, len16, tmp); len16 := len16 +1; END; setLength(pOut1,len1); setLength(pOut2,len2);setLength(pOut3,len3); setLength(pOut4,len4);setLength(pOut5,len5); setLength(pOut6,len6);setLength(pOut7,len7); setLength(pOut8,len8);setLength(pOut9,len9); setLength(pOut10,len10);setLength(pOut11,len11); setLength(pOut12,len12);setLength(pOut13,len13); setLength(pOut14,len14);setLength(pOut15,len15); setLength(pOut16,len16); END; END ELSE BEGIN setLength(pOut1, 0);setLength(pOut2, 0);setLength(pOut3, 0);setLength(pOut4, 0);setLength(pOut5, 0);setLength(pOut6, 0);setLength(pOut7, 0);setLength(pOut8, 0);setLength(pOut9, 0);setLength(pOut10, 0);setLength(pOut11, 0);setLength(pOut12, 0);setLength(pOut13, 0);setLength(pOut14, 0);setLength(pOut15, 0);setLength(pOut16, 0); END; END.
Statistics: Posted by amiga909 — 28 Mar 2009, 08:52
]]>
Statistics: Posted by nay-seven — 28 Mar 2009, 08:34
]]>
]]>
i mean : you take 16 midi filter with data in and out and you save it as subpatch so you can re-use it when you need...?
don't think it more cpu eater than a script...?
Statistics: Posted by nay-seven — 27 Mar 2009, 20:27
]]>
I assume scripting is the answer but scriptingt is currently way over my head so I am hoping there is an easier solution?
Statistics: Posted by gurulogic — 27 Mar 2009, 18:17
]]>