BrainModular

scripting only if changed

2012-05-24T15:07:21+02:00

I did get this to work, not sure why it was refusing to compile before....

I did iterate, and it is working, thanks!!

Statistics: Posted by woodslanding — 24 May 2012, 15:07

scripting only if changed

2012-05-24T09:52:07+02:00

mmm strange. if a real red pin, it's get/set/length, if you made an array of tparameter, then it would be getarraylength,
after that yes you would have to loop trhu and set elmts by elmts.

Statistics: Posted by 23fx23 — 24 May 2012, 09:52

scripting only if changed

2012-05-24T06:48:17+02:00

Getting back to this (as I'm doing it in a script again) so the length of a ptArray is set by setLength(x), not setArrayLength(x)?

Because getLength on a ptArray won't compile--it says not enough parameters. But the wiki shows only one parameter.

edit:

Okay, I am much closer.... my script is almost working, but my array out length is not the same as the input array. How can I do this?

Niether of these works:

//setLength(paramsOUT, getLength(paramsIN));
//setValue(paramsOUT, getValue(paramsIN));

In both cases, my output array shows length 1 ( paramsOUT[1] ) regardless of the size of the input array.

Do I have to iterate through the in and set the out element by element? That's fine, but I can't even get a correct length for the output array, after setting it to length -1!

Thanks!!!

-eric

Statistics: Posted by woodslanding — 24 May 2012, 06:48

scripting only if changed

2012-04-09T04:08:39+02:00

Don't spend too much time on that--I just realized once I am sending params as an array, I can stop the whole thing with one OIC module on the array input.... so no real need to put that in the script. I just need to be able to extract certain values from the array, manipulate them, and add the new values back into the appropriate slots in the array. I think I can do all that.

Thanks so much!
-eric

Statistics: Posted by woodslanding — 09 Apr 2012, 04:08

scripting only if changed

2012-04-06T13:38:41+02:00

will have a look at home this weekend, but from quick read you don't need to loop thru the whole array with a 'for i' but just set the global array length once, and i suspect pb comming from the else linked to (n=stop), as if any other inputs change, even if stop is 1 it will trig back the lenght to a positive value. try to link only to stop value, something like:

IF (stop = 1) then begin setlength(paramsOUT,-1); end else begin setlength(paramsOUT,length);end;

then your loop to set the values.

Statistics: Posted by 23fx23 — 06 Apr 2012, 13:38

scripting only if changed

2012-04-05T15:55:05+02:00

I actually just want to stop the array when I get a 1 from the STOP input to the script.

this script has the only syntax I could find that compiles, and it doesn't work. I just want to be able to set the values of a few specific elements of the array, and be able to stop it from a switch. Seems easy enough.... but I can't get it working. I'm seeing all zeroes at the output no matter the value of STOP:

CODE:

//////////////////////////////////////////////////////////////Const COUNT = 9;var paramsOUT  : TParameter;var paramsIN  : TParameter;Var indicesIN  :TParameter;Var valuesIN  : Array[0..COUNT-1] of TParameter;Var stopIN    :Tparameter;Var indices : TStringList;Procedure Destroy;begin   indices.free;end;// initialisation : create parametersprocedure init;var i : integer;begin  paramsIN := CreateParam('param arr',PtArray);  SetIsOutput(paramsIN,false);  SetFastCallback(paramsIN,false);  SetMax(paramsIn,MAXINT);  paramsOUT := CreateParam('param arr',PtArray);  SetIsInput(paramsOUT,false);  SetFastCallback(paramsOUT,false);  SetMax(paramsOUT,MAXINT);     for i := 0 to (COUNT - 1) DO BEGIN     valuesIN[i] := CreateParam('value' + intToStr(i), PtTextfield);     SetIsOutput(valuesIN[i],false);     SetFastCallback(valuesIN[i],false);  END;    indicesIN := CreateParam('indices', PtTextfield);  SetIsOutput(indicesIN,false);  SetFastCallback(indicesIN,false);   stopIN := CreateParam('stop', PtSwitch);  SetIsOutput(stopIN,false);  SetFastCallback(stopIN,false); end;// Callback procedureProcedure Callback(N:integer); var i,idx,stop,length : integer;value : double;name : String;begin    stop := trunc(getValue(stopIN));     // how to stop an array???    length := getLength(paramsIN);        IF (n = stopIN) and (stop = 1) then FOR i := 0 to (length - 1) DO setLength(paramsOUT, -1)    ELSE BEGIN        setLength(paramsOUT, length);        for i := 0 to (length - 1) DO           setDataArrayValue(paramsOUT, i, paramsIN);        indices.CommaText := GetStringValue(indicesIN);        // set the value of the array output at the index to the fader value coming in.        FOR i := 0 to (COUNT - 1) DO setDataArrayValue(paramsOUT,strToInt(indices.Strings[i]),getValue(valuesIN[i]));    ENDend;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginend;

Statistics: Posted by woodslanding — 05 Apr 2012, 15:55

scripting only if changed

2012-04-05T13:44:06+02:00

i made this script a while back , but indeed it's more complex as it was made as an individual outpts PIC from an array (and have to correct the setlength to -1 and not 0 ideally, but should still work as is).

if for the whole array, just set the array to correct size when need to set values, then next bloc set it's lenght to -1. = stopped,
one solution like here is to trigg a counter when callback used to set your array changes, and when the count=+1 in process you setlength back to -1. Alternatively you can trig the back to -1 size via another input callback if wanna avoid process, but imo unless you really want to do all by script and complexify in this case, better make simple script for the functions you need and add a pic module after that, like bsork suggested me once

Statistics: Posted by 23fx23 — 05 Apr 2012, 13:44

scripting only if changed

2012-04-05T10:03:49+02:00

hmmm..... this is sort of not helping. I want to stop an array type out, and you are only stopping individual datafield elements of an array of TParameters. I know how to stop a datafield.

Still can't figure out how to stop a PTArray.

Statistics: Posted by woodslanding — 05 Apr 2012, 10:03

scripting only if changed

2012-04-04T16:55:24+02:00

Thanks Nay, that looks like the right info!

Statistics: Posted by woodslanding — 04 Apr 2012, 16:55

scripting only if changed

2012-04-04T09:11:47+02:00

find this in my library, don't know the author
not exactly what you want but maybe a source of inspiration

CODE:

////////////////////////////////////////////////////////////////////////////////////////////// Pass If Chg Array create an array where only values that changed in array in will pass //// As it need 2 blocs (one to check, one to store) it relies on Process procedure         //// The callback will trig a counter. at bloc 0 it will compare new array with previously  //// stored one. At bloc 1 it will store the array to be compared next                      //// The values that didn't changed are those where substracting equal 0, will set          //// corresponding output length to 0, behaviour of passifChange in Usine                   //////////////////////////////////////////////////////////////////////////////////////////////const SIZE = 16;          // nb of out wanted = size of arrayconst PREFIX = 'OUT_';   // PEFIX for outputs names, folowed by Integer;var ArrayIn: Tparameter;var OUTPUTS: Array Of Tparameter;     // we will use an array of Tparameters, to allow N creations easilyvar i,l,count: integer;               // we declare the variable we will use and their typevar valtmp:    single;var ArrayLast: Array of single;       // ArrayLast will be used to store array to check wich values changed on new in                                      // chg./////////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False); setMin(arrayIn,0);setMax(ArrayIn,127);   SetArrayLength(OUTPUTS,SIZE);       // we set the arraylength to create N outputs of size defined by constant on top                                      // of script.   for i:=0 to SIZE -1 do begin    OUTPUTS[i]:= CreateParam(PREFIX+IntToStr(i),PtDataField); SetIsInput(OUTPUTS[i],false);    end;   // we create the outputs, names with the prefix followed by their corresponding nb. setArrayLength(ArrayLast,SIZE);   //we set the memory array the same sizesetdontsave(arrayIn,false);       // by doing this the arrayin can be saved to Pm or on quiting the patchEND;//INit//////////////////////////////PROCEDURE Callback(N:integer); BEGIN     if (n=arrayIn) then begin       l:= getlength(ArrayIn);       count:=-1;                 // if detected arrayin chg, we trig the counter for process to start.     end;END;//callback//////////////////////////////PROCEDURE PROCESS;BEGIN if count >= -1 then begin        //start counting when callback has set count to -1   count:=count+1;               // -1+1=0 so at first bloc count is 0   end;    if count = 0 then begin        // at first bloc we compare all values of new array with previous one.     for i:=0 to l-1 do begin       if ArrayLast[i]-getDataArrayValue(ArrayIn,i)<>0 then begin   // if there is a difference that mean        valtmp:= getDataArrayValue(ArrayIn,i);                     //this value has changed           setLength(OUTPUTS[i],1);                         // we make a size 1 to activate data pass           setValue(OUTPUTS[i],valtmp);                    // and set the value with discovered one       end      else begin                                 // otherwise if no differences          setLength(OUTPUTS[i],0);              // we setLength of 0 = don't pass.       end;      end;      end;     if count = 1 then begin                // on next bloc we store the array to internal memory for next compare.       for i:=0 to L-1 do begin           ArrayLast[i]:=getdataArrayValue(ArrayIn,i);                setLength(OUTPUTS[i],0);                // and make no values pass anymore.             end;      count:=-2;                                      // and stop the counter as we reset it to -2      end; end;

Statistics: Posted by nay-seven — 04 Apr 2012, 09:11

scripting only if changed

2012-04-04T02:06:51+02:00

Revisiting this.... this time, I want to do Only If Changed for an Array.... but I can't do setValue(-1) or setLength(-1) on an array. How do I do this??

Thanks!!
-eric

Statistics: Posted by woodslanding — 04 Apr 2012, 02:06

scripting only if changed

2011-11-03T20:06:15+02:00

The coeff to db is to retrieve the associated dB of a coeff (the inverse of the function above)
CODE:
coeffTodB(0.5) = -6coeffTodB(0.25) = -12...

Olivier:

I'm getting:

Undeclared Identifier

when I use the function coeffToDB(single)

Statistics: Posted by woodslanding — 03 Nov 2011, 19:06

scripting only if changed

2011-10-28T10:28:34+02:00

Hey, this worked great, and I have created my most sophisticated script yet.

Thanks so much!!!

Statistics: Posted by woodslanding — 28 Oct 2011, 10:28

scripting only if changed

2011-10-24T04:47:04+02:00

Thanks, all!

Statistics: Posted by woodslanding — 24 Oct 2011, 04:47

scripting only if changed

2011-10-22T12:07:35+02:00

right 23fx,
Just a detail, to have a real NULL event set its size to -1 instead of 0, it's more general and efficient in Usine.

CODE:

setLength(output,-1);

also the about the "Coeff to DB"

To change the volume of an audio flow, you can do a multiplication by a Coeff:

CODE:

-6 dB = mult by 0.5-12db = mult by 0.25...

The coeff to db is to retrieve the associated dB of a coeff (the inverse of the function above)

CODE:

coeffTodB(0.5) = -6coeffTodB(0.25) = -12...

Statistics: Posted by senso — 22 Oct 2011, 12:07

scripting only if changed

2011-10-22T01:00:59+02:00

pass if change is done in script via setting length of the output to 0.

but then need to set back to size 1 if a float or arraysize for activating and setting values, and usually this imply that the callback trig a procedure, set sizes and values, trig a counter in process, and then in next process bloc (count+1) it will set back size to 0.
i have no clues for the db math thing sorry..

Statistics: Posted by 23fx23 — 22 Oct 2011, 01:00

scripting only if changed

2011-10-22T00:20:16+02:00

Is there a way to do only if changed in a script? What would I set the output value to?

Also, I'm wondering what the math is for COEFF->DB ??

Thanks for any tips,
-e

Statistics: Posted by woodslanding — 22 Oct 2011, 00:20

scripting only if changed

2012-05-24T15:07:21+02:00

I did get this to work, not sure why it was refusing to compile before....

I did iterate, and it is working, thanks!!

Statistics: Posted by woodslanding — 24 May 2012, 15:07

scripting only if changed

2012-05-24T09:52:07+02:00

mmm strange. if a real red pin, it's get/set/length, if you made an array of tparameter, then it would be getarraylength,
after that yes you would have to loop trhu and set elmts by elmts.

Statistics: Posted by 23fx23 — 24 May 2012, 09:52

scripting only if changed

2012-05-24T06:48:17+02:00

Statistics: Posted by woodslanding — 24 May 2012, 06:48

scripting only if changed

2012-04-09T04:08:39+02:00

Statistics: Posted by woodslanding — 09 Apr 2012, 04:08

scripting only if changed

2012-04-06T13:38:41+02:00

Statistics: Posted by 23fx23 — 06 Apr 2012, 13:38

scripting only if changed

2012-04-05T15:55:05+02:00

CODE:

//////////////////////////////////////////////////////////////Const COUNT = 9;var paramsOUT  : TParameter;var paramsIN  : TParameter;Var indicesIN  :TParameter;Var valuesIN  : Array[0..COUNT-1] of TParameter;Var stopIN    :Tparameter;Var indices : TStringList;Procedure Destroy;begin   indices.free;end;// initialisation : create parametersprocedure init;var i : integer;begin  paramsIN := CreateParam('param arr',PtArray);  SetIsOutput(paramsIN,false);  SetFastCallback(paramsIN,false);  SetMax(paramsIn,MAXINT);  paramsOUT := CreateParam('param arr',PtArray);  SetIsInput(paramsOUT,false);  SetFastCallback(paramsOUT,false);  SetMax(paramsOUT,MAXINT);     for i := 0 to (COUNT - 1) DO BEGIN     valuesIN[i] := CreateParam('value' + intToStr(i), PtTextfield);     SetIsOutput(valuesIN[i],false);     SetFastCallback(valuesIN[i],false);  END;    indicesIN := CreateParam('indices', PtTextfield);  SetIsOutput(indicesIN,false);  SetFastCallback(indicesIN,false);   stopIN := CreateParam('stop', PtSwitch);  SetIsOutput(stopIN,false);  SetFastCallback(stopIN,false); end;// Callback procedureProcedure Callback(N:integer); var i,idx,stop,length : integer;value : double;name : String;begin    stop := trunc(getValue(stopIN));     // how to stop an array???    length := getLength(paramsIN);        IF (n = stopIN) and (stop = 1) then FOR i := 0 to (length - 1) DO setLength(paramsOUT, -1)    ELSE BEGIN        setLength(paramsOUT, length);        for i := 0 to (length - 1) DO           setDataArrayValue(paramsOUT, i, paramsIN);        indices.CommaText := GetStringValue(indicesIN);        // set the value of the array output at the index to the fader value coming in.        FOR i := 0 to (COUNT - 1) DO setDataArrayValue(paramsOUT,strToInt(indices.Strings[i]),getValue(valuesIN[i]));    ENDend;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginend;

Statistics: Posted by woodslanding — 05 Apr 2012, 15:55

scripting only if changed

2012-04-05T13:44:06+02:00

Statistics: Posted by 23fx23 — 05 Apr 2012, 13:44

scripting only if changed

2012-04-05T10:03:49+02:00

Statistics: Posted by woodslanding — 05 Apr 2012, 10:03

scripting only if changed

2012-04-04T16:55:24+02:00

Thanks Nay, that looks like the right info!

Statistics: Posted by woodslanding — 04 Apr 2012, 16:55

scripting only if changed

2012-04-04T09:11:47+02:00

find this in my library, don't know the author
not exactly what you want but maybe a source of inspiration

CODE:

////////////////////////////////////////////////////////////////////////////////////////////// Pass If Chg Array create an array where only values that changed in array in will pass //// As it need 2 blocs (one to check, one to store) it relies on Process procedure         //// The callback will trig a counter. at bloc 0 it will compare new array with previously  //// stored one. At bloc 1 it will store the array to be compared next                      //// The values that didn't changed are those where substracting equal 0, will set          //// corresponding output length to 0, behaviour of passifChange in Usine                   //////////////////////////////////////////////////////////////////////////////////////////////const SIZE = 16;          // nb of out wanted = size of arrayconst PREFIX = 'OUT_';   // PEFIX for outputs names, folowed by Integer;var ArrayIn: Tparameter;var OUTPUTS: Array Of Tparameter;     // we will use an array of Tparameters, to allow N creations easilyvar i,l,count: integer;               // we declare the variable we will use and their typevar valtmp:    single;var ArrayLast: Array of single;       // ArrayLast will be used to store array to check wich values changed on new in                                      // chg./////////////////////////////////////PROCEDURE INIT;BEGIN  ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False); setMin(arrayIn,0);setMax(ArrayIn,127);   SetArrayLength(OUTPUTS,SIZE);       // we set the arraylength to create N outputs of size defined by constant on top                                      // of script.   for i:=0 to SIZE -1 do begin    OUTPUTS[i]:= CreateParam(PREFIX+IntToStr(i),PtDataField); SetIsInput(OUTPUTS[i],false);    end;   // we create the outputs, names with the prefix followed by their corresponding nb. setArrayLength(ArrayLast,SIZE);   //we set the memory array the same sizesetdontsave(arrayIn,false);       // by doing this the arrayin can be saved to Pm or on quiting the patchEND;//INit//////////////////////////////PROCEDURE Callback(N:integer); BEGIN     if (n=arrayIn) then begin       l:= getlength(ArrayIn);       count:=-1;                 // if detected arrayin chg, we trig the counter for process to start.     end;END;//callback//////////////////////////////PROCEDURE PROCESS;BEGIN if count >= -1 then begin        //start counting when callback has set count to -1   count:=count+1;               // -1+1=0 so at first bloc count is 0   end;    if count = 0 then begin        // at first bloc we compare all values of new array with previous one.     for i:=0 to l-1 do begin       if ArrayLast[i]-getDataArrayValue(ArrayIn,i)<>0 then begin   // if there is a difference that mean        valtmp:= getDataArrayValue(ArrayIn,i);                     //this value has changed           setLength(OUTPUTS[i],1);                         // we make a size 1 to activate data pass           setValue(OUTPUTS[i],valtmp);                    // and set the value with discovered one       end      else begin                                 // otherwise if no differences          setLength(OUTPUTS[i],0);              // we setLength of 0 = don't pass.       end;      end;      end;     if count = 1 then begin                // on next bloc we store the array to internal memory for next compare.       for i:=0 to L-1 do begin           ArrayLast[i]:=getdataArrayValue(ArrayIn,i);                setLength(OUTPUTS[i],0);                // and make no values pass anymore.             end;      count:=-2;                                      // and stop the counter as we reset it to -2      end; end;

Statistics: Posted by nay-seven — 04 Apr 2012, 09:11

scripting only if changed

2012-04-04T02:06:51+02:00

Revisiting this.... this time, I want to do Only If Changed for an Array.... but I can't do setValue(-1) or setLength(-1) on an array. How do I do this??

Thanks!!
-eric

Statistics: Posted by woodslanding — 04 Apr 2012, 02:06

scripting only if changed

2011-11-03T20:06:15+02:00

The coeff to db is to retrieve the associated dB of a coeff (the inverse of the function above)
CODE:
coeffTodB(0.5) = -6coeffTodB(0.25) = -12...

Olivier:

I'm getting:

Undeclared Identifier

when I use the function coeffToDB(single)

Statistics: Posted by woodslanding — 03 Nov 2011, 19:06

scripting only if changed

2011-10-28T10:28:34+02:00

Hey, this worked great, and I have created my most sophisticated script yet.

Thanks so much!!!

Statistics: Posted by woodslanding — 28 Oct 2011, 10:28

scripting only if changed

2011-10-24T04:47:04+02:00

Thanks, all!

Statistics: Posted by woodslanding — 24 Oct 2011, 04:47

scripting only if changed

2011-10-22T12:07:35+02:00

right 23fx,
Just a detail, to have a real NULL event set its size to -1 instead of 0, it's more general and efficient in Usine.

CODE:

setLength(output,-1);

also the about the "Coeff to DB"

To change the volume of an audio flow, you can do a multiplication by a Coeff:

CODE:

-6 dB = mult by 0.5-12db = mult by 0.25...

The coeff to db is to retrieve the associated dB of a coeff (the inverse of the function above)

CODE:

coeffTodB(0.5) = -6coeffTodB(0.25) = -12...

Statistics: Posted by senso — 22 Oct 2011, 12:07

scripting only if changed

2011-10-22T01:00:59+02:00

Statistics: Posted by 23fx23 — 22 Oct 2011, 01:00

scripting only if changed

2011-10-22T00:20:16+02:00

Is there a way to do only if changed in a script? What would I set the output value to?

Also, I'm wondering what the math is for COEFF->DB ??

Thanks for any tips,
-e

Statistics: Posted by woodslanding — 22 Oct 2011, 00:20