mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-11 14:41:06 +02:00
ad04187a41
... whenever they really describe the size of a buffer that fits in memory, or of a block file (which is never now more than a megabyte and so could be fit in memory all at once), or a part thereof.
513 lines
13 KiB
C++
513 lines
13 KiB
C++
/**********************************************************************
|
|
|
|
Audacity: A Digital Audio Editor
|
|
Audacity(R) is copyright (c) 1999-2016 Audacity Team.
|
|
License: GPL v2. See License.txt.
|
|
|
|
BassTreble.cpp
|
|
Steve Daulton
|
|
|
|
******************************************************************//**
|
|
|
|
\class EffectBassTreble
|
|
\brief A high shelf and low shelf filter.
|
|
|
|
*//*******************************************************************/
|
|
|
|
#include "../Audacity.h"
|
|
#include "BassTreble.h"
|
|
|
|
#include <math.h>
|
|
#include <algorithm>
|
|
|
|
#include <wx/button.h>
|
|
#include <wx/intl.h>
|
|
#include <wx/panel.h>
|
|
#include <wx/sizer.h>
|
|
|
|
#include "../Prefs.h"
|
|
#include "../ShuttleGui.h"
|
|
#include "../WaveTrack.h"
|
|
#include "../widgets/valnum.h"
|
|
|
|
enum
|
|
{
|
|
ID_Bass = 10000,
|
|
ID_Treble,
|
|
ID_Gain,
|
|
ID_Link
|
|
};
|
|
|
|
// Define keys, defaults, minimums, and maximums for the effect parameters
|
|
//
|
|
// Name Type Key Def Min Max Scale
|
|
Param( Bass, double, XO("Bass"), 0.0, -30.0, 30.0, 1 );
|
|
Param( Treble, double, XO("Treble"), 0.0, -30.0, 30.0, 1 );
|
|
Param( Gain, double, XO("Gain"), 0.0, -30.0, 30.0, 1 );
|
|
Param( Link, bool, XO("Link Sliders"), false, false, true, 1 );
|
|
|
|
#include <wx/arrimpl.cpp>
|
|
WX_DEFINE_OBJARRAY(EffectBassTrebleStateArray);
|
|
|
|
// Used to communicate the type of the filter.
|
|
enum kShelfType
|
|
{
|
|
kBass,
|
|
kTreble
|
|
};
|
|
|
|
BEGIN_EVENT_TABLE(EffectBassTreble, wxEvtHandler)
|
|
EVT_SLIDER(ID_Bass, EffectBassTreble::OnBassSlider)
|
|
EVT_SLIDER(ID_Treble, EffectBassTreble::OnTrebleSlider)
|
|
EVT_SLIDER(ID_Gain, EffectBassTreble::OnGainSlider)
|
|
EVT_TEXT(ID_Bass, EffectBassTreble::OnBassText)
|
|
EVT_TEXT(ID_Treble, EffectBassTreble::OnTrebleText)
|
|
EVT_TEXT(ID_Gain, EffectBassTreble::OnGainText)
|
|
EVT_CHECKBOX(ID_Link, EffectBassTreble::OnLinkCheckbox)
|
|
END_EVENT_TABLE()
|
|
|
|
EffectBassTreble::EffectBassTreble()
|
|
{
|
|
mBass = DEF_Bass;
|
|
mTreble = DEF_Treble;
|
|
mGain = DEF_Gain;
|
|
mLink = DEF_Link;
|
|
|
|
SetLinearEffectFlag(true);
|
|
}
|
|
|
|
EffectBassTreble::~EffectBassTreble()
|
|
{
|
|
}
|
|
|
|
// IdentInterface implementation
|
|
|
|
wxString EffectBassTreble::GetSymbol()
|
|
{
|
|
return BASSTREBLE_PLUGIN_SYMBOL;
|
|
}
|
|
|
|
wxString EffectBassTreble::GetDescription()
|
|
{
|
|
return XO("Simple tone control effect");
|
|
}
|
|
|
|
// EffectIdentInterface implementation
|
|
|
|
EffectType EffectBassTreble::GetType()
|
|
{
|
|
return EffectTypeProcess;
|
|
}
|
|
|
|
bool EffectBassTreble::SupportsRealtime()
|
|
{
|
|
#if defined(EXPERIMENTAL_REALTIME_AUDACITY_EFFECTS)
|
|
return true;
|
|
#else
|
|
return false;
|
|
#endif
|
|
}
|
|
|
|
|
|
// EffectClientInterface implementation
|
|
|
|
unsigned EffectBassTreble::GetAudioInCount()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
unsigned EffectBassTreble::GetAudioOutCount()
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
bool EffectBassTreble::ProcessInitialize(sampleCount WXUNUSED(totalLen), ChannelNames WXUNUSED(chanMap))
|
|
{
|
|
InstanceInit(mMaster, mSampleRate);
|
|
|
|
return true;
|
|
}
|
|
|
|
size_t EffectBassTreble::ProcessBlock(float **inBlock, float **outBlock, size_t blockLen)
|
|
{
|
|
return InstanceProcess(mMaster, inBlock, outBlock, blockLen);
|
|
}
|
|
|
|
bool EffectBassTreble::RealtimeInitialize()
|
|
{
|
|
SetBlockSize(512);
|
|
|
|
mSlaves.Clear();
|
|
|
|
return true;
|
|
}
|
|
|
|
bool EffectBassTreble::RealtimeAddProcessor(unsigned WXUNUSED(numChannels), float sampleRate)
|
|
{
|
|
EffectBassTrebleState slave;
|
|
|
|
InstanceInit(slave, sampleRate);
|
|
|
|
mSlaves.Add(slave);
|
|
|
|
return true;
|
|
}
|
|
|
|
bool EffectBassTreble::RealtimeFinalize()
|
|
{
|
|
mSlaves.Clear();
|
|
|
|
return true;
|
|
}
|
|
|
|
size_t EffectBassTreble::RealtimeProcess(int group,
|
|
float **inbuf,
|
|
float **outbuf,
|
|
size_t numSamples)
|
|
{
|
|
return InstanceProcess(mSlaves[group], inbuf, outbuf, numSamples);
|
|
}
|
|
|
|
bool EffectBassTreble::GetAutomationParameters(EffectAutomationParameters & parms)
|
|
{
|
|
parms.Write(KEY_Bass, mBass);
|
|
parms.Write(KEY_Treble, mTreble);
|
|
parms.Write(KEY_Gain, mGain);
|
|
parms.Write(KEY_Link, mLink);
|
|
|
|
return true;
|
|
}
|
|
|
|
bool EffectBassTreble::SetAutomationParameters(EffectAutomationParameters & parms)
|
|
{
|
|
ReadAndVerifyDouble(Bass);
|
|
ReadAndVerifyDouble(Treble);
|
|
ReadAndVerifyDouble(Gain);
|
|
ReadAndVerifyBool(Link);
|
|
|
|
mBass = Bass;
|
|
mTreble = Treble;
|
|
mGain = Gain;
|
|
mLink = Link;
|
|
|
|
return true;
|
|
}
|
|
|
|
bool EffectBassTreble::CheckWhetherSkipEffect()
|
|
{
|
|
return (mBass == 0.0 && mTreble == 0.0 && mGain == 0.0);
|
|
}
|
|
|
|
|
|
// Effect implementation
|
|
|
|
void EffectBassTreble::PopulateOrExchange(ShuttleGui & S)
|
|
{
|
|
S.SetBorder(5);
|
|
S.AddSpace(0, 5);
|
|
|
|
S.StartStatic(_("Tone controls"));
|
|
{
|
|
S.StartMultiColumn(3, wxEXPAND);
|
|
{
|
|
S.SetStretchyCol(2);
|
|
|
|
// Bass control
|
|
FloatingPointValidator<double> vldBass(1, &mBass);
|
|
vldBass.SetRange(MIN_Bass, MAX_Bass);
|
|
mBassT = S.Id(ID_Bass).AddTextBox(_("&Bass (dB):"), wxT(""), 10);
|
|
mBassT->SetName(_("Bass (dB):"));
|
|
mBassT->SetValidator(vldBass);
|
|
|
|
S.SetStyle(wxSL_HORIZONTAL);
|
|
mBassS = S.Id(ID_Bass).AddSlider(wxT(""), 0, MAX_Bass * SCL_Bass, MIN_Bass * SCL_Bass);
|
|
mBassS->SetName(_("Bass"));
|
|
|
|
// Treble control
|
|
FloatingPointValidator<double> vldTreble(1, &mTreble);
|
|
vldTreble.SetRange(MIN_Treble, MAX_Treble);
|
|
mTrebleT = S.Id(ID_Treble).AddTextBox(_("&Treble (dB):"), wxT(""), 10);
|
|
mTrebleT->SetValidator(vldTreble);
|
|
|
|
S.SetStyle(wxSL_HORIZONTAL);
|
|
mTrebleS = S.Id(ID_Treble).AddSlider(wxT(""), 0, MAX_Treble * SCL_Treble, MIN_Treble * SCL_Treble);
|
|
mTrebleS->SetName(_("Treble"));
|
|
}
|
|
S.EndMultiColumn();
|
|
}
|
|
S.EndStatic();
|
|
|
|
S.StartStatic("Output");
|
|
{
|
|
S.StartMultiColumn(3, wxEXPAND);
|
|
{
|
|
S.SetStretchyCol(2);
|
|
|
|
// Gain control
|
|
FloatingPointValidator<double> vldGain(1, &mGain);
|
|
vldGain.SetRange(MIN_Gain, MAX_Gain);
|
|
mGainT = S.Id(ID_Gain).AddTextBox(_("&Volume (dB):"), wxT(""), 10);
|
|
mGainT->SetValidator(vldGain);
|
|
|
|
S.SetStyle(wxSL_HORIZONTAL);
|
|
mGainS = S.Id(ID_Gain).AddSlider(wxT(""), 0, MAX_Gain * SCL_Gain, MIN_Gain * SCL_Gain);
|
|
mGainS->SetName(_("Level"));
|
|
}
|
|
S.EndMultiColumn();
|
|
|
|
S.StartMultiColumn(2, wxCENTER);
|
|
{
|
|
// Link checkbox
|
|
mLinkCheckBox = S.Id(ID_Link).AddCheckBox(_("Link Volume control to Tone controls"),
|
|
DEF_Link ? wxT("true") : wxT("false"));
|
|
}
|
|
S.EndMultiColumn();
|
|
}
|
|
S.EndStatic();
|
|
}
|
|
|
|
bool EffectBassTreble::TransferDataToWindow()
|
|
{
|
|
if (!mUIParent->TransferDataToWindow())
|
|
{
|
|
return false;
|
|
}
|
|
|
|
mBassS->SetValue((int) (mBass * SCL_Bass));
|
|
mTrebleS->SetValue((int) mTreble *SCL_Treble);
|
|
mGainS->SetValue((int) mGain * SCL_Gain);
|
|
mLinkCheckBox->SetValue(mLink);
|
|
|
|
return true;
|
|
}
|
|
|
|
bool EffectBassTreble::TransferDataFromWindow()
|
|
{
|
|
if (!mUIParent->Validate() || !mUIParent->TransferDataFromWindow())
|
|
{
|
|
return false;
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
// EffectBassTreble implementation
|
|
|
|
void EffectBassTreble::InstanceInit(EffectBassTrebleState & data, float sampleRate)
|
|
{
|
|
data.samplerate = sampleRate;
|
|
data.slope = 0.4f; // same slope for both filters
|
|
data.hzBass = 250.0f; // could be tunable in a more advanced version
|
|
data.hzTreble = 4000.0f; // could be tunable in a more advanced version
|
|
|
|
data.a0Bass = 1;
|
|
data.a1Bass = 0;
|
|
data.a2Bass = 0;
|
|
data.b0Bass = 0;
|
|
data.b1Bass = 0;
|
|
data.b2Bass = 0;
|
|
|
|
data.a0Treble = 1;
|
|
data.a1Treble = 0;
|
|
data.a2Treble = 0;
|
|
data.b0Treble = 0;
|
|
data.b1Treble = 0;
|
|
data.b2Treble = 0;
|
|
|
|
data.xn1Bass = 0;
|
|
data.xn2Bass = 0;
|
|
data.yn1Bass = 0;
|
|
data.yn2Bass = 0;
|
|
|
|
data.xn1Treble = 0;
|
|
data.xn2Treble = 0;
|
|
data.yn1Treble = 0;
|
|
data.yn2Treble = 0;
|
|
|
|
data.bass = -1;
|
|
data.treble = -1;
|
|
data.gain = DB_TO_LINEAR(mGain);
|
|
|
|
}
|
|
|
|
|
|
// EffectClientInterface implementation
|
|
|
|
|
|
size_t EffectBassTreble::InstanceProcess(EffectBassTrebleState & data,
|
|
float **inBlock,
|
|
float **outBlock,
|
|
size_t blockLen)
|
|
{
|
|
float *ibuf = inBlock[0];
|
|
float *obuf = outBlock[0];
|
|
|
|
// Set value to ensure correct rounding
|
|
double oldBass = DB_TO_LINEAR(mBass);
|
|
double oldTreble = DB_TO_LINEAR(mTreble);
|
|
|
|
data.gain = DB_TO_LINEAR(mGain);
|
|
|
|
// Compute coefficents of the low shelf biquand IIR filter
|
|
if (data.bass != oldBass)
|
|
Coefficents(data.hzBass, data.slope, mBass, data.samplerate, kBass,
|
|
data.a0Bass, data.a1Bass, data.a2Bass,
|
|
data.b0Bass, data.b1Bass, data.b2Bass);
|
|
|
|
// Compute coefficents of the high shelf biquand IIR filter
|
|
if (data.treble != oldTreble)
|
|
Coefficents(data.hzTreble, data.slope, mTreble, data.samplerate, kTreble,
|
|
data.a0Treble, data.a1Treble, data.a2Treble,
|
|
data.b0Treble, data.b1Treble, data.b2Treble);
|
|
|
|
for (decltype(blockLen) i = 0; i < blockLen; i++) {
|
|
obuf[i] = DoFilter(data, ibuf[i]) * data.gain;
|
|
}
|
|
|
|
return blockLen;
|
|
}
|
|
|
|
|
|
|
|
// Effect implementation
|
|
|
|
|
|
void EffectBassTreble::Coefficents(double hz, double slope, double gain, double samplerate, int type,
|
|
double& a0, double& a1, double& a2,
|
|
double& b0, double& b1, double& b2)
|
|
{
|
|
double w = 2 * M_PI * hz / samplerate;
|
|
double a = exp(log(10.0) * gain / 40);
|
|
double b = sqrt((a * a + 1) / slope - (pow((a - 1), 2)));
|
|
|
|
if (type == kBass)
|
|
{
|
|
b0 = a * ((a + 1) - (a - 1) * cos(w) + b * sin(w));
|
|
b1 = 2 * a * ((a - 1) - (a + 1) * cos(w));
|
|
b2 = a * ((a + 1) - (a - 1) * cos(w) - b * sin(w));
|
|
a0 = ((a + 1) + (a - 1) * cos(w) + b * sin(w));
|
|
a1 = -2 * ((a - 1) + (a + 1) * cos(w));
|
|
a2 = (a + 1) + (a - 1) * cos(w) - b * sin(w);
|
|
}
|
|
else //assumed kTreble
|
|
{
|
|
b0 = a * ((a + 1) + (a - 1) * cos(w) + b * sin(w));
|
|
b1 = -2 * a * ((a - 1) + (a + 1) * cos(w));
|
|
b2 = a * ((a + 1) + (a - 1) * cos(w) - b * sin(w));
|
|
a0 = ((a + 1) - (a - 1) * cos(w) + b * sin(w));
|
|
a1 = 2 * ((a - 1) - (a + 1) * cos(w));
|
|
a2 = (a + 1) - (a - 1) * cos(w) - b * sin(w);
|
|
}
|
|
}
|
|
|
|
float EffectBassTreble::DoFilter(EffectBassTrebleState & data, float in)
|
|
{
|
|
// Bass filter
|
|
float out = (data.b0Bass * in + data.b1Bass * data.xn1Bass + data.b2Bass * data.xn2Bass -
|
|
data.a1Bass * data.yn1Bass - data.a2Bass * data.yn2Bass) / data.a0Bass;
|
|
data.xn2Bass = data.xn1Bass;
|
|
data.xn1Bass = in;
|
|
data.yn2Bass = data.yn1Bass;
|
|
data.yn1Bass = out;
|
|
|
|
// Treble filter
|
|
in = out;
|
|
out = (data.b0Treble * in + data.b1Treble * data.xn1Treble + data.b2Treble * data.xn2Treble -
|
|
data.a1Treble * data.yn1Treble - data.a2Treble * data.yn2Treble) / data.a0Treble;
|
|
data.xn2Treble = data.xn1Treble;
|
|
data.xn1Treble = in;
|
|
data.yn2Treble = data.yn1Treble;
|
|
data.yn1Treble = out;
|
|
|
|
return out;
|
|
}
|
|
|
|
|
|
void EffectBassTreble::OnBassText(wxCommandEvent & WXUNUSED(evt))
|
|
{
|
|
double oldBass = mBass;
|
|
|
|
if (!EnableApply(mUIParent->TransferDataFromWindow()))
|
|
{
|
|
return;
|
|
}
|
|
|
|
if (mLink) UpdateGain(oldBass, kBass);
|
|
mBassS->SetValue((int) (mBass * SCL_Bass));
|
|
}
|
|
|
|
void EffectBassTreble::OnTrebleText(wxCommandEvent & WXUNUSED(evt))
|
|
{
|
|
double oldTreble = mTreble;
|
|
|
|
if (!EnableApply(mUIParent->TransferDataFromWindow()))
|
|
{
|
|
return;
|
|
}
|
|
|
|
if (mLink) UpdateGain(oldTreble, kTreble);
|
|
mTrebleS->SetValue((int) (mTreble * SCL_Treble));
|
|
}
|
|
|
|
void EffectBassTreble::OnGainText(wxCommandEvent & WXUNUSED(evt))
|
|
{
|
|
if (!EnableApply(mUIParent->TransferDataFromWindow()))
|
|
{
|
|
return;
|
|
}
|
|
|
|
mGainS->SetValue((int) (mGain * SCL_Gain));
|
|
}
|
|
|
|
void EffectBassTreble::OnBassSlider(wxCommandEvent & evt)
|
|
{
|
|
double oldBass = mBass;
|
|
mBass = (double) evt.GetInt() / SCL_Bass;
|
|
mBassT->GetValidator()->TransferToWindow();
|
|
|
|
if (mLink) UpdateGain(oldBass, kBass);
|
|
EnableApply(mUIParent->Validate());
|
|
}
|
|
|
|
void EffectBassTreble::OnTrebleSlider(wxCommandEvent & evt)
|
|
{
|
|
double oldTreble = mTreble;
|
|
mTreble = (double) evt.GetInt() / SCL_Treble;
|
|
mTrebleT->GetValidator()->TransferToWindow();
|
|
|
|
if (mLink) UpdateGain(oldTreble, kTreble);
|
|
EnableApply(mUIParent->Validate());
|
|
}
|
|
|
|
void EffectBassTreble::OnGainSlider(wxCommandEvent & evt)
|
|
{
|
|
mGain = (double) evt.GetInt() / SCL_Gain;
|
|
mGainT->GetValidator()->TransferToWindow();
|
|
|
|
EnableApply(mUIParent->Validate());
|
|
}
|
|
|
|
void EffectBassTreble::OnLinkCheckbox(wxCommandEvent& /*evt*/)
|
|
{
|
|
mLink = mLinkCheckBox->GetValue();
|
|
}
|
|
|
|
void EffectBassTreble::UpdateGain(double oldVal, int control)
|
|
{
|
|
double newVal;
|
|
oldVal = (oldVal > 0)? oldVal / 2.0 : oldVal / 4.0;
|
|
|
|
if (control == kBass)
|
|
newVal = (mBass > 0)? mBass / 2.0 : mBass / 4.0;
|
|
else
|
|
newVal = (mTreble > 0)? mTreble / 2.0 : mTreble / 4.0;
|
|
|
|
mGain -= newVal - oldVal;
|
|
mGain = std::min(MAX_Gain, std::max(MIN_Gain, mGain));
|
|
|
|
mGainS->SetValue(mGain);
|
|
mGainT->GetValidator()->TransferToWindow();
|
|
|
|
}
|