BrainModular

muddling up an array

2012-07-02T10:58:22+02:00

yes, you're certainly right, i sadly don't have time to study scripts right now, i first thing we can use something like GetDataArrayValue and a variable to get the min & max then set them back
or a GetMin equivalent to the GetLength we have yet

definitively need a parallel life...

Statistics: Posted by nay-seven — 02 Jul 2012, 10:58

muddling up an array

2012-07-02T09:28:51+02:00

Yes, but this is the same with all array modules that you need to make sure second array is compatible with first array for min, max etc I think?

Made minor change so that Array Out is now saved in patch as was not being restored before.

CODE:

//////////////////////////////////////////////// Randomly reorders data in array // Version 1.01// 2 July 2012// By Caco//////////////////////////////////////////////var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Array out',ptarray); Setisinput(ArrayOut,false);  SetMin       (ArrayIn, 1.4e-45);     // set min parameter value SetMax       (ArrayIn, 3.4e38);     // set max parameter value SetMin       (ArrayOut, 1.4e-45);     // set min parameter value SetMax       (ArrayOut, 3.4e38);     // set max parameter value SetDontSave  (ArrayOut, FALSE);end;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 02 Jul 2012, 09:28

muddling up an array

2012-07-01T16:24:53+02:00

it works if you create the 2 array from the script , but i mean if you have a project with an array with min =20 and max =80 , and you want add your script behind this one, this don't work..?
i suppose we need here 2 variable , min and max and get their value from the first array..?

but it's not a big deal , so don't waste time for this if you don't have..

Statistics: Posted by nay-seven — 01 Jul 2012, 16:24

muddling up an array

2012-07-01T13:19:09+02:00

Is this any better? Seems to work fine here now.

CODE:

var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(ArrayOut,false);  SetMin   (ArrayIn, 1.4e-45);     // set min parameter value SetMax   (ArrayIn, 3.4e38);     // set max parameter value SetMin   (ArrayOut, 1.4e-45);     // set min parameter value SetMax   (ArrayOut, 3.4e38);     // set max parameter valueend;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 01 Jul 2012, 13:19

muddling up an array

2012-06-29T21:45:28+02:00

yes, but i just realize that modules like swap or shift array don't get (and set) those values automatically , so maybe it's normal ..?

In that case I suspect array in and out ranges have default of 0-100 and just need modifying.

Statistics: Posted by caco — 29 Jun 2012, 21:45

muddling up an array

2012-06-29T21:32:26+02:00

yes, but i just realize that modules like swap or shift array don't get (and set) those values automatically , so maybe it's normal ..?

Statistics: Posted by nay-seven — 29 Jun 2012, 21:32

muddling up an array

2012-06-29T21:21:59+02:00

works fine Caco, but only for array with min=0, max=100
if not you have to set those values manually

How strange, just to check you mean min and max value in array between 0-100? Will try and work out where I went wrong!

Statistics: Posted by caco — 29 Jun 2012, 21:21

muddling up an array

2012-06-29T16:54:25+02:00

Seem to works perfect (for me)!
Leaving for the weekend, so i will test it more on monday,
now able to share a 'midi stochastic seq' in my midi harmonizing tools patch.
Thank you caco.

Statistics: Posted by Fléau — 29 Jun 2012, 16:54

muddling up an array

2012-06-29T16:48:38+02:00

works fine Caco, but only for array with min=0, max=100
if not you have to set those values manually

Statistics: Posted by nay-seven — 29 Jun 2012, 16:48

muddling up an array

2012-06-29T16:34:44+02:00

Here is a quick one off the top of my head, not tested or optimized either so let me know if it doesn't work! If you need it to be more efficient I can come up with something much better using the C++ SDK as I am still unfamiliar with the script's Pascal syntax

CODE:

var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(ArrayOut,false); end;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 29 Jun 2012, 16:34

muddling up an array

2012-06-29T16:15:02+02:00

A job for a script guru...?

Statistics: Posted by nay-seven — 29 Jun 2012, 16:15

muddling up an array

2012-06-29T12:48:23+02:00

Does anybody know an efficient and CPU friendly way to shuffle an array,
like 1/2/3/4/5/6/7/8 to 6/4/5/2/3/1/8/7 (inverse of the 'sort array' module)?

Statistics: Posted by Fléau — 29 Jun 2012, 12:48

muddling up an array

2012-07-02T10:58:22+02:00

Statistics: Posted by nay-seven — 02 Jul 2012, 10:58

muddling up an array

2012-07-02T09:28:51+02:00

CODE:

//////////////////////////////////////////////// Randomly reorders data in array // Version 1.01// 2 July 2012// By Caco//////////////////////////////////////////////var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Array out',ptarray); Setisinput(ArrayOut,false);  SetMin       (ArrayIn, 1.4e-45);     // set min parameter value SetMax       (ArrayIn, 3.4e38);     // set max parameter value SetMin       (ArrayOut, 1.4e-45);     // set min parameter value SetMax       (ArrayOut, 3.4e38);     // set max parameter value SetDontSave  (ArrayOut, FALSE);end;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 02 Jul 2012, 09:28

muddling up an array

2012-07-01T16:24:53+02:00

Statistics: Posted by nay-seven — 01 Jul 2012, 16:24

muddling up an array

2012-07-01T13:19:09+02:00

Is this any better? Seems to work fine here now.

CODE:

var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(ArrayOut,false);  SetMin   (ArrayIn, 1.4e-45);     // set min parameter value SetMax   (ArrayIn, 3.4e38);     // set max parameter value SetMin   (ArrayOut, 1.4e-45);     // set min parameter value SetMax   (ArrayOut, 3.4e38);     // set max parameter valueend;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 01 Jul 2012, 13:19

muddling up an array

2012-06-29T21:45:28+02:00

yes, but i just realize that modules like swap or shift array don't get (and set) those values automatically , so maybe it's normal ..?

In that case I suspect array in and out ranges have default of 0-100 and just need modifying.

Statistics: Posted by caco — 29 Jun 2012, 21:45

muddling up an array

2012-06-29T21:32:26+02:00

yes, but i just realize that modules like swap or shift array don't get (and set) those values automatically , so maybe it's normal ..?

Statistics: Posted by nay-seven — 29 Jun 2012, 21:32

muddling up an array

2012-06-29T21:21:59+02:00

works fine Caco, but only for array with min=0, max=100
if not you have to set those values manually

How strange, just to check you mean min and max value in array between 0-100? Will try and work out where I went wrong!

Statistics: Posted by caco — 29 Jun 2012, 21:21

muddling up an array

2012-06-29T16:54:25+02:00

Seem to works perfect (for me)!
Leaving for the weekend, so i will test it more on monday,
now able to share a 'midi stochastic seq' in my midi harmonizing tools patch.
Thank you caco.

Statistics: Posted by Fléau — 29 Jun 2012, 16:54

muddling up an array

2012-06-29T16:48:38+02:00

works fine Caco, but only for array with min=0, max=100
if not you have to set those values manually

Statistics: Posted by nay-seven — 29 Jun 2012, 16:48

muddling up an array

2012-06-29T16:34:44+02:00

CODE:

var ArrayIn, ButtonIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin   ArrayIn:= CreateParam('Array in',ptarray); SetisOutput(ArrayIn,false); ButtonIn:= CreateParam('Shuffle',ptbutton); SetisOutput(ButtonIn,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(ArrayOut,false); end;//////////////////////////////////////Procedure Callback(N:integer); Var i, j : Integer;Var temp : real;begin    if (N=ButtonIn)  then begin        for i:= 0 to GetLength(ArrayIn)-1 do begin            SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));        end;            SetLength(ArrayOut,  GetLength(ArrayIn));        for i:= GetLength(ArrayOut)-1 downto 0 do begin            j := random(i);            temp := GetDataArrayValue(ArrayOut, j);            SetDataArrayValue(ArrayOut, j, GetDataArrayValue(ArrayOut, i));            SetDataArrayValue(ArrayOut, i, temp);        end;       end;end;

Statistics: Posted by caco — 29 Jun 2012, 16:34

muddling up an array

2012-06-29T16:15:02+02:00

A job for a script guru...?

Statistics: Posted by nay-seven — 29 Jun 2012, 16:15

muddling up an array

2012-06-29T12:48:23+02:00

Does anybody know an efficient and CPU friendly way to shuffle an array,
like 1/2/3/4/5/6/7/8 to 6/4/5/2/3/1/8/7 (inverse of the 'sort array' module)?

Statistics: Posted by Fléau — 29 Jun 2012, 12:48