2020-07-08 09:05:02 +02:00
|
|
|
//
|
|
|
|
// Created by Wouter Groeneveld on 28/07/18.
|
|
|
|
//
|
|
|
|
|
|
|
|
#include <libgba-sprite-engine/gba/tonc_memdef.h>
|
|
|
|
#include <libgba-sprite-engine/gba_engine.h>
|
2020-07-08 18:12:38 +02:00
|
|
|
#include <cstring>
|
|
|
|
#include <libgba-sprite-engine/gba/tonc_core.h>
|
2020-07-08 09:05:02 +02:00
|
|
|
|
|
|
|
std::unique_ptr<SoundControl> GBAEngine::activeChannelA;
|
|
|
|
std::unique_ptr<SoundControl> GBAEngine::activeChannelB;
|
|
|
|
std::unique_ptr<Timer> GBAEngine::timer;
|
|
|
|
|
|
|
|
void GBAEngine::vsync() {
|
|
|
|
while (REG_VCOUNT >= 160);
|
|
|
|
while (REG_VCOUNT < 160);
|
|
|
|
}
|
|
|
|
|
|
|
|
Timer* GBAEngine::getTimer() {
|
|
|
|
return GBAEngine::timer.get();
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::onVBlank() {
|
|
|
|
// WARNING this is a very dangerous piece of code.
|
|
|
|
// GBA IRQs seem eager to crash or eat up CPU. Get in, disable stuff, work, enable, get out!
|
|
|
|
stopOnVBlank();
|
|
|
|
|
|
|
|
unsigned short tempInterruptState = REG_IF;
|
|
|
|
|
|
|
|
if((REG_IF & INTERRUPT_VBLANK) == INTERRUPT_VBLANK) {
|
|
|
|
GBAEngine::timer->onvblank();
|
|
|
|
|
|
|
|
if(GBAEngine::activeChannelA) {
|
|
|
|
if(GBAEngine::activeChannelA->done()) {
|
|
|
|
GBAEngine::activeChannelA->reset();
|
|
|
|
} else {
|
|
|
|
GBAEngine::activeChannelA->step();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if(GBAEngine::activeChannelB) {
|
|
|
|
if(GBAEngine::activeChannelB->done()) {
|
|
|
|
GBAEngine::activeChannelB->disable();
|
|
|
|
GBAEngine::activeChannelB = nullptr; // never delete, let unique_ptr do that, known to flip here
|
|
|
|
} else {
|
|
|
|
GBAEngine::activeChannelB->step();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
REG_IF = tempInterruptState;
|
|
|
|
startOnVBlank();
|
|
|
|
}
|
|
|
|
|
|
|
|
u16 GBAEngine::readKeys() {
|
|
|
|
return ~REG_KEYS & KEY_ANY;
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::dequeueAllSounds() {
|
|
|
|
if(GBAEngine::activeChannelA) {
|
|
|
|
GBAEngine::activeChannelA->disable();
|
|
|
|
} if(GBAEngine::activeChannelB) {
|
|
|
|
GBAEngine::activeChannelB->disable();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::enqueueSound(const s8 *data, int totalSamples, int sampleRate, SoundChannel channel) {
|
|
|
|
SoundControl* control;
|
|
|
|
|
|
|
|
if(channel == ChannelA) { // repeating bg music can be restarted
|
|
|
|
GBAEngine::activeChannelA = SoundControl::channelAControl();
|
|
|
|
control = GBAEngine::activeChannelA.get();
|
|
|
|
} else { // sound still playing, don't stop that
|
|
|
|
if(GBAEngine::activeChannelB) {
|
|
|
|
if(!GBAEngine::activeChannelB->done()) return;
|
|
|
|
GBAEngine::activeChannelB = nullptr;
|
|
|
|
}
|
|
|
|
GBAEngine::activeChannelB = SoundControl::channelBControl();
|
|
|
|
control = GBAEngine::activeChannelB.get();
|
|
|
|
}
|
|
|
|
|
|
|
|
disableTimer0AndVBlank();
|
|
|
|
control->disable();
|
|
|
|
|
|
|
|
REG_SNDDSCNT |= control->getControlFlags(); // output to both sides, reset fifo
|
|
|
|
REG_SNDSTAT = SSTAT_ENABLE; // enable all sound
|
|
|
|
u16 ticksPerSample = CLOCK / sampleRate; // divide the clock (ticks/second) by the sample rate (samples/second)
|
|
|
|
|
|
|
|
control->accept(data, totalSamples, ticksPerSample);
|
|
|
|
control->enable();
|
|
|
|
|
|
|
|
REG_TM0D = OVERFLOW_16_BIT_VALUE - ticksPerSample;
|
|
|
|
|
|
|
|
enableTimer0AndVBlank();
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::disableTimer0AndVBlank() {
|
|
|
|
stopOnVBlank();
|
|
|
|
REG_TM0CNT = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::enableTimer0AndVBlank() {
|
|
|
|
REG_TM0CNT = TM_ENABLE | TM_FREQ_1; // enable timer - dma auto-syncs to this thanks to DMA_SYNC_TO_TIMER
|
|
|
|
startOnVBlank();
|
|
|
|
}
|
|
|
|
|
|
|
|
GBAEngine::GBAEngine() {
|
|
|
|
GBAEngine::timer = std::unique_ptr<Timer>(new Timer());
|
|
|
|
// setup screen control flags
|
2020-07-08 18:12:38 +02:00
|
|
|
REG_DISPCNT = DCNT_MODE4 | DCNT_OBJ | DCNT_OBJ_1D | DCNT_BG2;
|
2020-07-08 09:05:02 +02:00
|
|
|
|
|
|
|
// setup interrupt control flags for vblank IRQing (started only when sound played)
|
|
|
|
REG_DISPSTAT |= DISPLAY_INTERRUPT_VBLANK_ENABLE;
|
|
|
|
REG_IE |= INTERRUPT_VBLANK;
|
|
|
|
*IRQ_CALLBACK = (u32) &GBAEngine::onVBlank;
|
|
|
|
|
|
|
|
enableTimer0AndVBlank();
|
|
|
|
|
|
|
|
REG_SNDDSCNT = 0;
|
2020-07-08 18:12:38 +02:00
|
|
|
vid_page = vid_mem_back;
|
2020-07-08 09:05:02 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::update() {
|
|
|
|
// main update loop, in while(true) {}.
|
|
|
|
// WARNING - keep amount of instructions as minimal as possible in here!
|
|
|
|
|
|
|
|
u16 keys = readKeys();
|
|
|
|
// main scene update loop call. This *might* take a while.
|
|
|
|
currentScene->tick(keys);
|
|
|
|
|
|
|
|
// TODO use software interrupt Vsyncing instead of 2 wasteful whiles
|
|
|
|
vsync();
|
2020-07-08 18:12:38 +02:00
|
|
|
renderClear();
|
|
|
|
render();
|
|
|
|
flipPage();
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::flipPage() {
|
|
|
|
// toggle the write_buffer's page
|
|
|
|
vid_page= (COLOR*)((u32)vid_page ^ VRAM_PAGE_SIZE);
|
|
|
|
REG_DISPCNT ^= DCNT_PAGE;
|
|
|
|
}
|
|
|
|
|
|
|
|
// http://www.coranac.com/tonc/text/bitmaps.htm
|
|
|
|
// this thing is supposed to be very slow. see link above.
|
|
|
|
inline void GBAEngine::plotPixel(int x, int y, u8 clrId) {
|
|
|
|
u16 *dst = &vid_page[(y * M4_WIDTH + x) / 2];
|
|
|
|
if(x & 1) {
|
|
|
|
*dst = (*dst & 0xFF) | (clrId << 8);
|
|
|
|
} else {
|
|
|
|
*dst = (*dst & ~0xFF) | clrId;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// does the mesh rendering - to write mem before flipping
|
|
|
|
void GBAEngine::render() {
|
|
|
|
for(auto& mesh :currentScene->meshes()) {
|
|
|
|
for(auto& vertex : mesh->vertices()) {
|
|
|
|
plotPixel(vertex->x(), vertex->y(), 1);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::renderClear() {
|
|
|
|
dma3_cpy(vid_page, black, VRAM_PAGE_SIZE);
|
2020-07-08 09:05:02 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::cleanupPreviousScene() {
|
|
|
|
delete currentScene;
|
|
|
|
sceneToTransitionTo = nullptr;
|
|
|
|
}
|
|
|
|
|
|
|
|
void GBAEngine::setScene(Scene* scene) {
|
|
|
|
dequeueAllSounds();
|
|
|
|
|
|
|
|
if(this->currentScene) {
|
|
|
|
cleanupPreviousScene();
|
|
|
|
}
|
|
|
|
scene->load();
|
|
|
|
|
|
|
|
auto fgPalette = scene->getForegroundPalette();
|
|
|
|
fgPalette->persist();
|
|
|
|
auto bgPalette = scene->getBackgroundPalette();
|
|
|
|
bgPalette->persist();
|
|
|
|
|
|
|
|
this->currentScene = scene;
|
|
|
|
}
|