cool for multitouch later appz maybe.. . yeah we ll speak about in another thread. I got lot of scripts sorting incoming Osc datas to an array.Code: Select all
/////////////////////////////////////////////////////////////
// Unpack array 23fx_14/10/2K10
//////////////////////////////////////////////////////////////
// Unpack simultaneous array changes bloc after bloc.
// useful to convert polyphonic messages to slightly delayed
// monophonic flows for ie midi mess or osc,dispatchers/setarrayelmt..
////////////////////////////////////////////////////////////////////////////
var ArrayIn, index, value, send: Tparameter;
var i,j,l,k,m: integer;
var ArrayLast: array of single;
var memIDs : array of integer;
//////////////////////////////////
PROCEDURE INIT;
BEGIN
ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);
setmin (arrayin,-MAXINT); setMAX(arrayin,MAXINT);
//
send :=CreateParam('send', PtLed) ;SetIsINput(send,False);
index :=CreateParam('index',Ptdatafield);SetIsINput(index,False);
value :=CreateParam('value',Ptdatafield);SetIsINput(value,False);
k:=-2; //reset unpack counter
j:=0;
setArrayLength(arrayLast,1);
setArrayLength(memIds,1);
end;
//////////////////////////////////////
PROCEDURE CALLBACK(N:integer);
begin
if (n = 0) then begin
L:= getlength(ArrayIn);
setArraylength(arrayLast,L);
j:=0;
k:=-1;
for i:=0 to L-1 do begin
if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin
setvalue(send,1);
j:= j+1;
setArrayLength(memIDs,j);
memIDs[j-1]:= i;
end;
end;
end;
END;//Callback
//////////////////////////////
PROCEDURE PROCESS;
BEGIN
if k >=-1 then begin
k := k+1;
setValue(index,memIDs[k]);
setvalue(value,getDataArrayValue(Arrayin,memIDs[k]));
setvalue(send,1);
end
else begin
setvalue(send,0);
end;
if k = 1 then begin
for i:= 0 to L-1 do begin
arrayLast[i]:= getDataArrayValue(ArrayIn,i);
end;
end;
if k > (j-2) then begin
k:=-2;
end;
END;//Process
////////////////////////////
Code: Select all
////////////////////////////////////////////////////////////////////////////
var ArrayIn, index, value, send, NB_BLOCS: Tparameter;
var i,j,l,k,m,BLOCS: integer;
var ArrayLast, memVals: array of single;
var memIDs : array of integer;
//////////////////////////////////
PROCEDURE INIT;
BEGIN
ArrayIn :=CreateParam('ArrayIn',PtArray); SetIsOutput(ArrayIn,False);
setmin (arrayin,-MAXINT); setMAX(arrayin,MAXINT);
NB_BLOCS:=CreateParam('NB_BLOCS',Ptdatafield);SetIsOUTput(NB_BLOCS,False);
SetValue(NB_BLOCS,1);
//
send :=CreateParam('send', PtLed) ;SetIsINput(send,False);
index :=CreateParam('index',Ptdatafield);SetIsINput(index,False);
value :=CreateParam('value',Ptdatafield);SetIsINput(value,False);
k:=-2; //reset unpack counter
j:=0;
BLOCS:=1;
setArrayLength(arrayLast,1);
setArrayLength(memIds,1);
setArrayLength(memVals,1);
end;
//////////////////////////////////////
PROCEDURE CALLBACK(N:integer);
begin
if (n=NB_BLOCS) then Begin
BLOCS:= MaxI(1,round(getvalue(NB_BLOCS)));
end;
if (n = ArrayIn) AND (k=-2)then begin
L:= getlength(ArrayIn);
setArraylength(arrayLast,L);
j:=0;
k:=-1;
for i:=0 to L-1 do begin
if getdataArrayValue(ArrayIn,i) - arrayLast[i] <> 0 then begin
setvalue(send,1);
j:= j+1;
setArrayLength(memVals,j);
setArrayLength(memIDs,j);
memIDs[j-1]:= i;
memVals[j-1]:= getDataArrayValue(ArrayIn,i);
end;
end;
end;
END;//Callback
//////////////////////////////
PROCEDURE PROCESS;
BEGIN
if k >=-1 then begin
k := k+1;
m := k div BLOCS;
setValue(index,memIDs[m]);
//setvalue(value,getDataArrayValue(Arrayin,memIDs[m]));
setvalue(value,memVals[m]);
setvalue(send,1);
end
else begin
setvalue(send,0);
end;
if m = 1 then begin
for i:= 0 to L-1 do begin
arrayLast[i]:= getDataArrayValue(ArrayIn,i);
end;
end;
if m > (j-2) then begin
k:=-2;
end;
END;//Process
////////////////////////////
/
nb: i noticed the delay works only on polyphonic, if only one data changed each bloc, it will still be sent each bloc..Users browsing this forum: No registered users and 7 guests