Statistics: Posted by joffo78 — 15 Sep 2012, 05:25
Statistics: Posted by joffo78 — 14 Sep 2012, 23:13
Statistics: Posted by joffo78 — 14 Sep 2012, 23:12
Statistics: Posted by r.erorr — 14 Sep 2012, 21:59
Statistics: Posted by joffo78 — 14 Sep 2012, 15:17
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
Statistics: Posted by joffo78 — 14 Sep 2012, 09:34
Statistics: Posted by joffo78 — 15 Sep 2012, 05:25
Statistics: Posted by joffo78 — 14 Sep 2012, 23:13
Statistics: Posted by joffo78 — 14 Sep 2012, 23:12
Statistics: Posted by r.erorr — 14 Sep 2012, 21:59
Statistics: Posted by joffo78 — 14 Sep 2012, 15:17
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
Statistics: Posted by joffo78 — 14 Sep 2012, 09:34