Show Posts
1
Вопросы / Questions / 3 Band EQ script modification help needed
« on: August 09, 2022, 01:14:39 »
Since the number of eq bands is changed from 18 to 20, the script I use for my 3 band eq is not working properly anymore.
I don't know how to fix it...Could someone edit the script please?
----------------------------------------------------------------------------------------------------------
LowLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
M, N: Integer;
begin
M:= FindObject('MediumLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue1', ((State-1500)/100));
for N:= 2 to 9 do
EQ.Set('BandValue' + IntToStr(N), ((State - 1500) * (1 + cos(pi * (N - 1) /9)) + (M - 1500) * (1 + cos(pi * (10 - N) /9)))/200);
EQ.Set('BandValue10', ((M-1500)/100));
end;
----------------------------------------------------------------------------------------------------------
MediumLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
L, H, N: Integer;
begin
L:= FindObject('LowLevelsScript').Get('Position');
H:= FindObject('HighLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue1', ((L-1500)/100));
for N:= 2 to 9 do
EQ.Set('BandValue' + IntToStr(N), ((State - 1500) * (1 + cos(pi * (10 - N) / 9)) + (L - 1500) * (1 + cos(pi * (N - 1) / 9)))/200);
EQ.Set('BandValue10', ((State-1500)/100));
for N:= 1 to 8 do
EQ.Set('BandValue' + IntToStr(N + 10), ((State - 1500) * (1 + cos(pi * N / 8)) + (H - 1500) * (1 + cos(pi * (N - 8)/ 8)))/200);
end;
----------------------------------------------------------------------------------------------------------
HighLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
M, N: Integer;
begin
M:= FindObject('MediumLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue10', ((M-1500)/100));
for N:= 1 to 8 do
EQ.Set('BandValue' + IntToStr(N + 10), ((State - 1500) * (1 + cos(pi * (8 - N) /8)) + (M - 1500) * (1 + cos(pi * N/8)))/200);
end;
----------------------------------------------------------------------------------------------------------
I don't know how to fix it...Could someone edit the script please?
----------------------------------------------------------------------------------------------------------
LowLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
M, N: Integer;
begin
M:= FindObject('MediumLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue1', ((State-1500)/100));
for N:= 2 to 9 do
EQ.Set('BandValue' + IntToStr(N), ((State - 1500) * (1 + cos(pi * (N - 1) /9)) + (M - 1500) * (1 + cos(pi * (10 - N) /9)))/200);
EQ.Set('BandValue10', ((M-1500)/100));
end;
----------------------------------------------------------------------------------------------------------
MediumLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
L, H, N: Integer;
begin
L:= FindObject('LowLevelsScript').Get('Position');
H:= FindObject('HighLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue1', ((L-1500)/100));
for N:= 2 to 9 do
EQ.Set('BandValue' + IntToStr(N), ((State - 1500) * (1 + cos(pi * (10 - N) / 9)) + (L - 1500) * (1 + cos(pi * (N - 1) / 9)))/200);
EQ.Set('BandValue10', ((State-1500)/100));
for N:= 1 to 8 do
EQ.Set('BandValue' + IntToStr(N + 10), ((State - 1500) * (1 + cos(pi * N / 8)) + (H - 1500) * (1 + cos(pi * (N - 8)/ 8)))/200);
end;
----------------------------------------------------------------------------------------------------------
HighLevelsScript.script:
procedure Execute(var State: Integer);
var
EQ: TComponent;
M, N: Integer;
begin
M:= FindObject('MediumLevelsScript').Get('Position');
EQ:= FindObject('prvEqualizer');
EQ.Set('BandValue10', ((M-1500)/100));
for N:= 1 to 8 do
EQ.Set('BandValue' + IntToStr(N + 10), ((State - 1500) * (1 + cos(pi * (8 - N) /8)) + (M - 1500) * (1 + cos(pi * N/8)))/200);
end;
----------------------------------------------------------------------------------------------------------
