From 8a8670d2e47cb2ec3a82d6bf11942488303ae23f Mon Sep 17 00:00:00 2001 From: Chris Johnson Date: Sun, 10 Mar 2019 19:10:57 -0400 Subject: BlockParty --- .../BlockParty/.vs/Console4Channel64/v14/.suo | Bin 0 -> 32768 bytes plugins/WinVST/BlockParty/.vs/VSTProject/v14/.suo | Bin 0 -> 23040 bytes plugins/WinVST/BlockParty/BlockParty.cpp | 168 +++ plugins/WinVST/BlockParty/BlockParty.h | 108 ++ plugins/WinVST/BlockParty/BlockPartyProc.cpp | 1130 ++++++++++++++++++++ plugins/WinVST/BlockParty/VSTProject.sln | 28 + plugins/WinVST/BlockParty/VSTProject.vcxproj | 183 ++++ .../WinVST/BlockParty/VSTProject.vcxproj.filters | 48 + plugins/WinVST/BlockParty/VSTProject.vcxproj.user | 19 + plugins/WinVST/BlockParty/vstplug.def | 3 + 10 files changed, 1687 insertions(+) create mode 100755 plugins/WinVST/BlockParty/.vs/Console4Channel64/v14/.suo create mode 100755 plugins/WinVST/BlockParty/.vs/VSTProject/v14/.suo create mode 100755 plugins/WinVST/BlockParty/BlockParty.cpp create mode 100755 plugins/WinVST/BlockParty/BlockParty.h create mode 100755 plugins/WinVST/BlockParty/BlockPartyProc.cpp create mode 100755 plugins/WinVST/BlockParty/VSTProject.sln create mode 100755 plugins/WinVST/BlockParty/VSTProject.vcxproj create mode 100755 plugins/WinVST/BlockParty/VSTProject.vcxproj.filters create mode 100755 plugins/WinVST/BlockParty/VSTProject.vcxproj.user create mode 100755 plugins/WinVST/BlockParty/vstplug.def (limited to 'plugins/WinVST') diff --git a/plugins/WinVST/BlockParty/.vs/Console4Channel64/v14/.suo b/plugins/WinVST/BlockParty/.vs/Console4Channel64/v14/.suo new file mode 100755 index 0000000..777b846 Binary files /dev/null and b/plugins/WinVST/BlockParty/.vs/Console4Channel64/v14/.suo differ diff --git a/plugins/WinVST/BlockParty/.vs/VSTProject/v14/.suo b/plugins/WinVST/BlockParty/.vs/VSTProject/v14/.suo new file mode 100755 index 0000000..26f80f4 Binary files /dev/null and b/plugins/WinVST/BlockParty/.vs/VSTProject/v14/.suo differ diff --git a/plugins/WinVST/BlockParty/BlockParty.cpp b/plugins/WinVST/BlockParty/BlockParty.cpp new file mode 100755 index 0000000..31cc755 --- /dev/null +++ b/plugins/WinVST/BlockParty/BlockParty.cpp @@ -0,0 +1,168 @@ +/* ======================================== + * BlockParty - BlockParty.h + * Copyright (c) 2016 airwindows, All rights reserved + * ======================================== */ + +#ifndef __BlockParty_H +#include "BlockParty.h" +#endif + +AudioEffect* createEffectInstance(audioMasterCallback audioMaster) {return new BlockParty(audioMaster);} + +BlockParty::BlockParty(audioMasterCallback audioMaster) : + AudioEffectX(audioMaster, kNumPrograms, kNumParameters) +{ + A = 0.0; + B = 1.0; + fpd = 17; + + muSpeedAL = 10000; + muSpeedBL = 10000; + muSpeedCL = 10000; + muSpeedDL = 10000; + muSpeedEL = 10000; + muCoefficientAL = 1; + muCoefficientBL = 1; + muCoefficientCL = 1; + muCoefficientDL = 1; + muCoefficientEL = 1; + lastCoefficientAL = 1; + lastCoefficientBL = 1; + lastCoefficientCL = 1; + lastCoefficientDL = 1; + mergedCoefficientsL = 1; + thresholdL = 1.0; + thresholdBL = 1.0; + muVaryL = 1; + + muSpeedAR = 10000; + muSpeedBR = 10000; + muSpeedCR = 10000; + muSpeedDR = 10000; + muSpeedER = 10000; + muCoefficientAR = 1; + muCoefficientBR = 1; + muCoefficientCR = 1; + muCoefficientDR = 1; + muCoefficientER = 1; + lastCoefficientAR = 1; + lastCoefficientBR = 1; + lastCoefficientCR = 1; + lastCoefficientDR = 1; + mergedCoefficientsR = 1; + thresholdR = 1.0; + thresholdBR = 1.0; + muVaryR = 1; + + count = 1; + 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 +} + +BlockParty::~BlockParty() {} +VstInt32 BlockParty::getVendorVersion () {return 1000;} +void BlockParty::setProgramName(char *name) {vst_strncpy (_programName, name, kVstMaxProgNameLen);} +void BlockParty::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 BlockParty::getChunk (void** data, bool isPreset) +{ + float *chunkData = (float *)calloc(kNumParameters, sizeof(float)); + chunkData[0] = A; + chunkData[1] = B; + /* 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 BlockParty::setChunk (void* data, VstInt32 byteSize, bool isPreset) +{ + float *chunkData = (float *)data; + A = pinParameter(chunkData[0]); + B = pinParameter(chunkData[1]); + /* 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 BlockParty::setParameter(VstInt32 index, float value) { + switch (index) { + case kParamA: A = value; break; + case kParamB: B = value; break; + default: throw; // unknown parameter, shouldn't happen! + } +} + +float BlockParty::getParameter(VstInt32 index) { + switch (index) { + case kParamA: return A; break; + case kParamB: return B; 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 BlockParty::getParameterName(VstInt32 index, char *text) { + switch (index) { + case kParamA: vst_strncpy (text, "Pound", kVstMaxParamStrLen); break; + case kParamB: 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 BlockParty::getParameterDisplay(VstInt32 index, char *text) { + switch (index) { + case kParamA: float2string (A, text, kVstMaxParamStrLen); break; + case kParamB: float2string (B, text, kVstMaxParamStrLen); break; + default: break; // unknown parameter, shouldn't happen! + } //this displays the values and handles 'popups' where it's discrete choices +} + +void BlockParty::getParameterLabel(VstInt32 index, char *text) { + switch (index) { + case kParamA: vst_strncpy (text, "", kVstMaxParamStrLen); break; + case kParamB: vst_strncpy (text, "", kVstMaxParamStrLen); break; + default: break; // unknown parameter, shouldn't happen! + } +} + +VstInt32 BlockParty::canDo(char *text) +{ return (_canDo.find(text) == _canDo.end()) ? -1: 1; } // 1 = yes, -1 = no, 0 = don't know + +bool BlockParty::getEffectName(char* name) { + vst_strncpy(name, "BlockParty", kVstMaxProductStrLen); return true; +} + +VstPlugCategory BlockParty::getPlugCategory() {return kPlugCategEffect;} + +bool BlockParty::getProductString(char* text) { + vst_strncpy (text, "airwindows BlockParty", kVstMaxProductStrLen); return true; +} + +bool BlockParty::getVendorString(char* text) { + vst_strncpy (text, "airwindows", kVstMaxVendorStrLen); return true; +} diff --git a/plugins/WinVST/BlockParty/BlockParty.h b/plugins/WinVST/BlockParty/BlockParty.h new file mode 100755 index 0000000..afcc973 --- /dev/null +++ b/plugins/WinVST/BlockParty/BlockParty.h @@ -0,0 +1,108 @@ +/* ======================================== + * BlockParty - BlockParty.h + * Created 8/12/11 by SPIAdmin + * Copyright (c) 2011 __MyCompanyName__, All rights reserved + * ======================================== */ + +#ifndef __BlockParty_H +#define __BlockParty_H + +#ifndef __audioeffect__ +#include "audioeffectx.h" +#endif + +#include +#include +#include + +enum { + kParamA = 0, + kParamB = 1, + kNumParameters = 2 +}; // + +const int kNumPrograms = 0; +const int kNumInputs = 2; +const int kNumOutputs = 2; +const unsigned long kUniqueId = 'blok'; //Change this to what the AU identity is! + +class BlockParty : + public AudioEffectX +{ +public: + BlockParty(audioMasterCallback audioMaster); + ~BlockParty(); + 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; + + uint32_t fpd; + //default stuff + + float A; + float B; + + double muVaryL; + double muAttackL; + double muNewSpeedL; + double muSpeedAL; + double muSpeedBL; + double muSpeedCL; + double muSpeedDL; + double muSpeedEL; + double muCoefficientAL; + double muCoefficientBL; + double muCoefficientCL; + double muCoefficientDL; + double muCoefficientEL; + double lastCoefficientAL; + double lastCoefficientBL; + double lastCoefficientCL; + double lastCoefficientDL; + double mergedCoefficientsL; + double thresholdL; + double thresholdBL; + + double muVaryR; + double muAttackR; + double muNewSpeedR; + double muSpeedAR; + double muSpeedBR; + double muSpeedCR; + double muSpeedDR; + double muSpeedER; + double muCoefficientAR; + double muCoefficientBR; + double muCoefficientCR; + double muCoefficientDR; + double muCoefficientER; + double lastCoefficientAR; + double lastCoefficientBR; + double lastCoefficientCR; + double lastCoefficientDR; + double mergedCoefficientsR; + double thresholdR; + double thresholdBR; + + int count; + bool fpFlip; +}; + +#endif diff --git a/plugins/WinVST/BlockParty/BlockPartyProc.cpp b/plugins/WinVST/BlockParty/BlockPartyProc.cpp new file mode 100755 index 0000000..12c19d4 --- /dev/null +++ b/plugins/WinVST/BlockParty/BlockPartyProc.cpp @@ -0,0 +1,1130 @@ +/* ======================================== + * BlockParty - BlockParty.h + * Copyright (c) 2016 airwindows, All rights reserved + * ======================================== */ + +#ifndef __BlockParty_H +#include "BlockParty.h" +#endif + +void BlockParty::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 targetthreshold = 1.01 - (1.0-pow(1.0-(A*0.5),4)); + double wet = B; + double voicing = 0.618033988749894848204586; + if (overallscale > 0.0) voicing /= overallscale; + //translate to desired sample rate, 44.1K is the base + if (voicing < 0.0) voicing = 0.0; + if (voicing > 1.0) voicing = 1.0; + //some insanity checking + + while (--sampleFrames >= 0) + { + long double inputSampleL = *in1; + long double inputSampleR = *in2; + + static int noisesourceL = 0; + static int noisesourceR = 850010; + int residue; + double applyresidue; + + noisesourceL = noisesourceL % 1700021; noisesourceL++; + residue = noisesourceL * noisesourceL; + residue = residue % 170003; residue *= residue; + residue = residue % 17011; residue *= residue; + residue = residue % 1709; residue *= residue; + residue = residue % 173; residue *= residue; + residue = residue % 17; + applyresidue = residue; + applyresidue *= 0.00000001; + applyresidue *= 0.00000001; + inputSampleL += applyresidue; + if (inputSampleL<1.2e-38 && -inputSampleL<1.2e-38) { + inputSampleL -= applyresidue; + } + + noisesourceR = noisesourceR % 1700021; noisesourceR++; + residue = noisesourceR * noisesourceR; + residue = residue % 170003; residue *= residue; + residue = residue % 17011; residue *= residue; + residue = residue % 1709; residue *= residue; + residue = residue % 173; residue *= residue; + residue = residue % 17; + applyresidue = residue; + applyresidue *= 0.00000001; + applyresidue *= 0.00000001; + inputSampleR += applyresidue; + if (inputSampleR<1.2e-38 && -inputSampleR<1.2e-38) { + inputSampleR -= applyresidue; + } + //for live air, we always apply the dither noise. Then, if our result is + //effectively digital black, we'll subtract it again. We want a 'air' hiss + long double drySampleL = inputSampleL; + long double drySampleR = inputSampleR; + + double muMakeupGainL = 1.0 / thresholdL; + double outMakeupGainL = sqrt(muMakeupGainL); + muMakeupGainL += outMakeupGainL; + muMakeupGainL *= 0.5; + //gain settings around threshold + double releaseL = mergedCoefficientsL * 32768.0; + releaseL /= overallscale; + double fastestL = sqrt(releaseL); + //speed settings around release + double lastCorrectionL = mergedCoefficientsL; + // µ µ µ µ µ µ µ µ µ µ µ µ is the kitten song o/~ + + double muMakeupGainR = 1.0 / thresholdR; + double outMakeupGainR = sqrt(muMakeupGainR); + muMakeupGainR += outMakeupGainR; + muMakeupGainR *= 0.5; + //gain settings around threshold + double releaseR = mergedCoefficientsR * 32768.0; + releaseR /= overallscale; + double fastestR = sqrt(releaseR); + //speed settings around release + double lastCorrectionR = mergedCoefficientsR; + // µ µ µ µ µ µ µ µ µ µ µ µ is the kitten song o/~ + + if (muMakeupGainL != 1.0) inputSampleL = inputSampleL * muMakeupGainL; + if (muMakeupGainR != 1.0) inputSampleR = inputSampleR * muMakeupGainR; + + if (count < 1 || count > 3) count = 1; + switch (count) + { + case 1: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedAL)); + muCoefficientAL = muCoefficientAL * (muAttackL-1.0); + if (muVaryL < thresholdL) + { + muCoefficientAL = muCoefficientAL + targetthreshold; + } + else + { + muCoefficientAL = muCoefficientAL + muVaryL; + } + muCoefficientAL = muCoefficientAL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientAL = muCoefficientAL * ((muSpeedAL * muSpeedAL)-1.0); + muCoefficientAL = muCoefficientAL + 1.0; + muCoefficientAL = muCoefficientAL / (muSpeedAL * muSpeedAL); + } + muNewSpeedL = muSpeedAL * (muSpeedAL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedAL = muNewSpeedL / muSpeedAL; + lastCoefficientAL = pow(muCoefficientAL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientAL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedAR)); + muCoefficientAR = muCoefficientAR * (muAttackR-1.0); + if (muVaryR < thresholdR) + { + muCoefficientAR = muCoefficientAR + targetthreshold; + } + else + { + muCoefficientAR = muCoefficientAR + muVaryR; + } + muCoefficientAR = muCoefficientAR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientAR = muCoefficientAR * ((muSpeedAR * muSpeedAR)-1.0); + muCoefficientAR = muCoefficientAR + 1.0; + muCoefficientAR = muCoefficientAR / (muSpeedAR * muSpeedAR); + } + muNewSpeedR = muSpeedAR * (muSpeedAR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedAR = muNewSpeedR / muSpeedAR; + lastCoefficientAR = pow(muCoefficientAR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientAR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + case 2: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedBL)); + muCoefficientBL = muCoefficientBL * (muAttackL-1); + if (muVaryL < thresholdL) + { + muCoefficientBL = muCoefficientBL + targetthreshold; + } + else + { + muCoefficientBL = muCoefficientBL + muVaryL; + } + muCoefficientBL = muCoefficientBL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientBL = muCoefficientBL * ((muSpeedBL * muSpeedBL)-1.0); + muCoefficientBL = muCoefficientBL + 1.0; + muCoefficientBL = muCoefficientBL / (muSpeedBL * muSpeedBL); + } + muNewSpeedL = muSpeedBL * (muSpeedBL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedBL = muNewSpeedL / muSpeedBL; + lastCoefficientAL = pow(muCoefficientBL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientBL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedBR)); + muCoefficientBR = muCoefficientBR * (muAttackR-1); + if (muVaryR < thresholdR) + { + muCoefficientBR = muCoefficientBR + targetthreshold; + } + else + { + muCoefficientBR = muCoefficientBR + muVaryR; + } + muCoefficientBR = muCoefficientBR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientBR = muCoefficientBR * ((muSpeedBR * muSpeedBR)-1.0); + muCoefficientBR = muCoefficientBR + 1.0; + muCoefficientBR = muCoefficientBR / (muSpeedBR * muSpeedBR); + } + muNewSpeedR = muSpeedBR * (muSpeedBR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedBR = muNewSpeedR / muSpeedBR; + lastCoefficientAR = pow(muCoefficientBR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientBR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + case 3: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedCL)); + muCoefficientCL = muCoefficientCL * (muAttackL-1); + if (muVaryL < thresholdL) + { + muCoefficientCL = muCoefficientCL + targetthreshold; + } + else + { + muCoefficientCL = muCoefficientCL + muVaryL; + } + muCoefficientCL = muCoefficientCL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientCL = muCoefficientCL * ((muSpeedCL * muSpeedCL)-1.0); + muCoefficientCL = muCoefficientCL + 1.0; + muCoefficientCL = muCoefficientCL / (muSpeedCL * muSpeedCL); + } + muNewSpeedL = muSpeedCL * (muSpeedCL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedCL = muNewSpeedL / muSpeedCL; + lastCoefficientAL = pow(muCoefficientCL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientCL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedCR)); + muCoefficientCR = muCoefficientCR * (muAttackR-1); + if (muVaryR < thresholdR) + { + muCoefficientCR = muCoefficientCR + targetthreshold; + } + else + { + muCoefficientCR = muCoefficientCR + muVaryR; + } + muCoefficientCR = muCoefficientCR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientCR = muCoefficientCR * ((muSpeedCR * muSpeedCR)-1.0); + muCoefficientCR = muCoefficientCR + 1.0; + muCoefficientCR = muCoefficientCR / (muSpeedCR * muSpeedCR); + } + muNewSpeedR = muSpeedCR * (muSpeedCR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedCR = muNewSpeedR / muSpeedCR; + lastCoefficientAR = pow(muCoefficientCR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientCR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + } + count++; + + //applied compression with vari-vari-µ-µ-µ-µ-µ-µ-is-the-kitten-song o/~ + //applied gain correction to control output level- tends to constrain sound rather than inflate it + + if (fpFlip) { + //begin L + if (fabs(inputSampleL) > thresholdBL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedDL)); + muCoefficientDL = muCoefficientDL * (muAttackL-1.0); + if (muVaryL < thresholdBL) + { + muCoefficientDL = muCoefficientDL + targetthreshold; + } + else + { + muCoefficientDL = muCoefficientDL + muVaryL; + } + muCoefficientDL = muCoefficientDL / muAttackL; + } + else + { + thresholdBL = targetthreshold; + muCoefficientDL = muCoefficientDL * ((muSpeedDL * muSpeedDL)-1.0); + muCoefficientDL = muCoefficientDL + 1.0; + muCoefficientDL = muCoefficientDL / (muSpeedDL * muSpeedDL); + } + muNewSpeedL = muSpeedDL * (muSpeedDL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedDL = muNewSpeedL / muSpeedDL; + lastCoefficientCL = pow(muCoefficientEL,2); + mergedCoefficientsL += lastCoefficientDL; + mergedCoefficientsL += lastCoefficientCL; + lastCoefficientCL *= (1.0-lastCorrectionL); + lastCoefficientCL += (muCoefficientDL * lastCorrectionL); + lastCoefficientDL = lastCoefficientCL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdBR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedDR)); + muCoefficientDR = muCoefficientDR * (muAttackR-1.0); + if (muVaryR < thresholdBR) + { + muCoefficientDR = muCoefficientDR + targetthreshold; + } + else + { + muCoefficientDR = muCoefficientDR + muVaryR; + } + muCoefficientDR = muCoefficientDR / muAttackR; + } + else + { + thresholdBR = targetthreshold; + muCoefficientDR = muCoefficientDR * ((muSpeedDR * muSpeedDR)-1.0); + muCoefficientDR = muCoefficientDR + 1.0; + muCoefficientDR = muCoefficientDR / (muSpeedDR * muSpeedDR); + } + muNewSpeedR = muSpeedDR * (muSpeedDR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedDR = muNewSpeedR / muSpeedDR; + lastCoefficientCR = pow(muCoefficientER,2); + mergedCoefficientsR += lastCoefficientDR; + mergedCoefficientsR += lastCoefficientCR; + lastCoefficientCR *= (1.0-lastCorrectionR); + lastCoefficientCR += (muCoefficientDR * lastCorrectionR); + lastCoefficientDR = lastCoefficientCR; + //end R + + } else { + //begin L + if (fabs(inputSampleL) > thresholdBL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedEL)); + muCoefficientEL = muCoefficientEL * (muAttackL-1.0); + if (muVaryL < thresholdBL) + { + muCoefficientEL = muCoefficientEL + targetthreshold; + } + else + { + muCoefficientEL = muCoefficientEL + muVaryL; + } + muCoefficientEL = muCoefficientEL / muAttackL; + } + else + { + thresholdBL = targetthreshold; + muCoefficientEL = muCoefficientEL * ((muSpeedEL * muSpeedEL)-1.0); + muCoefficientEL = muCoefficientEL + 1.0; + muCoefficientEL = muCoefficientEL / (muSpeedEL * muSpeedEL); + } + muNewSpeedL = muSpeedEL * (muSpeedEL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedEL = muNewSpeedL / muSpeedEL; + lastCoefficientCL = pow(muCoefficientEL,2); + mergedCoefficientsL += lastCoefficientDL; + mergedCoefficientsL += lastCoefficientCL; + lastCoefficientCL *= (1.0-lastCorrectionL); + lastCoefficientCL += (muCoefficientEL * lastCorrectionL); + lastCoefficientDL = lastCoefficientCL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdBR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedER)); + muCoefficientER = muCoefficientER * (muAttackR-1.0); + if (muVaryR < thresholdBR) + { + muCoefficientER = muCoefficientER + targetthreshold; + } + else + { + muCoefficientER = muCoefficientER + muVaryR; + } + muCoefficientER = muCoefficientER / muAttackR; + } + else + { + thresholdBR = targetthreshold; + muCoefficientER = muCoefficientER * ((muSpeedER * muSpeedER)-1.0); + muCoefficientER = muCoefficientER + 1.0; + muCoefficientER = muCoefficientER / (muSpeedER * muSpeedER); + } + muNewSpeedR = muSpeedER * (muSpeedER-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedER = muNewSpeedR / muSpeedER; + lastCoefficientCR = pow(muCoefficientER,2); + mergedCoefficientsR += lastCoefficientDR; + mergedCoefficientsR += lastCoefficientCR; + lastCoefficientCR *= (1.0-lastCorrectionR); + lastCoefficientCR += (muCoefficientER * lastCorrectionR); + lastCoefficientDR = lastCoefficientCR; + //end R + + } + mergedCoefficientsL *= 0.25; + inputSampleL *= mergedCoefficientsL; + + mergedCoefficientsR *= 0.25; + inputSampleR *= mergedCoefficientsR; + + if (outMakeupGainL != 1.0) inputSampleL = inputSampleL * outMakeupGainL; + if (outMakeupGainR != 1.0) inputSampleR = inputSampleR * outMakeupGainR; + + fpFlip = !fpFlip; + + if (wet < 1.0) { + inputSampleL = (inputSampleL * wet) + (drySampleL * (1.0-wet)); + inputSampleR = (inputSampleR * wet) + (drySampleR * (1.0-wet)); + } + + if (inputSampleL > 0.999) inputSampleL = 0.999; + if (inputSampleL < -0.999) inputSampleL = -0.999; + //iron bar clip comes after the dry/wet: alternate way to clean things up + if (inputSampleR > 0.999) inputSampleR = 0.999; + if (inputSampleR < -0.999) inputSampleR = -0.999; + //iron bar clip comes after the dry/wet: alternate way to clean things up + + //begin 32 bit stereo floating point dither + int expon; frexpf((float)inputSampleL, &expon); + fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5; + inputSampleL += static_cast(fpd) * 5.960464655174751e-36L * pow(2,expon+62); + frexpf((float)inputSampleR, &expon); + fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5; + inputSampleR += static_cast(fpd) * 5.960464655174751e-36L * pow(2,expon+62); + //end 32 bit stereo floating point dither + + *out1 = inputSampleL; + *out2 = inputSampleR; + + *in1++; + *in2++; + *out1++; + *out2++; + } +} + +void BlockParty::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 targetthreshold = 1.01 - (1.0-pow(1.0-(A*0.5),4)); + double wet = B; + double voicing = 0.618033988749894848204586; + if (overallscale > 0.0) voicing /= overallscale; + //translate to desired sample rate, 44.1K is the base + if (voicing < 0.0) voicing = 0.0; + if (voicing > 1.0) voicing = 1.0; + //some insanity checking + + while (--sampleFrames >= 0) + { + long double inputSampleL = *in1; + long double inputSampleR = *in2; + + static int noisesourceL = 0; + static int noisesourceR = 850010; + int residue; + double applyresidue; + + noisesourceL = noisesourceL % 1700021; noisesourceL++; + residue = noisesourceL * noisesourceL; + residue = residue % 170003; residue *= residue; + residue = residue % 17011; residue *= residue; + residue = residue % 1709; residue *= residue; + residue = residue % 173; residue *= residue; + residue = residue % 17; + applyresidue = residue; + applyresidue *= 0.00000001; + applyresidue *= 0.00000001; + inputSampleL += applyresidue; + if (inputSampleL<1.2e-38 && -inputSampleL<1.2e-38) { + inputSampleL -= applyresidue; + } + + noisesourceR = noisesourceR % 1700021; noisesourceR++; + residue = noisesourceR * noisesourceR; + residue = residue % 170003; residue *= residue; + residue = residue % 17011; residue *= residue; + residue = residue % 1709; residue *= residue; + residue = residue % 173; residue *= residue; + residue = residue % 17; + applyresidue = residue; + applyresidue *= 0.00000001; + applyresidue *= 0.00000001; + inputSampleR += applyresidue; + if (inputSampleR<1.2e-38 && -inputSampleR<1.2e-38) { + inputSampleR -= applyresidue; + } + //for live air, we always apply the dither noise. Then, if our result is + //effectively digital black, we'll subtract it again. We want a 'air' hiss + long double drySampleL = inputSampleL; + long double drySampleR = inputSampleR; + + double muMakeupGainL = 1.0 / thresholdL; + double outMakeupGainL = sqrt(muMakeupGainL); + muMakeupGainL += outMakeupGainL; + muMakeupGainL *= 0.5; + //gain settings around threshold + double releaseL = mergedCoefficientsL * 32768.0; + releaseL /= overallscale; + double fastestL = sqrt(releaseL); + //speed settings around release + double lastCorrectionL = mergedCoefficientsL; + // µ µ µ µ µ µ µ µ µ µ µ µ is the kitten song o/~ + + double muMakeupGainR = 1.0 / thresholdR; + double outMakeupGainR = sqrt(muMakeupGainR); + muMakeupGainR += outMakeupGainR; + muMakeupGainR *= 0.5; + //gain settings around threshold + double releaseR = mergedCoefficientsR * 32768.0; + releaseR /= overallscale; + double fastestR = sqrt(releaseR); + //speed settings around release + double lastCorrectionR = mergedCoefficientsR; + // µ µ µ µ µ µ µ µ µ µ µ µ is the kitten song o/~ + + if (muMakeupGainL != 1.0) inputSampleL = inputSampleL * muMakeupGainL; + if (muMakeupGainR != 1.0) inputSampleR = inputSampleR * muMakeupGainR; + + if (count < 1 || count > 3) count = 1; + switch (count) + { + case 1: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedAL)); + muCoefficientAL = muCoefficientAL * (muAttackL-1.0); + if (muVaryL < thresholdL) + { + muCoefficientAL = muCoefficientAL + targetthreshold; + } + else + { + muCoefficientAL = muCoefficientAL + muVaryL; + } + muCoefficientAL = muCoefficientAL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientAL = muCoefficientAL * ((muSpeedAL * muSpeedAL)-1.0); + muCoefficientAL = muCoefficientAL + 1.0; + muCoefficientAL = muCoefficientAL / (muSpeedAL * muSpeedAL); + } + muNewSpeedL = muSpeedAL * (muSpeedAL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedAL = muNewSpeedL / muSpeedAL; + lastCoefficientAL = pow(muCoefficientAL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientAL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedAR)); + muCoefficientAR = muCoefficientAR * (muAttackR-1.0); + if (muVaryR < thresholdR) + { + muCoefficientAR = muCoefficientAR + targetthreshold; + } + else + { + muCoefficientAR = muCoefficientAR + muVaryR; + } + muCoefficientAR = muCoefficientAR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientAR = muCoefficientAR * ((muSpeedAR * muSpeedAR)-1.0); + muCoefficientAR = muCoefficientAR + 1.0; + muCoefficientAR = muCoefficientAR / (muSpeedAR * muSpeedAR); + } + muNewSpeedR = muSpeedAR * (muSpeedAR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedAR = muNewSpeedR / muSpeedAR; + lastCoefficientAR = pow(muCoefficientAR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientAR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + case 2: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedBL)); + muCoefficientBL = muCoefficientBL * (muAttackL-1); + if (muVaryL < thresholdL) + { + muCoefficientBL = muCoefficientBL + targetthreshold; + } + else + { + muCoefficientBL = muCoefficientBL + muVaryL; + } + muCoefficientBL = muCoefficientBL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientBL = muCoefficientBL * ((muSpeedBL * muSpeedBL)-1.0); + muCoefficientBL = muCoefficientBL + 1.0; + muCoefficientBL = muCoefficientBL / (muSpeedBL * muSpeedBL); + } + muNewSpeedL = muSpeedBL * (muSpeedBL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedBL = muNewSpeedL / muSpeedBL; + lastCoefficientAL = pow(muCoefficientBL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientBL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedBR)); + muCoefficientBR = muCoefficientBR * (muAttackR-1); + if (muVaryR < thresholdR) + { + muCoefficientBR = muCoefficientBR + targetthreshold; + } + else + { + muCoefficientBR = muCoefficientBR + muVaryR; + } + muCoefficientBR = muCoefficientBR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientBR = muCoefficientBR * ((muSpeedBR * muSpeedBR)-1.0); + muCoefficientBR = muCoefficientBR + 1.0; + muCoefficientBR = muCoefficientBR / (muSpeedBR * muSpeedBR); + } + muNewSpeedR = muSpeedBR * (muSpeedBR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedBR = muNewSpeedR / muSpeedBR; + lastCoefficientAR = pow(muCoefficientBR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientBR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + case 3: + //begin L + if (fabs(inputSampleL) > thresholdL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedCL)); + muCoefficientCL = muCoefficientCL * (muAttackL-1); + if (muVaryL < thresholdL) + { + muCoefficientCL = muCoefficientCL + targetthreshold; + } + else + { + muCoefficientCL = muCoefficientCL + muVaryL; + } + muCoefficientCL = muCoefficientCL / muAttackL; + } + else + { + thresholdL = targetthreshold; + muCoefficientCL = muCoefficientCL * ((muSpeedCL * muSpeedCL)-1.0); + muCoefficientCL = muCoefficientCL + 1.0; + muCoefficientCL = muCoefficientCL / (muSpeedCL * muSpeedCL); + } + muNewSpeedL = muSpeedCL * (muSpeedCL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedCL = muNewSpeedL / muSpeedCL; + lastCoefficientAL = pow(muCoefficientCL,2); + mergedCoefficientsL = lastCoefficientBL; + mergedCoefficientsL += lastCoefficientAL; + lastCoefficientAL *= (1.0-lastCorrectionL); + lastCoefficientAL += (muCoefficientCL * lastCorrectionL); + lastCoefficientBL = lastCoefficientAL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedCR)); + muCoefficientCR = muCoefficientCR * (muAttackR-1); + if (muVaryR < thresholdR) + { + muCoefficientCR = muCoefficientCR + targetthreshold; + } + else + { + muCoefficientCR = muCoefficientCR + muVaryR; + } + muCoefficientCR = muCoefficientCR / muAttackR; + } + else + { + thresholdR = targetthreshold; + muCoefficientCR = muCoefficientCR * ((muSpeedCR * muSpeedCR)-1.0); + muCoefficientCR = muCoefficientCR + 1.0; + muCoefficientCR = muCoefficientCR / (muSpeedCR * muSpeedCR); + } + muNewSpeedR = muSpeedCR * (muSpeedCR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedCR = muNewSpeedR / muSpeedCR; + lastCoefficientAR = pow(muCoefficientCR,2); + mergedCoefficientsR = lastCoefficientBR; + mergedCoefficientsR += lastCoefficientAR; + lastCoefficientAR *= (1.0-lastCorrectionR); + lastCoefficientAR += (muCoefficientCR * lastCorrectionR); + lastCoefficientBR = lastCoefficientAR; + //end R + + break; + } + count++; + + //applied compression with vari-vari-µ-µ-µ-µ-µ-µ-is-the-kitten-song o/~ + //applied gain correction to control output level- tends to constrain sound rather than inflate it + + if (fpFlip) { + //begin L + if (fabs(inputSampleL) > thresholdBL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedDL)); + muCoefficientDL = muCoefficientDL * (muAttackL-1.0); + if (muVaryL < thresholdBL) + { + muCoefficientDL = muCoefficientDL + targetthreshold; + } + else + { + muCoefficientDL = muCoefficientDL + muVaryL; + } + muCoefficientDL = muCoefficientDL / muAttackL; + } + else + { + thresholdBL = targetthreshold; + muCoefficientDL = muCoefficientDL * ((muSpeedDL * muSpeedDL)-1.0); + muCoefficientDL = muCoefficientDL + 1.0; + muCoefficientDL = muCoefficientDL / (muSpeedDL * muSpeedDL); + } + muNewSpeedL = muSpeedDL * (muSpeedDL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedDL = muNewSpeedL / muSpeedDL; + lastCoefficientCL = pow(muCoefficientEL,2); + mergedCoefficientsL += lastCoefficientDL; + mergedCoefficientsL += lastCoefficientCL; + lastCoefficientCL *= (1.0-lastCorrectionL); + lastCoefficientCL += (muCoefficientDL * lastCorrectionL); + lastCoefficientDL = lastCoefficientCL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdBR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedDR)); + muCoefficientDR = muCoefficientDR * (muAttackR-1.0); + if (muVaryR < thresholdBR) + { + muCoefficientDR = muCoefficientDR + targetthreshold; + } + else + { + muCoefficientDR = muCoefficientDR + muVaryR; + } + muCoefficientDR = muCoefficientDR / muAttackR; + } + else + { + thresholdBR = targetthreshold; + muCoefficientDR = muCoefficientDR * ((muSpeedDR * muSpeedDR)-1.0); + muCoefficientDR = muCoefficientDR + 1.0; + muCoefficientDR = muCoefficientDR / (muSpeedDR * muSpeedDR); + } + muNewSpeedR = muSpeedDR * (muSpeedDR-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedDR = muNewSpeedR / muSpeedDR; + lastCoefficientCR = pow(muCoefficientER,2); + mergedCoefficientsR += lastCoefficientDR; + mergedCoefficientsR += lastCoefficientCR; + lastCoefficientCR *= (1.0-lastCorrectionR); + lastCoefficientCR += (muCoefficientDR * lastCorrectionR); + lastCoefficientDR = lastCoefficientCR; + //end R + + } else { + //begin L + if (fabs(inputSampleL) > thresholdBL) + { + if (inputSampleL > 0.0) { + inputSampleL = (inputSampleL * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } else { + inputSampleL = (inputSampleL * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBL = fabs(inputSampleL); + } + muVaryL = targetthreshold / fabs(inputSampleL); + muAttackL = sqrt(fabs(muSpeedEL)); + muCoefficientEL = muCoefficientEL * (muAttackL-1.0); + if (muVaryL < thresholdBL) + { + muCoefficientEL = muCoefficientEL + targetthreshold; + } + else + { + muCoefficientEL = muCoefficientEL + muVaryL; + } + muCoefficientEL = muCoefficientEL / muAttackL; + } + else + { + thresholdBL = targetthreshold; + muCoefficientEL = muCoefficientEL * ((muSpeedEL * muSpeedEL)-1.0); + muCoefficientEL = muCoefficientEL + 1.0; + muCoefficientEL = muCoefficientEL / (muSpeedEL * muSpeedEL); + } + muNewSpeedL = muSpeedEL * (muSpeedEL-1); + muNewSpeedL = muNewSpeedL + fabs(inputSampleL*releaseL)+fastestL; + muSpeedEL = muNewSpeedL / muSpeedEL; + lastCoefficientCL = pow(muCoefficientEL,2); + mergedCoefficientsL += lastCoefficientDL; + mergedCoefficientsL += lastCoefficientCL; + lastCoefficientCL *= (1.0-lastCorrectionL); + lastCoefficientCL += (muCoefficientEL * lastCorrectionL); + lastCoefficientDL = lastCoefficientCL; + //end L + + //begin R + if (fabs(inputSampleR) > thresholdBR) + { + if (inputSampleR > 0.0) { + inputSampleR = (inputSampleR * voicing) + (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } else { + inputSampleR = (inputSampleR * voicing) - (targetthreshold * (1.0-voicing)); + thresholdBR = fabs(inputSampleR); + } + muVaryR = targetthreshold / fabs(inputSampleR); + muAttackR = sqrt(fabs(muSpeedER)); + muCoefficientER = muCoefficientER * (muAttackR-1.0); + if (muVaryR < thresholdBR) + { + muCoefficientER = muCoefficientER + targetthreshold; + } + else + { + muCoefficientER = muCoefficientER + muVaryR; + } + muCoefficientER = muCoefficientER / muAttackR; + } + else + { + thresholdBR = targetthreshold; + muCoefficientER = muCoefficientER * ((muSpeedER * muSpeedER)-1.0); + muCoefficientER = muCoefficientER + 1.0; + muCoefficientER = muCoefficientER / (muSpeedER * muSpeedER); + } + muNewSpeedR = muSpeedER * (muSpeedER-1); + muNewSpeedR = muNewSpeedR + fabs(inputSampleR*releaseR)+fastestR; + muSpeedER = muNewSpeedR / muSpeedER; + lastCoefficientCR = pow(muCoefficientER,2); + mergedCoefficientsR += lastCoefficientDR; + mergedCoefficientsR += lastCoefficientCR; + lastCoefficientCR *= (1.0-lastCorrectionR); + lastCoefficientCR += (muCoefficientER * lastCorrectionR); + lastCoefficientDR = lastCoefficientCR; + //end R + + } + mergedCoefficientsL *= 0.25; + inputSampleL *= mergedCoefficientsL; + + mergedCoefficientsR *= 0.25; + inputSampleR *= mergedCoefficientsR; + + if (outMakeupGainL != 1.0) inputSampleL = inputSampleL * outMakeupGainL; + if (outMakeupGainR != 1.0) inputSampleR = inputSampleR * outMakeupGainR; + + fpFlip = !fpFlip; + + if (wet < 1.0) { + inputSampleL = (inputSampleL * wet) + (drySampleL * (1.0-wet)); + inputSampleR = (inputSampleR * wet) + (drySampleR * (1.0-wet)); + } + + if (inputSampleL > 0.999) inputSampleL = 0.999; + if (inputSampleL < -0.999) inputSampleL = -0.999; + //iron bar clip comes after the dry/wet: alternate way to clean things up + if (inputSampleR > 0.999) inputSampleR = 0.999; + if (inputSampleR < -0.999) inputSampleR = -0.999; + //iron bar clip comes after the dry/wet: alternate way to clean things up + + //begin 64 bit stereo floating point dither + int expon; frexp((double)inputSampleL, &expon); + fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5; + inputSampleL += static_cast(fpd) * 1.110223024625156e-44L * pow(2,expon+62); + frexp((double)inputSampleR, &expon); + fpd ^= fpd << 13; fpd ^= fpd >> 17; fpd ^= fpd << 5; + inputSampleR += static_cast(fpd) * 1.110223024625156e-44L * pow(2,expon+62); + //end 64 bit stereo floating point dither + + *out1 = inputSampleL; + *out2 = inputSampleR; + + *in1++; + *in2++; + *out1++; + *out2++; + } +} diff --git a/plugins/WinVST/BlockParty/VSTProject.sln b/plugins/WinVST/BlockParty/VSTProject.sln new file mode 100755 index 0000000..694b424 --- /dev/null +++ b/plugins/WinVST/BlockParty/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/BlockParty/VSTProject.vcxproj b/plugins/WinVST/BlockParty/VSTProject.vcxproj new file mode 100755 index 0000000..d440bb4 --- /dev/null +++ b/plugins/WinVST/BlockParty/VSTProject.vcxproj @@ -0,0 +1,183 @@ + + + + + Debug + Win32 + + + Release + Win32 + + + Debug + x64 + + + Release + x64 + + + + + + + + + + + + + + + + + {16F7AB3C-1AE0-4574-B60C-7B4DED82938C} + VSTProject + 8.1 + BlockParty64 + + + + DynamicLibrary + true + v140 + NotSet + + + DynamicLibrary + false + v140 + false + NotSet + + + DynamicLibrary + true + v140 + NotSet + + + DynamicLibrary + false + v140 + false + NotSet + + + + + + + + + + + + + + + + + + + + + .dll + + + $(SolutionDir)$(Configuration)\ + $(Configuration)\ + $(VC_ExecutablePath_x64);$(WindowsSDK_ExecutablePath);$(VS_ExecutablePath);$(MSBuild_ExecutablePath);$(SystemRoot)\SysWow64;$(FxCopDir);$(PATH) + + + $(SolutionDir)$(Configuration)\ + $(Configuration)\ + $(VC_ExecutablePath_x64);$(WindowsSDK_ExecutablePath);$(VS_ExecutablePath);$(MSBuild_ExecutablePath);$(SystemRoot)\SysWow64;$(FxCopDir);$(PATH) + + + + Level3 + MaxSpeed + true + C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories) + WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions) + MultiThreadedDebug + Speed + false + Default + false + None + + + vstplug.def + libcmt.dll;libcmtd.dll;msvcrt.lib;%(IgnoreSpecificDefaultLibraries) + 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) + + + + + Level3 + MaxSpeed + true + C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories) + Speed + WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions) + false + MultiThreadedDebug + Default + false + None + + + 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) + libcmt.dll;libcmtd.dll;msvcrt.lib;%(IgnoreSpecificDefaultLibraries) + vstplug.def + + + + + Level3 + MaxSpeed + false + false + true + MultiThreaded + C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories) + None + Speed + WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions) + + + true + true + libcmt.dll;libcmtd.dll;msvcrt.lib;libc.lib;libcd.lib;libcmt.lib;msvcrtd.lib;%(IgnoreSpecificDefaultLibraries) + 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) + vstplug.def + + + + + Level3 + MaxSpeed + false + false + true + C:\Users\christopherjohnson\Documents\Visual Studio 2015\Projects\VSTProject\vst2.x;C:\Users\christopherjohnson\Documents\vstsdk2.4;%(AdditionalIncludeDirectories) + None + Speed + WINDOWS;_WINDOWS;WIN32;_USRDLL;_USE_MATH_DEFINES;_CRT_SECURE_NO_DEPRECATE;VST_FORCE_DEPRECATED;%(PreprocessorDefinitions) + MultiThreaded + + + true + true + libcmt.dll;libcmtd.dll;msvcrt.lib;libc.lib;libcd.lib;libcmt.lib;msvcrtd.lib;%(IgnoreSpecificDefaultLibraries) + 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) + vstplug.def + + + + + + \ No newline at end of file diff --git a/plugins/WinVST/BlockParty/VSTProject.vcxproj.filters b/plugins/WinVST/BlockParty/VSTProject.vcxproj.filters new file mode 100755 index 0000000..cf2721a --- /dev/null +++ b/plugins/WinVST/BlockParty/VSTProject.vcxproj.filters @@ -0,0 +1,48 @@ + + + + + {4FC737F1-C7A5-4376-A066-2A32D752A2FF} + cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx + + + {93995380-89BD-4b04-88EB-625FBE52EBFB} + h;hh;hpp;hxx;hm;inl;inc;xsd + + + {67DA6AB6-F800-4c08-8B7A-83BB121AAD01} + rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms + + + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + Source Files + + + + + Header Files + + + Header Files + + + Header Files + + + Header Files + + + \ No newline at end of file diff --git a/plugins/WinVST/BlockParty/VSTProject.vcxproj.user b/plugins/WinVST/BlockParty/VSTProject.vcxproj.user new file mode 100755 index 0000000..2216267 --- /dev/null +++ b/plugins/WinVST/BlockParty/VSTProject.vcxproj.user @@ -0,0 +1,19 @@ + + + + {ADEFF70D-84BF-47A1-91C3-FF6B0FC71218} + WindowsLocalDebugger + + + {ADEFF70D-84BF-47A1-91C3-FF6B0FC71218} + WindowsLocalDebugger + + + {ADEFF70D-84BF-47A1-91C3-FF6B0FC71218} + WindowsLocalDebugger + + + {ADEFF70D-84BF-47A1-91C3-FF6B0FC71218} + WindowsLocalDebugger + + \ No newline at end of file diff --git a/plugins/WinVST/BlockParty/vstplug.def b/plugins/WinVST/BlockParty/vstplug.def new file mode 100755 index 0000000..5bf499a --- /dev/null +++ b/plugins/WinVST/BlockParty/vstplug.def @@ -0,0 +1,3 @@ +EXPORTS + VSTPluginMain + main=VSTPluginMain \ No newline at end of file -- cgit v1.2.3