(wireworld) Optimizing mouse-picking
This commit is contained in:
parent
ba7c2f861b
commit
a9d4e30a0d
|
@ -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 )
|
||||
|
||||
|
|
Loading…
Reference in New Issue