otomatalabs/furnace
7
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

OPL3: fix chan osc when panned right on ymfm

Browse source
This commit is contained in:
tildearrow 2025-05-22 03:54:12 -05:00
parent 9650e2e8a6
commit bfd1afa124
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/engine/platform/opl.cpp
View file

@ -586,10 +586,7 @@ void DivPlatformOPL::acquire_ymfm3(short** buf, size_t len) {
unsigned char ch=(i<12 && chan[i&(~1)].fourOp)?outChanMap[i^1]:outChanMap[i];
if (ch==255) continue;
if (isMuted[i]) continue;
int chOut=fmChan[ch]->debug_output(0);
if (chOut==0) {
chOut=fmChan[ch]->debug_output(1);
}
int chOut=fmChan[ch]->debug_output(0)+fmChan[ch]->debug_output(1);
if (chOut==0) {
chOut=fmChan[ch]->debug_output(2);
}
@ -597,9 +594,9 @@ void DivPlatformOPL::acquire_ymfm3(short** buf, size_t len) {
chOut=fmChan[ch]->debug_output(3);
}
if (i==15) {
oscBuf[i]->putSample(h,CLAMP(chOut,-32768,32767));
oscBuf[i]->putSample(h,CLAMP(chOut>>1,-32768,32767));
} else {
oscBuf[i]->putSample(h,CLAMP(chOut<<1,-32768,32767));
oscBuf[i]->putSample(h,CLAMP(chOut,-32768,32767));
}
}
oscBuf[16]->putSample(h,CLAMP(fmChan[7]->debug_special2()<<1,-32768,32767));
@ -611,17 +608,14 @@ void DivPlatformOPL::acquire_ymfm3(short** buf, size_t len) {
unsigned char ch=outChanMap[i];
if (ch==255) continue;
if (isMuted[i]) continue;
int chOut=fmChan[ch]->debug_output(0);
if (chOut==0) {
chOut=fmChan[ch]->debug_output(1);
}
int chOut=fmChan[ch]->debug_output(0)+fmChan[ch]->debug_output(1);
if (chOut==0) {
chOut=fmChan[ch]->debug_output(2);
}
if (chOut==0) {
chOut=fmChan[ch]->debug_output(3);
}
oscBuf[i]->putSample(h,CLAMP(chOut<<1,-32768,32767));
oscBuf[i]->putSample(h,CLAMP(chOut,-32768,32767));
}
}
}