mirror of
https://codeberg.org/armin/justasample.git
synced 2026-09-01 12:20:48 +02:00
237 lines
No EOL
9.4 KiB
C++
237 lines
No EOL
9.4 KiB
C++
/*
|
|
==============================================================================
|
|
|
|
This file is part of the GIN library.
|
|
Copyright (c) 2020 - Roland Rabien.
|
|
|
|
MIT License
|
|
|
|
Copyright (c) 2018 Chris Johnson
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
in the Software without restriction, including without limitation the rights
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in all
|
|
copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
SOFTWARE.
|
|
|
|
==============================================================================
|
|
*/
|
|
|
|
#pragma once
|
|
#include <JuceHeader.h>
|
|
|
|
namespace gin
|
|
{
|
|
|
|
//==============================================================================
|
|
/** Distortion based on AirWindows plugins
|
|
*/
|
|
class AirWindowsDistortion
|
|
{
|
|
public:
|
|
AirWindowsDistortion()
|
|
{
|
|
reset();
|
|
}
|
|
|
|
void setSampleRate(double sr)
|
|
{
|
|
sampleRate = sr;
|
|
}
|
|
|
|
void reset()
|
|
{
|
|
A = 0.2f;
|
|
B = 0.0f;
|
|
C = 1.0f;
|
|
D = 1.0f;
|
|
iirSampleAL = 0.0f;
|
|
iirSampleBL = 0.0f;
|
|
iirSampleAR = 0.0f;
|
|
iirSampleBR = 0.0f;
|
|
fpFlip = true;
|
|
fpNShapeL = 0.0f;
|
|
fpNShapeR = 0.0f;
|
|
}
|
|
|
|
void setParams(float density, float highpass, float output, float mix)
|
|
{
|
|
A = density;
|
|
B = highpass;
|
|
C = output;
|
|
D = mix;
|
|
}
|
|
|
|
void process(float* l, float* r, int sampleFrames)
|
|
{
|
|
double overallscale = 1.0;
|
|
overallscale /= 44100.0;
|
|
overallscale *= sampleRate;
|
|
double density = (A * 5.0) - 1.0;
|
|
double iirAmount = pow(B, 3) / overallscale;
|
|
double output = C;
|
|
double wet = D;
|
|
double dry = 1.0 - wet;
|
|
double bridgerectifier;
|
|
double out = fabs(density);
|
|
density = density * fabs(density);
|
|
double count;
|
|
|
|
long double inputSampleL;
|
|
long double inputSampleR;
|
|
long double drySampleL;
|
|
long double drySampleR;
|
|
|
|
while (--sampleFrames >= 0)
|
|
{
|
|
inputSampleL = *l;
|
|
inputSampleR = *r;
|
|
if (inputSampleL < 1.2e-38 && -inputSampleL < 1.2e-38) {
|
|
static int noisesource = 0;
|
|
//this declares a variable before anything else is compiled. It won't keep assigning
|
|
//it to 0 for every sample, it's as if the declaration doesn't exist in this context,
|
|
//but it lets me add this denormalization fix in a single place rather than updating
|
|
//it in three different locations. The variable isn't thread-safe but this is only
|
|
//a random seed and we can share it with whatever.
|
|
noisesource = noisesource % 1700021; noisesource++;
|
|
int residue = noisesource * noisesource;
|
|
residue = residue % 170003; residue *= residue;
|
|
residue = residue % 17011; residue *= residue;
|
|
residue = residue % 1709; residue *= residue;
|
|
residue = residue % 173; residue *= residue;
|
|
residue = residue % 17;
|
|
double applyresidue = residue;
|
|
applyresidue *= 0.00000001;
|
|
applyresidue *= 0.00000001;
|
|
inputSampleL = applyresidue;
|
|
}
|
|
if (inputSampleR < 1.2e-38 && -inputSampleR < 1.2e-38) {
|
|
static int noisesource = 0;
|
|
noisesource = noisesource % 1700021; noisesource++;
|
|
int residue = noisesource * noisesource;
|
|
residue = residue % 170003; residue *= residue;
|
|
residue = residue % 17011; residue *= residue;
|
|
residue = residue % 1709; residue *= residue;
|
|
residue = residue % 173; residue *= residue;
|
|
residue = residue % 17;
|
|
double applyresidue = residue;
|
|
applyresidue *= 0.00000001;
|
|
applyresidue *= 0.00000001;
|
|
inputSampleR = applyresidue;
|
|
//this denormalization routine produces a white noise at -300 dB which the noise
|
|
//shaping will interact with to produce a bipolar output, but the noise is actually
|
|
//all positive. That should stop any variables from going denormal, and the routine
|
|
//only kicks in if digital black is input. As a final touch, if you save to 24-bit
|
|
//the silence will return to being digital black again.
|
|
}
|
|
drySampleL = inputSampleL;
|
|
drySampleR = inputSampleR;
|
|
|
|
if (fpFlip)
|
|
{
|
|
iirSampleAL = double((iirSampleAL * (1.0 - iirAmount)) + (inputSampleL * iirAmount));
|
|
inputSampleL -= iirSampleAL;
|
|
iirSampleAR = double((iirSampleAR * (1.0 - iirAmount)) + (inputSampleR * iirAmount));
|
|
inputSampleR -= iirSampleAR;
|
|
}
|
|
else
|
|
{
|
|
iirSampleBL = double((iirSampleBL * (1.0 - iirAmount)) + (inputSampleL * iirAmount));
|
|
inputSampleL -= iirSampleBL;
|
|
iirSampleBR = double((iirSampleBR * (1.0 - iirAmount)) + (inputSampleR * iirAmount));
|
|
inputSampleR -= iirSampleBR;
|
|
}
|
|
//highpass section
|
|
fpFlip = !fpFlip;
|
|
|
|
count = density;
|
|
while (count > 1.0)
|
|
{
|
|
bridgerectifier = double(fabs(inputSampleL) * 1.57079633);
|
|
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
|
|
//max value for sine function
|
|
bridgerectifier = sin(bridgerectifier);
|
|
if (inputSampleL > 0.0) inputSampleL = bridgerectifier;
|
|
else inputSampleL = -bridgerectifier;
|
|
|
|
bridgerectifier = double(fabs(inputSampleR) * 1.57079633);
|
|
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
|
|
//max value for sine function
|
|
bridgerectifier = sin(bridgerectifier);
|
|
if (inputSampleR > 0.0) inputSampleR = bridgerectifier;
|
|
else inputSampleR = -bridgerectifier;
|
|
|
|
count = count - 1.0;
|
|
}
|
|
//we have now accounted for any really high density settings.
|
|
|
|
while (out > 1.0) out = out - 1.0;
|
|
|
|
bridgerectifier = double(fabs(inputSampleL) * 1.57079633);
|
|
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
|
|
//max value for sine function
|
|
if (density > 0) bridgerectifier = sin(bridgerectifier);
|
|
else bridgerectifier = 1 - cos(bridgerectifier);
|
|
//produce either boosted or starved version
|
|
if (inputSampleL > 0) inputSampleL = (inputSampleL * (1 - out)) + (bridgerectifier * out);
|
|
else inputSampleL = (inputSampleL * (1 - out)) - (bridgerectifier * out);
|
|
//blend according to density control
|
|
|
|
bridgerectifier = double(fabs(inputSampleR) * 1.57079633);
|
|
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
|
|
//max value for sine function
|
|
if (density > 0) bridgerectifier = sin(bridgerectifier);
|
|
else bridgerectifier = 1 - cos(bridgerectifier);
|
|
//produce either boosted or starved version
|
|
if (inputSampleR > 0) inputSampleR = (inputSampleR * (1.0 - out)) + (bridgerectifier * out);
|
|
else inputSampleR = (inputSampleR * (1.0 - out)) - (bridgerectifier * out);
|
|
//blend according to density control
|
|
|
|
if (output < 1.0) {
|
|
inputSampleL *= output;
|
|
inputSampleR *= output;
|
|
}
|
|
if (wet < 1.0) {
|
|
inputSampleL = (drySampleL * dry) + (inputSampleL * wet);
|
|
inputSampleR = (drySampleR * dry) + (inputSampleR * wet);
|
|
}
|
|
//nice little output stage template: if we have another scale of floating point
|
|
//number, we really don't want to meaninglessly multiply that by 1.0.
|
|
|
|
//stereo 32 bit dither, made small and tidy.
|
|
int expon; frexpf((float)inputSampleL, &expon);
|
|
long double dither = (rand() / (RAND_MAX * 7.737125245533627e+25)) * pow(2, expon + 62);
|
|
inputSampleL += (dither - fpNShapeL); fpNShapeL = dither;
|
|
frexpf((float)inputSampleR, &expon);
|
|
dither = (rand() / (RAND_MAX * 7.737125245533627e+25)) * pow(2, expon + 62);
|
|
inputSampleR += (dither - fpNShapeR); fpNShapeR = dither;
|
|
//end 32 bit dither
|
|
|
|
*l = float(inputSampleL);
|
|
*r = float(inputSampleR);
|
|
|
|
l++;
|
|
r++;
|
|
}
|
|
}
|
|
|
|
private:
|
|
double sampleRate = 44100.0;
|
|
long double fpNShapeL, fpNShapeR;
|
|
double iirSampleAL, iirSampleBL, iirSampleAR, iirSampleBR;
|
|
bool fpFlip;
|
|
float A, B, C, D;
|
|
};
|
|
} // namespace gin
|