ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by hegeldas — 23 Dec 2013, 18:26 Statistics: Posted by percuson — 05 Mar 2013, 15:07
Good job ![]()
]]>
I made a version for loading a patch:
download LoadPatch
The main problem when loading a patch this way is, that the inlets and outlets must have the correct names.
Try out with the "Dummy-Patch" inside the ZIP-file.
]]>
Statistics: Posted by percuson — 28 Feb 2013, 21:58
Statistics: Posted by 23fx23 — 28 Feb 2013, 21:16
Statistics: Posted by percuson — 28 Feb 2013, 19:25
Statistics: Posted by joffo78 — 28 Feb 2013, 18:54
Statistics: Posted by percuson — 28 Feb 2013, 18:36
Statistics: Posted by joffo78 — 28 Feb 2013, 15:18
//////////////////////////////////////////////////////
// Script example
//////////////////////////////////////////////////////
//////////////////////////////////////////////////////
// Paramters declaration
//////////////////////////////////////////////////////
var VSTPath : Tparameter;
Var VSTtoLoad : String;
var create : Tparameter;
var delete : Tparameter;
var showVST : Tparameter;
var VSTcreated : Tparameter;
//////////////////////////////////////////////////////
// initialisation procedure
//////////////////////////////////////////////////////
procedure init;
begin
VSTPath := CreateParam('VSTPath',ptTextField); SetIsOutput(VSTPath,false);
create := CreateParam('create',ptButton); SetIsOutput(create,false); SetFastCallBack(create, false);
delete := CreateParam('delete',ptButton); SetIsOutput(delete,false); SetFastCallBack(delete, false);
showVST := CreateParam('showVST',ptButton); SetIsInput(showVST,false); SetFastCallBack(showVST, false);
end;
procedure callback (n:integer);
begin
if n = create then begin
if getValue(create) = 0 then begin
VSTtoLoad := GetStringValue(VSTPath); //GetVariableString('VST_TO_LOAD');
strace(VSTtoLoad);
SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');
SendInternalMsg('DELETE_MODULE','VSTLoad');
SendInternalMsg('CREATE_MODULE','VSTLoad','184','300','200',VSTtoLoad);
SendInternalMsg('CREATE_LINK','bypass','bypass','VSTLoad','bypass');
SendInternalMsg('CREATE_LINK','show vst','show vst','VSTLoad','show vst');
SendInternalMsg('CREATE_LINK','midi in','in','VSTLoad','midi in');
SendInternalMsg('CREATE_LINK','VSTLoad','midi out','midi out','midi 1');
SendInternalMsg('CREATE_LINK','In L','1-L','VSTLoad','in 1');
SendInternalMsg('CREATE_LINK','In R','1-R','VSTLoad','in 2');
SendInternalMsg('CREATE_LINK','VSTLoad','out 1','Out l','1-L');
SendInternalMsg('CREATE_LINK','VSTLoad','out 2','Out R','1-R');
VSTcreated := 1;
end;
end;
if n = delete then begin
SendInternalMsg('DELETE_MODULE','VSTLOad');
end
end;
procedure process;
begin
if VSTcreated = 1 then
begin
setValue(showVst,1);
VSTcreated := 0;
end
else
begin
setValue(showVst,0);
end;
end;
Statistics: Posted by joffo78 — 28 Feb 2013, 14:38
Statistics: Posted by joffo78 — 28 Feb 2013, 14:17
Statistics: Posted by joffo78 — 28 Feb 2013, 14:07
Statistics: Posted by percuson — 28 Feb 2013, 13:42
Statistics: Posted by joffo78 — 23 Feb 2013, 11:23
Statistics: Posted by 23fx23 — 22 Feb 2013, 17:26
Statistics: Posted by joffo78 — 22 Feb 2013, 16:50
Statistics: Posted by joffo78 — 22 Feb 2013, 10:43
Statistics: Posted by hegeldas — 23 Dec 2013, 18:26
Statistics: Posted by percuson — 05 Mar 2013, 15:07
Statistics: Posted by percuson — 28 Feb 2013, 21:58
Statistics: Posted by 23fx23 — 28 Feb 2013, 21:16
Statistics: Posted by percuson — 28 Feb 2013, 19:25
Statistics: Posted by joffo78 — 28 Feb 2013, 18:54
Statistics: Posted by percuson — 28 Feb 2013, 18:36
Statistics: Posted by joffo78 — 28 Feb 2013, 15:18
//////////////////////////////////////////////////////
// Script example
//////////////////////////////////////////////////////
//////////////////////////////////////////////////////
// Paramters declaration
//////////////////////////////////////////////////////
var VSTPath : Tparameter;
Var VSTtoLoad : String;
var create : Tparameter;
var delete : Tparameter;
var showVST : Tparameter;
var VSTcreated : Tparameter;
//////////////////////////////////////////////////////
// initialisation procedure
//////////////////////////////////////////////////////
procedure init;
begin
VSTPath := CreateParam('VSTPath',ptTextField); SetIsOutput(VSTPath,false);
create := CreateParam('create',ptButton); SetIsOutput(create,false); SetFastCallBack(create, false);
delete := CreateParam('delete',ptButton); SetIsOutput(delete,false); SetFastCallBack(delete, false);
showVST := CreateParam('showVST',ptButton); SetIsInput(showVST,false); SetFastCallBack(showVST, false);
end;
procedure callback (n:integer);
begin
if n = create then begin
if getValue(create) = 0 then begin
VSTtoLoad := GetStringValue(VSTPath); //GetVariableString('VST_TO_LOAD');
strace(VSTtoLoad);
SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');
SendInternalMsg('DELETE_MODULE','VSTLoad');
SendInternalMsg('CREATE_MODULE','VSTLoad','184','300','200',VSTtoLoad);
SendInternalMsg('CREATE_LINK','bypass','bypass','VSTLoad','bypass');
SendInternalMsg('CREATE_LINK','show vst','show vst','VSTLoad','show vst');
SendInternalMsg('CREATE_LINK','midi in','in','VSTLoad','midi in');
SendInternalMsg('CREATE_LINK','VSTLoad','midi out','midi out','midi 1');
SendInternalMsg('CREATE_LINK','In L','1-L','VSTLoad','in 1');
SendInternalMsg('CREATE_LINK','In R','1-R','VSTLoad','in 2');
SendInternalMsg('CREATE_LINK','VSTLoad','out 1','Out l','1-L');
SendInternalMsg('CREATE_LINK','VSTLoad','out 2','Out R','1-R');
VSTcreated := 1;
end;
end;
if n = delete then begin
SendInternalMsg('DELETE_MODULE','VSTLOad');
end
end;
procedure process;
begin
if VSTcreated = 1 then
begin
setValue(showVst,1);
VSTcreated := 0;
end
else
begin
setValue(showVst,0);
end;
end;
Statistics: Posted by joffo78 — 28 Feb 2013, 14:38
Statistics: Posted by joffo78 — 28 Feb 2013, 14:17
Statistics: Posted by joffo78 — 28 Feb 2013, 14:07
Statistics: Posted by percuson — 28 Feb 2013, 13:42
Statistics: Posted by joffo78 — 23 Feb 2013, 11:23
Statistics: Posted by 23fx23 — 22 Feb 2013, 17:26
Statistics: Posted by joffo78 — 22 Feb 2013, 16:50
Statistics: Posted by joffo78 — 22 Feb 2013, 10:43