e1lama/stk
1
0
Fork 0
mirror of https://github.com/thestk/stk synced 2026-01-14 05:21:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version 4.2.0

Browse Source
This commit is contained in:
Gary Scavone
2009-03-24 23:02:14 -04:00
committed by Stephen Sinclair
parent cf06b7598b
commit a6381b9d38
281 changed files with 17152 additions and 12000 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
src/OnePole.cpp
View File

@@ -8,7 +8,7 @@
the real axis of the z-plane while maintaining
a constant peak filter gain.
by Perry R. Cook and Gary P. Scavone, 1995 - 2002.
by Perry R. Cook and Gary P. Scavone, 1995 - 2004.
*/
/***************************************************/
@@ -16,24 +16,25 @@
OnePole :: OnePole() : Filter()
{
MY_FLOAT B = 0.1;
MY_FLOAT A[2] = {1.0, -0.9};
Filter::setCoefficients( 1, &B, 2, A );
std::vector<StkFloat> b(1, 0.1);
std::vector<StkFloat> a(2, 1.0);
a[1] = -0.9;
Filter::setCoefficients( b, a );
}
OnePole :: OnePole(MY_FLOAT thePole) : Filter()
OnePole :: OnePole(StkFloat thePole) : Filter()
{
MY_FLOAT B;
MY_FLOAT A[2] = {1.0, -0.9};
std::vector<StkFloat> b(1);
std::vector<StkFloat> a(2, 1.0);
a[1] = -thePole;
// Normalize coefficients for peak unity gain.
if (thePole > 0.0)
B = (MY_FLOAT) (1.0 - thePole);
b[0] = (StkFloat) (1.0 - thePole);
else
B = (MY_FLOAT) (1.0 + thePole);
b[0] = (StkFloat) (1.0 + thePole);
A[1] = -thePole;
Filter::setCoefficients( 1, &B, 2, A );
Filter::setCoefficients( b, a );
}
OnePole :: ~OnePole()
@@ -45,55 +46,57 @@ void OnePole :: clear(void)
Filter::clear();
}
void OnePole :: setB0(MY_FLOAT b0)
void OnePole :: setB0(StkFloat b0)
{
b[0] = b0;
b_[0] = b0;
}
void OnePole :: setA1(MY_FLOAT a1)
void OnePole :: setA1(StkFloat a1)
{
a[1] = a1;
a_[1] = a1;
}
void OnePole :: setPole(MY_FLOAT thePole)
void OnePole :: setPole(StkFloat thePole)
{
// Normalize coefficients for peak unity gain.
if (thePole > 0.0)
b[0] = (MY_FLOAT) (1.0 - thePole);
b_[0] = (StkFloat) (1.0 - thePole);
else
b[0] = (MY_FLOAT) (1.0 + thePole);
b_[0] = (StkFloat) (1.0 + thePole);
a[1] = -thePole;
a_[1] = -thePole;
}
void OnePole :: setGain(MY_FLOAT theGain)
void OnePole :: setGain(StkFloat gain)
{
Filter::setGain(theGain);
Filter::setGain(gain);
}
MY_FLOAT OnePole :: getGain(void) const
StkFloat OnePole :: getGain(void) const
{
return Filter::getGain();
}
MY_FLOAT OnePole :: lastOut(void) const
StkFloat OnePole :: lastOut(void) const
{
return Filter::lastOut();
}
MY_FLOAT OnePole :: tick(MY_FLOAT sample)
StkFloat OnePole :: tick(StkFloat sample)
{
inputs[0] = gain * sample;
outputs[0] = b[0] * inputs[0] - a[1] * outputs[1];
outputs[1] = outputs[0];
inputs_[0] = gain_ * sample;
outputs_[0] = b_[0] * inputs_[0] - a_[1] * outputs_[1];
outputs_[1] = outputs_[0];
return outputs[0];
return outputs_[0];
}
MY_FLOAT *OnePole :: tick(MY_FLOAT *vector, unsigned int vectorSize)
StkFloat *OnePole :: tick(StkFloat *vector, unsigned int vectorSize)
{
for (unsigned int i=0; i<vectorSize; i++)
vector[i] = tick(vector[i]);
return vector;
return Filter::tick( vector, vectorSize );
}
StkFrames& OnePole :: tick( StkFrames& frames, unsigned int channel )
{
return Filter::tick( frames, channel );
}