]]>
]]>
but i need at least help to know exactly what's to be updated in the actual one....?
Statistics: Posted by nay-seven — 14 Jun 2010, 10:16
]]>
]]>
Statistics: Posted by nay-seven — 11 Jun 2010, 15:58
]]>
]]>
SetArrayLength(ArrayTemp, len);
anywhere. Works a treat now - also a good tip to remember that if you have ErrorProcess in the console it's likely the array lengths aren't set...Also, I'd used the main process as I got confused after reading the fastcallback procedure desription in the guide saying it used more CPU.... I was pretty tired last night! DOH! I'll be using the callback I think from now on... interested to hear more about the comparisons of using internal/external though.
Statistics: Posted by Clearscreen — 11 Jun 2010, 03:50
]]>
I've to study all that , and i suppose I'll make a " why you don't have to be afraid about script lesson "
begin
thanks := ( from me) ;
end;
Statistics: Posted by nay-seven — 11 Jun 2010, 00:26
]]>
hehe yup i said that to myself when i atlast understood what was "callback " " Ah ok it's like a 'has changed ' hehe
Statistics: Posted by 23fx23 — 10 Jun 2010, 23:44
]]>
You're right: Adding both SetLength(ArrayOut, len) and SetArrayLength(ArrayTemp, len) solves the ErrorProcess problem.
You question the need for arrays for "internal" use only. It might not be the case with the new script engine, but in the old one it did take more CPU to read inputs than to do the same in an internal array. I haven't really done any stress testing to check whether that's still true, but if that's so and the input data is seldom updated compared to how often computations are made on the same data you save cycles and often get (IMO) a much more readable program as a bonus.
With the exercise script in question here, you could say that the use of ArrayTemp is doubly superfluous: Not only is it just used to store data that is just sent out unaltered through ArrayOut, but if you want to "mirror" ArrayIn just remove SetIsOutput(ArrayIn, FALSE) and you get a "through" of the data. Another thing with the use of ArrayTemp is that even if you want to do something with the data between in and out, you could just reuse a single variable for that - no need to fill an array, Or for simple computations just write something like this: SetDataArrayValue(ArrayOut, i, round(GetDataArrayValue(ArrayIn, i)) * 10) .
Likening Callback to "has changed" is also spot on!
Statistics: Posted by bsork — 10 Jun 2010, 23:32
]]>
basically callback trigg the proc only on change, and the same code would look like this:
//////////////////////////////////////////////////////////////////////////
// Callback procedure
Procedure Callback(N:integer);
Var I, len: integer;
var ArrayTemp : array of single;
BEGIN
if (n=arrayIn) then begin
Len := GetLength(arrayin);
SetLength(ArrayOut, len);
SetArrayLength(ArrayTemp,len);
For i:= 0 to len-1 do Begin
ArrayTemp := GetDataArrayValue(ArrayIn, i);
SetDataArrayValue(ArrayOut, i, Arraytemp);
End;
end;
END;
////////////////////////////////////////////////////////
don't need to check the array length is >0 as in old "process" mode, because if the script detects a change that mean the array
has a more than zero size i think if im not wrong.
//////////////////////////////////////////////////////////////////////////////////////// but me usually i don't use temp array:
BEGIN
if (n=arrayIn) then begin
Len := GetLength(arrayin);
SetLength(ArrayOut, len);
For i:= 0 to len-1 do Begin
SetDataArrayValue(ArrayOut, i, GetDataArrayValue(ArrayIn, i));
End;
end;
END;
////////////////////////////////////////////////////////
Statistics: Posted by 23fx23 — 10 Jun 2010, 22:57
]]>
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar arrayIn : Tparameter;var arrayOut : Tparameter;// initialisation : create parametersprocedure init;begin ArrayIn := CreateParam('array In',ptArray); SetIsOutput(ArrayIn,false);// ArrayOut := CreateParam('array Out',ptArray); SetIsInput(ArrayOut,false);end;// Callback procedureProcedure Callback(N:integer); begin end;// Global variablesVar I, len: integer;var ArrayTemp : array of single;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginIf GetLength(arrayin)>0 thenbeginLen := GetLength(arrayin);SetLength(ArrayOut, len); SetArrayLength(ArrayTemp,len);For i:= 0 to len-1 do // loop for all indexes BeginArrayTemp[i] := GetDataArrayValue(ArrayIn, i); // store the ith element of ArrayIn to the ith element of ArrayTempSetDataArrayValue(ArrayOut, i, Arraytemp[i]); // send the same element to ArrayOut End; end; end;Statistics: Posted by nay-seven — 10 Jun 2010, 22:48
]]>
i think it comes from the fact that the variable array used to temp store had not is length set as well as arrayOut.
for parameters we use Setlength(arrayOut,len);
for variable array must use SetArrayLength(ArrayTemp,len);
i would try to add this second line when setting sizes.
btw this is a perfect exemple of a wonder I had:
do we really need to have a variable array, can't we direct use in/out parameters bsork? im often asking myself if i need to
use a third in between variable array when dealing with in/out arrays....what's the point?
Also it's an exemple, but as bsork said it would be better to make a callback process (process on input changes) rather than
a process (always compute), but let's see first how to get it working.. At the time the pdf was made there wasn't yet maybe the callback. for me callback is equivalent to "has changed" at patch level:
Procedure Callback (n : integer);
begin
if (n= my_input) then begin // = if ie arrayIn, has changed and only, process foloowing code;
....
end;
end;
Statistics: Posted by 23fx23 — 10 Jun 2010, 21:13
]]>
CODE:
If GetLength(arrayin)>0 thenbeginso the problem is not here
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar arrayIn : Tparameter;var arrayOut : Tparameter;// initialisation : create parametersprocedure init;begin ArrayIn := CreateParam('array In',ptArray); SetIsOutput(ArrayIn,false);// ArrayOut := CreateParam('array Out',ptArray); SetIsInput(ArrayOut,false);end;// Callback procedureProcedure Callback(N:integer); beginend;// Global variablesVar I, len: integer;var ArrayTemp : array of single;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginIf GetLength(arrayin)>0 thenbeginLen := GetLength(arrayin);SetLength(ArrayOut, len); For i:= 0 to len-1 do // loop for all indexes BeginArrayTemp[i] := GetDataArrayValue(ArrayIn, i); // store the ith element of ArrayIn to the ith element of ArrayTempSetDataArrayValue(ArrayOut, i, Arraytemp[i]); // send the same element to ArrayOut End; end; end;Statistics: Posted by nay-seven — 10 Jun 2010, 16:25
]]>
]]>
compile but error and don't work..
CODE:
//////////////////////////// /////////////////////////// parameters declarationvar arrayIn : Tparameter;var arrayOut : Tparameter;// initialisation : create parametersprocedure init;begin ArrayIn := CreateParam('array In',ptArray); SetIsOutput(ArrayIn,false);// ArrayOut := CreateParam('array Out',ptArray); SetIsInput(ArrayOut,false);end;// Callback procedureProcedure Callback(N:integer); beginend;// Global variablesVar I, len: integer;var ArrayTemp : array of single;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginLen := GetLength(arrayin);SetLength(ArrayOut, len); For i:= 0 to len-1 do // loop for all indexes BeginArrayTemp[i] := GetDataArrayValue(ArrayIn, i); // store the ith element of ArrayIn to the ith element of ArrayTempSetDataArrayValue(ArrayOut, i, Arraytemp[i]); // send the same element to ArrayOut End; end;ArrayOut.
Statistics: Posted by nay-seven — 10 Jun 2010, 15:40
]]>
Another thing is that you shouldn't really have code like this within the Process procedure, as it will be executed every block. Use the Callback procedure to trigger things when input changes.
Statistics: Posted by bsork — 10 Jun 2010, 13:09
]]>
The script compiles but I get a 'ErrorProcess' message in Usines console so I must have something wrong in the Procedure Process, but I can't work out what it might be... here's what I've got:
Procedure Process;
begin
if GetLength(ArrayIn) > 0 then //to prevent the procedure running when there's no input
for i := 0 to (len-1) do
Arraytemp := GetDataArrayValue(ArrayIn, i);
SetDataArrayValue(ArrayOut, i, Arraytemp);
end;
anybody care to take a look and tell me what I'm doing wrong? I'm EXTREMELY new to programming so I'm expecting this to be something really basic, and I apologise in advance for my ignorance...
Statistics: Posted by Clearscreen — 10 Jun 2010, 12:52
]]>