/* ========================================
* ChromeOxide - ChromeOxide.h
* Copyright (c) 2016 airwindows, All rights reserved
* ======================================== */
#ifndef __ChromeOxide_H
#include "ChromeOxide.h"
#endif
void ChromeOxide::processReplacing(float **inputs, float **outputs, VstInt32 sampleFrames)
{
float* in1 = inputs[0];
float* in2 = inputs[1];
float* out1 = outputs[0];
float* out2 = outputs[1];
double overallscale = 1.0;
overallscale /= 44100.0;
overallscale *= getSampleRate();
double bassSampleL;
double bassSampleR;
double randy;
double bias = B/1.31578947368421;
double intensity = 0.9+pow(A,2);
double iirAmount = pow(1.0-(intensity/(10+(bias*4.0))),2)/overallscale;
//make 10 higher for less trashy sound in high settings
double bridgerectifier;
double trebleGainTrim = 1.0;
double indrive = 1.0;
double densityA = (intensity*80)+1.0;
double noise = intensity/(1.0+bias);
double bassGainTrim = 1.0;
double glitch = 0.0;
bias *= overallscale;
noise *= overallscale;
if (intensity > 1.0)
{
glitch = intensity-1.0;
indrive = intensity*intensity;
bassGainTrim /= (intensity*intensity);
trebleGainTrim = (intensity+1.0)/2.0;
}
//everything runs off Intensity now
while (--sampleFrames >= 0)
{
long double inputSampleL = *in1;
long double inputSampleR = *in2;
if (fabs(inputSampleL)<1.18e-37) inputSampleL = fpd * 1.18e-37;
if (fabs(inputSampleR)<1.18e-37) inputSampleR = fpd * 1.18e-37;
inputSampleL *= indrive;
inputSampleR *= indrive;
bassSampleL = inputSampleL;
bassSampleR = inputSampleR;
if (flip)
{
iirSampleAL = (iirSampleAL * (1 - iirAmount)) + (inputSampleL * iirAmount);
iirSampleAR = (iirSampleAR * (1 - iirAmount)) + (inputSampleR * iirAmount);
inputSampleL -= iirSampleAL;
inputSampleR -= iirSampleAR;
}
else
{
iirSampleBL = (iirSampleBL * (1 - iirAmount)) + (inputSampleL * iirAmount);
iirSampleBR = (iirSampleBR * (1 - iirAmount)) + (inputSampleR * iirAmount);
inputSampleL -= iirSampleBL;
inputSampleR -= iirSampleBR;
}
//highpass section
bassSampleL -= (inputSampleL * (fabs(inputSampleL) * glitch) * (fabs(inputSampleL) * glitch) );
bassSampleR -= (inputSampleR * (fabs(inputSampleR) * glitch) * (fabs(inputSampleR) * glitch) );
//overdrive the bass channel
if (flip)
{
iirSampleCL = (iirSampleCL * (1 - iirAmount)) + (bassSampleL * iirAmount);
iirSampleCR = (iirSampleCR * (1 - iirAmount)) + (bassSampleR * iirAmount);
bassSampleL = iirSampleCL;
bassSampleR = iirSampleCR;
}
else
{
iirSampleDL = (iirSampleDL * (1 - iirAmount)) + (bassSampleL * iirAmount);
iirSampleDR = (iirSampleDR * (1 - iirAmount)) + (bassSampleR * iirAmount);
bassSampleL = iirSampleDL;
bassSampleR = iirSampleDR;
}
//bass filter same as high but only after the clipping
flip = !flip;
bridgerectifier = inputSampleL;
//insanity check
randy = bias+((rand()/(double)RAND_MAX)*noise);
if ((randy >= 0.0)&&(randy < 1.0)) bridgerectifier = (inputSampleL * randy)+(secondSampleL * (1.0-randy));
if ((randy >= 1.0)&&(randy < 2.0)) bridgerectifier = (secondSampleL * (randy-1.0))+(thirdSampleL * (2.0-randy));
if ((randy >= 2.0)&&(randy < 3.0)) bridgerectifier = (thirdSampleL * (randy-2.0))+(fourthSampleL * (3.0-randy));
if ((randy >= 3.0)&&(randy < 4.0)) bridgerectifier = (fourthSampleL * (randy-3.0))+(fifthSampleL * (4.0-randy));
fifthSampleL = fourthSampleL;
fourthSampleL = thirdSampleL;
thirdSampleL = secondSampleL;
secondSampleL = inputSampleL;
//high freq noise/flutter section
inputSampleL = bridgerectifier;
//apply overall, or just to the distorted bit? if the latter, below says 'fabs bridgerectifier'
bridgerectifier = inputSampleR;
//insanity check
randy = bias+((rand()/(double)RAND_MAX)*noise);
if ((randy >= 0.0)&&(randy < 1.0)) bridgerectifier = (inputSampleR * randy)+(secondSampleR * (1.0-randy));
if ((randy >= 1.0)&&(randy < 2.0)) bridgerectifier = (secondSampleR * (randy-1.0))+(thirdSampleR * (2.0-randy));
if ((randy >= 2.0)&&(randy < 3.0)) bridgerectifier = (thirdSampleR * (randy-2.0))+(fourthSampleR * (3.0-randy));
if ((randy >= 3.0)&&(randy < 4.0)) bridgerectifier = (fourthSampleR * (randy-3.0))+(fifthSampleR * (4.0-randy));
fifthSampleR = fourthSampleR;
fourthSampleR = thirdSampleR;
thirdSampleR = secondSampleR;
secondSampleR = inputSampleR;
//high freq noise/flutter section
inputSampleR = bridgerectifier;
//apply overall, or just to the distorted bit? if the latter, below says 'fabs bridgerectifier'
bridgerectifier = fabs(inputSampleL)*densityA;
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
//max value for sine function
bridgerectifier = sin(bridgerectifier);
if (inputSampleL > 0) inputSampleL = bridgerectifier/densityA;
else inputSampleL = -bridgerectifier/densityA;
//blend according to densityA control
bridgerectifier = fabs(inputSampleR)*densityA;
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
//max value for sine function
bridgerectifier = sin(bridgerectifier);
if (inputSampleR > 0) inputSampleR = bridgerectifier/densityA;
else inputSampleR = -bridgerectifier/densityA;
//blend according to densityA control
inputSampleL *= trebleGainTrim;
inputSampleR *= trebleGainTrim;
bassSampleL *= bassGainTrim;
bassSampleR *= bassGainTrim;
inputSampleL += bassSampleL;
inputSampleR += bassSampleR;
//that simple.
//begin 32 bit stereo floating point dither
int expon; frexpf((float)inputSampleL, &expon);
fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5;
inputSampleL += ((double(fpd)-uint32_t(0x7fffffff)) * 5.5e-36l * pow(2,expon+62));
frexpf((float)inputSampleR, &expon);
fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5;
inputSampleR += ((double(fpd)-uint32_t(0x7fffffff)) * 5.5e-36l * pow(2,expon+62));
//end 32 bit stereo floating point dither
*out1 = inputSampleL;
*out2 = inputSampleR;
*in1++;
*in2++;
*out1++;
*out2++;
}
}
void ChromeOxide::processDoubleReplacing(double **inputs, double **outputs, VstInt32 sampleFrames)
{
double* in1 = inputs[0];
double* in2 = inputs[1];
double* out1 = outputs[0];
double* out2 = outputs[1];
double overallscale = 1.0;
overallscale /= 44100.0;
overallscale *= getSampleRate();
double bassSampleL;
double bassSampleR;
double randy;
double bias = B/1.31578947368421;
double intensity = 0.9+pow(A,2);
double iirAmount = pow(1.0-(intensity/(10+(bias*4.0))),2)/overallscale;
//make 10 higher for less trashy sound in high settings
double bridgerectifier;
double trebleGainTrim = 1.0;
double indrive = 1.0;
double densityA = (intensity*80)+1.0;
double noise = intensity/(1.0+bias);
double bassGainTrim = 1.0;
double glitch = 0.0;
bias *= overallscale;
noise *= overallscale;
if (intensity > 1.0)
{
glitch = intensity-1.0;
indrive = intensity*intensity;
bassGainTrim /= (intensity*intensity);
trebleGainTrim = (intensity+1.0)/2.0;
}
//everything runs off Intensity now
while (--sampleFrames >= 0)
{
long double inputSampleL = *in1;
long double inputSampleR = *in2;
if (fabs(inputSampleL)<1.18e-43) inputSampleL = fpd * 1.18e-43;
if (fabs(inputSampleR)<1.18e-43) inputSampleR = fpd * 1.18e-43;
inputSampleL *= indrive;
inputSampleR *= indrive;
bassSampleL = inputSampleL;
bassSampleR = inputSampleR;
if (flip)
{
iirSampleAL = (iirSampleAL * (1 - iirAmount)) + (inputSampleL * iirAmount);
iirSampleAR = (iirSampleAR * (1 - iirAmount)) + (inputSampleR * iirAmount);
inputSampleL -= iirSampleAL;
inputSampleR -= iirSampleAR;
}
else
{
iirSampleBL = (iirSampleBL * (1 - iirAmount)) + (inputSampleL * iirAmount);
iirSampleBR = (iirSampleBR * (1 - iirAmount)) + (inputSampleR * iirAmount);
inputSampleL -= iirSampleBL;
inputSampleR -= iirSampleBR;
}
//highpass section
bassSampleL -= (inputSampleL * (fabs(inputSampleL) * glitch) * (fabs(inputSampleL) * glitch) );
bassSampleR -= (inputSampleR * (fabs(inputSampleR) * glitch) * (fabs(inputSampleR) * glitch) );
//overdrive the bass channel
if (flip)
{
iirSampleCL = (iirSampleCL * (1 - iirAmount)) + (bassSampleL * iirAmount);
iirSampleCR = (iirSampleCR * (1 - iirAmount)) + (bassSampleR * iirAmount);
bassSampleL = iirSampleCL;
bassSampleR = iirSampleCR;
}
else
{
iirSampleDL = (iirSampleDL * (1 - iirAmount)) + (bassSampleL * iirAmount);
iirSampleDR = (iirSampleDR * (1 - iirAmount)) + (bassSampleR * iirAmount);
bassSampleL = iirSampleDL;
bassSampleR = iirSampleDR;
}
//bass filter same as high but only after the clipping
flip = !flip;
bridgerectifier = inputSampleL;
//insanity check
randy = bias+((rand()/(double)RAND_MAX)*noise);
if ((randy >= 0.0)&&(randy < 1.0)) bridgerectifier = (inputSampleL * randy)+(secondSampleL * (1.0-randy));
if ((randy >= 1.0)&&(randy < 2.0)) bridgerectifier = (secondSampleL * (randy-1.0))+(thirdSampleL * (2.0-randy));
if ((randy >= 2.0)&&(randy < 3.0)) bridgerectifier = (thirdSampleL * (randy-2.0))+(fourthSampleL * (3.0-randy));
if ((randy >= 3.0)&&(randy < 4.0)) bridgerectifier = (fourthSampleL * (randy-3.0))+(fifthSampleL * (4.0-randy));
fifthSampleL = fourthSampleL;
fourthSampleL = thirdSampleL;
thirdSampleL = secondSampleL;
secondSampleL = inputSampleL;
//high freq noise/flutter section
inputSampleL = bridgerectifier;
//apply overall, or just to the distorted bit? if the latter, below says 'fabs bridgerectifier'
bridgerectifier = inputSampleR;
//insanity check
randy = bias+((rand()/(double)RAND_MAX)*noise);
if ((randy >= 0.0)&&(randy < 1.0)) bridgerectifier = (inputSampleR * randy)+(secondSampleR * (1.0-randy));
if ((randy >= 1.0)&&(randy < 2.0)) bridgerectifier = (secondSampleR * (randy-1.0))+(thirdSampleR * (2.0-randy));
if ((randy >= 2.0)&&(randy < 3.0)) bridgerectifier = (thirdSampleR * (randy-2.0))+(fourthSampleR * (3.0-randy));
if ((randy >= 3.0)&&(randy < 4.0)) bridgerectifier = (fourthSampleR * (randy-3.0))+(fifthSampleR * (4.0-randy));
fifthSampleR = fourthSampleR;
fourthSampleR = thirdSampleR;
thirdSampleR = secondSampleR;
secondSampleR = inputSampleR;
//high freq noise/flutter section
inputSampleR = bridgerectifier;
//apply overall, or just to the distorted bit? if the latter, below says 'fabs bridgerectifier'
bridgerectifier = fabs(inputSampleL)*densityA;
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
//max value for sine function
bridgerectifier = sin(bridgerectifier);
if (inputSampleL > 0) inputSampleL = bridgerectifier/densityA;
else inputSampleL = -bridgerectifier/densityA;
//blend according to densityA control
bridgerectifier = fabs(inputSampleR)*densityA;
if (bridgerectifier > 1.57079633) bridgerectifier = 1.57079633;
//max value for sine function
bridgerectifier = sin(bridgerectifier);
if (inputSampleR > 0) inputSampleR = bridgerectifier/densityA;
else inputSampleR = -bridgerectifier/densityA;
//blend according to densityA control
inputSampleL *= trebleGainTrim;
inputSampleR *= trebleGainTrim;
bassSampleL *= bassGainTrim;
bassSampleR *= bassGainTrim;
inputSampleL += bassSampleL;
inputSampleR += bassSampleR;
//that simple.
//begin 64 bit stereo floating point dither
int expon; frexp((double)inputSampleL, &expon);
fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5;
inputSampleL += ((double(fpd)-uint32_t(0x7fffffff)) * 1.1e-44l * pow(2,expon+62));
frexp((double)inputSampleR, &expon);
fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5;
inputSampleR += ((double(fpd)-uint32_t(0x7fffffff)) * 1.1e-44l * pow(2,expon+62));
//end 64 bit stereo floating point dither
*out1 = inputSampleL;
*out2 = inputSampleR;
*in1++;
*in2++;
*out1++;
*out2++;
}
}
