ArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by woodslanding — 11 Jan 2017, 05:17 Statistics: Posted by woodslanding — 04 Jan 2017, 05:26
Well, restart cycle refers to the cycle in the sync module. If you send it a value of 1, it continuously resets! I just put a pass if changed module in, and it's fine.
Maybe this helps someone else someday.
]]>
Rebuilt the rack from component patches and.... it's gone. Still would love to know what's going on.
]]>
Statistics: Posted by shawnb — 04 Jan 2017, 03:07
Statistics: Posted by woodslanding — 01 Jan 2017, 23:13
Statistics: Posted by woodslanding — 01 Jan 2017, 01:45
Statistics: Posted by 23fx23 — 31 Dec 2016, 18:47
CODE:
/////////////////////////////////////////////// Load subpatch with VST//////////////////////////////////////////// CONST folder = 'INSTRUMENTSPATCHES';// parameters declarationvar filenameIN,prevNameIN, filenameOUT : Tparameter; var running : boolean;var filename : string; // destroyprocedure Destroy;begin end;// initialisation : create parametersprocedure init;begin filenameIN := CreateParam('file name',ptTextfield); SetIsOutPut(filenameIN,false); //prevNameIN := CreateParam('previous file',ptTextfield); //SetIsOutPut(prevNameIN,false); //filenameOUT := CreateParam('file name',ptTextfield); //SetIsOutPut(prevNameIN,false); running := false; //SetFastCallback(filenameIN,false);end;procedure Callback(n:integer); begin if (n = filenameIN) and(getValue(filenameIN) > 0)// and (getValue(filenameIN) <> getValue(prevNameIN)) then begin strace('MOON____LOADING PATCH: ' + getStringValue(filenameIN)); filename := getApplicationPath() + 'config' + folder + '' + trim(GetStringValue(filenameIN)) + '.pat'; //test if it exists! running := true; end;end; // no process bloc procedure processidle;begin (*CREATE_MODULE george 6 300 300 mysubpatch.pat CREATE_LINK 1 0 george 0CREATE_LINK 2 1 george gain CREATE_LINK george 2 3 0*) if running then begin SendInternalMsg2('SET_TARGET_PATCH','SENDER_PATCH'); SendInternalMsg2('DELETE_MODULE','VST'); SendInternalMsg6('CREATE_MODULE','VST','6','300','50',filename); //SendInternalMsg5('CREATE_LINK','1','0','VST','0'); //midi SendInternalMsg5('CREATE_LINK','audioINproc','2','VST','0'); //audio in 1 SendInternalMsg5('CREATE_LINK','audioINproc','3','VST','1'); //audio in 2 SendInternalMsg5('CREATE_LINK','midiINproc','1','VST','2'); //midi in SendInternalMsg5('CREATE_LINK','VST','3','audioOUTproc','0'); //audio out 1 SendInternalMsg5('CREATE_LINK','VST','4','audioOUTproc','1'); //audio out 2 strace('MOON____MODULE REPLACED'); running := false; end;end;Statistics: Posted by woodslanding — 31 Dec 2016, 16:59
Statistics: Posted by woodslanding — 31 Dec 2016, 02:22
Statistics: Posted by woodslanding — 11 Jan 2017, 05:17
Statistics: Posted by woodslanding — 04 Jan 2017, 05:26
Statistics: Posted by shawnb — 04 Jan 2017, 03:07
Statistics: Posted by woodslanding — 01 Jan 2017, 23:13
Statistics: Posted by woodslanding — 01 Jan 2017, 01:45
Statistics: Posted by 23fx23 — 31 Dec 2016, 18:47
CODE:
/////////////////////////////////////////////// Load subpatch with VST//////////////////////////////////////////// CONST folder = 'INSTRUMENTSPATCHES';// parameters declarationvar filenameIN,prevNameIN, filenameOUT : Tparameter; var running : boolean;var filename : string; // destroyprocedure Destroy;begin end;// initialisation : create parametersprocedure init;begin filenameIN := CreateParam('file name',ptTextfield); SetIsOutPut(filenameIN,false); //prevNameIN := CreateParam('previous file',ptTextfield); //SetIsOutPut(prevNameIN,false); //filenameOUT := CreateParam('file name',ptTextfield); //SetIsOutPut(prevNameIN,false); running := false; //SetFastCallback(filenameIN,false);end;procedure Callback(n:integer); begin if (n = filenameIN) and(getValue(filenameIN) > 0)// and (getValue(filenameIN) <> getValue(prevNameIN)) then begin strace('MOON____LOADING PATCH: ' + getStringValue(filenameIN)); filename := getApplicationPath() + 'config' + folder + '' + trim(GetStringValue(filenameIN)) + '.pat'; //test if it exists! running := true; end;end; // no process bloc procedure processidle;begin (*CREATE_MODULE george 6 300 300 mysubpatch.pat CREATE_LINK 1 0 george 0CREATE_LINK 2 1 george gain CREATE_LINK george 2 3 0*) if running then begin SendInternalMsg2('SET_TARGET_PATCH','SENDER_PATCH'); SendInternalMsg2('DELETE_MODULE','VST'); SendInternalMsg6('CREATE_MODULE','VST','6','300','50',filename); //SendInternalMsg5('CREATE_LINK','1','0','VST','0'); //midi SendInternalMsg5('CREATE_LINK','audioINproc','2','VST','0'); //audio in 1 SendInternalMsg5('CREATE_LINK','audioINproc','3','VST','1'); //audio in 2 SendInternalMsg5('CREATE_LINK','midiINproc','1','VST','2'); //midi in SendInternalMsg5('CREATE_LINK','VST','3','audioOUTproc','0'); //audio out 1 SendInternalMsg5('CREATE_LINK','VST','4','audioOUTproc','1'); //audio out 2 strace('MOON____MODULE REPLACED'); running := false; end;end;Statistics: Posted by woodslanding — 31 Dec 2016, 16:59
Statistics: Posted by woodslanding — 31 Dec 2016, 02:22