ArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by ceasless — 27 Aug 2013, 22:11
Statistics: Posted by ceasless — 25 Aug 2013, 22:09
Statistics: Posted by woodslanding — 25 Aug 2013, 06:50
CODE:
//////////////////////////// Pass On Change (Array)/////////////////////////// parameters declarationvar changer : tParameter;var constant : tParameter;var outx : tParameter;// initialisation : create parametersprocedure init;begin changer := createParam('changer',ptArray); setIsOutput(changer,false); constant := createParam('constant',ptArray); setIsOutput(constant,false); outx := createParam('out',ptArray); setIsInput(outx,false);end;var i,len : integer; var v : single;// Callback procedureProcedure Callback(N:integer); begin case N of changer: begin len := getLength(changer); for i:=0 to len-1 do begin v := getDataArrayValue(changer,i); setDataArrayValue(outx,i,v); end; setLength(outx,len); end; constant: begin len := getLength(constant); if len > 0 then begin for i:=0 to len-1 do begin v := getDataArrayValue(constant,i); setDataArrayValue(outx,i,v); end; setLength(outx,len); end; end; end;end;// Global variables//////////////////////////////// main proc//////////////////////////////Procedure Process;begin end;Statistics: Posted by ceasless — 24 Aug 2013, 14:32
Statistics: Posted by nay-seven — 23 Aug 2013, 20:36
Statistics: Posted by ceasless — 23 Aug 2013, 12:14
Statistics: Posted by ceasless — 27 Aug 2013, 22:11
Statistics: Posted by ceasless — 25 Aug 2013, 22:09
Statistics: Posted by woodslanding — 25 Aug 2013, 06:50
CODE:
//////////////////////////// Pass On Change (Array)/////////////////////////// parameters declarationvar changer : tParameter;var constant : tParameter;var outx : tParameter;// initialisation : create parametersprocedure init;begin changer := createParam('changer',ptArray); setIsOutput(changer,false); constant := createParam('constant',ptArray); setIsOutput(constant,false); outx := createParam('out',ptArray); setIsInput(outx,false);end;var i,len : integer; var v : single;// Callback procedureProcedure Callback(N:integer); begin case N of changer: begin len := getLength(changer); for i:=0 to len-1 do begin v := getDataArrayValue(changer,i); setDataArrayValue(outx,i,v); end; setLength(outx,len); end; constant: begin len := getLength(constant); if len > 0 then begin for i:=0 to len-1 do begin v := getDataArrayValue(constant,i); setDataArrayValue(outx,i,v); end; setLength(outx,len); end; end; end;end;// Global variables//////////////////////////////// main proc//////////////////////////////Procedure Process;begin end;Statistics: Posted by ceasless — 24 Aug 2013, 14:32
Statistics: Posted by nay-seven — 23 Aug 2013, 20:36
Statistics: Posted by ceasless — 23 Aug 2013, 12:14