ArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by seamus — 14 Jun 2013, 12:01
Statistics: Posted by woodslanding — 13 Jun 2013, 08:52
Statistics: Posted by woodslanding — 13 Jun 2013, 08:32
Statistics: Posted by senso — 12 Jun 2013, 22:54
CODE:
/////////////////////////////////////////////// Audio Volume// Simple Audio Volume Script////////////////////////////////////////////// parameters declarationvar input : Tparameter;var output : Tparameter;var gain : TParameter;// initialisation : create parametersprocedure init;begin Input := CreateParam('In',ptaudio); output := CreateParam('out',ptaudio); gain := CreateParam('gain',ptDataFader); SetIsOutPut(Input,false); SetIsOutPut(Gain,false); SetIsInPut(Output,false); SetMin(gain,0); SetMax(gain,1); Setvalue(gain,1); SetLength(output,BLOCSIZE); end;// Global variablesvar i : integer; //var pin,pout : PSingle;var g : single;//////////////////////////////// main proc//////////////////////////////procedure Process;begin //pIn := GetdataPointer(0); //pOut := GetdataPointer(1); g := GetValue(2); for i := 0 to BLOCSIZE-1 do begin //pout^:= pin^*g; //incptr(pin); //incptr(pout) SetDataArrayValue(1, i, GetDataArrayValue(0, i)*g); end; end;Statistics: Posted by bsork — 12 Jun 2013, 22:42
Statistics: Posted by woodslanding — 12 Jun 2013, 16:47
Statistics: Posted by seamus — 14 Jun 2013, 12:01
Statistics: Posted by woodslanding — 13 Jun 2013, 08:52
Statistics: Posted by woodslanding — 13 Jun 2013, 08:32
Statistics: Posted by senso — 12 Jun 2013, 22:54
CODE:
/////////////////////////////////////////////// Audio Volume// Simple Audio Volume Script////////////////////////////////////////////// parameters declarationvar input : Tparameter;var output : Tparameter;var gain : TParameter;// initialisation : create parametersprocedure init;begin Input := CreateParam('In',ptaudio); output := CreateParam('out',ptaudio); gain := CreateParam('gain',ptDataFader); SetIsOutPut(Input,false); SetIsOutPut(Gain,false); SetIsInPut(Output,false); SetMin(gain,0); SetMax(gain,1); Setvalue(gain,1); SetLength(output,BLOCSIZE); end;// Global variablesvar i : integer; //var pin,pout : PSingle;var g : single;//////////////////////////////// main proc//////////////////////////////procedure Process;begin //pIn := GetdataPointer(0); //pOut := GetdataPointer(1); g := GetValue(2); for i := 0 to BLOCSIZE-1 do begin //pout^:= pin^*g; //incptr(pin); //incptr(pout) SetDataArrayValue(1, i, GetDataArrayValue(0, i)*g); end; end;Statistics: Posted by bsork — 12 Jun 2013, 22:42
Statistics: Posted by woodslanding — 12 Jun 2013, 16:47