aboutsummaryrefslogtreecommitdiffstats
path: root/plugins/WinVST/ChromeOxide/ChromeOxideProc.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/WinVST/ChromeOxide/ChromeOxideProc.cpp')
-rwxr-xr-xplugins/WinVST/ChromeOxide/ChromeOxideProc.cpp331
1 files changed, 331 insertions, 0 deletions
diff --git a/plugins/WinVST/ChromeOxide/ChromeOxideProc.cpp b/plugins/WinVST/ChromeOxide/ChromeOxideProc.cpp
new file mode 100755
index 0000000..6c2d99f
--- /dev/null
+++ b/plugins/WinVST/ChromeOxide/ChromeOxideProc.cpp
@@ -0,0 +1,331 @@
+/* ========================================
+ * 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++;
+ }
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-14 14:32:47 +0000