aboutsummaryrefslogtreecommitdiffstats
path: root/plugins/LinuxVST/src/HardVacuum
diff options
context:
space:
mode:
authorairwindows <jinx6568@sover.net>2018-03-04 19:17:09 -0500
committerairwindows <jinx6568@sover.net>2018-03-04 19:17:09 -0500
commitf2951d9baa5c7755f278668e8e79f508ab7c5ac3 (patch)
tree8d4d9ec4e39fd371906167479b32a80ef43b2ae7 /plugins/LinuxVST/src/HardVacuum
parentbb21995711adcd0ebdc62697480c2f8981b61162 (diff)
downloadairwindows-lv2-port-f2951d9baa5c7755f278668e8e79f508ab7c5ac3.tar.gz
airwindows-lv2-port-f2951d9baa5c7755f278668e8e79f508ab7c5ac3.tar.bz2
airwindows-lv2-port-f2951d9baa5c7755f278668e8e79f508ab7c5ac3.zip
Hard Vacuum
Diffstat (limited to 'plugins/LinuxVST/src/HardVacuum')
-rwxr-xr-xplugins/LinuxVST/src/HardVacuum/HardVacuum.cpp157
-rwxr-xr-xplugins/LinuxVST/src/HardVacuum/HardVacuum.h77
-rwxr-xr-xplugins/LinuxVST/src/HardVacuum/HardVacuumProc.cpp407
3 files changed, 641 insertions, 0 deletions
diff --git a/plugins/LinuxVST/src/HardVacuum/HardVacuum.cpp b/plugins/LinuxVST/src/HardVacuum/HardVacuum.cpp
new file mode 100755
index 0000000..2ad1a4a
--- /dev/null
+++ b/plugins/LinuxVST/src/HardVacuum/HardVacuum.cpp
@@ -0,0 +1,157 @@
+/* ========================================
+ * HardVacuum - HardVacuum.h
+ * Copyright (c) 2016 airwindows, All rights reserved
+ * ======================================== */
+
+#ifndef __HardVacuum_H
+#include "HardVacuum.h"
+#endif
+
+AudioEffect* createEffectInstance(audioMasterCallback audioMaster) {return new HardVacuum(audioMaster);}
+
+HardVacuum::HardVacuum(audioMasterCallback audioMaster) :
+ AudioEffectX(audioMaster, kNumPrograms, kNumParameters)
+{
+ A = 0.0;
+ B = 0.0;
+ C = 0.0;
+ D = 1.0;
+ E = 1.0;
+ lastSampleL = 0.0;
+ lastSampleR = 0.0;
+ fpNShapeLA = 0.0;
+ fpNShapeLB = 0.0;
+ fpNShapeRA = 0.0;
+ fpNShapeRB = 0.0;
+ fpFlip = true;
+ //this is reset: values being initialized only once. Startup values, whatever they are.
+
+ _canDo.insert("plugAsChannelInsert"); // plug-in can be used as a channel insert effect.
+ _canDo.insert("plugAsSend"); // plug-in can be used as a send effect.
+ _canDo.insert("x2in2out");
+ setNumInputs(kNumInputs);
+ setNumOutputs(kNumOutputs);
+ setUniqueID(kUniqueId);
+ canProcessReplacing(); // supports output replacing
+ canDoubleReplacing(); // supports double precision processing
+ programsAreChunks(true);
+ vst_strncpy (_programName, "Default", kVstMaxProgNameLen); // default program name
+}
+
+HardVacuum::~HardVacuum() {}
+VstInt32 HardVacuum::getVendorVersion () {return 1000;}
+void HardVacuum::setProgramName(char *name) {vst_strncpy (_programName, name, kVstMaxProgNameLen);}
+void HardVacuum::getProgramName(char *name) {vst_strncpy (name, _programName, kVstMaxProgNameLen);}
+//airwindows likes to ignore this stuff. Make your own programs, and make a different plugin rather than
+//trying to do versioning and preventing people from using older versions. Maybe they like the old one!
+
+static float pinParameter(float data)
+{
+ if (data < 0.0f) return 0.0f;
+ if (data > 1.0f) return 1.0f;
+ return data;
+}
+
+VstInt32 HardVacuum::getChunk (void** data, bool isPreset)
+{
+ float *chunkData = (float *)calloc(kNumParameters, sizeof(float));
+ chunkData[0] = A;
+ chunkData[1] = B;
+ chunkData[2] = C;
+ chunkData[3] = D;
+ chunkData[4] = E;
+ /* Note: The way this is set up, it will break if you manage to save settings on an Intel
+ machine and load them on a PPC Mac. However, it's fine if you stick to the machine you
+ started with. */
+
+ *data = chunkData;
+ return kNumParameters * sizeof(float);
+}
+
+VstInt32 HardVacuum::setChunk (void* data, VstInt32 byteSize, bool isPreset)
+{
+ float *chunkData = (float *)data;
+ A = pinParameter(chunkData[0]);
+ B = pinParameter(chunkData[1]);
+ C = pinParameter(chunkData[2]);
+ D = pinParameter(chunkData[3]);
+ E = pinParameter(chunkData[4]);
+ /* We're ignoring byteSize as we found it to be a filthy liar */
+
+ /* calculate any other fields you need here - you could copy in
+ code from setParameter() here. */
+ return 0;
+}
+
+void HardVacuum::setParameter(VstInt32 index, float value) {
+ switch (index) {
+ case kParamA: A = value; break;
+ case kParamB: B = value; break;
+ case kParamC: C = value; break;
+ case kParamD: D = value; break;
+ case kParamE: E = value; break;
+ default: throw; // unknown parameter, shouldn't happen!
+ }
+}
+
+float HardVacuum::getParameter(VstInt32 index) {
+ switch (index) {
+ case kParamA: return A; break;
+ case kParamB: return B; break;
+ case kParamC: return C; break;
+ case kParamD: return D; break;
+ case kParamE: return E; break;
+ default: break; // unknown parameter, shouldn't happen!
+ } return 0.0; //we only need to update the relevant name, this is simple to manage
+}
+
+void HardVacuum::getParameterName(VstInt32 index, char *text) {
+ switch (index) {
+ case kParamA: vst_strncpy (text, "Drive", kVstMaxParamStrLen); break;
+ case kParamB: vst_strncpy (text, "Warmth", kVstMaxParamStrLen); break;
+ case kParamC: vst_strncpy (text, "Aura", kVstMaxParamStrLen); break;
+ case kParamD: vst_strncpy (text, "Output", kVstMaxParamStrLen); break;
+ case kParamE: vst_strncpy (text, "Dry/Wet", kVstMaxParamStrLen); break;
+ default: break; // unknown parameter, shouldn't happen!
+ } //this is our labels for displaying in the VST host
+}
+
+void HardVacuum::getParameterDisplay(VstInt32 index, char *text) {
+ switch (index) {
+ case kParamA: float2string (A*2.0, text, kVstMaxParamStrLen); break;
+ case kParamB: float2string (B, text, kVstMaxParamStrLen); break;
+ case kParamC: float2string (C, text, kVstMaxParamStrLen); break;
+ case kParamD: float2string (D, text, kVstMaxParamStrLen); break;
+ case kParamE: float2string (E, text, kVstMaxParamStrLen); break;
+
+ default: break; // unknown parameter, shouldn't happen!
+ } //this displays the values and handles 'popups' where it's discrete choices
+}
+
+void HardVacuum::getParameterLabel(VstInt32 index, char *text) {
+ switch (index) {
+ case kParamA: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+ case kParamB: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+ case kParamC: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+ case kParamD: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+ case kParamE: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+ default: break; // unknown parameter, shouldn't happen!
+ }
+}
+
+VstInt32 HardVacuum::canDo(char *text)
+{ return (_canDo.find(text) == _canDo.end()) ? -1: 1; } // 1 = yes, -1 = no, 0 = don't know
+
+bool HardVacuum::getEffectName(char* name) {
+ vst_strncpy(name, "HardVacuum", kVstMaxProductStrLen); return true;
+}
+
+VstPlugCategory HardVacuum::getPlugCategory() {return kPlugCategEffect;}
+
+bool HardVacuum::getProductString(char* text) {
+ vst_strncpy (text, "airwindows HardVacuum", kVstMaxProductStrLen); return true;
+}
+
+bool HardVacuum::getVendorString(char* text) {
+ vst_strncpy (text, "airwindows", kVstMaxVendorStrLen); return true;
+}
diff --git a/plugins/LinuxVST/src/HardVacuum/HardVacuum.h b/plugins/LinuxVST/src/HardVacuum/HardVacuum.h
new file mode 100755
index 0000000..6321df6
--- /dev/null
+++ b/plugins/LinuxVST/src/HardVacuum/HardVacuum.h
@@ -0,0 +1,77 @@
+/* ========================================
+ * HardVacuum - HardVacuum.h
+ * Created 8/12/11 by SPIAdmin
+ * Copyright (c) 2011 __MyCompanyName__, All rights reserved
+ * ======================================== */
+
+#ifndef __HardVacuum_H
+#define __HardVacuum_H
+
+#ifndef __audioeffect__
+#include "audioeffectx.h"
+#endif
+
+#include <set>
+#include <string>
+#include <math.h>
+
+enum {
+ kParamA = 0,
+ kParamB = 1,
+ kParamC = 2,
+ kParamD = 3,
+ kParamE = 4,
+ kNumParameters = 5
+}; //
+
+const int kNumPrograms = 0;
+const int kNumInputs = 2;
+const int kNumOutputs = 2;
+const unsigned long kUniqueId = 'hrdv'; //Change this to what the AU identity is!
+
+class HardVacuum :
+ public AudioEffectX
+{
+public:
+ HardVacuum(audioMasterCallback audioMaster);
+ ~HardVacuum();
+ virtual bool getEffectName(char* name); // The plug-in name
+ virtual VstPlugCategory getPlugCategory(); // The general category for the plug-in
+ virtual bool getProductString(char* text); // This is a unique plug-in string provided by Steinberg
+ virtual bool getVendorString(char* text); // Vendor info
+ virtual VstInt32 getVendorVersion(); // Version number
+ virtual void processReplacing (float** inputs, float** outputs, VstInt32 sampleFrames);
+ virtual void processDoubleReplacing (double** inputs, double** outputs, VstInt32 sampleFrames);
+ virtual void getProgramName(char *name); // read the name from the host
+ virtual void setProgramName(char *name); // changes the name of the preset displayed in the host
+ virtual VstInt32 getChunk (void** data, bool isPreset);
+ virtual VstInt32 setChunk (void* data, VstInt32 byteSize, bool isPreset);
+ virtual float getParameter(VstInt32 index); // get the parameter value at the specified index
+ virtual void setParameter(VstInt32 index, float value); // set the parameter at index to value
+ virtual void getParameterLabel(VstInt32 index, char *text); // label for the parameter (eg dB)
+ virtual void getParameterName(VstInt32 index, char *text); // name of the parameter
+ virtual void getParameterDisplay(VstInt32 index, char *text); // text description of the current value
+ virtual VstInt32 canDo(char *text);
+private:
+ char _programName[kVstMaxProgNameLen + 1];
+ std::set< std::string > _canDo;
+
+ long double fpNShapeLA;
+ long double fpNShapeLB;
+ long double fpNShapeRA;
+ long double fpNShapeRB;
+ bool fpFlip;
+ //default stuff
+
+ double lastSampleL;
+ double lastSampleR;
+
+ float A;
+ float B;
+ float C;
+ float D;
+ float E; //parameters. Always 0-1, and we scale/alter them elsewhere.
+
+};
+
+#endif
diff --git a/plugins/LinuxVST/src/HardVacuum/HardVacuumProc.cpp b/plugins/LinuxVST/src/HardVacuum/HardVacuumProc.cpp
new file mode 100755
index 0000000..f8fe4fd
--- /dev/null
+++ b/plugins/LinuxVST/src/HardVacuum/HardVacuumProc.cpp
@@ -0,0 +1,407 @@
+/* ========================================
+ * HardVacuum - HardVacuum.h
+ * Copyright (c) 2016 airwindows, All rights reserved
+ * ======================================== */
+
+#ifndef __HardVacuum_H
+#include "HardVacuum.h"
+#endif
+
+void HardVacuum::processReplacing(float **inputs, float **outputs, VstInt32 sampleFrames)
+{
+ float* in1 = inputs[0];
+ float* in2 = inputs[1];
+ float* out1 = outputs[0];
+ float* out2 = outputs[1];
+
+ double multistage = A*2.0;
+ if (multistage > 1) multistage *= multistage;
+ //WE MAKE LOUD NOISE! RAWWWK!
+ double countdown;
+ double warmth = B;
+ double invwarmth = 1.0-warmth;
+ warmth /= 1.57079633;
+ double aura = C*3.1415926;
+ double out = D;
+ double wet = E;
+ double dry = 1.0-wet;
+ double drive;
+ double positive;
+ double negative;
+ double bridgerectifierL;
+ double bridgerectifierR;
+ double skewL;
+ double skewR;
+
+ float fpTemp;
+ long double fpOld = 0.618033988749894848204586; //golden ratio!
+ long double fpNew = 1.0 - fpOld;
+
+ double drySampleL;
+ double drySampleR;
+ long double inputSampleL;
+ long double inputSampleR;
+
+ while (--sampleFrames >= 0)
+ {
+ inputSampleL = *in1;
+ inputSampleR = *in2;
+ 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;
+
+ skewL = (inputSampleL - lastSampleL);
+ skewR = (inputSampleR - lastSampleR);
+ lastSampleL = inputSampleL;
+ lastSampleR = inputSampleR;
+ //skew will be direction/angle
+ bridgerectifierL = fabs(skewL);
+ bridgerectifierR = fabs(skewR);
+ if (bridgerectifierL > 3.1415926) bridgerectifierL = 3.1415926;
+ if (bridgerectifierR > 3.1415926) bridgerectifierR = 3.1415926;
+ //for skew we want it to go to zero effect again, so we use full range of the sine
+
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ if (skewL > 0) skewL = bridgerectifierL*aura;
+ else skewL = -bridgerectifierL*aura;
+ if (skewR > 0) skewR = bridgerectifierR*aura;
+ else skewR = -bridgerectifierR*aura;
+ //skew is now sined and clamped and then re-amplified again
+ skewL *= inputSampleL;
+ skewR *= inputSampleR;
+ //cools off sparkliness and crossover distortion
+ skewL *= 1.557079633;
+ skewR *= 1.557079633;
+ //crank up the gain on this so we can make it sing
+ //We're doing all this here so skew isn't incremented by each stage
+
+ countdown = multistage;
+ //begin the torture
+
+ while (countdown > 0)
+ {
+ if (countdown > 1.0) drive = 1.557079633;
+ else drive = countdown * (1.0+(0.557079633*invwarmth));
+ //full crank stages followed by the proportional one
+ //whee. 1 at full warmth to 1.5570etc at no warmth
+ positive = drive - warmth;
+ negative = drive + warmth;
+ //set up things so we can do repeated iterations, assuming that
+ //wet is always going to be 0-1 as in the previous plug.
+ bridgerectifierL = fabs(inputSampleL);
+ bridgerectifierR = fabs(inputSampleR);
+ bridgerectifierL += skewL;
+ bridgerectifierR += skewR;
+ //apply it here so we don't overload
+ if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+ if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ //the distortion section.
+ bridgerectifierL *= drive;
+ bridgerectifierR *= drive;
+ bridgerectifierL += skewL;
+ bridgerectifierR += skewR;
+ //again
+ if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+ if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ if (inputSampleL > 0)
+ {
+ inputSampleL = (inputSampleL*(1-positive+skewL))+(bridgerectifierL*(positive+skewL));
+ }
+ else
+ {
+ inputSampleL = (inputSampleL*(1-negative+skewL))-(bridgerectifierL*(negative+skewL));
+ }
+ if (inputSampleR > 0)
+ {
+ inputSampleR = (inputSampleR*(1-positive+skewR))+(bridgerectifierR*(positive+skewR));
+ }
+ else
+ {
+ inputSampleR = (inputSampleR*(1-negative+skewR))-(bridgerectifierR*(negative+skewR));
+ }
+ //blend according to positive and negative controls
+ countdown -= 1.0;
+ //step down a notch and repeat.
+ }
+
+ if (out != 1.0) {
+ inputSampleL *= out;
+ inputSampleR *= out;
+ }
+
+ if (wet !=1.0) {
+ inputSampleL = (inputSampleL * wet) + (drySampleL * dry);
+ inputSampleR = (inputSampleR * wet) + (drySampleR * dry);
+ }
+
+ //noise shaping to 32-bit floating point
+ if (fpFlip) {
+ fpTemp = inputSampleL;
+ fpNShapeLA = (fpNShapeLA*fpOld)+((inputSampleL-fpTemp)*fpNew);
+ inputSampleL += fpNShapeLA;
+ fpTemp = inputSampleR;
+ fpNShapeRA = (fpNShapeRA*fpOld)+((inputSampleR-fpTemp)*fpNew);
+ inputSampleR += fpNShapeRA;
+ }
+ else {
+ fpTemp = inputSampleL;
+ fpNShapeLB = (fpNShapeLB*fpOld)+((inputSampleL-fpTemp)*fpNew);
+ inputSampleL += fpNShapeLB;
+ fpTemp = inputSampleR;
+ fpNShapeRB = (fpNShapeRB*fpOld)+((inputSampleR-fpTemp)*fpNew);
+ inputSampleR += fpNShapeRB;
+ }
+ fpFlip = !fpFlip;
+ //end noise shaping on 32 bit output
+
+ *out1 = inputSampleL;
+ *out2 = inputSampleR;
+
+ *in1++;
+ *in2++;
+ *out1++;
+ *out2++;
+ }
+}
+
+void HardVacuum::processDoubleReplacing(double **inputs, double **outputs, VstInt32 sampleFrames)
+{
+ double* in1 = inputs[0];
+ double* in2 = inputs[1];
+ double* out1 = outputs[0];
+ double* out2 = outputs[1];
+
+ double multistage = A*2.0;
+ if (multistage > 1) multistage *= multistage;
+ //WE MAKE LOUD NOISE! RAWWWK!
+ double countdown;
+ double warmth = B;
+ double invwarmth = 1.0-warmth;
+ warmth /= 1.57079633;
+ double aura = C*3.1415926;
+ double out = D;
+ double wet = E;
+ double dry = 1.0-wet;
+ double drive;
+ double positive;
+ double negative;
+ double bridgerectifierL;
+ double bridgerectifierR;
+ double skewL;
+ double skewR;
+
+ double fpTemp;
+ long double fpOld = 0.618033988749894848204586; //golden ratio!
+ long double fpNew = 1.0 - fpOld;
+
+ double drySampleL;
+ double drySampleR;
+ long double inputSampleL;
+ long double inputSampleR;
+
+
+ while (--sampleFrames >= 0)
+ {
+ inputSampleL = *in1;
+ inputSampleR = *in2;
+ 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;
+
+ skewL = (inputSampleL - lastSampleL);
+ skewR = (inputSampleR - lastSampleR);
+ lastSampleL = inputSampleL;
+ lastSampleR = inputSampleR;
+ //skew will be direction/angle
+ bridgerectifierL = fabs(skewL);
+ bridgerectifierR = fabs(skewR);
+ if (bridgerectifierL > 3.1415926) bridgerectifierL = 3.1415926;
+ if (bridgerectifierR > 3.1415926) bridgerectifierR = 3.1415926;
+ //for skew we want it to go to zero effect again, so we use full range of the sine
+
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ if (skewL > 0) skewL = bridgerectifierL*aura;
+ else skewL = -bridgerectifierL*aura;
+ if (skewR > 0) skewR = bridgerectifierR*aura;
+ else skewR = -bridgerectifierR*aura;
+ //skew is now sined and clamped and then re-amplified again
+ skewL *= inputSampleL;
+ skewR *= inputSampleR;
+ //cools off sparkliness and crossover distortion
+ skewL *= 1.557079633;
+ skewR *= 1.557079633;
+ //crank up the gain on this so we can make it sing
+ //We're doing all this here so skew isn't incremented by each stage
+
+ countdown = multistage;
+ //begin the torture
+
+ while (countdown > 0)
+ {
+ if (countdown > 1.0) drive = 1.557079633;
+ else drive = countdown * (1.0+(0.557079633*invwarmth));
+ //full crank stages followed by the proportional one
+ //whee. 1 at full warmth to 1.5570etc at no warmth
+ positive = drive - warmth;
+ negative = drive + warmth;
+ //set up things so we can do repeated iterations, assuming that
+ //wet is always going to be 0-1 as in the previous plug.
+ bridgerectifierL = fabs(inputSampleL);
+ bridgerectifierR = fabs(inputSampleR);
+ bridgerectifierL += skewL;
+ bridgerectifierR += skewR;
+ //apply it here so we don't overload
+ if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+ if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ //the distortion section.
+ bridgerectifierL *= drive;
+ bridgerectifierR *= drive;
+ bridgerectifierL += skewL;
+ bridgerectifierR += skewR;
+ //again
+ if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+ if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+ bridgerectifierL = sin(bridgerectifierL);
+ bridgerectifierR = sin(bridgerectifierR);
+ if (inputSampleL > 0)
+ {
+ inputSampleL = (inputSampleL*(1-positive+skewL))+(bridgerectifierL*(positive+skewL));
+ }
+ else
+ {
+ inputSampleL = (inputSampleL*(1-negative+skewL))-(bridgerectifierL*(negative+skewL));
+ }
+ if (inputSampleR > 0)
+ {
+ inputSampleR = (inputSampleR*(1-positive+skewR))+(bridgerectifierR*(positive+skewR));
+ }
+ else
+ {
+ inputSampleR = (inputSampleR*(1-negative+skewR))-(bridgerectifierR*(negative+skewR));
+ }
+ //blend according to positive and negative controls
+ countdown -= 1.0;
+ //step down a notch and repeat.
+ }
+
+ if (out != 1.0) {
+ inputSampleL *= out;
+ inputSampleR *= out;
+ }
+
+ if (wet !=1.0) {
+ inputSampleL = (inputSampleL * wet) + (drySampleL * dry);
+ inputSampleR = (inputSampleR * wet) + (drySampleR * dry);
+ }
+
+ //noise shaping to 64-bit floating point
+ if (fpFlip) {
+ fpTemp = inputSampleL;
+ fpNShapeLA = (fpNShapeLA*fpOld)+((inputSampleL-fpTemp)*fpNew);
+ inputSampleL += fpNShapeLA;
+ fpTemp = inputSampleR;
+ fpNShapeRA = (fpNShapeRA*fpOld)+((inputSampleR-fpTemp)*fpNew);
+ inputSampleR += fpNShapeRA;
+ }
+ else {
+ fpTemp = inputSampleL;
+ fpNShapeLB = (fpNShapeLB*fpOld)+((inputSampleL-fpTemp)*fpNew);
+ inputSampleL += fpNShapeLB;
+ fpTemp = inputSampleR;
+ fpNShapeRB = (fpNShapeRB*fpOld)+((inputSampleR-fpTemp)*fpNew);
+ inputSampleR += fpNShapeRB;
+ }
+ fpFlip = !fpFlip;
+ //end noise shaping on 64 bit output
+
+ *out1 = inputSampleL;
+ *out2 = inputSampleR;
+
+ *in1++;
+ *in2++;
+ *out1++;
+ *out2++;
+ }
+} \ No newline at end of file