next »

[Mickael]

Hello,

I want to increase (boost) the sound of some MP3 recorded too low
(Ripp from Vinyl ..)

Here is my code, but it does not work ..

procedure TForm1.plus12dbClick(Sender: TObject);
var
vol: BASS_FX_DSPVOLUME;
begin

  BASS_FX_DSP_GetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);
  vol.fLeft := vol.fLeft + 12;
  vol.fRight := vol.Right + 12;
  BASS_FX_DSP_SetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);

end;

Thanks,
Mickael.

[Chris]

Hi + 12 ???

Looks like a little bit to much

The Values goes from 0.0 to 1.0

So it must be something like this

  vol.fLeft := vol.fLeft + (20 * Log10( 0.12 / 1.0));

Cheers Chris

[Mickael]

Hello.

procedure TForm1.plus12dbClick(Sender: TObject);
var
vol: BASS_FX_DSPVOLUME;
begin

  BASS_FX_DSP_GetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);
  vol.fLeft := vol.fLeft + (20 * Log10( 0.12 / 1.0));
  vol.fRight := vol.fRight + (20 * Log10( 0.12 / 1.0));
  BASS_FX_DSP_SetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);

end;

   
It does not work.
The sound is still as low .. 

[Chris]

Hi
which value does vol.fLeft return ??

[big_gun]

Have you considered doing an auto-gain FX on the track? See BassFX in the documentation

[Ian @ un4seen]

Here is my code, but it does not work ..

The BASS_FX_DSPFX_VOLUME parameter is linear, so you would need to translate the dB value first...

vol = pow(10, db/20);

[Mickael]

Hello Ian,

My code is:

procedure TForm1.plus12dbClick(Sender: TObject);
var
  vol: BASS_FX_DSPVOLUME;
  db : Integer;
begin

  BASS_FX_DSP_GetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);
  db := 12; // TEST
  vol.fLeft := vol.fLeft + pow(10, db/20);
  vol.fRight := vol.fRight + pow(10, db/20);
  BASS_FX_DSP_SetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);

end;

[Error] Unit1.pas(3113): Identificateur non déclaré : 'pow'


Pow is not recognized into Delphi... ?

[Bert]

Try: power(10, db/20);

[Mickael]

procedure TForm1.plus12dbClick(Sender: TObject);
var
  vol: BASS_FX_DSPVOLUME;
  db : Integer;
begin

  BASS_FX_DSP_GetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);
  db := 12; // TEST
  vol.fLeft := vol.fLeft + power(10, db/20);
  vol.fRight := vol.fRight + power(10, db/20);
  BASS_FX_DSP_SetParameters(m1, BASS_FX_DSPFX_VOLUME, @vol);

end;

not functions .. :-(

[Chris]

Hi
by the way

BASS_BFX_VOLUME = record
        lChannel : Integer;          // BASS_BFX_CHANxxx flag/s or 0 for global volume control
        fVolume : FLOAT;             // [0....1....n] linear
    end;                       

from where does the vol.left/vol.right come ??
Cheers Chris

[Chris]

Hi
I did here a quick test and it will working absolute correct.

In my situation its a mp3 File

vol[1].fVolume will return     1.0
power(10, 12/20) will return 3.98107170553497

thats also correct(3 DB is the double-Value of the Volume

Cheers Chris

[Mickael]

sorry, I do not understand what I do. 

[Chris]

hi
 try this

private
  DSPVol : BASS_FX_DSPVOLUME;


procedure Start;
begin
  //here the channel create,play stuff
  BASS_FX_DSP_Set(Channel, BASS_FX_DSPFX_VOLUME, 1);
end;

procedure TForm1.plus12dbClick(Sender: TObject);
begin
   BASS_FX_DSP_GetParameters(Channel, BASS_FX_DSPFX_VOLUME, @DSPVol);
   DSPVol.fVolume :=  DSPVol.fVolume + power(10, 12/20);
   DSPVol.lChannel := BASS_FX_DSP_CHANALL;
  BASS_FX_DSP_SetParameters(Channel, BASS_FX_DSPFX_VOLUME,@DSPVol);

Cheers Chris

[Mickael]

ok i'm testing this night

[Ian @ un4seen]

sorry, I do not understand what I do. 

It looks like you are possibly using an old BASS/BASS_FX version? As Chris points out, the effect's parameter structure is different in 2.4.

Btw, you should just replace the current setting, not add to it, ie. there is no need for the "GetParameters" call.