mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-23 21:16:22 +02:00
d2dabe9a33
- Removed unused/outdated stuff from libndsfpc + Added new examples for libndsfpc + Added working (I hope so...) makefile.fpc for all libndsfpc/libgbafpc examples git-svn-id: trunk@13217 -
46 lines
678 B
ObjectPascal
46 lines
678 B
ObjectPascal
program PcxView;
|
|
|
|
uses
|
|
ctypes, gba;
|
|
|
|
{$l build/splash.pcx.o}
|
|
|
|
|
|
{$include inc/splash.pcx.inc}
|
|
|
|
var
|
|
PaletteBuffer: array [0..255] of cuint16;
|
|
frame: cuint;
|
|
|
|
|
|
procedure VblankInterrupt();
|
|
begin
|
|
frame := frame + 1;
|
|
scanKeys();
|
|
end;
|
|
|
|
|
|
|
|
begin
|
|
// Set up the interrupt handlers
|
|
irqInit();
|
|
irqSet(IRQ_VBLANK, @VblankInterrupt);
|
|
|
|
// Enable Vblank Interrupt to allow VblankIntrWait
|
|
irqEnable(IRQ_VBLANK);
|
|
|
|
// Allow Interrupts
|
|
REG_IME^ := 1;
|
|
|
|
SetMode(MODE_4 or BG2_ON); // screen mode & background to display
|
|
|
|
DecodePCX(@splash_pcx, pcuint16(VRAM), @PaletteBuffer);
|
|
|
|
FadeToPalette(PaletteBuffer, 60);
|
|
|
|
while true do
|
|
VBlankIntrWait();
|
|
end.
|
|
|
|
|