BrainModular

Unpack Array script

2013-04-18T21:44:46+02:00

cool well done

Statistics: Posted by 23fx23 — 18 Apr 2013, 21:44

Unpack Array script

2013-04-18T12:21:58+02:00

i think i've found the matter,
replaced:
//setvalue(value,getDataArrayValue(Arrayin,memIDs[m]));
setvalue(value,memVals[m]);
by
setvalue(value,getDataArrayValue(Arrayin,memIDs[m]));
//setvalue(value,memVals[m]);

now working on my patch.

Statistics: Posted by Fléau — 18 Apr 2013, 12:21

Unpack Array script

2013-04-15T23:48:50+02:00

i fleau , sorry u mean a solution for quantisising only one data? im really sorry will all the users i promised updates i couldn't give. i had so much busy things since 6 month i could never find the time to script/ patch back any thing in usine, and i just recently spend lot of time on a scale plugin i dumbly lost wich has a bit dicourage me, but tbh im waiting hollyhock to get back on hard works cause i know few/lots of thing will change and i would prefer to work on useful long term stuff.. but it should be soon now

Statistics: Posted by 23fx23 — 15 Apr 2013, 23:48

Unpack Array script

2013-04-14T11:52:23+02:00

hello,
23fx23, did you found the solution?

Statistics: Posted by Fléau — 14 Apr 2013, 11:52

Unpack Array script

2012-01-31T02:55:55+02:00

well you're welcome, glad it's helpful for some

Statistics: Posted by 23fx23 — 31 Jan 2012, 01:55

Unpack Array script

2012-01-31T00:16:40+02:00

I know it was long time ago, but I just want to say thanks... very useful...

Statistics: Posted by r.erorr — 30 Jan 2012, 23:16

Unpack Array script

2010-12-10T22:30:50+02:00

cool nb: i noticed the delay works only on polyphonic, if only one data changed each bloc, it will still be sent each bloc..
i couldn't figure out yet a way to quantize first data but i will investigate, but maybe not a pb..

Statistics: Posted by 23fx23 — 10 Dec 2010, 21:30

Unpack Array script

2010-12-10T00:03:20+02:00

i've just tested it, and it seems ok 23fx23!

I Will test it more heavily but anyway you saved my actual patches!

&

Statistics: Posted by ethnix73 — 09 Dec 2010, 23:03

Unpack Array script

2010-12-09T23:34:08+02:00

hi ethnix,
here is one you could test with some bloc_nb input:

CODE:

////////////////////////////////////////////////////////////////////////////var ArrayIn, index, value, send, NB_BLOCS: Tparameter;var i,j,l,k,m,BLOCS: integer;var ArrayLast, memVals: array of single;var memIDs : array of integer;//////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);setmin  (arrayin,-MAXINT); setMAX(arrayin,MAXINT);NB_BLOCS:=CreateParam('NB_BLOCS',Ptdatafield);SetIsOUTput(NB_BLOCS,False);SetValue(NB_BLOCS,1);//send    :=CreateParam('send', PtLed)   ;SetIsINput(send,False);index   :=CreateParam('index',Ptdatafield);SetIsINput(index,False);value   :=CreateParam('value',Ptdatafield);SetIsINput(value,False);k:=-2;      //reset unpack counterj:=0;BLOCS:=1;setArrayLength(arrayLast,1);setArrayLength(memIds,1);setArrayLength(memVals,1);end;//////////////////////////////////////PROCEDURE CALLBACK(N:integer); begin  if (n=NB_BLOCS) then Begin     BLOCS:= MaxI(1,round(getvalue(NB_BLOCS)));     end;    if (n = ArrayIn) AND (k=-2)then begin        L:= getlength(ArrayIn);                    setArraylength(arrayLast,L);        j:=0;          k:=-1;          for i:=0 to L-1 do begin                     if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin                 setvalue(send,1);                                                                         j:= j+1;                   setArrayLength(memVals,j);                                 setArrayLength(memIDs,j);                memIDs[j-1]:= i;                  memVals[j-1]:= getDataArrayValue(ArrayIn,i);                       end;           end;                                                     end;END;//Callback//////////////////////////////PROCEDURE PROCESS;BEGIN  if k >=-1 then begin                            k := k+1;     m := k div BLOCS;                                setValue(index,memIDs[m]);                    //setvalue(value,getDataArrayValue(Arrayin,memIDs[m]));      setvalue(value,memVals[m]);      setvalue(send,1);   end   else begin     setvalue(send,0);   end;  if m = 1 then begin                              for i:= 0 to L-1 do begin         arrayLast[i]:= getDataArrayValue(ArrayIn,i);       end;    end;     if m > (j-2) then begin                 k:=-2;    end;END;//Process/////////////////////////////

Statistics: Posted by 23fx23 — 09 Dec 2010, 22:34

Unpack Array script

2010-12-08T14:19:55+02:00

Thanks 23fx23!

Cool to try to help me...

Statistics: Posted by ethnix73 — 08 Dec 2010, 13:19

Unpack Array script

2010-12-08T13:45:37+02:00

ok , i will try to find a way and let you know , for now i still fail

Statistics: Posted by 23fx23 — 08 Dec 2010, 12:45

Unpack Array script

2010-12-08T03:09:57+02:00

Yes, i've got some overloads with the midi driver for the launchpad

And it creates audio glitches...

Statistics: Posted by ethnix73 — 08 Dec 2010, 02:09

Unpack Array script

2010-12-08T02:51:51+02:00

hi ethnix
even me i don't understand this script, i could get it work but i don't really know how lol.

in fact i did it from scratch, and i should have checked unpack midi first maye i think there is a simpler way.

i will try to find a way for that. just curious, why do you need slower, got some overloads?

Statistics: Posted by 23fx23 — 08 Dec 2010, 01:51

Unpack Array script

2010-12-07T23:55:17+02:00

i'm yet fighting againt scripting...

I've tried to implement a function to unpack more slowly the array, as you can find in the unpack midi script with wait cycles

But i've got big, enormous difficulties to understand your script 23fx23...

Should i put it in the procedure callback?
I've tried but with no success...

Statistics: Posted by ethnix73 — 07 Dec 2010, 22:55

Unpack Array script

2010-11-19T19:11:54+02:00

yeah i make lot of errors those days need to type slower.hehe

Statistics: Posted by 23fx23 — 19 Nov 2010, 18:11

Unpack Array script

2010-11-19T19:08:08+02:00

you've changed your keyboard, your fingers or your eyes?

Statistics: Posted by ethnix73 — 19 Nov 2010, 18:08

Unpack Array script

2010-11-19T18:46:12+02:00

ok cool, i will reupdzate yje addon then

Statistics: Posted by 23fx23 — 19 Nov 2010, 17:46

Unpack Array script

2010-11-19T13:51:44+02:00

Tested it quickly and it seems to be ok 23fx23!

No more error on init...

Statistics: Posted by ethnix73 — 19 Nov 2010, 12:51

Unpack Array script

2010-11-19T03:34:41+02:00

so i reopened my wksp, this stuff is a bit complex for my tiny brain, despite it looks simple hehe.
there is maybe a simpler way to proceed but that seems to work.

this version may get rid of the error,
could you try it ethnix and see if it's forking for you? if so ill update the addon...

CODE:

/////////////////////////////////////////////////////////////// Unpack array 23fx_14/10/2K10//////////////////////////////////////////////////////////////// Unpack simultaneous array changes bloc after bloc.// useful to convert polyphonic messages to slightly delayed// monophonic flows for ie midi mess or osc,dispatchers/setarrayelmt..////////////////////////////////////////////////////////////////////////////var ArrayIn, index, value, send: Tparameter;var i,j,l,k,m: integer;var ArrayLast: array of single;var memIDs : array of integer;//////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);setmin  (arrayin,-MAXINT); setMAX(arrayin,MAXINT);//send    :=CreateParam('send', PtLed)   ;SetIsINput(send,False);index   :=CreateParam('index',Ptdatafield);SetIsINput(index,False);value   :=CreateParam('value',Ptdatafield);SetIsINput(value,False);k:=-2;      //reset unpack counterj:=0;setArrayLength(arrayLast,1);setArrayLength(memIds,1);end;//////////////////////////////////////PROCEDURE CALLBACK(N:integer); begin      if (n = 0) then begin        L:= getlength(ArrayIn);                    setArraylength(arrayLast,L);        j:=0;          k:=-1;          for i:=0 to L-1 do begin                     if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin                 setvalue(send,1);                                                                         j:= j+1;                                     setArrayLength(memIDs,j);                memIDs[j-1]:= i;                        end;           end;                                                     end;END;//Callback//////////////////////////////PROCEDURE PROCESS;BEGIN  if k >=-1 then begin                            k := k+1;                                setValue(index,memIDs[k]);                    setvalue(value,getDataArrayValue(Arrayin,memIDs[k]));      setvalue(send,1);   end   else begin     setvalue(send,0);   end;  if k = 1 then begin                              for i:= 0 to L-1 do begin         arrayLast[i]:= getDataArrayValue(ArrayIn,i);       end;    end;     if k > (j-2) then begin                 k:=-2;    end;END;//Process////////////////////////////

Statistics: Posted by 23fx23 — 19 Nov 2010, 02:34

Unpack Array script

2010-11-18T20:35:53+02:00

yes i ve seen as weel problems on init when no data is there, i got to check it up, it a pb of the script but didn't found yet.

i probably need to fill the internal array used to compare or i don't know, will let tou know..

Statistics: Posted by 23fx23 — 18 Nov 2010, 19:35

Unpack Array script

2010-11-18T14:38:17+02:00

Hi 23fx23,

I've just noticed that there is an error with unpack array when it is connected to an empty matrix module, on initialisation of the patch...

Don't know if it's matrix or script related....

Statistics: Posted by ethnix73 — 18 Nov 2010, 13:38

Unpack Array script

2010-10-16T19:45:07+02:00

no worries . yeah we ll speak about in another thread. I got lot of scripts sorting incoming Osc datas to an array.
the set Array is cool but scripts allow more things. i ll make a very simple one that do this as exemple.

Statistics: Posted by 23fx23 — 16 Oct 2010, 19:45

Unpack Array script

2010-10-16T05:38:16+02:00

Sorry. I have not had my head in Usine for awhile so I temporarily forget what is what. Last I checked I still couldn't reliably unpack received OSC but that is for the other thread...

Statistics: Posted by gurulogic — 16 Oct 2010, 05:38

Unpack Array script

2010-10-15T19:06:22+02:00

mmm not exactly, it's the other way: send one simultaneous array, to elemnt after element. it has an array on input.
I think you are after the other side : several mono received unpacked and go in an array?
multiples datas on same adress are automaticaly 'unpacked' by OSC receive modules normally,
need to use setArray elemnt to store received datas in array. (the pic i shown ya in monome thread).

if you make an array display or editor out of the setarray element of the pic, you should have your multiples datas.'repacked'.
.

Statistics: Posted by 23fx23 — 15 Oct 2010, 19:06

Unpack Array script

2010-10-15T17:36:16+02:00

Cool, I look forward to trying this. I assume this will be perfect for unpacking muttiple OSC messages received simultaniously from Monome apps etc....?

Statistics: Posted by gurulogic — 15 Oct 2010, 17:36

Unpack Array script

2013-04-18T21:44:46+02:00

cool well done

Statistics: Posted by 23fx23 — 18 Apr 2013, 21:44

Unpack Array script

2013-04-18T12:21:58+02:00

Statistics: Posted by Fléau — 18 Apr 2013, 12:21

Unpack Array script

2013-04-15T23:48:50+02:00

Statistics: Posted by 23fx23 — 15 Apr 2013, 23:48

Unpack Array script

2013-04-14T11:52:23+02:00

hello,
23fx23, did you found the solution?

Statistics: Posted by Fléau — 14 Apr 2013, 11:52

Unpack Array script

2012-01-31T02:55:55+02:00

well you're welcome, glad it's helpful for some

Statistics: Posted by 23fx23 — 31 Jan 2012, 01:55

Unpack Array script

2012-01-31T00:16:40+02:00

I know it was long time ago, but I just want to say thanks... very useful...

Statistics: Posted by r.erorr — 30 Jan 2012, 23:16

Unpack Array script

2010-12-10T22:30:50+02:00

Statistics: Posted by 23fx23 — 10 Dec 2010, 21:30

Unpack Array script

2010-12-10T00:03:20+02:00

i've just tested it, and it seems ok 23fx23!

I Will test it more heavily but anyway you saved my actual patches!

&

Statistics: Posted by ethnix73 — 09 Dec 2010, 23:03

Unpack Array script

2010-12-09T23:34:08+02:00

hi ethnix,
here is one you could test with some bloc_nb input:

CODE:

////////////////////////////////////////////////////////////////////////////var ArrayIn, index, value, send, NB_BLOCS: Tparameter;var i,j,l,k,m,BLOCS: integer;var ArrayLast, memVals: array of single;var memIDs : array of integer;//////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);setmin  (arrayin,-MAXINT); setMAX(arrayin,MAXINT);NB_BLOCS:=CreateParam('NB_BLOCS',Ptdatafield);SetIsOUTput(NB_BLOCS,False);SetValue(NB_BLOCS,1);//send    :=CreateParam('send', PtLed)   ;SetIsINput(send,False);index   :=CreateParam('index',Ptdatafield);SetIsINput(index,False);value   :=CreateParam('value',Ptdatafield);SetIsINput(value,False);k:=-2;      //reset unpack counterj:=0;BLOCS:=1;setArrayLength(arrayLast,1);setArrayLength(memIds,1);setArrayLength(memVals,1);end;//////////////////////////////////////PROCEDURE CALLBACK(N:integer); begin  if (n=NB_BLOCS) then Begin     BLOCS:= MaxI(1,round(getvalue(NB_BLOCS)));     end;    if (n = ArrayIn) AND (k=-2)then begin        L:= getlength(ArrayIn);                    setArraylength(arrayLast,L);        j:=0;          k:=-1;          for i:=0 to L-1 do begin                     if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin                 setvalue(send,1);                                                                         j:= j+1;                   setArrayLength(memVals,j);                                 setArrayLength(memIDs,j);                memIDs[j-1]:= i;                  memVals[j-1]:= getDataArrayValue(ArrayIn,i);                       end;           end;                                                     end;END;//Callback//////////////////////////////PROCEDURE PROCESS;BEGIN  if k >=-1 then begin                            k := k+1;     m := k div BLOCS;                                setValue(index,memIDs[m]);                    //setvalue(value,getDataArrayValue(Arrayin,memIDs[m]));      setvalue(value,memVals[m]);      setvalue(send,1);   end   else begin     setvalue(send,0);   end;  if m = 1 then begin                              for i:= 0 to L-1 do begin         arrayLast[i]:= getDataArrayValue(ArrayIn,i);       end;    end;     if m > (j-2) then begin                 k:=-2;    end;END;//Process/////////////////////////////

Statistics: Posted by 23fx23 — 09 Dec 2010, 22:34

Unpack Array script

2010-12-08T14:19:55+02:00

Thanks 23fx23!

Cool to try to help me...

Statistics: Posted by ethnix73 — 08 Dec 2010, 13:19

Unpack Array script

2010-12-08T13:45:37+02:00

ok , i will try to find a way and let you know , for now i still fail

Statistics: Posted by 23fx23 — 08 Dec 2010, 12:45

Unpack Array script

2010-12-08T03:09:57+02:00

Yes, i've got some overloads with the midi driver for the launchpad

And it creates audio glitches...

Statistics: Posted by ethnix73 — 08 Dec 2010, 02:09

Unpack Array script

2010-12-08T02:51:51+02:00

Statistics: Posted by 23fx23 — 08 Dec 2010, 01:51

Unpack Array script

2010-12-07T23:55:17+02:00

Statistics: Posted by ethnix73 — 07 Dec 2010, 22:55

Unpack Array script

2010-11-19T19:11:54+02:00

yeah i make lot of errors those days need to type slower.hehe

Statistics: Posted by 23fx23 — 19 Nov 2010, 18:11

Unpack Array script

2010-11-19T19:08:08+02:00

you've changed your keyboard, your fingers or your eyes?

Statistics: Posted by ethnix73 — 19 Nov 2010, 18:08

Unpack Array script

2010-11-19T18:46:12+02:00

ok cool, i will reupdzate yje addon then

Statistics: Posted by 23fx23 — 19 Nov 2010, 17:46

Unpack Array script

2010-11-19T13:51:44+02:00

Tested it quickly and it seems to be ok 23fx23!

No more error on init...

Statistics: Posted by ethnix73 — 19 Nov 2010, 12:51

Unpack Array script

2010-11-19T03:34:41+02:00

CODE:

/////////////////////////////////////////////////////////////// Unpack array 23fx_14/10/2K10//////////////////////////////////////////////////////////////// Unpack simultaneous array changes bloc after bloc.// useful to convert polyphonic messages to slightly delayed// monophonic flows for ie midi mess or osc,dispatchers/setarrayelmt..////////////////////////////////////////////////////////////////////////////var ArrayIn, index, value, send: Tparameter;var i,j,l,k,m: integer;var ArrayLast: array of single;var memIDs : array of integer;//////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);setmin  (arrayin,-MAXINT); setMAX(arrayin,MAXINT);//send    :=CreateParam('send', PtLed)   ;SetIsINput(send,False);index   :=CreateParam('index',Ptdatafield);SetIsINput(index,False);value   :=CreateParam('value',Ptdatafield);SetIsINput(value,False);k:=-2;      //reset unpack counterj:=0;setArrayLength(arrayLast,1);setArrayLength(memIds,1);end;//////////////////////////////////////PROCEDURE CALLBACK(N:integer); begin      if (n = 0) then begin        L:= getlength(ArrayIn);                    setArraylength(arrayLast,L);        j:=0;          k:=-1;          for i:=0 to L-1 do begin                     if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin                 setvalue(send,1);                                                                         j:= j+1;                                     setArrayLength(memIDs,j);                memIDs[j-1]:= i;                        end;           end;                                                     end;END;//Callback//////////////////////////////PROCEDURE PROCESS;BEGIN  if k >=-1 then begin                            k := k+1;                                setValue(index,memIDs[k]);                    setvalue(value,getDataArrayValue(Arrayin,memIDs[k]));      setvalue(send,1);   end   else begin     setvalue(send,0);   end;  if k = 1 then begin                              for i:= 0 to L-1 do begin         arrayLast[i]:= getDataArrayValue(ArrayIn,i);       end;    end;     if k > (j-2) then begin                 k:=-2;    end;END;//Process////////////////////////////

Statistics: Posted by 23fx23 — 19 Nov 2010, 02:34

Unpack Array script

2010-11-18T20:35:53+02:00

Statistics: Posted by 23fx23 — 18 Nov 2010, 19:35

Unpack Array script

2010-11-18T14:38:17+02:00

Statistics: Posted by ethnix73 — 18 Nov 2010, 13:38

Unpack Array script

2010-10-16T19:45:07+02:00

Statistics: Posted by 23fx23 — 16 Oct 2010, 19:45

Unpack Array script

2010-10-16T05:38:16+02:00

Sorry. I have not had my head in Usine for awhile so I temporarily forget what is what. Last I checked I still couldn't reliably unpack received OSC but that is for the other thread...

Statistics: Posted by gurulogic — 16 Oct 2010, 05:38

Unpack Array script

2010-10-15T19:06:22+02:00

Statistics: Posted by 23fx23 — 15 Oct 2010, 19:06

Unpack Array script

2010-10-15T17:36:16+02:00

Cool, I look forward to trying this. I assume this will be perfect for unpacking muttiple OSC messages received simultaniously from Monome apps etc....?

Statistics: Posted by gurulogic — 15 Oct 2010, 17:36