Added mouse-down detect to example

This commit is contained in:
neauoire 2021-02-09 17:43:53 -08:00
parent 347b1055f6
commit a1267aea4e
2 changed files with 27 additions and 5 deletions

View File

@ -147,11 +147,14 @@ domouse(SDL_Event *event)
{ {
int x = event->motion.x / ZOOM - PAD * 8; int x = event->motion.x / ZOOM - PAD * 8;
int y = event->motion.y / ZOOM - PAD * 8; int y = event->motion.y / ZOOM - PAD * 8;
switch(event->type) {
case SDL_MOUSEBUTTONUP:
case SDL_MOUSEBUTTONDOWN:
devmouse->mem[0] = x; devmouse->mem[0] = x;
devmouse->mem[1] = y; devmouse->mem[1] = y;
switch(event->type) {
case SDL_MOUSEBUTTONUP:
devmouse->mem[2] = 0;
break;
case SDL_MOUSEBUTTONDOWN:
devmouse->mem[2] = event->button.button == SDL_BUTTON_LEFT; devmouse->mem[2] = event->button.button == SDL_BUTTON_LEFT;
} }
} }

View File

@ -10,9 +10,20 @@
BRK BRK
|c000 @FRAME |c000 @FRAME
,01 ,01 ( redraw color )
,00 ,01 ,02 IOR ( grab y ) ( get mouse button, or break )
,00 ,00 ,02 IOR ( grab x ) ,02 ,02 IOR
,01 NEQ
BRK?
( print A to console on click )
,02 ,02 IOR
,41 ADD
,putbyte JSR
( paint a white pixel )
,01 ,01
,getmouse JSR
,putpixel JSR ,putpixel JSR
BRK BRK
@ -23,5 +34,13 @@ BRK
,01 IOW ( redraw ) ,01 IOW ( redraw )
RTS RTS
@getmouse ( push y,x to stack )
,00 ,01 ,02 IOR ( grab y )
,00 ,00 ,02 IOR ( grab x )
RTS
@putbyte ( print to console )
,00 IOW RTS
|d000 @ERROR BRK |d000 @ERROR BRK
|FFFA .RESET .FRAME .ERROR |FFFA .RESET .FRAME .ERROR