Posted: 14 Sep 2012, 09:34
Hi
i try to make a script based on the advanced iml patch.
My goal is to control every kind of parameters on every line and track. i'd like to choose target line and tracks.
this is the script:
Actually it dosen't work.
Does somebody could help me ?
Thanks.
Joffo
i try to make a script based on the advanced iml patch.
My goal is to control every kind of parameters on every line and track. i'd like to choose target line and tracks.
this is the script:
input4 & input5 are variables to choose target./////////////////////////////////////////////
// Send value to vst param
////////////////////////////////////////////
// parameters declaration
var input1 : Tparameter;
var input2 : Tparameter;
var input3 : Tparameter;
var input4 : Tparameter;
var input5 : Tparameter;
var s : String;
// destroy
procedure Destroy;
begin
end;
// initialisation : create parameters
procedure init;
begin
Input1 := CreateParam('plug name',ptTextField);
Input2 := CreateParam('param name',ptTextField);
Input3 := CreateParam('param value',ptDataField);
Input4 := CreateParam('track',ptDataField);
Input5 := CreateParam('line',ptDataField);
SetIsOutPut(Input1,false);
SetIsOutPut(Input2,false);
SetIsOutPut(Input3,false);
SetIsOutPut(Input4,false);
SetIsOutPut(Input5,false);
end;
procedure Callback(n:integer);
var i : integer;
begin
SendInternalMsg('SET_TARGET_PATCH (Input4)(input5)');
if n =1 //retreive the old value
then begin
SendInternalMsg ('GET_VALUE',GetStringValue(Input1),GetStringValue(Input2),'THEPARAMVALUE');
SendInternalMsg ('SET_VALUE','PARAM','1','THEPARAMVALUE');
end
else begin
SendInternalMsg('SET_VALUE',GetStringValue(Input1),GetStringValue(Input2),FloatTostr(GetValue(Input3)));
end;
end;
// no process bloc
Actually it dosen't work.
Does somebody could help me ?
Thanks.
Joffo