github-starred/airwindows
2
0
Fork 0
mirror of https://github.com/airwindows/airwindows.git synced 2026-05-15 22:01:19 -06:00
Code Issues 33 Projects Packages Wiki Activity Actions
airwindows/plugins/MacVST/SoftClock2/source/SoftClock2Proc.cpp
Christopher Johnson a7c74c86f0 HipCrush
2025-10-24 20:09:42 -04:00

286 lines
13 KiB
C++
Executable file
Raw Permalink Blame History

/* ========================================
* SoftClock2 - SoftClock2.h
* Copyright (c) airwindows, Airwindows uses the MIT license
* ======================================== */
#ifndef __SoftClock2_H
#include "SoftClock2.h"
#endif
void SoftClock2::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();
int bpm = (int)(A*200.99)+40;
int beatCode = (int)(B*32.99);
double notes = (double)fmax(((int)(C*16.99))/4.0, 0.125);
double bpmTarget = (getSampleRate()*60.0)/((double)bpm*notes);
double swing = D*bpmTarget*0.66666;
double peak = E*bpmTarget*0.33333;
double valley = F*bpmTarget*0.33333;
//swing makes beats hit LATER, so the One is 0.0
//peak means go UP to a late beat
//valley means go DOWN to a late beat
int beatMax = beatTable[beatCode];
//only some counts are literal, others are ways to do prime grooves with different subrhythms
for (int x = 0; x < (beatMax+1); x++) {
beatAccent[x] = ((double)fabs((double)beatMax-((double)x*2.0)))/(double)(beatMax*1.618033988749894);
if (x % 2 > 0) beatSwing[x] = 0.0;
else beatSwing[x] = swing;
} //this makes the non-accented beats drop down to quiet and back up to half volume
if (beatCode > 0) beatAccent[1] = 0.9; beatSwing[1] = peak; //first note is an accent at full crank
switch (beatCode)
{
case 0: break; //not used
case 1: break; //1
case 2: break; //2
case 3: break; //3
case 4: beatAccent[3]=0.9;
beatSwing[3]=valley; break; //4-22
case 5: beatAccent[4]=0.9;
beatSwing[4]=valley; break; //5-32
case 6: beatAccent[4]=0.9;
beatSwing[4]=valley; break; //6-33
case 7: beatAccent[5]=0.9;
beatSwing[5]=valley; break; //7-43
case 8: beatAccent[5]=0.9;
beatSwing[5]=valley; break; //8-44
case 9: beatAccent[4]=0.9; beatAccent[7]=0.8;
beatSwing[4]=valley; beatSwing[7]=valley; break; //9-333
case 10: beatAccent[6]=0.9;
beatSwing[6]=valley; break; //10-55
case 11: beatAccent[4]=0.9; beatAccent[7]=0.8; beatAccent[10]=0.7;
beatSwing[4]=valley; beatSwing[7]=valley; beatSwing[10]=valley; break; //11-3332
case 12: beatAccent[5]=0.9; beatAccent[9]=0.8;
beatSwing[5]=valley; beatSwing[9]=valley; break; //11-443
case 13: beatAccent[6]=0.9; beatAccent[11]=0.8;
beatSwing[6]=valley; beatSwing[11]=valley; break; //11-551
case 14: beatAccent[7]=0.9;
beatSwing[7]=valley; break; //11-65
case 15: beatAccent[4]=0.9; beatAccent[7]=0.8; beatAccent[10]=0.7;
beatSwing[4]=valley; beatSwing[7]=valley; beatSwing[10]=valley; break; //13-3334
case 16: beatAccent[9]=0.9;
beatSwing[9]=valley; break; //16-88
case 17: beatAccent[5]=0.9; beatAccent[9]=0.8;
beatSwing[5]=valley; beatSwing[9]=valley; break; //13-445
case 18: beatAccent[6]=0.9; beatAccent[11]=0.8;
beatSwing[6]=valley; beatSwing[11]=valley; break; //13-553
case 19: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; break; //17-44441
case 20: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //17-5552
case 21: beatAccent[8]=0.9; beatAccent[15]=0.8;
beatSwing[8]=valley; beatSwing[15]=valley; break; //17-773
case 22: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //17-881
case 23: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; break; //19-44443
case 24: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //24-888
case 25: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //19-5554
case 26: beatAccent[8]=0.9; beatAccent[15]=0.8;
beatSwing[8]=valley; beatSwing[15]=valley; break; //19-775
case 27: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //19-883
case 28: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75; beatAccent[21]=0.7;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; beatSwing[21]=valley; break; //23-444443
case 29: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //23-5558
case 30: beatAccent[8]=0.9; beatAccent[15]=0.8; beatAccent[22]=0.7;
beatSwing[8]=valley; beatSwing[15]=valley; beatSwing[22]=valley; break; //23-7772
case 31: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //23-887
case 32: beatAccent[9]=0.9; beatAccent[17]=0.8; beatAccent[25]=0.7;
beatSwing[9]=valley; beatSwing[17]=valley; beatSwing[25]=valley; break; //32-8888
default: break;
}
double accent = 1.0-pow(1.0-G,2);
double chaseSpeed = ((I*0.00016)+0.000016)/overallscale;
double rootSpeed = 1.0-(chaseSpeed*((1.0-I)+0.5)*4.0);
double pulseWidth = ((H*0.2)-((1.0-I)*0.03))/chaseSpeed;
while (--sampleFrames >= 0)
{
double inputSampleL = *in1;
double inputSampleR = *in2;
if (fabs(inputSampleL)<1.18e-23) inputSampleL = fpdL * 1.18e-17;
if (fabs(inputSampleR)<1.18e-23) inputSampleR = fpdR * 1.18e-17;
barPos += 1.0;
if (barPos>bpmTarget) {
barPos=0.0;
beatPos++;
if (beatPos>beatMax) beatPos=1;
}
if ((barPos < (pulseWidth+beatSwing[beatPos])) && (barPos > beatSwing[beatPos]))
inc = (((beatAccent[beatPos]*accent)+(1.0-accent))*chaseSpeed)+(inc*(1.0-chaseSpeed));
else
inc *= rootSpeed;
sinePos += inc;
if (sinePos > 6.283185307179586) sinePos -= 6.283185307179586;
inputSampleL = inputSampleR = sin(sin(sinePos)*inc*8.0);
//begin 32 bit stereo floating point dither
int expon; frexpf((float)inputSampleL, &expon);
fpdL ^= fpdL << 13; fpdL ^= fpdL >> 17; fpdL ^= fpdL << 5;
inputSampleL += ((double(fpdL)-uint32_t(0x7fffffff)) * 5.5e-36l * pow(2,expon+62));
frexpf((float)inputSampleR, &expon);
fpdR ^= fpdR << 13; fpdR ^= fpdR >> 17; fpdR ^= fpdR << 5;
inputSampleR += ((double(fpdR)-uint32_t(0x7fffffff)) * 5.5e-36l * pow(2,expon+62));
//end 32 bit stereo floating point dither
*out1 = inputSampleL;
*out2 = inputSampleR;
in1++;
in2++;
out1++;
out2++;
}
}
void SoftClock2::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();
int bpm = (int)(A*200.99)+40;
int beatCode = (int)(B*32.99);
double notes = (double)fmax(((int)(C*16.99))/4.0, 0.125);
double bpmTarget = (getSampleRate()*60.0)/((double)bpm*notes);
double swing = D*bpmTarget*0.66666;
double peak = E*bpmTarget*0.33333;
double valley = F*bpmTarget*0.33333;
//swing makes beats hit LATER, so the One is 0.0
//peak means go UP to a late beat
//valley means go DOWN to a late beat
int beatMax = beatTable[beatCode];
//only some counts are literal, others are ways to do prime grooves with different subrhythms
for (int x = 0; x < (beatMax+1); x++) {
beatAccent[x] = ((double)fabs((double)beatMax-((double)x*2.0)))/(double)(beatMax*1.618033988749894);
if (x % 2 > 0) beatSwing[x] = 0.0;
else beatSwing[x] = swing;
} //this makes the non-accented beats drop down to quiet and back up to half volume
if (beatCode > 0) beatAccent[1] = 0.9; beatSwing[1] = peak; //first note is an accent at full crank
switch (beatCode)
{
case 0: break; //not used
case 1: break; //1
case 2: break; //2
case 3: break; //3
case 4: beatAccent[3]=0.9;
beatSwing[3]=valley; break; //4-22
case 5: beatAccent[4]=0.9;
beatSwing[4]=valley; break; //5-32
case 6: beatAccent[4]=0.9;
beatSwing[4]=valley; break; //6-33
case 7: beatAccent[5]=0.9;
beatSwing[5]=valley; break; //7-43
case 8: beatAccent[5]=0.9;
beatSwing[5]=valley; break; //8-44
case 9: beatAccent[4]=0.9; beatAccent[7]=0.8;
beatSwing[4]=valley; beatSwing[7]=valley; break; //9-333
case 10: beatAccent[6]=0.9;
beatSwing[6]=valley; break; //10-55
case 11: beatAccent[4]=0.9; beatAccent[7]=0.8; beatAccent[10]=0.7;
beatSwing[4]=valley; beatSwing[7]=valley; beatSwing[10]=valley; break; //11-3332
case 12: beatAccent[5]=0.9; beatAccent[9]=0.8;
beatSwing[5]=valley; beatSwing[9]=valley; break; //11-443
case 13: beatAccent[6]=0.9; beatAccent[11]=0.8;
beatSwing[6]=valley; beatSwing[11]=valley; break; //11-551
case 14: beatAccent[7]=0.9;
beatSwing[7]=valley; break; //11-65
case 15: beatAccent[4]=0.9; beatAccent[7]=0.8; beatAccent[10]=0.7;
beatSwing[4]=valley; beatSwing[7]=valley; beatSwing[10]=valley; break; //13-3334
case 16: beatAccent[9]=0.9;
beatSwing[9]=valley; break; //16-88
case 17: beatAccent[5]=0.9; beatAccent[9]=0.8;
beatSwing[5]=valley; beatSwing[9]=valley; break; //13-445
case 18: beatAccent[6]=0.9; beatAccent[11]=0.8;
beatSwing[6]=valley; beatSwing[11]=valley; break; //13-553
case 19: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; break; //17-44441
case 20: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //17-5552
case 21: beatAccent[8]=0.9; beatAccent[15]=0.8;
beatSwing[8]=valley; beatSwing[15]=valley; break; //17-773
case 22: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //17-881
case 23: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; break; //19-44443
case 24: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //24-888
case 25: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //19-5554
case 26: beatAccent[8]=0.9; beatAccent[15]=0.8;
beatSwing[8]=valley; beatSwing[15]=valley; break; //19-775
case 27: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //19-883
case 28: beatAccent[5]=0.9; beatAccent[9]=0.85; beatAccent[13]=0.8; beatAccent[17]=0.75; beatAccent[21]=0.7;
beatSwing[5]=valley; beatSwing[9]=valley; beatSwing[13]=valley; beatSwing[17]=valley; beatSwing[21]=valley; break; //23-444443
case 29: beatAccent[6]=0.9; beatAccent[11]=0.8; beatAccent[16]=0.7;
beatSwing[6]=valley; beatSwing[11]=valley; beatSwing[16]=valley; break; //23-5558
case 30: beatAccent[8]=0.9; beatAccent[15]=0.8; beatAccent[22]=0.7;
beatSwing[8]=valley; beatSwing[15]=valley; beatSwing[22]=valley; break; //23-7772
case 31: beatAccent[9]=0.9; beatAccent[17]=0.8;
beatSwing[9]=valley; beatSwing[17]=valley; break; //23-887
case 32: beatAccent[9]=0.9; beatAccent[17]=0.8; beatAccent[25]=0.7;
beatSwing[9]=valley; beatSwing[17]=valley; beatSwing[25]=valley; break; //32-8888
default: break;
}
double accent = 1.0-pow(1.0-G,2);
double chaseSpeed = ((I*0.00016)+0.000016)/overallscale;
double rootSpeed = 1.0-(chaseSpeed*((1.0-I)+0.5)*4.0);
double pulseWidth = ((H*0.2)-((1.0-I)*0.03))/chaseSpeed;
while (--sampleFrames >= 0)
{
double inputSampleL = *in1;
double inputSampleR = *in2;
if (fabs(inputSampleL)<1.18e-23) inputSampleL = fpdL * 1.18e-17;
if (fabs(inputSampleR)<1.18e-23) inputSampleR = fpdR * 1.18e-17;
barPos += 1.0;
if (barPos>bpmTarget) {
barPos=0.0;
beatPos++;
if (beatPos>beatMax) beatPos=1;
}
if ((barPos < (pulseWidth+beatSwing[beatPos])) && (barPos > beatSwing[beatPos]))
inc = (((beatAccent[beatPos]*accent)+(1.0-accent))*chaseSpeed)+(inc*(1.0-chaseSpeed));
else
inc *= rootSpeed;
sinePos += inc;
if (sinePos > 6.283185307179586) sinePos -= 6.283185307179586;
inputSampleL = inputSampleR = sin(sin(sinePos)*inc*8.0);
//begin 64 bit stereo floating point dither
//int expon; frexp((double)inputSampleL, &expon);
fpdL ^= fpdL << 13; fpdL ^= fpdL >> 17; fpdL ^= fpdL << 5;
//inputSampleL += ((double(fpdL)-uint32_t(0x7fffffff)) * 1.1e-44l * pow(2,expon+62));
//frexp((double)inputSampleR, &expon);
fpdR ^= fpdR << 13; fpdR ^= fpdR >> 17; fpdR ^= fpdR << 5;
//inputSampleR += ((double(fpdR)-uint32_t(0x7fffffff)) * 1.1e-44l * pow(2,expon+62));
//end 64 bit stereo floating point dither
*out1 = inputSampleL;
*out2 = inputSampleR;
in1++;
in2++;
out1++;
out2++;
}
}
Reference in a new issue View git blame Copy permalink