2021-05-12 08:58:55 +00:00
|
|
|
#include "engine.h"
|
|
|
|
|
|
|
|
void DivEngine::nextOrder() {
|
|
|
|
curRow=0;
|
|
|
|
if (++curOrder>=song.ordersLen) {
|
|
|
|
curOrder=0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
const char* notes[12]={
|
|
|
|
"C-", "C#", "D-", "D#", "E-", "F-", "F#", "G-", "G#", "A-", "A#", "B-"
|
|
|
|
};
|
|
|
|
|
|
|
|
const char* formatNote(unsigned char note, unsigned char octave) {
|
|
|
|
static char ret[4];
|
|
|
|
if (note==100) {
|
|
|
|
return "OFF";
|
2021-05-13 07:39:26 +00:00
|
|
|
} else if (octave==0 && note==0) {
|
2021-05-12 08:58:55 +00:00
|
|
|
return "---";
|
|
|
|
}
|
|
|
|
snprintf(ret,4,"%s%d",notes[note%12],octave+note/12);
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
2021-05-13 07:39:26 +00:00
|
|
|
bool DivEngine::perSystemEffect(int ch, unsigned char effect, unsigned char effectVal) {
|
|
|
|
switch (song.system) {
|
|
|
|
case DIV_SYSTEM_GENESIS:
|
|
|
|
switch (effect) {
|
|
|
|
case 0x17: // DAC enable
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_SAMPLE_MODE,ch,(effectVal>0)));
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2021-05-12 08:58:55 +00:00
|
|
|
void DivEngine::nextRow() {
|
|
|
|
static char pb[4096];
|
|
|
|
static char pb1[4096];
|
|
|
|
static char pb2[4096];
|
|
|
|
static char pb3[4096];
|
|
|
|
if (++curRow>=song.patLen) {
|
|
|
|
nextOrder();
|
|
|
|
}
|
2021-05-12 10:22:01 +00:00
|
|
|
if (changeOrd>=0) {
|
|
|
|
curRow=changePos;
|
|
|
|
curOrder=changeOrd;
|
|
|
|
if (curOrder>=song.ordersLen) {
|
|
|
|
curOrder=0;
|
|
|
|
}
|
|
|
|
changeOrd=-1;
|
|
|
|
}
|
2021-05-12 08:58:55 +00:00
|
|
|
strcpy(pb1,"");
|
|
|
|
strcpy(pb3,"");
|
|
|
|
for (int i=0; i<chans; i++) {
|
|
|
|
snprintf(pb,4095," %.2x",song.orders.ord[i][curOrder]);
|
|
|
|
strcat(pb1,pb);
|
|
|
|
|
|
|
|
DivPattern* pat=song.pat[i]->data[curOrder];
|
|
|
|
snprintf(pb2,4095,"\x1b[37m %s",
|
|
|
|
formatNote(pat->data[curRow][0],pat->data[curRow][1]));
|
|
|
|
strcat(pb3,pb2);
|
2021-05-14 08:23:40 +00:00
|
|
|
if (pat->data[curRow][3]==-1) {
|
2021-05-12 08:58:55 +00:00
|
|
|
strcat(pb3,"\x1b[m--");
|
|
|
|
} else {
|
|
|
|
snprintf(pb2,4095,"\x1b[1;32m%.2x",pat->data[curRow][3]);
|
|
|
|
strcat(pb3,pb2);
|
|
|
|
}
|
2021-05-14 08:23:40 +00:00
|
|
|
if (pat->data[curRow][2]==-1) {
|
2021-05-12 08:58:55 +00:00
|
|
|
strcat(pb3,"\x1b[m--");
|
|
|
|
} else {
|
|
|
|
snprintf(pb2,4095,"\x1b[0;36m%.2x",pat->data[curRow][2]);
|
|
|
|
strcat(pb3,pb2);
|
|
|
|
}
|
|
|
|
for (int j=0; j<song.pat[i]->effectRows; j++) {
|
2021-05-14 08:23:40 +00:00
|
|
|
if (pat->data[curRow][4+(j<<1)]==-1) {
|
2021-05-12 08:58:55 +00:00
|
|
|
strcat(pb3,"\x1b[m--");
|
|
|
|
} else {
|
|
|
|
snprintf(pb2,4095,"\x1b[1;31m%.2x",pat->data[curRow][4+(j<<1)]);
|
|
|
|
strcat(pb3,pb2);
|
|
|
|
}
|
2021-05-14 08:23:40 +00:00
|
|
|
if (pat->data[curRow][5+(j<<1)]==-1) {
|
2021-05-12 08:58:55 +00:00
|
|
|
strcat(pb3,"\x1b[m--");
|
|
|
|
} else {
|
|
|
|
snprintf(pb2,4095,"\x1b[1;37m%.2x",pat->data[curRow][5+(j<<1)]);
|
|
|
|
strcat(pb3,pb2);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
printf("| %.2x:%s | \x1b[1;33m%3d%s\x1b[m\n",curOrder,pb1,curRow,pb3);
|
2021-05-12 10:22:01 +00:00
|
|
|
|
|
|
|
for (int i=0; i<chans; i++) {
|
|
|
|
DivPattern* pat=song.pat[i]->data[curOrder];
|
2021-05-14 08:23:40 +00:00
|
|
|
|
|
|
|
// instrument
|
|
|
|
if (pat->data[curRow][2]!=-1) {
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_INSTRUMENT,i,pat->data[curRow][2]));
|
|
|
|
}
|
|
|
|
// note
|
|
|
|
if (pat->data[curRow][0]==100) {
|
|
|
|
chan[i].note=-1;
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_NOTE_OFF,i));
|
|
|
|
} else if (!(pat->data[curRow][0]==0 && pat->data[curRow][1]==0)) {
|
|
|
|
chan[i].note=pat->data[curRow][0]+pat->data[curRow][1]*12;
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_NOTE_ON,i,chan[i].note));
|
|
|
|
}
|
|
|
|
|
|
|
|
// volume
|
|
|
|
if (pat->data[curRow][3]!=-1) {
|
|
|
|
chan[i].volume=pat->data[curRow][3]<<8;
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_VOLUME,i,chan[i].volume>>8));
|
|
|
|
}
|
|
|
|
|
2021-05-12 10:22:01 +00:00
|
|
|
// effects
|
|
|
|
for (int j=0; j<song.pat[i]->effectRows; j++) {
|
|
|
|
unsigned char effect=pat->data[curRow][4+(j<<1)];
|
|
|
|
unsigned char effectVal=pat->data[curRow][5+(j<<1)];
|
|
|
|
|
2021-05-14 08:23:40 +00:00
|
|
|
if (effectVal==-1) effectVal=0;
|
|
|
|
|
2021-05-13 07:39:26 +00:00
|
|
|
// per-system effect
|
|
|
|
if (!perSystemEffect(i,effect,effectVal)) switch (effect) {
|
2021-05-12 10:22:01 +00:00
|
|
|
case 0x09: // speed 1
|
|
|
|
song.speed1=effectVal;
|
|
|
|
break;
|
|
|
|
case 0x0f: // speed 2
|
|
|
|
song.speed2=effectVal;
|
|
|
|
break;
|
|
|
|
case 0x0b: // change order
|
|
|
|
changeOrd=effectVal;
|
|
|
|
changePos=0;
|
|
|
|
break;
|
|
|
|
case 0x0d: // next order
|
|
|
|
changeOrd=curOrder+1;
|
|
|
|
changePos=effectVal;
|
|
|
|
break;
|
2021-05-13 07:39:26 +00:00
|
|
|
case 0x08: // panning
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_PANNING,i,effectVal));
|
|
|
|
break;
|
2021-05-14 08:23:40 +00:00
|
|
|
case 0x01: // ramp up
|
|
|
|
if (effectVal==0) {
|
|
|
|
chan[i].portaNote=-1;
|
|
|
|
chan[i].portaSpeed=-1;
|
|
|
|
} else {
|
|
|
|
chan[i].portaNote=0x7f;
|
|
|
|
chan[i].portaSpeed=effectVal;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 0x02: // ramp down
|
|
|
|
if (effectVal==0) {
|
|
|
|
chan[i].portaNote=-1;
|
|
|
|
chan[i].portaSpeed=-1;
|
|
|
|
} else {
|
|
|
|
chan[i].portaNote=0x00;
|
|
|
|
chan[i].portaSpeed=effectVal;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 0x03: // portamento
|
|
|
|
if (effectVal==0) {
|
|
|
|
chan[i].portaNote=-1;
|
|
|
|
chan[i].portaSpeed=-1;
|
|
|
|
} else {
|
|
|
|
chan[i].portaNote=chan[i].note;
|
|
|
|
chan[i].portaSpeed=effectVal;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 0x04: // vibrato
|
|
|
|
chan[i].vibratoDepth=effectVal&15;
|
|
|
|
chan[i].vibratoRate=effectVal>>4;
|
|
|
|
break;
|
|
|
|
case 0x0a: // volume ramp
|
|
|
|
if (effectVal!=0) {
|
|
|
|
if ((effectVal&15)!=0) {
|
|
|
|
chan[i].volSpeed=-(effectVal&15)*64;
|
|
|
|
} else {
|
|
|
|
chan[i].volSpeed=(effectVal>>4)*64;
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
chan[i].volSpeed=0;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 0xe1: // portamento up
|
|
|
|
chan[i].portaNote=chan[i].note+(effectVal&15);
|
|
|
|
chan[i].portaSpeed=effectVal>>4;
|
|
|
|
break;
|
|
|
|
case 0xe2: // portamento down
|
|
|
|
chan[i].portaNote=chan[i].note-(effectVal&15);
|
|
|
|
chan[i].portaSpeed=effectVal>>4;
|
|
|
|
break;
|
|
|
|
case 0xe5: // pitch
|
|
|
|
chan[i].pitch=effectVal-0x80;
|
|
|
|
break;
|
2021-05-12 10:22:01 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2021-05-12 08:58:55 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
void DivEngine::nextTick() {
|
|
|
|
if (song.customTempo) {
|
|
|
|
cycles=dispatch->rate/song.hz;
|
|
|
|
} else {
|
|
|
|
if (song.pal) {
|
|
|
|
cycles=dispatch->rate/60;
|
|
|
|
} else {
|
|
|
|
cycles=dispatch->rate/50;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (--ticks<=0) {
|
2021-05-12 10:22:01 +00:00
|
|
|
nextRow();
|
2021-05-12 08:58:55 +00:00
|
|
|
if (speedAB) {
|
|
|
|
ticks=song.speed2*(song.timeBase+1);
|
|
|
|
} else {
|
|
|
|
ticks=song.speed1*(song.timeBase+1);
|
|
|
|
}
|
|
|
|
speedAB=!speedAB;
|
|
|
|
}
|
2021-05-14 08:23:40 +00:00
|
|
|
// process stuff
|
|
|
|
for (int i=0; i<chans; i++) {
|
|
|
|
if (chan[i].volSpeed!=0) {
|
|
|
|
chan[i].volume+=chan[i].volSpeed;
|
|
|
|
if (chan[i].volume>0x7f00) chan[i].volume=0x7f00;
|
|
|
|
if (chan[i].volume<0) chan[i].volume=0;
|
|
|
|
dispatch->dispatch(DivCommand(DIV_CMD_VOLUME,i,chan[i].volume>>8));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// system tick
|
2021-05-12 10:22:01 +00:00
|
|
|
dispatch->tick();
|
2021-05-12 08:58:55 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
void DivEngine::nextBuf(float** in, float** out, int inChans, int outChans, unsigned int size) {
|
|
|
|
size_t runtotal=blip_clocks_needed(bb[0],size);
|
|
|
|
for (size_t i=0; i<runtotal; i++) {
|
|
|
|
if (--cycles<=0) {
|
|
|
|
nextTick();
|
|
|
|
}
|
|
|
|
dispatch->acquire(temp[0],temp[1]);
|
|
|
|
|
|
|
|
blip_add_delta(bb[0],i,temp[0]-prevSample[0]);
|
|
|
|
blip_add_delta(bb[1],i,temp[1]-prevSample[1]);
|
|
|
|
prevSample[0]=temp[0];
|
|
|
|
prevSample[1]=temp[1];
|
|
|
|
}
|
|
|
|
|
|
|
|
blip_end_frame(bb[0],runtotal);
|
|
|
|
blip_end_frame(bb[1],runtotal);
|
|
|
|
|
|
|
|
blip_read_samples(bb[0],bbOut[0],size,0);
|
|
|
|
blip_read_samples(bb[1],bbOut[1],size,0);
|
|
|
|
|
|
|
|
for (size_t i=0; i<size; i++) {
|
2021-05-13 07:39:26 +00:00
|
|
|
out[0][i]=(float)bbOut[0][i]/16384.0;
|
|
|
|
out[1][i]=(float)bbOut[1][i]/16384.0;
|
2021-05-12 08:58:55 +00:00
|
|
|
}
|
2021-05-12 10:22:01 +00:00
|
|
|
}
|