diff options
Diffstat (limited to 'packages/libndsfpc/examples/devkitPro/input')
| -rw-r--r-- | packages/libndsfpc/examples/devkitPro/input/TouchTest/balldata.bin.o | bin | 0 -> 1717 bytes | |||
| -rw-r--r-- | packages/libndsfpc/examples/devkitPro/input/TouchTest/ballpalette.bin.o | bin | 0 -> 1214 bytes | |||
| -rw-r--r-- | packages/libndsfpc/examples/devkitPro/input/TouchTest/main.pp | 174 |
3 files changed, 174 insertions, 0 deletions
diff --git a/packages/libndsfpc/examples/devkitPro/input/TouchTest/balldata.bin.o b/packages/libndsfpc/examples/devkitPro/input/TouchTest/balldata.bin.o Binary files differnew file mode 100644 index 0000000000..50fc3aba31 --- /dev/null +++ b/packages/libndsfpc/examples/devkitPro/input/TouchTest/balldata.bin.o diff --git a/packages/libndsfpc/examples/devkitPro/input/TouchTest/ballpalette.bin.o b/packages/libndsfpc/examples/devkitPro/input/TouchTest/ballpalette.bin.o Binary files differnew file mode 100644 index 0000000000..5a8f857c0f --- /dev/null +++ b/packages/libndsfpc/examples/devkitPro/input/TouchTest/ballpalette.bin.o diff --git a/packages/libndsfpc/examples/devkitPro/input/TouchTest/main.pp b/packages/libndsfpc/examples/devkitPro/input/TouchTest/main.pp new file mode 100644 index 0000000000..bec3a00376 --- /dev/null +++ b/packages/libndsfpc/examples/devkitPro/input/TouchTest/main.pp @@ -0,0 +1,174 @@ +program main; +{$L ballpalette.bin.o} +{$L balldata.bin.o} +{$apptype arm9} +{$define ARM9} + +{$mode objfpc} + +uses + ctypes, nds9; + +var + OAMCopy: array [0..127] of SpriteEntry; + ballpalette_bin_end: array [0..0] of u8; cvar; external; + ballpalette_bin: array [0..0] of u16; cvar; external; + ballpalette_bin_size: u32; cvar; external; + balldata_bin_end: array [0..0] of u8; cvar; external; + balldata_bin: array [0..0] of u16; cvar; external; + balldata_bin_size: u32; cvar; external; + + +procedure initOAM(); +var + i: integer; +begin + for i := 0 to 127 do + OAMCopy[i].st.attribute[0] := ATTR0_DISABLED; +end; + +//--------------------------------------------------------------------------------- +procedure updateOAM(); +begin + dmaCopy(@OAMCopy, OAM, sizeof(OAMCopy)); +end; + + +type + TTouchType = (ttContinuous, ttSingle); + +var + frame: integer; + TouchType: TTouchType = ttContinuous; + + +//--------------------------------------------------------------------------------- +function Vblank(): pointer; +begin +//--------------------------------------------------------------------------------- + inc(frame); +end; + + +var + min_x, min_y, max_x, max_y: integer; + min_px, min_py, max_px, max_py: integer; + touch: touchPosition; + i: integer; + pressed, held: integer; + +begin + min_x := 4096; + min_y := 4096; + max_x := 0; + max_y := 0; + min_px := 4096; + min_py := 4096; + max_px := 0; + max_py := 0; + + + powerON(POWER_ALL_2D); + + // put the main screen on the bottom lcd + lcdMainOnBottom(); + + // Initialise the interrupt system + irqInit(); + // install our simple vblank handler + irqSet(IRQ_VBLANK, @Vblank); + // enable the interrupt + irqEnable(IRQ_VBLANK); + initOAM(); + //enable vram and map it to the right places + vramSetMainBanks( VRAM_A_MAIN_SPRITE, //A and B maped consecutivly as sprite memory + VRAM_B_MAIN_SPRITE, //this gives us 256KB which is the max + VRAM_C_MAIN_BG_0x06000000, //map C to background memory + VRAM_D_LCD //not using D + ); + + //set the video mode + videoSetMode( MODE_0_2D or + DISPLAY_SPR_ACTIVE or //turn on sprites + DISPLAY_BG0_ACTIVE or //turn on background 0 + DISPLAY_SPR_1D //this is used when in tile mode + ); + + // Sprite initialisation + for i := 0 to 255 do + SPRITE_PALETTE[i] := u32(ballpalette_bin[i]); + + for i := 0 to 32*16 - 1 do + SPRITE_GFX[i] := u32(balldata_bin[i]); + + // black backdrop + BG_PALETTE[0] := (RGB15(0,0,0)); + + BG0_CR^ := BG_MAP_BASE(31);//use bg0 for the text + + BG_PALETTE[255] := (RGB15(31,31,31));//by default font rendered with color 255 + + //consoleInit() is a lot more flexible but this gets you up and running quick + consoleInitDefault(pu16(SCREEN_BASE_BLOCK(31)), pu16(CHAR_BASE_BLOCK(0)), 16); + + + printf(#27 + '[4;8H' + 'Touch Screen Test'); + printf(#27 + '[15;4H' + 'Right Shoulder toggles'); + + while true do + begin + swiWaitForVBlank(); + updateOAM(); + + // read the button states + scanKeys(); + + // read the touchscreen coordinates + touch := touchReadXY(); + + pressed := keysDown(); // buttons pressed this loop + held := keysHeld(); // buttons currently held + + // Right Shoulder button toggles the mode + if ( pressed and KEY_R) <> 0 then Inc(TouchType); + + if TouchType = ttContinuous then + printf(#27 + '[14;4H' + 'Touch mode: CONTINUOUS ') + else + printf(#27 + '[14;4H' + 'Touch mode: SINGLE SHOT'); + + iprintf(#27 + '[6;5H' + 'Touch x = %04X, %04X' + #10, [touch.x, touch.px]); + iprintf(#27 + '[7;5H' + 'Touch x = %04X, %04X' + #10, [touch.x, touch.px]); + + + iprintf(#27 + '[0;18H' + 'keys: %08X' + #10, [keysHeld()]); + iprintf(#27 + '[9;10H' + 'Frame %d' + #10, [frame]); + + if (TouchType = ttSingle) and not ( (pressed and KEY_TOUCH) <> 0) then continue; + + if ((held and KEY_TOUCH)<0) or (touch.x = 0) or (touch.y = 0) then continue; + + iprintf(#27 + '[12;12H' + '(%d,%d) ', [touch.px,touch.py]); + + if ( touch.x > max_x) then max_x := touch.x; + if ( touch.y > max_y) then max_y := touch.y; + if ( touch.px > max_px) then max_px := touch.px; + if ( touch.py > max_py) then max_py := touch.py; + + if ( touch.x < min_x) then min_x := touch.x; + if ( touch.y < min_y) then min_y := touch.y; + if ( touch.px < min_px) then min_px := touch.px; + if ( touch.py < min_py) then min_py := touch.py; + + iprintf(#27 + '[0;0H' + '(%d,%d) ',[min_px,min_py]); + iprintf(#27 + '[1;0H' + '(%d,%d) ',[min_x,min_y]); + iprintf(#27 + '[22;21H' + '(%d,%d)',[max_x,max_y]); + iprintf(#27 + '[23;23H' + '(%d,%d)',[max_px,max_py]); + + OAMCopy[0].st.attribute[2] := 0; + OAMCopy[0].st.attribute[1] := ATTR1_SIZE_32 or ((touch.px - 16) and $01FF); + OAMCopy[0].st.attribute[0] := ATTR0_COLOR_256 or ATTR0_SQUARE or ((touch.py -16) and $00FF); + + end; + +end. |