ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by woodslanding — 18 Oct 2010, 01:28
I guess I will start with an even simpler setup than Olivier's simple echo, as this patch has had this problem for me from the beginning.
I guess it's not a known bug with the sampler. Or with this patch. Could it be something in my settings?? I run the interface slow, but that shouldn't affect midi response ( it would affect the button response though, right?)
]]>
Statistics: Posted by woodslanding — 17 Oct 2010, 09:37

Statistics: Posted by nay-seven — 16 Oct 2010, 22:19
Statistics: Posted by woodslanding — 16 Oct 2010, 21:07
Reading your script, I find it strange that it shouldn't work. Anyway, you're making it more complicated than neccesary: You don't need the HasChanged->toggle setup - just connect the output od the script directly to record on the sampler. If you want a visible record switch as well, use script->PassIfChanged->switch->sampler.With regard to the switch: I have a script to convert a note to a switch (below), which goes into a 'has changed' module, leading into the toggle input on the record button. My expectation was that this would cause the switch to be on only while the pedal was held down, but it doesn't work that way--so you may well be right. I'll check into it.
Statistics: Posted by bsork — 06 Oct 2010, 08:28
CODE:
////////////////// parameters declarationconst NOTENUM = 2;var input : Tparameter;var switch : Tparameter;// initialisation : create parametersprocedure init;begin input := CreateParam('In',ptMidi); SetIsOutPut(input,false); switch := CreateParam('Switch',ptSwitch); SetIsInput(switch, false);end;// Global variablesvar i : integer;var nbOfMidiIN : integer;var ReceivedMidi : TMidi;//////////////////////////////// main proc//////////////////////////////procedure process;begin nbOfMidiIN := GetLength(input); // get the number of incoming midi codes if nbOfMidiIN > 0 then begin for i := 0 to nbOfMidiIN-1 // loop for all input codes, for polyphonic data (chords) do begin GetMidiArrayValue(input,i,ReceivedMidi); // get each code if ((ReceivedMidi.msg = 144) and (ReceivedMidi.data1 = NOTENUM)) then begin if ReceivedMidi.data2 > 64 then setValue(switch, 1) else setValue(switch, 0); end else if ((ReceivedMidi.msg = 128) and (ReceivedMidi.data1 = NOTENUM)) then setValue(switch, 0); end; end; end;Statistics: Posted by woodslanding — 06 Oct 2010, 05:56
Statistics: Posted by bsork — 05 Oct 2010, 08:11
Statistics: Posted by woodslanding — 05 Oct 2010, 03:55
Statistics: Posted by nay-seven — 02 Oct 2010, 20:40
Statistics: Posted by woodslanding — 02 Oct 2010, 19:12
Statistics: Posted by bsork — 30 Sep 2010, 11:54
Statistics: Posted by woodslanding — 30 Sep 2010, 10:31
Statistics: Posted by nay-seven — 30 Sep 2010, 09:02
Statistics: Posted by nay-seven — 29 Sep 2010, 09:06
Statistics: Posted by bsork — 29 Sep 2010, 08:57

Statistics: Posted by woodslanding — 29 Sep 2010, 07:02
Statistics: Posted by woodslanding — 18 Oct 2010, 01:28
Statistics: Posted by woodslanding — 17 Oct 2010, 09:37

Statistics: Posted by nay-seven — 16 Oct 2010, 22:19
Statistics: Posted by woodslanding — 16 Oct 2010, 21:07
Reading your script, I find it strange that it shouldn't work. Anyway, you're making it more complicated than neccesary: You don't need the HasChanged->toggle setup - just connect the output od the script directly to record on the sampler. If you want a visible record switch as well, use script->PassIfChanged->switch->sampler.With regard to the switch: I have a script to convert a note to a switch (below), which goes into a 'has changed' module, leading into the toggle input on the record button. My expectation was that this would cause the switch to be on only while the pedal was held down, but it doesn't work that way--so you may well be right. I'll check into it.
Statistics: Posted by bsork — 06 Oct 2010, 08:28
CODE:
////////////////// parameters declarationconst NOTENUM = 2;var input : Tparameter;var switch : Tparameter;// initialisation : create parametersprocedure init;begin input := CreateParam('In',ptMidi); SetIsOutPut(input,false); switch := CreateParam('Switch',ptSwitch); SetIsInput(switch, false);end;// Global variablesvar i : integer;var nbOfMidiIN : integer;var ReceivedMidi : TMidi;//////////////////////////////// main proc//////////////////////////////procedure process;begin nbOfMidiIN := GetLength(input); // get the number of incoming midi codes if nbOfMidiIN > 0 then begin for i := 0 to nbOfMidiIN-1 // loop for all input codes, for polyphonic data (chords) do begin GetMidiArrayValue(input,i,ReceivedMidi); // get each code if ((ReceivedMidi.msg = 144) and (ReceivedMidi.data1 = NOTENUM)) then begin if ReceivedMidi.data2 > 64 then setValue(switch, 1) else setValue(switch, 0); end else if ((ReceivedMidi.msg = 128) and (ReceivedMidi.data1 = NOTENUM)) then setValue(switch, 0); end; end; end;Statistics: Posted by woodslanding — 06 Oct 2010, 05:56
Statistics: Posted by bsork — 05 Oct 2010, 08:11
Statistics: Posted by woodslanding — 05 Oct 2010, 03:55
Statistics: Posted by nay-seven — 02 Oct 2010, 20:40
Statistics: Posted by woodslanding — 02 Oct 2010, 19:12
Statistics: Posted by bsork — 30 Sep 2010, 11:54
Statistics: Posted by woodslanding — 30 Sep 2010, 10:31
Statistics: Posted by nay-seven — 30 Sep 2010, 09:02
Statistics: Posted by nay-seven — 29 Sep 2010, 09:06
Statistics: Posted by bsork — 29 Sep 2010, 08:57

Statistics: Posted by woodslanding — 29 Sep 2010, 07:02