etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-22 22:05:11 +00:00
Code Issues Projects Releases Wiki Activity

(wireworld.tal) Fixed mouse picking issue

Browse source
This commit is contained in:
neauoire 2023-06-07 09:58:10 -07:00
parent 3f162f6258
commit 59035ab291
1 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
projects/examples/demos/wireworld.tal
View file

@ -82,27 +82,24 @@ BRK
@on-mouse-down ( -> )
.Mouse/y DEI2 #03 SFT2 NIP #02 NEQ ?&no-menu
.Mouse/x DEI2 #03 SFT2 NIP
.Mouse/y DEI2 #03 SFT2 NIP
#0202 NEQ2k NIP2 ?&no-color1
DUP #02 NEQ ?&no-color1
#01 set-color
POP2 BRK
&no-color1
#0302 NEQ2k NIP2 ?&no-color2
DUP #03 NEQ ?&no-color2
#02 set-color
POP2 BRK
&no-color2
#0402 NEQ2k NIP2 ?&no-color3
DUP #04 NEQ ?&no-color3
#03 set-color
POP2 BRK
&no-color3
#0602 NEQ2k NIP2 ?&no-toggle
DUP #06 NEQ ?&no-toggle
.timer/play LDZk #00 EQU SWP STZ
#00 .Mouse/state DEO
draw-ui
POP2 BRK
&no-toggle
POP2
POP
&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