Indeed, it seems that it is very hard to translate patching concepts in words. Thank you for responding and trying to help! It can really mean a lot, especially as threads can go unanswered here for long stretches. That is to be expected, especially with the development pace of Holylhock, but it can still be a little demotivating.
As regards step position, yes definitely it carries the index with it (using the trunc module gets you exactly the index). This is perfectly fine for inputting new step/switch values in real-time.
However, I'm designing a drum sequencer that can also be used just with a mouse. So what I need is to get the index value of a switch that has changed. This can be 'in the future' relative to step position: step position is on the second switch, while I've just clicked to activate the 15th switch.
The script above takes care of that, I'm just starting to worry that I have so many scripts in my patch
Statistics: Posted by ceasless — 23 Sep 2013, 14:25
]]>
-S
Statistics: Posted by sephult — 23 Sep 2013, 13:44
]]>
CODE:
//////////////////////////// Index of Changed Array Value/////////////////////////// parameters declarationvar mem, arrIn, value, index : tParameter;var s,l : integer;var m,x : single;var hasRun : integer;// initialisation : create parametersprocedure init;begin mem := createParam('memory',ptArray); setIsInput(mem,false); setIsOutput(mem,false); arrIn := createParam('array in',ptArray); setIsOutput(arrIn,false); index := createParam('index',ptDatafield); setIsInput(index,false); value := createParam('value',ptDatafield); setIsInput(value,false); hasRun := 0;end;// Callback procedureProcedure Callback(N:integer); begin case N of arrIn: begin if hasRun = 1 then begin l := getLength(arrIn); for s:=0 to l-1 do begin x := getDataArrayValue(arrIn,s); m := getDataArrayValue(mem,s); if x <> m then begin setValue(index,s); setValue(value,x); end; end; end; l := getLength(arrIn); setLength(mem,l); for s:=0 to l-1 do begin x := getDataArrayValue(arrIn,s); setDataArrayValue(mem,s,x); end; hasRun := 1; end; end;end;// Global variables//////////////////////////////// main proc//////////////////////////////Procedure Process;begin if hasRun = 0 then begin l := getLength(arrIn); setLength(mem,l); for s:=0 to l-1 do begin x := getDataArrayValue(arrIn,s); setDataArrayValue(mem,s,x); end; hasRun := 1; end;end;Statistics: Posted by ceasless — 23 Sep 2013, 13:36
]]>
I can write another script probably but I was hoping there would be an easier solution (maybe it doesn't take much to add this as an output in the sequencers?).
Statistics: Posted by ceasless — 22 Sep 2013, 19:25
]]>