Im using .nds file^^'
I tested this arm9 code and worked :
[pascal]
program toucharm9;
{$apptype arm9} //...or arm7
{$define ARM9} //...or arm7, according to apptype
{$mode objfpc} // required for some libc funcs implementation
uses
ctypes; // required by nds headers!
{$include nds.inc} // headers!
{$include dswifi9.inc} // headers!
var
i: integer;
X,Y:integer;
begin
consoleDemoInit();
videoSetMode(MODE_FB0);
vramSetBankA(VRAM_A_BG);
irqInit();
irqEnable(IRQ_VBLANK);
//printf('Teste de Teclas'+#10);
for i := 0 to (256 * 192) - 1 do
VRAM_A[i] := RGB15(15,25,1);
lcdSwap();
while true do
begin
if IPC^.touchX<>0 then
begin
printf('PX=%i / PY=%i'+#10,[IPC^.touchXpx,IPC^.touchYpx]);
VRAM_A[(IPC^.touchYpx*256)+IPC^.touchXpx-1] := RGB15(25,0,0);
end;
end;
end.
[/pascal]
now I'm trying to use the graphics of the touch screen same as the normal screen (VRAM_A)
Bookmarks