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

VERA: implement full linear pitch (part 5)

Browse source
This commit is contained in:
tildearrow 2022-05-11 00:11:24 -05:00
parent f4652e6582
commit 90ac64f1d4
1 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/engine/platform/vera.cpp
View file

@ -147,21 +147,20 @@ void DivPlatformVERA::reset() {
chan[16].pan=3;
}
// TODO: linear pitch stuff
int DivPlatformVERA::calcNoteFreq(int ch, int note) {
if (ch<16) {
return parent->calcBaseFreq(chipClock,2097152,note,false);
} else {
double off=1.0;
double off=65536.0;
if (chan[ch].pcm.sample>=0 && chan[ch].pcm.sample<parent->song.sampleLen) {
DivSample* s=parent->getSample(chan[ch].pcm.sample);
if (s->centerRate<1) {
off=1.0;
off=65536.0;
} else {
off=s->centerRate/8363.0;
off=65536.0*(s->centerRate/8363.0);
}
}
return (int)(off*parent->calcBaseFreq(chipClock,65536,note,false));
return (int)(parent->calcBaseFreq(chipClock,off,note,false));
}
}
@ -238,7 +237,16 @@ void DivPlatformVERA::tick(bool sysTick) {
}
}
if (chan[16].freqChanged) {
chan[16].freq=parent->calcFreq(chan[16].baseFreq,chan[16].pitch,false,8,chan[16].pitch2);
double off=65536.0;
if (chan[16].pcm.sample>=0 && chan[16].pcm.sample<parent->song.sampleLen) {
DivSample* s=parent->getSample(chan[16].pcm.sample);
if (s->centerRate<1) {
off=65536.0;
} else {
off=65536.0*(s->centerRate/8363.0);
}
}
chan[16].freq=parent->calcFreq(chan[16].baseFreq,chan[16].pitch,false,8,chan[16].pitch2,chipClock,off);
if (chan[16].freq>128) chan[16].freq=128;
rWritePCMRate(chan[16].freq&0xff);
chan[16].freqChanged=false;
@ -250,7 +258,7 @@ int DivPlatformVERA::dispatch(DivCommand c) {
switch (c.cmd) {
case DIV_CMD_NOTE_ON:
if (c.chan<16) {
rWriteLo(c.chan,2,chan[c.chan].vol)
rWriteLo(c.chan,2,chan[c.chan].vol);
} else {
chan[16].pcm.sample=parent->getIns(chan[16].ins,DIV_INS_VERA)->amiga.initSample;
if (chan[16].pcm.sample<0 || chan[16].pcm.sample>=parent->song.sampleLen) {
@ -298,12 +306,16 @@ int DivPlatformVERA::dispatch(DivCommand c) {
if (c.chan<16) {
tmp=c.value&0x3f;
chan[c.chan].vol=tmp;
if (chan[c.chan].active) {
rWriteLo(c.chan,2,tmp);
}
} else {
tmp=c.value&0x0f;
chan[c.chan].vol=tmp;
if (chan[c.chan].active) {
rWritePCMVol(tmp);
}
}
break;
case DIV_CMD_GET_VOLUME:
return chan[c.chan].vol;