TBand = record
par: BASS_FXParamEQ;
hnd: HFX;
end;
var
EQBand: array [0..8] of TBand;
EQEnable: boolean;
procedure TForm1.InitEQ;
var i: integer;
begin
for i := low(EQBand) to high(EQBand) do
begin
EQBand[i].hnd := BASS_ChannelSetFX(lied,BASS_FX_PARAMEQ,1);
EQBand[i].par.fGain := 0;
end;
EQBand[0].par.fBandwidth := 63;
EQBand[0].par.fcenter := 63;
EQBand[1].par.fBandwidth := 125;
EQBand[1].par.fcenter := 125;
EQBand[2].par.fBandwidth := 250;
EQBand[2].par.fcenter := 250;
EQBand[3].par.fBandwidth := 500;
EQBand[3].par.fcenter := 500;
EQBand[4].par.fBandwidth := 1000;
EQBand[4].par.fcenter := 1000;
[1] [2] [3] [4] 下一页
|
|
