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

VGM export: PCE samples (kinda)

Browse source
This commit is contained in:
tildearrow 2022-01-24 18:04:09 -05:00
parent cda191afee
commit 511b6ba0be
2 changed files with 50 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

37
src/engine/engine.cpp
View file

@ -2294,8 +2294,21 @@ SafeWriter* DivEngine::saveVGM() {
}
}
if (writePCESamples) {
// TODO
if (writePCESamples) for (int i=0; i<song.sampleLen; i++) {
DivSample* sample=song.sample[i];
w->writeC(0x67);
w->writeC(0x66);
w->writeC(5);
w->writeI(sample->rendLength);
if (sample->depth==8) {
for (unsigned int j=0; j<sample->rendLength; j++) {
w->writeC(((unsigned char)sample->rendData[j]+0x80)>>3);
}
} else {
for (unsigned int j=0; j<sample->rendLength; j++) {
w->writeC(((unsigned short)sample->rendData[j]+0x8000)>>11);
}
}
}
if (writeSegaPCM) {
@ -2412,6 +2425,26 @@ SafeWriter* DivEngine::saveVGM() {
w->writeI(32000); // default
streamID++;
break;
case DIV_SYSTEM_PCE:
for (int j=0; j<6; j++) {
w->writeC(0x90);
w->writeC(streamID);
w->writeC(27);
w->writeC(j); // port
w->writeC(0x06); // select+DAC
w->writeC(0x91);
w->writeC(streamID);
w->writeC(5);
w->writeC(1);
w->writeC(0);
w->writeC(0x92);
w->writeC(streamID);
w->writeI(32000); // default
streamID++;
}
break;
default:
logW("what? trying to play sample on unsupported system\n");
break;