(wireworld) Optimizing mouse-picking

This commit is contained in:
Devine Lu Linvega 2023-06-07 18:44:34 -07:00
parent ba7c2f861b
commit a9d4e30a0d
1 changed files with 4 additions and 2 deletions

View File

@ -92,8 +92,8 @@ BRK
&no-menu
( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL
( cell* ) .Mouse/x DEI2 #02 SFT2 NIP .Mouse/y DEI2 #02 SFT2 NIP
get-addr STA
( cell* ) .Mouse/x DEI2 #02 SFT2 .Mouse/y DEI2 #02 SFT2 #60 SFT2 ADD2
;get-addr/current LDA2 ADD2 STA
redraw
BRK
@ -224,6 +224,8 @@ JMP2r
JMP2r
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
(
@|assets )