Updates (in case my plane crashes)

10 files changed, 1450 insertions, 0 deletions

diff --git a/plugins/WinVST/ToTape5/.vs/Console4Channel64/v14/.suo b/plugins/WinVST/ToTape5/.vs/Console4Channel64/v14/.suo
new file mode 100755
index 0000000..777b846
--- /dev/null
+++ b/plugins/WinVST/ToTape5/.vs/Console4Channel64/v14/.suo
diff --git a/plugins/WinVST/ToTape5/.vs/VSTProject/v14/.suo b/plugins/WinVST/ToTape5/.vs/VSTProject/v14/.suo
new file mode 100755
index 0000000..b0c4487
--- /dev/null
+++ b/plugins/WinVST/ToTape5/.vs/VSTProject/v14/.suo
diff --git a/plugins/WinVST/ToTape5/ToTape5.cpp b/plugins/WinVST/ToTape5/ToTape5.cpp
new file mode 100755
index 0000000..01f61cb
--- /dev/null
+++ b/plugins/WinVST/ToTape5/ToTape5.cpp
@@ -0,0 +1,242 @@
+/* ========================================
+ *  ToTape5 - ToTape5.h
+ *  Copyright (c) 2016 airwindows, All rights reserved
+ * ======================================== */
+
+#ifndef __ToTape5_H
+#include "ToTape5.h"
+#endif
+
+AudioEffect* createEffectInstance(audioMasterCallback audioMaster) {return new ToTape5(audioMaster);}
+
+ToTape5::ToTape5(audioMasterCallback audioMaster) :
+    AudioEffectX(audioMaster, kNumPrograms, kNumParameters)
+{
+	A = 0.25;
+	B = 0.0;
+	C = 0.0;
+	D = 0.0;
+	E = 1.0;
+	F = 1.0;
+	
+	iirMidRollerAL = 0.0;
+	iirMidRollerBL = 0.0;
+	iirMidRollerCL = 0.0;
+	iirHeadBumpAL = 0.0;
+	iirHeadBumpBL = 0.0;
+	iirHeadBumpCL = 0.0;
+	iirMinHeadBumpL = 0.0;
+	
+	iirMidRollerAR = 0.0;
+	iirMidRollerBR = 0.0;
+	iirMidRollerCR = 0.0;
+	iirHeadBumpAR = 0.0;
+	iirHeadBumpBR = 0.0;
+	iirHeadBumpCR = 0.0;
+	iirMinHeadBumpR = 0.0;
+	
+	iirSampleAL = 0.0;
+	iirSampleBL = 0.0;
+	iirSampleCL = 0.0;
+	iirSampleDL = 0.0;
+	iirSampleEL = 0.0;
+	iirSampleFL = 0.0;
+	iirSampleGL = 0.0;
+	iirSampleHL = 0.0;
+	iirSampleIL = 0.0;
+	iirSampleJL = 0.0;
+	iirSampleKL = 0.0;
+	iirSampleLL = 0.0;
+	iirSampleML = 0.0;
+	iirSampleNL = 0.0;
+	iirSampleOL = 0.0;
+	iirSamplePL = 0.0;
+	iirSampleQL = 0.0;
+	iirSampleRL = 0.0;
+	iirSampleSL = 0.0;
+	iirSampleTL = 0.0;
+	iirSampleUL = 0.0;
+	iirSampleVL = 0.0;
+	iirSampleWL = 0.0;
+	iirSampleXL = 0.0;
+	iirSampleYL = 0.0;
+	iirSampleZL = 0.0;
+	
+	iirSampleAR = 0.0;
+	iirSampleBR = 0.0;
+	iirSampleCR = 0.0;
+	iirSampleDR = 0.0;
+	iirSampleER = 0.0;
+	iirSampleFR = 0.0;
+	iirSampleGR = 0.0;
+	iirSampleHR = 0.0;
+	iirSampleIR = 0.0;
+	iirSampleJR = 0.0;
+	iirSampleKR = 0.0;
+	iirSampleLR = 0.0;
+	iirSampleMR = 0.0;
+	iirSampleNR = 0.0;
+	iirSampleOR = 0.0;
+	iirSamplePR = 0.0;
+	iirSampleQR = 0.0;
+	iirSampleRR = 0.0;
+	iirSampleSR = 0.0;
+	iirSampleTR = 0.0;
+	iirSampleUR = 0.0;
+	iirSampleVR = 0.0;
+	iirSampleWR = 0.0;
+	iirSampleXR = 0.0;
+	iirSampleYR = 0.0;
+	iirSampleZR = 0.0;
+	
+	for (int temp = 0; temp < 999; temp++) {dL[temp] = 0.0; eL[temp] = 0.0; dR[temp] = 0.0; eR[temp] = 0.0;}
+	
+	gcount = 0;	
+	rateof = 0.5;
+	sweep = 0.0;
+	nextmax = 0.5;
+	hcount = 0;	
+	flip = 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
+}
+
+ToTape5::~ToTape5() {}
+VstInt32 ToTape5::getVendorVersion () {return 1000;}
+void ToTape5::setProgramName(char *name) {vst_strncpy (_programName, name, kVstMaxProgNameLen);}
+void ToTape5::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 ToTape5::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;
+	chunkData[5] = F;
+	/* 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 ToTape5::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]);
+	F = pinParameter(chunkData[5]);
+	/* 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 ToTape5::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;
+        case kParamF: F = value; break;
+        default: throw; // unknown parameter, shouldn't happen!
+    }
+}
+
+float ToTape5::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;
+        case kParamF: return F; 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 ToTape5::getParameterName(VstInt32 index, char *text) {
+    switch (index) {
+        case kParamA: vst_strncpy (text, "Louder", kVstMaxParamStrLen); break;
+		case kParamB: vst_strncpy (text, "Softer", kVstMaxParamStrLen); break;
+		case kParamC: vst_strncpy (text, "Fatter", kVstMaxParamStrLen); break;
+		case kParamD: vst_strncpy (text, "Flutter", kVstMaxParamStrLen); break;
+		case kParamE: vst_strncpy (text, "Output", kVstMaxParamStrLen); break;
+		case kParamF: 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 ToTape5::getParameterDisplay(VstInt32 index, char *text) {
+    switch (index) {
+        case kParamA: float2string (A, 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;
+        case kParamF: float2string (F, text, kVstMaxParamStrLen); break;
+        default: break; // unknown parameter, shouldn't happen!
+	}
+}
+
+void ToTape5::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;
+        case kParamF: vst_strncpy (text, "", kVstMaxParamStrLen); break;
+        default: break; // unknown parameter, shouldn't happen!
+    }
+}
+
+VstInt32 ToTape5::canDo(char *text) 
+{ return (_canDo.find(text) == _canDo.end()) ? -1: 1; } // 1 = yes, -1 = no, 0 = don't know
+
+bool ToTape5::getEffectName(char* name) {
+    vst_strncpy(name, "ToTape5", kVstMaxProductStrLen); return true;
+}
+
+VstPlugCategory ToTape5::getPlugCategory() {return kPlugCategEffect;}
+
+bool ToTape5::getProductString(char* text) {
+  	vst_strncpy (text, "airwindows ToTape5", kVstMaxProductStrLen); return true;
+}
+
+bool ToTape5::getVendorString(char* text) {
+  	vst_strncpy (text, "airwindows", kVstMaxVendorStrLen); return true;
+}
diff --git a/plugins/WinVST/ToTape5/ToTape5.h b/plugins/WinVST/ToTape5/ToTape5.h
new file mode 100755
index 0000000..ac26df5
--- /dev/null
+++ b/plugins/WinVST/ToTape5/ToTape5.h
@@ -0,0 +1,158 @@
+/* ========================================
+ *  ToTape5 - ToTape5.h
+ *  Created 8/12/11 by SPIAdmin 
+ *  Copyright (c) 2011 __MyCompanyName__, All rights reserved
+ * ======================================== */
+
+#ifndef __ToTape5_H
+#define __ToTape5_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,
+	kParamF = 5,
+  kNumParameters = 6
+}; //
+
+const int kNumPrograms = 0;
+const int kNumInputs = 2;
+const int kNumOutputs = 2;
+const unsigned long kUniqueId = 'tott';    //Change this to what the AU identity is!
+
+class ToTape5 : 
+    public AudioEffectX 
+{
+public:
+    ToTape5(audioMasterCallback audioMaster);
+    ~ToTape5();
+    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;
+	
+	int gcount;
+	double rateof;
+	double sweep;
+	double nextmax;
+	int hcount;
+	int flip;
+	
+	double dL[1000];
+	double eL[1000];
+	double dR[1000];
+	double eR[1000];
+	
+	double iirMidRollerAL;
+	double iirMidRollerBL;
+	double iirMidRollerCL;
+	double iirHeadBumpAL;
+	double iirHeadBumpBL;
+	double iirHeadBumpCL;
+	double iirMinHeadBumpL;
+
+	double iirMidRollerAR;
+	double iirMidRollerBR;
+	double iirMidRollerCR;
+	double iirHeadBumpAR;
+	double iirHeadBumpBR;
+	double iirHeadBumpCR;
+	double iirMinHeadBumpR;
+	
+	double iirSampleAL;
+	double iirSampleBL;
+	double iirSampleCL;
+	double iirSampleDL;
+	double iirSampleEL;
+	double iirSampleFL;
+	double iirSampleGL;
+	double iirSampleHL;
+	double iirSampleIL;
+	double iirSampleJL;
+	double iirSampleKL;
+	double iirSampleLL;
+	double iirSampleML;
+	double iirSampleNL;
+	double iirSampleOL;
+	double iirSamplePL;
+	double iirSampleQL;
+	double iirSampleRL;
+	double iirSampleSL;
+	double iirSampleTL;
+	double iirSampleUL;
+	double iirSampleVL;
+	double iirSampleWL;
+	double iirSampleXL;
+	double iirSampleYL;
+	double iirSampleZL;
+	
+	double iirSampleAR;
+	double iirSampleBR;
+	double iirSampleCR;
+	double iirSampleDR;
+	double iirSampleER;
+	double iirSampleFR;
+	double iirSampleGR;
+	double iirSampleHR;
+	double iirSampleIR;
+	double iirSampleJR;
+	double iirSampleKR;
+	double iirSampleLR;
+	double iirSampleMR;
+	double iirSampleNR;
+	double iirSampleOR;
+	double iirSamplePR;
+	double iirSampleQR;
+	double iirSampleRR;
+	double iirSampleSR;
+	double iirSampleTR;
+	double iirSampleUR;
+	double iirSampleVR;
+	double iirSampleWR;
+	double iirSampleXR;
+	double iirSampleYR;
+	double iirSampleZR;
+   
+	
+	long double fpNShapeLA;
+	long double fpNShapeLB;
+	long double fpNShapeRA;
+	long double fpNShapeRB;
+	bool fpFlip;
+	//default stuff
+
+    float A;
+    float B;
+    float C;
+    float D;
+    float E;
+    float F;
+};
+
+#endif
diff --git a/plugins/WinVST/ToTape5/ToTape5Proc.cpp b/plugins/WinVST/ToTape5/ToTape5Proc.cpp
new file mode 100755
index 0000000..4d2d5c7
--- /dev/null
+++ b/plugins/WinVST/ToTape5/ToTape5Proc.cpp
@@ -0,0 +1,769 @@
+/* ========================================
+ *  ToTape5 - ToTape5.h
+ *  Copyright (c) 2016 airwindows, All rights reserved
+ * ======================================== */
+
+#ifndef __ToTape5_H
+#include "ToTape5.h"
+#endif
+
+void ToTape5::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 inputgain = pow(A+1.0,3);
+	double outputgain = E;
+	double wet = F;
+	double dry = 1.0 - wet;
+	double trim = 0.211324865405187117745425;
+	double SoftenControl = pow(B,2);
+	double tempRandy = 0.06 + (SoftenControl/10.0);
+	double RollAmount = (1.0-(SoftenControl * 0.45))/overallscale;
+	double HeadBumpControl = pow(C,2);
+	int allpasstemp;
+	int maxdelay = (int)(floor(((HeadBumpControl+0.3)*2.2)*overallscale));
+	HeadBumpControl *= fabs(HeadBumpControl);
+	double HeadBumpFreq = 0.044/overallscale;
+	double iirAmount = 0.000001/overallscale;
+	double altAmount = 1.0 - iirAmount;
+	double iirHBoostAmount = 0.0001/overallscale;
+	double altHBoostAmount = 1.0 - iirAmount;
+	double depth = pow(D,2)*overallscale;
+	double fluttertrim = 0.005/overallscale;
+	double sweeptrim = (0.0006*depth)/overallscale;
+	double offset;	
+	double tupi = 3.141592653589793238 * 2.0;
+	double newrate = 0.005/overallscale;
+	double oldrate = 1.0-newrate;
+	double flutterrandy;
+	double randy;
+	double invrandy;
+	int count;
+	
+	double HighsSampleL = 0.0;
+	double NonHighsSampleL = 0.0;
+	double HeadBumpL = 0.0;
+	double SubtractL;
+	double bridgerectifierL;
+	double tempSampleL;
+	double drySampleL;
+
+	double HighsSampleR = 0.0;
+	double NonHighsSampleR = 0.0;
+	double HeadBumpR = 0.0;
+	double SubtractR;
+	double bridgerectifierR;
+	double tempSampleR;
+	double drySampleR;
+	
+	float fpTemp;
+	long double fpOld = 0.618033988749894848204586; //golden ratio!
+	long double fpNew = 1.0 - fpOld;	
+	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;
+		
+		
+		flutterrandy = (rand()/(double)RAND_MAX);
+		randy = flutterrandy * tempRandy; //for soften
+		invrandy = (1.0-randy);
+		randy /= 2.0;
+		//we've set up so that we dial in the amount of the alt sections (in pairs) with invrandy being the source section
+		
+		//now we've got a random flutter, so we're messing with the pitch before tape effects go on
+		if (gcount < 0 || gcount > 300) {gcount = 300;}
+		count = gcount;
+		dL[count+301] = dL[count] = inputSampleL;
+		dR[count+301] = dR[count] = inputSampleR;
+		gcount--;
+		//we will also keep the buffer going, even when not in use
+		
+		if (depth != 0.0) {
+			offset = (1.0 + sin(sweep)) * depth;
+			count += (int)floor(offset);
+			
+			bridgerectifierL = (dL[count] * (1-(offset-floor(offset))));
+			bridgerectifierL += (dL[count+1] * (offset-floor(offset)));
+			bridgerectifierL -= ((dL[count+2] * (offset-floor(offset)))*trim);
+			
+			bridgerectifierR = (dR[count] * (1-(offset-floor(offset))));
+			bridgerectifierR += (dR[count+1] * (offset-floor(offset)));
+			bridgerectifierR -= ((dR[count+2] * (offset-floor(offset)))*trim);
+			
+			rateof = (nextmax * newrate) + (rateof * oldrate);
+			sweep += rateof * fluttertrim;
+			sweep += sweep * sweeptrim;
+			if (sweep >= tupi){sweep = 0.0; nextmax = 0.02 + (flutterrandy*0.98);}
+			inputSampleL = bridgerectifierL;
+			inputSampleR = bridgerectifierR;
+			//apply to input signal only when flutter is present, interpolate samples
+		}
+		
+		if (inputgain != 1.0) {
+			inputSampleL *= inputgain;
+			inputSampleR *= inputgain;
+		}
+		
+		if (flip < 1 || flip > 3) flip = 1;
+		switch (flip)
+		{
+			case 1:				
+				iirMidRollerAL = (iirMidRollerAL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerAL = (invrandy * iirMidRollerAL) + (randy * iirMidRollerBL) + (randy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerAL;
+				NonHighsSampleL = iirMidRollerAL;
+				
+				iirHeadBumpAL += (inputSampleL * 0.05);
+				iirHeadBumpAL -= (iirHeadBumpAL * iirHeadBumpAL * iirHeadBumpAL * HeadBumpFreq);
+				iirHeadBumpAL = (invrandy * iirHeadBumpAL) + (randy * iirHeadBumpBL) + (randy * iirHeadBumpCL);
+
+				iirMidRollerAR = (iirMidRollerAR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerAR = (invrandy * iirMidRollerAR) + (randy * iirMidRollerBR) + (randy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerAR;
+				NonHighsSampleR = iirMidRollerAR;
+				
+				iirHeadBumpAR += (inputSampleR * 0.05);
+				iirHeadBumpAR -= (iirHeadBumpAR * iirHeadBumpAR * iirHeadBumpAR * HeadBumpFreq);
+				iirHeadBumpAR = (invrandy * iirHeadBumpAR) + (randy * iirHeadBumpBR) + (randy * iirHeadBumpCR);
+				break;
+			case 2:
+				iirMidRollerBL = (iirMidRollerBL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerBL = (randy * iirMidRollerAL) + (invrandy * iirMidRollerBL) + (randy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerBL;
+				NonHighsSampleL = iirMidRollerBL;
+				
+				iirHeadBumpBL += (inputSampleL * 0.05);
+				iirHeadBumpBL -= (iirHeadBumpBL * iirHeadBumpBL * iirHeadBumpBL * HeadBumpFreq);
+				iirHeadBumpBL = (randy * iirHeadBumpAL) + (invrandy * iirHeadBumpBL) + (randy * iirHeadBumpCL);
+
+				iirMidRollerBR = (iirMidRollerBR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerBR = (randy * iirMidRollerAR) + (invrandy * iirMidRollerBR) + (randy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerBR;
+				NonHighsSampleR = iirMidRollerBR;
+				
+				iirHeadBumpBR += (inputSampleR * 0.05);
+				iirHeadBumpBR -= (iirHeadBumpBR * iirHeadBumpBR * iirHeadBumpBR * HeadBumpFreq);
+				iirHeadBumpBR = (randy * iirHeadBumpAR) + (invrandy * iirHeadBumpBR) + (randy * iirHeadBumpCR);
+				break;
+			case 3:
+				iirMidRollerCL = (iirMidRollerCL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerCL = (randy * iirMidRollerAL) + (randy * iirMidRollerBL) + (invrandy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerCL;
+				NonHighsSampleL = iirMidRollerCL;
+				
+				iirHeadBumpCL += (inputSampleL * 0.05);
+				iirHeadBumpCL -= (iirHeadBumpCL * iirHeadBumpCL * iirHeadBumpCL * HeadBumpFreq);
+				iirHeadBumpCL = (randy * iirHeadBumpAL) + (randy * iirHeadBumpBL) + (invrandy * iirHeadBumpCL);
+
+				iirMidRollerCR = (iirMidRollerCR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerCR = (randy * iirMidRollerAR) + (randy * iirMidRollerBR) + (invrandy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerCR;
+				NonHighsSampleR = iirMidRollerCR;
+				
+				iirHeadBumpCR += (inputSampleR * 0.05);
+				iirHeadBumpCR -= (iirHeadBumpCR * iirHeadBumpCR * iirHeadBumpCR * HeadBumpFreq);
+				iirHeadBumpCR = (randy * iirHeadBumpAR) + (randy * iirHeadBumpBR) + (invrandy * iirHeadBumpCR);
+				break;
+		}
+		flip++; //increment the triplet counter
+		
+		SubtractL = HighsSampleL;		
+		bridgerectifierL = fabs(SubtractL)*1.57079633;
+		if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+		bridgerectifierL = 1-cos(bridgerectifierL);
+		if (SubtractL > 0) SubtractL = bridgerectifierL;
+		if (SubtractL < 0) SubtractL = -bridgerectifierL;
+		inputSampleL -= SubtractL;
+
+		SubtractR = HighsSampleR;		
+		bridgerectifierR = fabs(SubtractR)*1.57079633;
+		if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+		bridgerectifierR = 1-cos(bridgerectifierR);
+		if (SubtractR > 0) SubtractR = bridgerectifierR;
+		if (SubtractR < 0) SubtractR = -bridgerectifierR;
+		inputSampleR -= SubtractR;
+		//Soften works using the MidRoller stuff, defining a bright parallel channel that we apply negative Density
+		//to, and then subtract from the main audio. That makes the 'highs channel subtract' hit only the loudest
+		//transients, plus we are subtracting any artifacts we got from the negative Density.		
+		
+		bridgerectifierL = fabs(inputSampleL);
+		if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+		bridgerectifierL = sin(bridgerectifierL);
+		if (inputSampleL > 0) inputSampleL = bridgerectifierL;
+		if (inputSampleL < 0) inputSampleL = -bridgerectifierL;
+
+		bridgerectifierR = fabs(inputSampleR);
+		if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+		bridgerectifierR = sin(bridgerectifierR);
+		if (inputSampleR > 0) inputSampleR = bridgerectifierR;
+		if (inputSampleR < 0) inputSampleR = -bridgerectifierR;
+		//drive section: the tape sound includes a very gentle saturation curve, which is always an attenuation.
+		//we cut back on highs before hitting this, and then we're going to subtract highs a second time after.
+		
+		HeadBumpL = iirHeadBumpAL + iirHeadBumpBL + iirHeadBumpCL;
+		HeadBumpR = iirHeadBumpAR + iirHeadBumpBR + iirHeadBumpCR;
+		//begin PhaseNudge
+		allpasstemp = hcount - 1;
+		if (allpasstemp < 0 || allpasstemp > maxdelay) {allpasstemp = maxdelay;}
+		
+		HeadBumpL -= eL[allpasstemp] * fpOld;
+		eL[hcount] = HeadBumpL;
+		inputSampleL *= fpOld;
+		
+		HeadBumpR -= eR[allpasstemp] * fpOld;
+		eR[hcount] = HeadBumpR;
+		inputSampleR *= fpOld;
+		
+		hcount--; if (hcount < 0 || hcount > maxdelay) {hcount = maxdelay;}
+		HeadBumpL += (eL[hcount]);
+		HeadBumpR += (eR[hcount]);
+		//end PhaseNudge on head bump in lieu of delay. 
+		SubtractL -= (HeadBumpL * (HeadBumpControl+iirMinHeadBumpL));
+		SubtractR -= (HeadBumpR * (HeadBumpControl+iirMinHeadBumpR));
+		//makes a second soften and a single head bump after saturation.
+		//we are going to retain this, and then feed it into the highpass filter. That way, we can skip a subtract.
+		//Head Bump retains a trace which is roughly as large as what the highpass will do.
+		
+		tempSampleL = inputSampleL;
+		tempSampleR = inputSampleR;
+		
+		iirMinHeadBumpL = (iirMinHeadBumpL * altHBoostAmount) + (fabs(inputSampleL) * iirHBoostAmount);
+		if (iirMinHeadBumpL > 0.01) iirMinHeadBumpL = 0.01;
+
+		iirMinHeadBumpR = (iirMinHeadBumpR * altHBoostAmount) + (fabs(inputSampleR) * iirHBoostAmount);
+		if (iirMinHeadBumpR > 0.01) iirMinHeadBumpR = 0.01;
+		//we want this one rectified so that it's a relatively steady positive value. Boosts can cause it to be
+		//greater than 1 so we clamp it in that case.
+		
+		iirSampleAL = (iirSampleAL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleAL; SubtractL += iirSampleAL;
+		iirSampleBL = (iirSampleBL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleBL; SubtractL += iirSampleBL;
+		iirSampleCL = (iirSampleCL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleCL; SubtractL += iirSampleCL;
+		iirSampleDL = (iirSampleDL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleDL; SubtractL += iirSampleDL;
+		iirSampleEL = (iirSampleEL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleEL; SubtractL += iirSampleEL;
+		iirSampleFL = (iirSampleFL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleFL; SubtractL += iirSampleFL;
+		iirSampleGL = (iirSampleGL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleGL; SubtractL += iirSampleGL;
+		iirSampleHL = (iirSampleHL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleHL; SubtractL += iirSampleHL;
+		iirSampleIL = (iirSampleIL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleIL; SubtractL += iirSampleIL;
+		iirSampleJL = (iirSampleJL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleJL; SubtractL += iirSampleJL;
+		iirSampleKL = (iirSampleKL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleKL; SubtractL += iirSampleKL;
+		iirSampleLL = (iirSampleLL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleLL; SubtractL += iirSampleLL;
+		iirSampleML = (iirSampleML * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleML; SubtractL += iirSampleML;
+		iirSampleNL = (iirSampleNL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleNL; SubtractL += iirSampleNL;
+		iirSampleOL = (iirSampleOL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleOL; SubtractL += iirSampleOL;
+		iirSamplePL = (iirSamplePL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSamplePL; SubtractL += iirSamplePL;
+		iirSampleQL = (iirSampleQL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleQL; SubtractL += iirSampleQL;
+		iirSampleRL = (iirSampleRL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleRL; SubtractL += iirSampleRL;
+		iirSampleSL = (iirSampleSL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleSL; SubtractL += iirSampleSL;
+		iirSampleTL = (iirSampleTL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleTL; SubtractL += iirSampleTL;
+		iirSampleUL = (iirSampleUL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleUL; SubtractL += iirSampleUL;
+		iirSampleVL = (iirSampleVL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleVL; SubtractL += iirSampleVL;
+		iirSampleWL = (iirSampleWL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleWL; SubtractL += iirSampleWL;
+		iirSampleXL = (iirSampleXL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleXL; SubtractL += iirSampleXL;
+		iirSampleYL = (iirSampleYL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleYL; SubtractL += iirSampleYL;
+		iirSampleZL = (iirSampleZL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleZL; SubtractL += iirSampleZL;
+
+		iirSampleAR = (iirSampleAR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleAR; SubtractR += iirSampleAR;
+		iirSampleBR = (iirSampleBR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleBR; SubtractR += iirSampleBR;
+		iirSampleCR = (iirSampleCR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleCR; SubtractR += iirSampleCR;
+		iirSampleDR = (iirSampleDR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleDR; SubtractR += iirSampleDR;
+		iirSampleER = (iirSampleER * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleER; SubtractR += iirSampleER;
+		iirSampleFR = (iirSampleFR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleFR; SubtractR += iirSampleFR;
+		iirSampleGR = (iirSampleGR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleGR; SubtractR += iirSampleGR;
+		iirSampleHR = (iirSampleHR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleHR; SubtractR += iirSampleHR;
+		iirSampleIR = (iirSampleIR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleIR; SubtractR += iirSampleIR;
+		iirSampleJR = (iirSampleJR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleJR; SubtractR += iirSampleJR;
+		iirSampleKR = (iirSampleKR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleKR; SubtractR += iirSampleKR;
+		iirSampleLR = (iirSampleLR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleLR; SubtractR += iirSampleLR;
+		iirSampleMR = (iirSampleMR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleMR; SubtractR += iirSampleMR;
+		iirSampleNR = (iirSampleNR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleNR; SubtractR += iirSampleNR;
+		iirSampleOR = (iirSampleOR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleOR; SubtractR += iirSampleOR;
+		iirSamplePR = (iirSamplePR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSamplePR; SubtractR += iirSamplePR;
+		iirSampleQR = (iirSampleQR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleQR; SubtractR += iirSampleQR;
+		iirSampleRR = (iirSampleRR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleRR; SubtractR += iirSampleRR;
+		iirSampleSR = (iirSampleSR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleSR; SubtractR += iirSampleSR;
+		iirSampleTR = (iirSampleTR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleTR; SubtractR += iirSampleTR;
+		iirSampleUR = (iirSampleUR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleUR; SubtractR += iirSampleUR;
+		iirSampleVR = (iirSampleVR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleVR; SubtractR += iirSampleVR;
+		iirSampleWR = (iirSampleWR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleWR; SubtractR += iirSampleWR;
+		iirSampleXR = (iirSampleXR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleXR; SubtractR += iirSampleXR;
+		iirSampleYR = (iirSampleYR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleYR; SubtractR += iirSampleYR;
+		iirSampleZR = (iirSampleZR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleZR; SubtractR += iirSampleZR;
+		//do the IIR on a dummy sample, and store up the correction in a variable at the same scale as the very low level
+		//numbers being used. Don't keep doing it against the possibly high level signal number.
+		//This has been known to add a resonant quality to the cutoff, which we're using on purpose.
+		
+		inputSampleL -= SubtractL;
+		inputSampleR -= SubtractR;
+		//apply stored up tiny corrections.
+		
+		if (outputgain != 1.0) {
+			inputSampleL *= outputgain;
+			inputSampleR *= outputgain;
+		}
+		
+		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 ToTape5::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 inputgain = pow(A+1.0,3);
+	double outputgain = E;
+	double wet = F;
+	double dry = 1.0 - wet;
+	double trim = 0.211324865405187117745425;
+	double SoftenControl = pow(B,2);
+	double tempRandy = 0.06 + (SoftenControl/10.0);
+	double RollAmount = (1.0-(SoftenControl * 0.45))/overallscale;
+	double HeadBumpControl = pow(C,2);
+	int allpasstemp;
+	int maxdelay = (int)(floor(((HeadBumpControl+0.3)*2.2)*overallscale));
+	HeadBumpControl *= fabs(HeadBumpControl);
+	double HeadBumpFreq = 0.044/overallscale;
+	double iirAmount = 0.000001/overallscale;
+	double altAmount = 1.0 - iirAmount;
+	double iirHBoostAmount = 0.0001/overallscale;
+	double altHBoostAmount = 1.0 - iirAmount;
+	double depth = pow(D,2)*overallscale;
+	double fluttertrim = 0.005/overallscale;
+	double sweeptrim = (0.0006*depth)/overallscale;
+	double offset;	
+	double tupi = 3.141592653589793238 * 2.0;
+	double newrate = 0.005/overallscale;
+	double oldrate = 1.0-newrate;
+	double flutterrandy;
+	double randy;
+	double invrandy;
+	int count;
+	
+	double HighsSampleL = 0.0;
+	double NonHighsSampleL = 0.0;
+	double HeadBumpL = 0.0;
+	double SubtractL;
+	double bridgerectifierL;
+	double tempSampleL;
+	double drySampleL;
+	
+	double HighsSampleR = 0.0;
+	double NonHighsSampleR = 0.0;
+	double HeadBumpR = 0.0;
+	double SubtractR;
+	double bridgerectifierR;
+	double tempSampleR;
+	double drySampleR;
+	
+	double fpTemp; //this is different from singlereplacing
+	long double fpOld = 0.618033988749894848204586; //golden ratio!
+	long double fpNew = 1.0 - fpOld;
+	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;
+		
+		
+		flutterrandy = (rand()/(double)RAND_MAX);
+		randy = flutterrandy * tempRandy; //for soften
+		invrandy = (1.0-randy);
+		randy /= 2.0;
+		//we've set up so that we dial in the amount of the alt sections (in pairs) with invrandy being the source section
+		
+		//now we've got a random flutter, so we're messing with the pitch before tape effects go on
+		if (gcount < 0 || gcount > 300) {gcount = 300;}
+		count = gcount;
+		dL[count+301] = dL[count] = inputSampleL;
+		dR[count+301] = dR[count] = inputSampleR;
+		gcount--;
+		//we will also keep the buffer going, even when not in use
+		
+		if (depth != 0.0) {
+			offset = (1.0 + sin(sweep)) * depth;
+			count += (int)floor(offset);
+			
+			bridgerectifierL = (dL[count] * (1-(offset-floor(offset))));
+			bridgerectifierL += (dL[count+1] * (offset-floor(offset)));
+			bridgerectifierL -= ((dL[count+2] * (offset-floor(offset)))*trim);
+			
+			bridgerectifierR = (dR[count] * (1-(offset-floor(offset))));
+			bridgerectifierR += (dR[count+1] * (offset-floor(offset)));
+			bridgerectifierR -= ((dR[count+2] * (offset-floor(offset)))*trim);
+			
+			rateof = (nextmax * newrate) + (rateof * oldrate);
+			sweep += rateof * fluttertrim;
+			sweep += sweep * sweeptrim;
+			if (sweep >= tupi){sweep = 0.0; nextmax = 0.02 + (flutterrandy*0.98);}
+			inputSampleL = bridgerectifierL;
+			inputSampleR = bridgerectifierR;
+			//apply to input signal only when flutter is present, interpolate samples
+		}
+		
+		if (inputgain != 1.0) {
+			inputSampleL *= inputgain;
+			inputSampleR *= inputgain;
+		}
+		
+		if (flip < 1 || flip > 3) flip = 1;
+		switch (flip)
+		{
+			case 1:				
+				iirMidRollerAL = (iirMidRollerAL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerAL = (invrandy * iirMidRollerAL) + (randy * iirMidRollerBL) + (randy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerAL;
+				NonHighsSampleL = iirMidRollerAL;
+				
+				iirHeadBumpAL += (inputSampleL * 0.05);
+				iirHeadBumpAL -= (iirHeadBumpAL * iirHeadBumpAL * iirHeadBumpAL * HeadBumpFreq);
+				iirHeadBumpAL = (invrandy * iirHeadBumpAL) + (randy * iirHeadBumpBL) + (randy * iirHeadBumpCL);
+				
+				iirMidRollerAR = (iirMidRollerAR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerAR = (invrandy * iirMidRollerAR) + (randy * iirMidRollerBR) + (randy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerAR;
+				NonHighsSampleR = iirMidRollerAR;
+				
+				iirHeadBumpAR += (inputSampleR * 0.05);
+				iirHeadBumpAR -= (iirHeadBumpAR * iirHeadBumpAR * iirHeadBumpAR * HeadBumpFreq);
+				iirHeadBumpAR = (invrandy * iirHeadBumpAR) + (randy * iirHeadBumpBR) + (randy * iirHeadBumpCR);
+				break;
+			case 2:
+				iirMidRollerBL = (iirMidRollerBL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerBL = (randy * iirMidRollerAL) + (invrandy * iirMidRollerBL) + (randy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerBL;
+				NonHighsSampleL = iirMidRollerBL;
+				
+				iirHeadBumpBL += (inputSampleL * 0.05);
+				iirHeadBumpBL -= (iirHeadBumpBL * iirHeadBumpBL * iirHeadBumpBL * HeadBumpFreq);
+				iirHeadBumpBL = (randy * iirHeadBumpAL) + (invrandy * iirHeadBumpBL) + (randy * iirHeadBumpCL);
+				
+				iirMidRollerBR = (iirMidRollerBR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerBR = (randy * iirMidRollerAR) + (invrandy * iirMidRollerBR) + (randy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerBR;
+				NonHighsSampleR = iirMidRollerBR;
+				
+				iirHeadBumpBR += (inputSampleR * 0.05);
+				iirHeadBumpBR -= (iirHeadBumpBR * iirHeadBumpBR * iirHeadBumpBR * HeadBumpFreq);
+				iirHeadBumpBR = (randy * iirHeadBumpAR) + (invrandy * iirHeadBumpBR) + (randy * iirHeadBumpCR);
+				break;
+			case 3:
+				iirMidRollerCL = (iirMidRollerCL * (1.0 - RollAmount)) + (inputSampleL * RollAmount);
+				iirMidRollerCL = (randy * iirMidRollerAL) + (randy * iirMidRollerBL) + (invrandy * iirMidRollerCL);
+				HighsSampleL = inputSampleL - iirMidRollerCL;
+				NonHighsSampleL = iirMidRollerCL;
+				
+				iirHeadBumpCL += (inputSampleL * 0.05);
+				iirHeadBumpCL -= (iirHeadBumpCL * iirHeadBumpCL * iirHeadBumpCL * HeadBumpFreq);
+				iirHeadBumpCL = (randy * iirHeadBumpAL) + (randy * iirHeadBumpBL) + (invrandy * iirHeadBumpCL);
+				
+				iirMidRollerCR = (iirMidRollerCR * (1.0 - RollAmount)) + (inputSampleR * RollAmount);
+				iirMidRollerCR = (randy * iirMidRollerAR) + (randy * iirMidRollerBR) + (invrandy * iirMidRollerCR);
+				HighsSampleR = inputSampleR - iirMidRollerCR;
+				NonHighsSampleR = iirMidRollerCR;
+				
+				iirHeadBumpCR += (inputSampleR * 0.05);
+				iirHeadBumpCR -= (iirHeadBumpCR * iirHeadBumpCR * iirHeadBumpCR * HeadBumpFreq);
+				iirHeadBumpCR = (randy * iirHeadBumpAR) + (randy * iirHeadBumpBR) + (invrandy * iirHeadBumpCR);
+				break;
+		}
+		flip++; //increment the triplet counter
+		
+		SubtractL = HighsSampleL;		
+		bridgerectifierL = fabs(SubtractL)*1.57079633;
+		if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+		bridgerectifierL = 1-cos(bridgerectifierL);
+		if (SubtractL > 0) SubtractL = bridgerectifierL;
+		if (SubtractL < 0) SubtractL = -bridgerectifierL;
+		inputSampleL -= SubtractL;
+		
+		SubtractR = HighsSampleR;		
+		bridgerectifierR = fabs(SubtractR)*1.57079633;
+		if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+		bridgerectifierR = 1-cos(bridgerectifierR);
+		if (SubtractR > 0) SubtractR = bridgerectifierR;
+		if (SubtractR < 0) SubtractR = -bridgerectifierR;
+		inputSampleR -= SubtractR;
+		//Soften works using the MidRoller stuff, defining a bright parallel channel that we apply negative Density
+		//to, and then subtract from the main audio. That makes the 'highs channel subtract' hit only the loudest
+		//transients, plus we are subtracting any artifacts we got from the negative Density.		
+		
+		bridgerectifierL = fabs(inputSampleL);
+		if (bridgerectifierL > 1.57079633) bridgerectifierL = 1.57079633;
+		bridgerectifierL = sin(bridgerectifierL);
+		if (inputSampleL > 0) inputSampleL = bridgerectifierL;
+		if (inputSampleL < 0) inputSampleL = -bridgerectifierL;
+		
+		bridgerectifierR = fabs(inputSampleR);
+		if (bridgerectifierR > 1.57079633) bridgerectifierR = 1.57079633;
+		bridgerectifierR = sin(bridgerectifierR);
+		if (inputSampleR > 0) inputSampleR = bridgerectifierR;
+		if (inputSampleR < 0) inputSampleR = -bridgerectifierR;
+		//drive section: the tape sound includes a very gentle saturation curve, which is always an attenuation.
+		//we cut back on highs before hitting this, and then we're going to subtract highs a second time after.
+		
+		HeadBumpL = iirHeadBumpAL + iirHeadBumpBL + iirHeadBumpCL;
+		HeadBumpR = iirHeadBumpAR + iirHeadBumpBR + iirHeadBumpCR;
+		//begin PhaseNudge
+		allpasstemp = hcount - 1;
+		if (allpasstemp < 0 || allpasstemp > maxdelay) {allpasstemp = maxdelay;}
+		
+		HeadBumpL -= eL[allpasstemp] * fpOld;
+		eL[hcount] = HeadBumpL;
+		inputSampleL *= fpOld;
+		
+		HeadBumpR -= eR[allpasstemp] * fpOld;
+		eR[hcount] = HeadBumpR;
+		inputSampleR *= fpOld;
+		
+		hcount--; if (hcount < 0 || hcount > maxdelay) {hcount = maxdelay;}
+		HeadBumpL += (eL[hcount]);
+		HeadBumpR += (eR[hcount]);
+		//end PhaseNudge on head bump in lieu of delay. 
+		SubtractL -= (HeadBumpL * (HeadBumpControl+iirMinHeadBumpL));
+		SubtractR -= (HeadBumpR * (HeadBumpControl+iirMinHeadBumpR));
+		//makes a second soften and a single head bump after saturation.
+		//we are going to retain this, and then feed it into the highpass filter. That way, we can skip a subtract.
+		//Head Bump retains a trace which is roughly as large as what the highpass will do.
+		
+		tempSampleL = inputSampleL;
+		tempSampleR = inputSampleR;
+		
+		iirMinHeadBumpL = (iirMinHeadBumpL * altHBoostAmount) + (fabs(inputSampleL) * iirHBoostAmount);
+		if (iirMinHeadBumpL > 0.01) iirMinHeadBumpL = 0.01;
+		
+		iirMinHeadBumpR = (iirMinHeadBumpR * altHBoostAmount) + (fabs(inputSampleR) * iirHBoostAmount);
+		if (iirMinHeadBumpR > 0.01) iirMinHeadBumpR = 0.01;
+		//we want this one rectified so that it's a relatively steady positive value. Boosts can cause it to be
+		//greater than 1 so we clamp it in that case.
+		
+		iirSampleAL = (iirSampleAL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleAL; SubtractL += iirSampleAL;
+		iirSampleBL = (iirSampleBL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleBL; SubtractL += iirSampleBL;
+		iirSampleCL = (iirSampleCL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleCL; SubtractL += iirSampleCL;
+		iirSampleDL = (iirSampleDL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleDL; SubtractL += iirSampleDL;
+		iirSampleEL = (iirSampleEL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleEL; SubtractL += iirSampleEL;
+		iirSampleFL = (iirSampleFL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleFL; SubtractL += iirSampleFL;
+		iirSampleGL = (iirSampleGL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleGL; SubtractL += iirSampleGL;
+		iirSampleHL = (iirSampleHL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleHL; SubtractL += iirSampleHL;
+		iirSampleIL = (iirSampleIL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleIL; SubtractL += iirSampleIL;
+		iirSampleJL = (iirSampleJL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleJL; SubtractL += iirSampleJL;
+		iirSampleKL = (iirSampleKL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleKL; SubtractL += iirSampleKL;
+		iirSampleLL = (iirSampleLL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleLL; SubtractL += iirSampleLL;
+		iirSampleML = (iirSampleML * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleML; SubtractL += iirSampleML;
+		iirSampleNL = (iirSampleNL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleNL; SubtractL += iirSampleNL;
+		iirSampleOL = (iirSampleOL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleOL; SubtractL += iirSampleOL;
+		iirSamplePL = (iirSamplePL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSamplePL; SubtractL += iirSamplePL;
+		iirSampleQL = (iirSampleQL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleQL; SubtractL += iirSampleQL;
+		iirSampleRL = (iirSampleRL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleRL; SubtractL += iirSampleRL;
+		iirSampleSL = (iirSampleSL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleSL; SubtractL += iirSampleSL;
+		iirSampleTL = (iirSampleTL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleTL; SubtractL += iirSampleTL;
+		iirSampleUL = (iirSampleUL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleUL; SubtractL += iirSampleUL;
+		iirSampleVL = (iirSampleVL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleVL; SubtractL += iirSampleVL;
+		iirSampleWL = (iirSampleWL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleWL; SubtractL += iirSampleWL;
+		iirSampleXL = (iirSampleXL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleXL; SubtractL += iirSampleXL;
+		iirSampleYL = (iirSampleYL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleYL; SubtractL += iirSampleYL;
+		iirSampleZL = (iirSampleZL * altAmount) + (tempSampleL * iirAmount); tempSampleL -= iirSampleZL; SubtractL += iirSampleZL;
+		
+		iirSampleAR = (iirSampleAR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleAR; SubtractR += iirSampleAR;
+		iirSampleBR = (iirSampleBR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleBR; SubtractR += iirSampleBR;
+		iirSampleCR = (iirSampleCR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleCR; SubtractR += iirSampleCR;
+		iirSampleDR = (iirSampleDR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleDR; SubtractR += iirSampleDR;
+		iirSampleER = (iirSampleER * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleER; SubtractR += iirSampleER;
+		iirSampleFR = (iirSampleFR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleFR; SubtractR += iirSampleFR;
+		iirSampleGR = (iirSampleGR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleGR; SubtractR += iirSampleGR;
+		iirSampleHR = (iirSampleHR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleHR; SubtractR += iirSampleHR;
+		iirSampleIR = (iirSampleIR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleIR; SubtractR += iirSampleIR;
+		iirSampleJR = (iirSampleJR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleJR; SubtractR += iirSampleJR;
+		iirSampleKR = (iirSampleKR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleKR; SubtractR += iirSampleKR;
+		iirSampleLR = (iirSampleLR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleLR; SubtractR += iirSampleLR;
+		iirSampleMR = (iirSampleMR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleMR; SubtractR += iirSampleMR;
+		iirSampleNR = (iirSampleNR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleNR; SubtractR += iirSampleNR;
+		iirSampleOR = (iirSampleOR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleOR; SubtractR += iirSampleOR;
+		iirSamplePR = (iirSamplePR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSamplePR; SubtractR += iirSamplePR;
+		iirSampleQR = (iirSampleQR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleQR; SubtractR += iirSampleQR;
+		iirSampleRR = (iirSampleRR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleRR; SubtractR += iirSampleRR;
+		iirSampleSR = (iirSampleSR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleSR; SubtractR += iirSampleSR;
+		iirSampleTR = (iirSampleTR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleTR; SubtractR += iirSampleTR;
+		iirSampleUR = (iirSampleUR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleUR; SubtractR += iirSampleUR;
+		iirSampleVR = (iirSampleVR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleVR; SubtractR += iirSampleVR;
+		iirSampleWR = (iirSampleWR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleWR; SubtractR += iirSampleWR;
+		iirSampleXR = (iirSampleXR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleXR; SubtractR += iirSampleXR;
+		iirSampleYR = (iirSampleYR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleYR; SubtractR += iirSampleYR;
+		iirSampleZR = (iirSampleZR * altAmount) + (tempSampleR * iirAmount); tempSampleR -= iirSampleZR; SubtractR += iirSampleZR;
+		//do the IIR on a dummy sample, and store up the correction in a variable at the same scale as the very low level
+		//numbers being used. Don't keep doing it against the possibly high level signal number.
+		//This has been known to add a resonant quality to the cutoff, which we're using on purpose.
+		
+		inputSampleL -= SubtractL;
+		inputSampleR -= SubtractR;
+		//apply stored up tiny corrections.
+		
+		if (outputgain != 1.0) {
+			inputSampleL *= outputgain;
+			inputSampleR *= outputgain;
+		}
+		
+		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
diff --git a/plugins/WinVST/ToTape5/VSTProject.sln b/plugins/WinVST/ToTape5/VSTProject.sln
new file mode 100755
index 0000000..694b424
--- /dev/null
+++ b/plugins/WinVST/ToTape5/VSTProject.sln
@@ -0,0 +1,28 @@
+

+Microsoft Visual Studio Solution File, Format Version 12.00

+# Visual Studio 14

+VisualStudioVersion = 14.0.25420.1

+MinimumVisualStudioVersion = 10.0.40219.1

+Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "VSTProject", "VSTProject.vcxproj", "{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}"

+EndProject

+Global

+	GlobalSection(SolutionConfigurationPlatforms) = preSolution

+		Debug|x64 = Debug|x64

+		Debug|x86 = Debug|x86

+		Release|x64 = Release|x64

+		Release|x86 = Release|x86

+	EndGlobalSection

+	GlobalSection(ProjectConfigurationPlatforms) = postSolution

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Debug|x64.ActiveCfg = Debug|x64

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Debug|x64.Build.0 = Debug|x64

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Debug|x86.ActiveCfg = Debug|Win32

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Debug|x86.Build.0 = Debug|Win32

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Release|x64.ActiveCfg = Release|x64

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Release|x64.Build.0 = Release|x64

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Release|x86.ActiveCfg = Release|Win32

+		{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}.Release|x86.Build.0 = Release|Win32

+	EndGlobalSection

+	GlobalSection(SolutionProperties) = preSolution

+		HideSolutionNode = FALSE

+	EndGlobalSection

+EndGlobal

diff --git a/plugins/WinVST/ToTape5/VSTProject.vcxproj b/plugins/WinVST/ToTape5/VSTProject.vcxproj
new file mode 100755
index 0000000..acec5ef
--- /dev/null
+++ b/plugins/WinVST/ToTape5/VSTProject.vcxproj
@@ -0,0 +1,183 @@
+<?xml version="1.0" encoding="utf-8"?>

+<Project DefaultTargets="Build" ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

+  <ItemGroup Label="ProjectConfigurations">

+    <ProjectConfiguration Include="Debug|Win32">

+      <Configuration>Debug</Configuration>

+      <Platform>Win32</Platform>

+    </ProjectConfiguration>

+    <ProjectConfiguration Include="Release|Win32">

+      <Configuration>Release</Configuration>

+      <Platform>Win32</Platform>

+    </ProjectConfiguration>

+    <ProjectConfiguration Include="Debug|x64">

+      <Configuration>Debug</Configuration>

+      <Platform>x64</Platform>

+    </ProjectConfiguration>

+    <ProjectConfiguration Include="Release|x64">

+      <Configuration>Release</Configuration>

+      <Platform>x64</Platform>

+    </ProjectConfiguration>

+  </ItemGroup>

+  <ItemGroup>

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffect.cpp" />

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffectx.cpp" />

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\vstplugmain.cpp" />

+    <ClCompile Include="ToTape5.cpp" />

+    <ClCompile Include="ToTape5Proc.cpp" />

+  </ItemGroup>

+  <ItemGroup>

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\aeffeditor.h" />

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffect.h" />

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffectx.h" />

+    <ClInclude Include="ToTape5.h" />

+  </ItemGroup>

+  <PropertyGroup Label="Globals">

+    <ProjectGuid>{16F7AB3C-1AE0-4574-B60C-7B4DED82938C}</ProjectGuid>

+    <RootNamespace>VSTProject</RootNamespace>

+    <WindowsTargetPlatformVersion>8.1</WindowsTargetPlatformVersion>

+    <ProjectName>ToTape564</ProjectName>

+  </PropertyGroup>

+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">

+    <ConfigurationType>DynamicLibrary</ConfigurationType>

+    <UseDebugLibraries>true</UseDebugLibraries>

+    <PlatformToolset>v140</PlatformToolset>

+    <CharacterSet>NotSet</CharacterSet>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">

+    <ConfigurationType>DynamicLibrary</ConfigurationType>

+    <UseDebugLibraries>false</UseDebugLibraries>

+    <PlatformToolset>v140</PlatformToolset>

+    <WholeProgramOptimization>false</WholeProgramOptimization>

+    <CharacterSet>NotSet</CharacterSet>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">

+    <ConfigurationType>DynamicLibrary</ConfigurationType>

+    <UseDebugLibraries>true</UseDebugLibraries>

+    <PlatformToolset>v140</PlatformToolset>

+    <CharacterSet>NotSet</CharacterSet>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">

+    <ConfigurationType>DynamicLibrary</ConfigurationType>

+    <UseDebugLibraries>false</UseDebugLibraries>

+    <PlatformToolset>v140</PlatformToolset>

+    <WholeProgramOptimization>false</WholeProgramOptimization>

+    <CharacterSet>NotSet</CharacterSet>

+  </PropertyGroup>

+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />

+  <ImportGroup Label="ExtensionSettings">

+  </ImportGroup>

+  <ImportGroup Label="Shared">

+  </ImportGroup>

+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">

+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />

+  </ImportGroup>

+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">

+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />

+  </ImportGroup>

+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">

+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />

+  </ImportGroup>

+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|x64'">

+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />

+  </ImportGroup>

+  <PropertyGroup Label="UserMacros" />

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">

+    <TargetExt>.dll</TargetExt>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">

+    <OutDir>$(SolutionDir)$(Configuration)\</OutDir>

+    <IntDir>$(Configuration)\</IntDir>

+    <ExecutablePath>$(VC_ExecutablePath_x64);$(WindowsSDK_ExecutablePath);$(VS_ExecutablePath);$(MSBuild_ExecutablePath);$(SystemRoot)\SysWow64;$(FxCopDir);$(PATH)</ExecutablePath>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">

+    <OutDir>$(SolutionDir)$(Configuration)\</OutDir>

+    <IntDir>$(Configuration)\</IntDir>

+    <ExecutablePath>$(VC_ExecutablePath_x64);$(WindowsSDK_ExecutablePath);$(VS_ExecutablePath);$(MSBuild_ExecutablePath);$(SystemRoot)\SysWow64;$(FxCopDir);$(PATH)</ExecutablePath>

+  </PropertyGroup>

+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">

+    <ClCompile>

+      <WarningLevel>Level3</WarningLevel>

+      <Optimization>MaxSpeed</Optimization>

+      <SDLCheck>true</SDLCheck>

+      <AdditionalIncludeDirectories>C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>

+      <PreprocessorDefinitions>WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions)</PreprocessorDefinitions>

+      <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>

+      <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>

+      <MinimalRebuild>false</MinimalRebuild>

+      <BasicRuntimeChecks>Default</BasicRuntimeChecks>

+      <FunctionLevelLinking>false</FunctionLevelLinking>

+      <DebugInformationFormat>None</DebugInformationFormat>

+    </ClCompile>

+    <Link>

+      <ModuleDefinitionFile>vstplug.def</ModuleDefinitionFile>

+      <IgnoreSpecificDefaultLibraries>libcmt.dll;libcmtd.dll;msvcrt.lib;%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>

+      <AdditionalDependencies>kernel32.lib;user32.lib;gdi32.lib;winspool.lib;comdlg32.lib;advapi32.lib;shell32.lib;ole32.lib;oleaut32.lib;uuid.lib;odbc32.lib;odbccp32.lib;%(AdditionalDependencies)</AdditionalDependencies>

+    </Link>

+  </ItemDefinitionGroup>

+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">

+    <ClCompile>

+      <WarningLevel>Level3</WarningLevel>

+      <Optimization>MaxSpeed</Optimization>

+      <SDLCheck>true</SDLCheck>

+      <AdditionalIncludeDirectories>C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>

+      <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>

+      <PreprocessorDefinitions>WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions)</PreprocessorDefinitions>

+      <MinimalRebuild>false</MinimalRebuild>

+      <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>

+      <BasicRuntimeChecks>Default</BasicRuntimeChecks>

+      <FunctionLevelLinking>false</FunctionLevelLinking>

+      <DebugInformationFormat>None</DebugInformationFormat>

+    </ClCompile>

+    <Link>

+      <AdditionalDependencies>kernel32.lib;user32.lib;gdi32.lib;winspool.lib;comdlg32.lib;advapi32.lib;shell32.lib;ole32.lib;oleaut32.lib;uuid.lib;odbc32.lib;odbccp32.lib;%(AdditionalDependencies)</AdditionalDependencies>

+      <IgnoreSpecificDefaultLibraries>libcmt.dll;libcmtd.dll;msvcrt.lib;%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>

+      <ModuleDefinitionFile>vstplug.def</ModuleDefinitionFile>

+    </Link>

+  </ItemDefinitionGroup>

+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">

+    <ClCompile>

+      <WarningLevel>Level3</WarningLevel>

+      <Optimization>MaxSpeed</Optimization>

+      <FunctionLevelLinking>false</FunctionLevelLinking>

+      <IntrinsicFunctions>false</IntrinsicFunctions>

+      <SDLCheck>true</SDLCheck>

+      <RuntimeLibrary>MultiThreaded</RuntimeLibrary>

+      <AdditionalIncludeDirectories>C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>

+      <DebugInformationFormat>None</DebugInformationFormat>

+      <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>

+      <PreprocessorDefinitions>WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions)</PreprocessorDefinitions>

+    </ClCompile>

+    <Link>

+      <EnableCOMDATFolding>true</EnableCOMDATFolding>

+      <OptimizeReferences>true</OptimizeReferences>

+      <IgnoreSpecificDefaultLibraries>libcmt.dll;libcmtd.dll;msvcrt.lib;libc.lib;libcd.lib;libcmt.lib;msvcrtd.lib;%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>

+      <AdditionalDependencies>libcmt.lib;uuid.lib;kernel32.lib;user32.lib;gdi32.lib;winspool.lib;comdlg32.lib;advapi32.lib;shell32.lib;ole32.lib;oleaut32.lib;odbc32.lib;odbccp32.lib;%(AdditionalDependencies)</AdditionalDependencies>

+      <ModuleDefinitionFile>vstplug.def</ModuleDefinitionFile>

+    </Link>

+  </ItemDefinitionGroup>

+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">

+    <ClCompile>

+      <WarningLevel>Level3</WarningLevel>

+      <Optimization>MaxSpeed</Optimization>

+      <FunctionLevelLinking>false</FunctionLevelLinking>

+      <IntrinsicFunctions>false</IntrinsicFunctions>

+      <SDLCheck>true</SDLCheck>

+      <AdditionalIncludeDirectories>C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>

+      <DebugInformationFormat>None</DebugInformationFormat>

+      <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>

+      <PreprocessorDefinitions>WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions)</PreprocessorDefinitions>

+      <RuntimeLibrary>MultiThreaded</RuntimeLibrary>

+    </ClCompile>

+    <Link>

+      <EnableCOMDATFolding>true</EnableCOMDATFolding>

+      <OptimizeReferences>true</OptimizeReferences>

+      <IgnoreSpecificDefaultLibraries>libcmt.dll;libcmtd.dll;msvcrt.lib;libc.lib;libcd.lib;libcmt.lib;msvcrtd.lib;%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>

+      <AdditionalDependencies>libcmt.lib;uuid.lib;kernel32.lib;user32.lib;gdi32.lib;winspool.lib;comdlg32.lib;advapi32.lib;shell32.lib;ole32.lib;oleaut32.lib;odbc32.lib;odbccp32.lib;%(AdditionalDependencies)</AdditionalDependencies>

+      <ModuleDefinitionFile>vstplug.def</ModuleDefinitionFile>

+    </Link>

+  </ItemDefinitionGroup>

+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />

+  <ImportGroup Label="ExtensionTargets">

+  </ImportGroup>

+</Project>
\ No newline at end of file
diff --git a/plugins/WinVST/ToTape5/VSTProject.vcxproj.filters b/plugins/WinVST/ToTape5/VSTProject.vcxproj.filters
new file mode 100755
index 0000000..e31d0c2
--- /dev/null
+++ b/plugins/WinVST/ToTape5/VSTProject.vcxproj.filters
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="utf-8"?>

+<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

+  <ItemGroup>

+    <Filter Include="Source Files">

+      <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier>

+      <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions>

+    </Filter>

+    <Filter Include="Header Files">

+      <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier>

+      <Extensions>h;hh;hpp;hxx;hm;inl;inc;xsd</Extensions>

+    </Filter>

+    <Filter Include="Resource Files">

+      <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier>

+      <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms</Extensions>

+    </Filter>

+  </ItemGroup>

+  <ItemGroup>

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffect.cpp">

+      <Filter>Source Files</Filter>

+    </ClCompile>

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffectx.cpp">

+      <Filter>Source Files</Filter>

+    </ClCompile>

+    <ClCompile Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\vstplugmain.cpp">

+      <Filter>Source Files</Filter>

+    </ClCompile>

+    <ClCompile Include="ToTape5.cpp">

+      <Filter>Source Files</Filter>

+    </ClCompile>

+    <ClCompile Include="ToTape5Proc.cpp">

+      <Filter>Source Files</Filter>

+    </ClCompile>

+  </ItemGroup>

+  <ItemGroup>

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\aeffeditor.h">

+      <Filter>Header Files</Filter>

+    </ClInclude>

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffect.h">

+      <Filter>Header Files</Filter>

+    </ClInclude>

+    <ClInclude Include="..\..\..\vstsdk2.4\public.sdk\source\vst2.x\audioeffectx.h">

+      <Filter>Header Files</Filter>

+    </ClInclude>

+    <ClInclude Include="ToTape5.h">

+      <Filter>Header Files</Filter>

+    </ClInclude>

+  </ItemGroup>

+</Project>
\ No newline at end of file
diff --git a/plugins/WinVST/ToTape5/VSTProject.vcxproj.user b/plugins/WinVST/ToTape5/VSTProject.vcxproj.user
new file mode 100755
index 0000000..2216267
--- /dev/null
+++ b/plugins/WinVST/ToTape5/VSTProject.vcxproj.user
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>

+<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">

+    <LocalDebuggerAmpDefaultAccelerator>{ADEFF70D-84BF-47A1-91C3-FF6B0FC71218}</LocalDebuggerAmpDefaultAccelerator>

+    <DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">

+    <LocalDebuggerAmpDefaultAccelerator>{ADEFF70D-84BF-47A1-91C3-FF6B0FC71218}</LocalDebuggerAmpDefaultAccelerator>

+    <DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">

+    <LocalDebuggerAmpDefaultAccelerator>{ADEFF70D-84BF-47A1-91C3-FF6B0FC71218}</LocalDebuggerAmpDefaultAccelerator>

+    <DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>

+  </PropertyGroup>

+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">

+    <LocalDebuggerAmpDefaultAccelerator>{ADEFF70D-84BF-47A1-91C3-FF6B0FC71218}</LocalDebuggerAmpDefaultAccelerator>

+    <DebuggerFlavor>WindowsLocalDebugger</DebuggerFlavor>

+  </PropertyGroup>

+</Project>
\ No newline at end of file
diff --git a/plugins/WinVST/ToTape5/vstplug.def b/plugins/WinVST/ToTape5/vstplug.def
new file mode 100755
index 0000000..5bf499a
--- /dev/null
+++ b/plugins/WinVST/ToTape5/vstplug.def
@@ -0,0 +1,3 @@
+EXPORTS

+	VSTPluginMain

+	main=VSTPluginMain
\ No newline at end of file