BrainModular

the simplest patch and a question

2010-08-17T14:36:45+02:00

yes, I know it takes more wires and connections and eat more cpu, but I found it useful for a visual tracing of a process etc. So eventually, once the patch is working and the modules are better distributed, I just could remove it.

Statistics: Posted by Floego — 17 Aug 2010, 14:36

the simplest patch and a question

2010-08-17T11:17:06+02:00

btw , i realize I've to update this add-on with the new matrix , and i must admit it's handy to have not all wires from the matrix .

but...i also remember that we have said before that the more wires and connections we use , the more cpu we eat..
and as said Bsork , a simple module like the a+b one can do the job with less cpu
an example here ( and if you use this 2 method in 2 different empty patch you can check the cpu difference )

btw , if we use direct link , this fall to 4 wires , 4 connections....

Statistics: Posted by nay-seven — 17 Aug 2010, 11:17

the simplest patch and a question

2010-08-17T09:57:48+02:00

great , thanks for this interesting test , would be curious to test this too on my different computer
can you upload them somewhere..?

Statistics: Posted by nay-seven — 17 Aug 2010, 09:57

the simplest patch and a question

2010-08-17T08:16:30+02:00

Just a tip if all you want to is to put in an extra "node" to make the wiring more tidy: Instead of sub-patches, just use one of the simples modules you can find. I use an A+B for this once in a while.

Statistics: Posted by bsork — 17 Aug 2010, 08:16

the simplest patch and a question

2010-08-17T04:00:38+02:00

Thank you very much for your smart analysis and advices ! !

I compiled the scripts, then used the scripts in the midipadayan patch (only for testing purposes), used the hook patched version too, and compared to the original midipadayan patch. The results are similar between the hook patch version and the script one. See below:

original midipadayan:

now hook patch with midipadayan:

finally hook script with midipadayan:

Statistics: Posted by Floego — 17 Aug 2010, 04:00

the simplest patch and a question

2010-08-17T01:30:34+02:00

that's exactly what i wondered, wich one take more/less CPU.

between they won't react exactly the same: if using wires and some have stop envent flow, they ll be ignored, that won't work
i suppose here,( but a different code could). the advantage here is easy change nb, but ideally a query would be even better,
(also that's quick done to edit constant and reload script). the other difference is naming, but a commatext variable is possible...

now the most interessant question to check still is, wich use more cpu, indeed,

Statistics: Posted by 23fx23 — 17 Aug 2010, 01:30

the simplest patch and a question

2010-08-17T01:12:34+02:00

great , and yep , you're right about he second one ( I've correct it )

the good question now is : did the script has a low cpu use than a sub-patch...?
( but for n series script is quickest to adapt anyway )

Statistics: Posted by nay-seven — 17 Aug 2010, 01:12

the simplest patch and a question

2010-08-17T00:27:11+02:00

..and as we are, a third one for N in to N outs, coresponding:

CODE:

const nb_inouts = 8;  //define number of in-outputs all picking correponding.////////////////////////////////////////////////////////////////////////////var INPUTS, OUTPUTS : array of Tparameter;var i      : integer;//var valtmp : single;//////////////////////////////////Procedure Init;begin////////////////////////////////////////////////////////////setArrayLength(INPUTS,nb_inouts);for i:= 0 to nb_inouts-1 do beginINPUTS[i]:=  CreateParam('Input'+IntToStr(i),PtDataField);  SetIsOutput(INPUTS[i],false);end;/////////////////////////////////////////////////////////////////setArrayLength(OUTPUTS,nb_inouts);for i:= 0 to nb_inouts-1 do beginOUTPUTS[i]:=  CreateParam('output'+IntToStr(i),PtDataField);  SetIsInput(OUTPUTS[i],false);end;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginsetValue(outputs[n],getValue(inputs[n]));end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:27

the simplest patch and a question

2010-08-17T00:13:35+02:00

..and if interested, code for one input to N outputs:

CODE:

const nb_outs = 8;  //define number of outputs all picking input.////////////////////////////////////////////////////////////////////////////var OUTPUTS : array of Tparameter;var input : tparameter;var i      : integer;var valtmp : single;//////////////////////////////////Procedure Init;begin////////////////////////////////////////////////////////////input:= createParam('input',Ptdatafield); setisOutput(input,false);/////////////////////////////////////////////////////////////////setArrayLength(OUTPUTS,nb_outs);for i:= 0 to nb_outs-1 do beginOUTPUTS[i]:=  CreateParam('output'+IntToStr(i),PtDataField);  SetIsInput(OUTPUTS[i],false);end;valtmp:=0;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginvaltmp:= getValue(input);for i:= 0 to nb_outs-1 do beginsetValue(outputs[i],valtmp);end;end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:13

the simplest patch and a question

2010-08-17T00:04:51+02:00

mmm nay on code2, you made the extra In but, you didn't modified the process that only pick input one.
if i well understood booth input should be added to output.?

also the code with is based ond an old one use process, mean it process constantly,
in this case better use callback that will process only on changes.

here is a code example for N inputs to one output using callback can edit the constant.

CODE:

const nb_ins = 8;  //define number of inputs all going to output.(summed).////////////////////////////////////////////////////////////////////////////var INPUTS : array of Tparameter;var output : tparameter;var i      : integer;var valtmp : single;//////////////////////////////////Procedure Init;beginsetArrayLength(INPUTS,nb_ins);for i:= 0 to nb_ins-1 do beginINPUTS[i]:=  CreateParam('input'+IntToStr(i),PtDataField);  SetIsOutput(INPUTS[i],false);end;////////////////////////////////////////////////////////////output:= createParam('output',Ptdatafield); setisInput(output,false);valtmp:=0;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginvaltmp:= getValue(inputs[0]);for i:= 1 to nb_ins-1 do beginvaltmp:= valtmp + getValue(Inputs[i]);end;setValue(output,valtmp);end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:04

the simplest patch and a question

2010-08-16T21:53:30+02:00

have you also check the script examples part..?
there's an example named 1 In 1 Out Example.script
you could easily adapt them i think
for example for a 1 input , 2 output :

CODE:

//////////////////////////////////////////////////////// Script example // one Input, 2 output// set the input value to the 2 output value// (data thru)////////////////////////////////////////////////////////////////////////////////////////////////////////////// Paramters declaration//////////////////////////////////////////////////////var input : Tparameter;var output: Tparameter;var output2: Tparameter;//////////////////////////////////////////////////////// initialisation procedure//////////////////////////////////////////////////////procedure init;begin   input := CreateParam('input',ptDatafader); SetIsOutput(input,false); SetMin(input,0); SetMax(input,100); SetSymbol(input,'%'); SetDefaultValue(input,10); SetValue(input,10); output := CreateParam('output',ptDataFader ); SetIsInput(output,false); SetMin(output,0); SetMax(output,100); SetSymbol(output,'%'); SetDefaultValue(output,10); output2 := CreateParam('output2',ptDataFader ); SetIsInput(output2,false); SetMin(output2,0); SetMax(output2,100); SetSymbol(output2,'%'); SetDefaultValue(output2,10);end;// Global Variablesvar inval : single;//////////////////////////////////////////////////////// Main Loop procedure//////////////////////////////////////////////////////Procedure Process;begin inval := getValue(input); setvalue(output,inval); setvalue(output2,inval);end;

or for a 2 inputs to a 1 output :

CODE:

//////////////////////////////////////////////////////// Script example // 2 Inputs, one output// set the input value to the output value// (data thru)////////////////////////////////////////////////////////////////////////////////////////////////////////////// Paramters declaration//////////////////////////////////////////////////////var input : Tparameter;var input2 : Tparameter;var output: Tparameter;//////////////////////////////////////////////////////// initialisation procedure//////////////////////////////////////////////////////procedure init;begin   input := CreateParam('input',ptDatafader); SetIsOutput(input,false); SetMin(input,0); SetMax(input,100); SetSymbol(input,'%'); SetDefaultValue(input,10); SetValue(input,10); input2 := CreateParam('input2',ptDatafader); SetIsOutput(input2,false); SetMin(input2,0); SetMax(input2,100); SetSymbol(input2,'%'); SetDefaultValue(input2,10); SetValue(input2,10); output := CreateParam('output',ptDataFader ); SetIsInput(output,false); SetMin(output,0); SetMax(output,100); SetSymbol(output,'%'); SetDefaultValue(output,10);end;// Global Variablesvar inval : single;//////////////////////////////////////////////////////// Main Loop procedure//////////////////////////////////////////////////////Procedure Process;begin inval := getValue(input); setvalue(output,inval); inval := getValue(input2); setvalue(output,inval);end;

Statistics: Posted by nay-seven — 16 Aug 2010, 21:53

the simplest patch and a question

2010-08-16T21:40:27+02:00

for my side, i use essentially the hook ones, but i name them pass through...

about wirebox, i prefer to connect many wire one one output.

anyway...
they could be good candidates for some user modules (with the query system, ask for how many how many inlet/outlet)
or just be part of everyone patch library for convenience.

but for sure, those are very useful, for wiring or visual reason.

Statistics: Posted by martignasse — 16 Aug 2010, 21:40

the simplest patch and a question

2010-08-16T20:43:15+02:00

I created this two patches: Hook and Wirebox please see below:

They are the simplest patches (only wires) but it may be very useful, surely many of Usine users have already created them into their patches. They consume very little resources.

Wirebox makes easy to connect/disconnect wires on an heavy populated single inlet/outlet.

The hook patch helps to keep right angle wires and avoid long diagonal lines (for people like me with heavy astigmatism it could help).

Maybe they could be fusioned into just one or two?. Or should they ask at loading about the number of inlet/outlet?.

Statistics: Posted by Floego — 16 Aug 2010, 20:43

the simplest patch and a question

2010-08-17T14:36:45+02:00

Statistics: Posted by Floego — 17 Aug 2010, 14:36

the simplest patch and a question

2010-08-17T11:17:06+02:00

Statistics: Posted by nay-seven — 17 Aug 2010, 11:17

the simplest patch and a question

2010-08-17T09:57:48+02:00

great , thanks for this interesting test , would be curious to test this too on my different computer
can you upload them somewhere..?

Statistics: Posted by nay-seven — 17 Aug 2010, 09:57

the simplest patch and a question

2010-08-17T08:16:30+02:00

Statistics: Posted by bsork — 17 Aug 2010, 08:16

the simplest patch and a question

2010-08-17T04:00:38+02:00

Statistics: Posted by Floego — 17 Aug 2010, 04:00

the simplest patch and a question

2010-08-17T01:30:34+02:00

Statistics: Posted by 23fx23 — 17 Aug 2010, 01:30

the simplest patch and a question

2010-08-17T01:12:34+02:00

Statistics: Posted by nay-seven — 17 Aug 2010, 01:12

the simplest patch and a question

2010-08-17T00:27:11+02:00

..and as we are, a third one for N in to N outs, coresponding:

CODE:

const nb_inouts = 8;  //define number of in-outputs all picking correponding.////////////////////////////////////////////////////////////////////////////var INPUTS, OUTPUTS : array of Tparameter;var i      : integer;//var valtmp : single;//////////////////////////////////Procedure Init;begin////////////////////////////////////////////////////////////setArrayLength(INPUTS,nb_inouts);for i:= 0 to nb_inouts-1 do beginINPUTS[i]:=  CreateParam('Input'+IntToStr(i),PtDataField);  SetIsOutput(INPUTS[i],false);end;/////////////////////////////////////////////////////////////////setArrayLength(OUTPUTS,nb_inouts);for i:= 0 to nb_inouts-1 do beginOUTPUTS[i]:=  CreateParam('output'+IntToStr(i),PtDataField);  SetIsInput(OUTPUTS[i],false);end;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginsetValue(outputs[n],getValue(inputs[n]));end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:27

the simplest patch and a question

2010-08-17T00:13:35+02:00

..and if interested, code for one input to N outputs:

CODE:

const nb_outs = 8;  //define number of outputs all picking input.////////////////////////////////////////////////////////////////////////////var OUTPUTS : array of Tparameter;var input : tparameter;var i      : integer;var valtmp : single;//////////////////////////////////Procedure Init;begin////////////////////////////////////////////////////////////input:= createParam('input',Ptdatafield); setisOutput(input,false);/////////////////////////////////////////////////////////////////setArrayLength(OUTPUTS,nb_outs);for i:= 0 to nb_outs-1 do beginOUTPUTS[i]:=  CreateParam('output'+IntToStr(i),PtDataField);  SetIsInput(OUTPUTS[i],false);end;valtmp:=0;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginvaltmp:= getValue(input);for i:= 0 to nb_outs-1 do beginsetValue(outputs[i],valtmp);end;end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:13

the simplest patch and a question

2010-08-17T00:04:51+02:00

CODE:

const nb_ins = 8;  //define number of inputs all going to output.(summed).////////////////////////////////////////////////////////////////////////////var INPUTS : array of Tparameter;var output : tparameter;var i      : integer;var valtmp : single;//////////////////////////////////Procedure Init;beginsetArrayLength(INPUTS,nb_ins);for i:= 0 to nb_ins-1 do beginINPUTS[i]:=  CreateParam('input'+IntToStr(i),PtDataField);  SetIsOutput(INPUTS[i],false);end;////////////////////////////////////////////////////////////output:= createParam('output',Ptdatafield); setisInput(output,false);valtmp:=0;end;// init//////////////////////////////////////////////Procedure Callback (n:integer);Beginif n>=0 then beginvaltmp:= getValue(inputs[0]);for i:= 1 to nb_ins-1 do beginvaltmp:= valtmp + getValue(Inputs[i]);end;setValue(output,valtmp);end;end;// callback////////////////////////////////////////

Statistics: Posted by 23fx23 — 17 Aug 2010, 00:04

the simplest patch and a question

2010-08-16T21:53:30+02:00

have you also check the script examples part..?
there's an example named 1 In 1 Out Example.script
you could easily adapt them i think
for example for a 1 input , 2 output :

CODE:

//////////////////////////////////////////////////////// Script example // one Input, 2 output// set the input value to the 2 output value// (data thru)////////////////////////////////////////////////////////////////////////////////////////////////////////////// Paramters declaration//////////////////////////////////////////////////////var input : Tparameter;var output: Tparameter;var output2: Tparameter;//////////////////////////////////////////////////////// initialisation procedure//////////////////////////////////////////////////////procedure init;begin   input := CreateParam('input',ptDatafader); SetIsOutput(input,false); SetMin(input,0); SetMax(input,100); SetSymbol(input,'%'); SetDefaultValue(input,10); SetValue(input,10); output := CreateParam('output',ptDataFader ); SetIsInput(output,false); SetMin(output,0); SetMax(output,100); SetSymbol(output,'%'); SetDefaultValue(output,10); output2 := CreateParam('output2',ptDataFader ); SetIsInput(output2,false); SetMin(output2,0); SetMax(output2,100); SetSymbol(output2,'%'); SetDefaultValue(output2,10);end;// Global Variablesvar inval : single;//////////////////////////////////////////////////////// Main Loop procedure//////////////////////////////////////////////////////Procedure Process;begin inval := getValue(input); setvalue(output,inval); setvalue(output2,inval);end;

or for a 2 inputs to a 1 output :

CODE:

//////////////////////////////////////////////////////// Script example // 2 Inputs, one output// set the input value to the output value// (data thru)////////////////////////////////////////////////////////////////////////////////////////////////////////////// Paramters declaration//////////////////////////////////////////////////////var input : Tparameter;var input2 : Tparameter;var output: Tparameter;//////////////////////////////////////////////////////// initialisation procedure//////////////////////////////////////////////////////procedure init;begin   input := CreateParam('input',ptDatafader); SetIsOutput(input,false); SetMin(input,0); SetMax(input,100); SetSymbol(input,'%'); SetDefaultValue(input,10); SetValue(input,10); input2 := CreateParam('input2',ptDatafader); SetIsOutput(input2,false); SetMin(input2,0); SetMax(input2,100); SetSymbol(input2,'%'); SetDefaultValue(input2,10); SetValue(input2,10); output := CreateParam('output',ptDataFader ); SetIsInput(output,false); SetMin(output,0); SetMax(output,100); SetSymbol(output,'%'); SetDefaultValue(output,10);end;// Global Variablesvar inval : single;//////////////////////////////////////////////////////// Main Loop procedure//////////////////////////////////////////////////////Procedure Process;begin inval := getValue(input); setvalue(output,inval); inval := getValue(input2); setvalue(output,inval);end;

Statistics: Posted by nay-seven — 16 Aug 2010, 21:53

the simplest patch and a question

2010-08-16T21:40:27+02:00

Statistics: Posted by martignasse — 16 Aug 2010, 21:40

the simplest patch and a question

2010-08-16T20:43:15+02:00

Statistics: Posted by Floego — 16 Aug 2010, 20:43