DX7
DX7-style 6-operator FM oscillator
Inlets
frac32.bipolar main
frac32.bipolar pitch
frac32.bipolar pitch2
frac32.bipolar pitch3
frac32.bipolar pitch4
frac32.bipolar pitch5
frac32.bipolar pitch6
frac32.bipolar vol1
frac32.bipolar vol2
frac32.bipolar vol3
frac32.bipolar vol4
frac32.bipolar vol5
frac32.bipolar vol6
frac32 FM
int32 algo
Outlets
frac32buffer.bipolar sine wave
Parameters
int32 algo
int32 OS
frac32.s.map.pitch pitch
uint32_t Phase[6];
int32_t hp[6];
int32_t am[6];
int32_t fm[6];
int32_t wave[6];
int32_t out;
int i;
int32_t freq[6];
int32_t MODE(int mode) {
switch (mode) {
case 0:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 1:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[1] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4];
fm[4] = wave[5];
;
break;
case 2:
out = wave[0] + wave[3];
fm[0] = wave[1];
fm[1] = wave[2];
fm[3] = wave[4];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 3:
out = wave[0] + wave[3];
fm[0] = wave[1];
fm[1] = wave[2];
fm[3] = wave[4];
fm[4] = wave[5];
fm[5] = wave[3];
;
break;
case 4:
out = wave[0] + wave[2] + wave[4];
fm[0] = wave[1];
fm[2] = wave[3];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 5:
out = wave[0] + wave[2] + wave[4];
fm[0] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4];
fm[4] = wave[5];
fm[5] = wave[4];
;
break;
case 6:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[2] = wave[3] + wave[4];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 7:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[2] = wave[3] + wave[4];
fm[3] = wave[4];
fm[4] = wave[5];
;
break;
case 8:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[1] = wave[1];
fm[2] = wave[3] + wave[4];
fm[4] = wave[5];
;
break;
case 9:
out = wave[0] + wave[3];
fm[0] = wave[1];
fm[1] = wave[2];
fm[2] = wave[2];
fm[3] = wave[4] + wave[5];
;
break;
case 10:
out = wave[0] + wave[3];
fm[0] = wave[1];
fm[1] = wave[2];
fm[3] = wave[4] + wave[5];
fm[5] = wave[4];
;
break;
case 11:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[1] = wave[1];
fm[2] = wave[3] + wave[4] + wave[5];
;
break;
case 12:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[1] = wave[1];
fm[2] = wave[3] + wave[4] + wave[5];
fm[5] = wave[5];
;
break;
case 13:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4] + wave[5];
fm[5] = wave[4] + wave[5];
;
break;
case 14:
out = wave[0] + wave[2];
fm[0] = wave[1];
fm[1] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4] + wave[5];
;
break;
case 15:
out = wave[0];
fm[0] = wave[1] + wave[2] + wave[3];
fm[2] = wave[3];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 16:
out = wave[0];
fm[0] = wave[1] + wave[2] + wave[4];
fm[1] = wave[1];
fm[2] = wave[3];
fm[4] = wave[5];
;
break;
case 17:
out = wave[0];
fm[0] = wave[1] + wave[2] + wave[3];
fm[2] = wave[2] + wave[3];
fm[3] = wave[4];
fm[4] = wave[5];
;
break;
case 18:
out = wave[0] + wave[3] + wave[4];
fm[0] = wave[1];
fm[1] = wave[2];
fm[3] = wave[5];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 19:
out = wave[0] + wave[1] + wave[3];
fm[0] = wave[2];
fm[1] = wave[2];
fm[2] = wave[2];
fm[3] = wave[4] + wave[5];
;
break;
case 20:
out = wave[0] + wave[1] + wave[3] + wave[4];
fm[0] = wave[2];
fm[1] = wave[2];
fm[2] = wave[2];
fm[3] = wave[5];
fm[4] = wave[5];
;
break;
case 21:
out = wave[0] + wave[2] + wave[3] + wave[4];
fm[0] = wave[1];
fm[2] = wave[5];
fm[3] = wave[5];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 22:
out = wave[0] + wave[1] + wave[3] + wave[4];
fm[1] = wave[2];
fm[2] = wave[2];
fm[3] = wave[5];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 23:
out = wave[0] + wave[1] + wave[2] + wave[3] + wave[4];
fm[2] = wave[5];
fm[3] = wave[5];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 24:
out = wave[0] + wave[1] + wave[2] + wave[3] + wave[4];
fm[3] = wave[5];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 25:
out = wave[0] + wave[1] + wave[3];
fm[1] = wave[2];
fm[3] = wave[4] + wave[5];
fm[5] = wave[5] + wave[4];
;
break;
case 26:
out = wave[0] + wave[1] + wave[3];
fm[1] = wave[2];
fm[2] = wave[2];
fm[3] = wave[4] + wave[5];
;
break;
case 27:
out = wave[0] + wave[2] + wave[5];
fm[0] = wave[1];
fm[2] = wave[3];
fm[3] = wave[4];
fm[4] = wave[4];
;
break;
case 28:
out = wave[0] + wave[1] + wave[2] + wave[4];
fm[2] = wave[3];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 29:
out = wave[0] + wave[1] + wave[2] + wave[5];
fm[2] = wave[3];
fm[3] = wave[4];
fm[4] = wave[4];
;
break;
case 30:
out = wave[0] + wave[1] + wave[2] + wave[3] + wave[4];
fm[4] = wave[5];
fm[5] = wave[5];
;
break;
case 31:
out = wave[0] + wave[1] + wave[2] + wave[3] + wave[4] + wave[5];
fm[5] = wave[5];
;
break;
}
}
int32_t SOFT(int32_t in) {
int32_t ts = __SSAT(in, 28);
int32_t tsq31 = ts << 3;
int32_t tsq31p3 = ___SMMUL(tsq31, ___SMMUL(tsq31, tsq31));
return ts = ts + (ts >> 1) - (tsq31p3);
}
int32_t prv;
int32_t LP;
int32_t prev[6];Phase[i] = 0;int32_t pitch = param_pitch + inlet_main;
MTOFEXTENDED(pitch + inlet_pitch1, freq[0]);
MTOFEXTENDED(pitch + inlet_pitch2, freq[1]);
MTOFEXTENDED(pitch + inlet_pitch3, freq[2]);
MTOFEXTENDED(pitch + inlet_pitch4, freq[3]);
MTOFEXTENDED(pitch + inlet_pitch5, freq[4]);
MTOFEXTENDED(pitch + inlet_pitch6, freq[5]);
for (i = 0; i < 6; i++) {
freq[i] = freq[i] / (param_OS);
}
int32_t algo = (param_algo - 1 + inlet_algo) & 31;
am[0] = inlet_vol1;
am[1] = inlet_vol2;
am[2] = inlet_vol3;
am[3] = inlet_vol4;
am[4] = inlet_vol5;
am[5] = inlet_vol6;
int32_t step = inlet_FM - prv;
int32_t Fm = prv;
prv = inlet_FM;
int32_t stp[6];
int32_t Am[6];
for (i = 0; i < 6; i++) {
stp[i] = am[i] - prev[i];
Am[i] = prev[i];
prev[i] = am[i];
}for (int j = 0; j < param_OS; j++) {
for (i = 0; i < 6; i++) {
fm[i] = ___SMMUL(fm[i], __SSAT(Fm, 27)) << 5;
Phase[i] += freq[i] + (___SMMUL(fm[i], freq[i]) << 7);
fm[i] = 0;
int32_t r;
SINE2TINTERP(Phase[i], r)
wave[i] = ___SMMUL(Am[i], r);
}
MODE(algo);
LP += (SOFT(out) - LP) >> 1;
Am[i] += stp[i];
}
outlet_wave = LP;
Fm += step;