BrainModular

Storing and recalling preset according to list text

2011-03-12T03:56:37+02:00

I still have the problem. Can anyone take a look ?

Statistics: Posted by gthibert — 12 Mar 2011, 02:56

Storing and recalling preset according to list text

2011-03-06T21:54:25+02:00

I tryed to set the ptTexfield as output, but it still does'nt work.

Maybe it's a bug...

Statistics: Posted by gthibert — 06 Mar 2011, 20:54

Storing and recalling preset according to list text

2011-03-06T04:16:05+02:00

It's just to check if all 64 presets are taken. If it's the case, cleanUp() procedure will try to free some presets, according to the comma text of the list box (if some items associated with presets were deleted).

Statistics: Posted by gthibert — 06 Mar 2011, 03:16

Storing and recalling preset according to list text

2011-03-06T03:11:30+02:00

it looks quite cool. btween i didn't fully tested with comma and pm, but the code look nice. and cool idea.

i just don't understand why there is 2 times the check, couldn't it be only once?

if presetIndex = -1 then begin
presetIndex := presetsList.indexOf('free');
if presetIndex = -1 then begin

edit: oh, i had just copied the script, didn't saw the patch link. will check with the comma text

Statistics: Posted by 23fx23 — 06 Mar 2011, 02:11

Storing and recalling preset according to list text

2011-03-06T03:01:53+02:00

I think I've already tryed, but I'll check.

But do you think the script in efficient ? Is there a better solution ?

Statistics: Posted by gthibert — 06 Mar 2011, 02:01

Storing and recalling preset according to list text

2011-03-06T02:46:57+02:00

gonna have a look

don't find something wrong. maybe try to display the pttexfield as output used to store and look if the commatext is full and correct..

Statistics: Posted by 23fx23 — 06 Mar 2011, 01:46

Storing and recalling preset according to list text

2011-03-06T02:36:29+02:00

Or maybe someone have a better solution than mine to achieve what I want do...?

Statistics: Posted by gthibert — 06 Mar 2011, 01:36

Storing and recalling preset according to list text

2011-03-05T10:47:19+02:00

Hi all,

I've got a problem with a patch and I need help. I can't figure out where's the problem.

I built a patch that allows me to store and recall presets according to a selected item in a list. This is not simply based on the list index, but on the text itself. The idea is to be able to change the order of items in the list and keep the preset associated. My goal is to store in a preset all the parameters linked to a sample in the sampler file list.

My patch is based on a script. I tryed several things, but the easiest and most effective way I've found is by using comma separated text and TStringList. If someone have a better idea...

In facts, my patch works A1... as long as I don't save and reload the workspace. Then, the script only recalls the first 8-10 elements saved in the comma text list. And I can't figure out why...maybe it's simply a Usine bug. Maybe the comma text I try to save is too long for a ptTextfield.

So, I've prepared an exemple patch :

preset_manager.pat

And here is the script :

CODE:

//////////////////////////// /////////////////////////// parameters declarationvar inPresetName: Tparameter;var inStore: Tparameter;var inRecall: Tparameter;var inCleanup: Tparameter;var inClear: Tparameter;var inCommaList: Tparameter;var presetsComma : Tparameter;var filesList: TStringList;var presetsList : TStringList;// initialisation : create parametersprocedure init;begin  inPresetName := CreateParam('preset name',ptTextfield); SetIsOutPut(inPresetName,false);inCommaList := CreateParam('comma text',ptTextfield); SetIsOutPut(inCommaList,false);presetsComma := CreateParam('preset comma',ptTextfield); SetIsOutPut(presetsComma,false);SetIsInput(presetsComma,false);SetDontSave(presetsComma, false);inStore := CreateParam('store',ptButton); SetIsOutPut(inStore,false);inRecall := CreateParam('recall',ptButton); SetIsOutPut(inRecall,false);inCleanup := CreateParam('cleanup',ptButton); SetIsOutPut(inCleanup,false);inClear := CreateParam('clear',ptButton); SetIsOutPut(inClear,false);filesList := tStringList.create;presetsList := tStringList.create;presetsList.capacity := 64;end;Procedure savePresets();beginsetStringValue(presetsComma, presetsList.commatext);end;Procedure clearPresets();var x:Integer;beginstrace('Clearing presetsList');presetsList.clear;for x := 0 to 63 do beginpresetsList.add('free');end;savePresets();end;Procedure loadPresets;var x:Integer;beginstrace('Loading presetsList.');presetsList.commatext := getStringValue(presetsComma);if presetsList.count = 0 then clearPresets();end;Procedure cleanupPresets();var x:Integer;beginstrace('Clean up');filesList.commatext := getStringValue(inCommaList);for x := 0 to presetsList.count do beginif filesList.indexOf(presetsList[x]) = -1 then beginpresetsList[x] := 'free';end;end;end;Procedure recallPreset(presetIndex:Integer);var pmName:String;var pmNum:String;beginpmName:= 'Preset' + intToStr(presetIndex div 16 + 1);pmNum := intToStr(presetIndex mod 16);SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');SendInternalMsg('SET_VALUE', pmName, 'num', pmNum);end;Procedure storePreset(presetIndex:Integer);var pmName:String;var pmNum:String;beginpmName:= 'Preset' + intToStr(presetIndex div 16 + 1);pmNum := intToStr(presetIndex mod 16);SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');SendInternalMsg('SET_VALUE', pmName, 'store', '1');SendInternalMsg('SET_VALUE', pmName, 'num', pmNum);end;Procedure Callback(N:integer); var x:integer;var pmName:String;var pmNum:String;var presetIndex:integer;begin// Storeif (n=inStore) and (getValue(inStore)=1) then beginif presetsList.count = 0 then loadPresets();presetIndex := presetsList.indexOf(getStringValue(inPresetName));if presetIndex = -1 then begin presetIndex := presetsList.indexOf('free');if presetIndex = -1 then begincleanupPresets();presetIndex := presetsList.indexOf('free');end;presetsList[presetIndex] := getStringValue(inPresetName);end;storePreset(presetIndex);savePresets();end;// Recallif (n=inRecall) and (getValue(inRecall) = 1) then beginif presetsList.count = 0 then loadPresets();presetIndex := presetsList.indexOf(getStringValue(inPresetName));if presetIndex <> -1 then begin strace('Recalling');recallPreset(presetIndex);end;end;// Clearif (n=inClear) and (getValue(inClear)=1) then beginstrace('Clear');clearPresets();end;// Cleanupif ((n=inCleanUp) and (getValue(inCleanUp)=1)) then begincleanupPresets();end;end;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginend;

Statistics: Posted by gthibert — 05 Mar 2011, 09:47

Storing and recalling preset according to list text

2011-03-12T03:56:37+02:00

I still have the problem. Can anyone take a look ?

Statistics: Posted by gthibert — 12 Mar 2011, 02:56

Storing and recalling preset according to list text

2011-03-06T21:54:25+02:00

I tryed to set the ptTexfield as output, but it still does'nt work.

Maybe it's a bug...

Statistics: Posted by gthibert — 06 Mar 2011, 20:54

Storing and recalling preset according to list text

2011-03-06T04:16:05+02:00

Statistics: Posted by gthibert — 06 Mar 2011, 03:16

Storing and recalling preset according to list text

2011-03-06T03:11:30+02:00

Statistics: Posted by 23fx23 — 06 Mar 2011, 02:11

Storing and recalling preset according to list text

2011-03-06T03:01:53+02:00

I think I've already tryed, but I'll check.

But do you think the script in efficient ? Is there a better solution ?

Statistics: Posted by gthibert — 06 Mar 2011, 02:01

Storing and recalling preset according to list text

2011-03-06T02:46:57+02:00

gonna have a look

don't find something wrong. maybe try to display the pttexfield as output used to store and look if the commatext is full and correct..

Statistics: Posted by 23fx23 — 06 Mar 2011, 01:46

Storing and recalling preset according to list text

2011-03-06T02:36:29+02:00

Or maybe someone have a better solution than mine to achieve what I want do...?

Statistics: Posted by gthibert — 06 Mar 2011, 01:36

Storing and recalling preset according to list text

2011-03-05T10:47:19+02:00

CODE:

//////////////////////////// /////////////////////////// parameters declarationvar inPresetName: Tparameter;var inStore: Tparameter;var inRecall: Tparameter;var inCleanup: Tparameter;var inClear: Tparameter;var inCommaList: Tparameter;var presetsComma : Tparameter;var filesList: TStringList;var presetsList : TStringList;// initialisation : create parametersprocedure init;begin  inPresetName := CreateParam('preset name',ptTextfield); SetIsOutPut(inPresetName,false);inCommaList := CreateParam('comma text',ptTextfield); SetIsOutPut(inCommaList,false);presetsComma := CreateParam('preset comma',ptTextfield); SetIsOutPut(presetsComma,false);SetIsInput(presetsComma,false);SetDontSave(presetsComma, false);inStore := CreateParam('store',ptButton); SetIsOutPut(inStore,false);inRecall := CreateParam('recall',ptButton); SetIsOutPut(inRecall,false);inCleanup := CreateParam('cleanup',ptButton); SetIsOutPut(inCleanup,false);inClear := CreateParam('clear',ptButton); SetIsOutPut(inClear,false);filesList := tStringList.create;presetsList := tStringList.create;presetsList.capacity := 64;end;Procedure savePresets();beginsetStringValue(presetsComma, presetsList.commatext);end;Procedure clearPresets();var x:Integer;beginstrace('Clearing presetsList');presetsList.clear;for x := 0 to 63 do beginpresetsList.add('free');end;savePresets();end;Procedure loadPresets;var x:Integer;beginstrace('Loading presetsList.');presetsList.commatext := getStringValue(presetsComma);if presetsList.count = 0 then clearPresets();end;Procedure cleanupPresets();var x:Integer;beginstrace('Clean up');filesList.commatext := getStringValue(inCommaList);for x := 0 to presetsList.count do beginif filesList.indexOf(presetsList[x]) = -1 then beginpresetsList[x] := 'free';end;end;end;Procedure recallPreset(presetIndex:Integer);var pmName:String;var pmNum:String;beginpmName:= 'Preset' + intToStr(presetIndex div 16 + 1);pmNum := intToStr(presetIndex mod 16);SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');SendInternalMsg('SET_VALUE', pmName, 'num', pmNum);end;Procedure storePreset(presetIndex:Integer);var pmName:String;var pmNum:String;beginpmName:= 'Preset' + intToStr(presetIndex div 16 + 1);pmNum := intToStr(presetIndex mod 16);SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');SendInternalMsg('SET_VALUE', pmName, 'store', '1');SendInternalMsg('SET_VALUE', pmName, 'num', pmNum);end;Procedure Callback(N:integer); var x:integer;var pmName:String;var pmNum:String;var presetIndex:integer;begin// Storeif (n=inStore) and (getValue(inStore)=1) then beginif presetsList.count = 0 then loadPresets();presetIndex := presetsList.indexOf(getStringValue(inPresetName));if presetIndex = -1 then begin presetIndex := presetsList.indexOf('free');if presetIndex = -1 then begincleanupPresets();presetIndex := presetsList.indexOf('free');end;presetsList[presetIndex] := getStringValue(inPresetName);end;storePreset(presetIndex);savePresets();end;// Recallif (n=inRecall) and (getValue(inRecall) = 1) then beginif presetsList.count = 0 then loadPresets();presetIndex := presetsList.indexOf(getStringValue(inPresetName));if presetIndex <> -1 then begin strace('Recalling');recallPreset(presetIndex);end;end;// Clearif (n=inClear) and (getValue(inClear)=1) then beginstrace('Clear');clearPresets();end;// Cleanupif ((n=inCleanUp) and (getValue(inCleanUp)=1)) then begincleanupPresets();end;end;//////////////////////////////// main proc//////////////////////////////Procedure Process;beginend;

Statistics: Posted by gthibert — 05 Mar 2011, 09:47