//////////////////////////
//
/////////////////////////
const ar_size = 512;
// parameters declaration
var aux_send_levels : Tparameter;
var tr_fader_levels : Tparameter;
var last_ar, cur_ar : array [0..ar_size] of single;
// initialisation : create parameters
procedure init;
var i : integer;
begin
SetModuleColor($606060+302060);
aux_send_levels := CreateParam('aux_rec_lvls',ptArray);
SetIsOutPut(aux_send_levels,false);
tr_fader_levels := CreateParam('tr_fdr_lvls',ptArray);
SetIsInPut(tr_fader_levels,false);
for i:= 0 to ar_size do
begin
last_ar := -1.0;
end;
end;
// Callback procedure
Procedure Callback(N:integer);
var i : integer;
var cv,lv : single;
begin
for i := 0 to ar_size - 1 do
begin
cv := GetDataArrayValue(aux_send_levels, i);
lv := last_ar;
// if (cv <> lv) then do <--- error occurs here
// begin
// end;
end;
last_ar := cur_ar;
end;Statistics: Posted by ahonoe — 14 Nov 2015, 02:18
]]>