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

Improved UX for GOL

Browse source
This commit is contained in:
neauoire 2021-05-05 20:33:48 -07:00
parent b99cc32ba6
commit 801396e14d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
projects/demos/life.usm
View file

@ -61,6 +61,8 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
.Mouse/state DEI #00 = #01 JNZ [ BRK ]
.timer PEK #01 + [ DUP ] .timer POK .timer PEK #01 + [ DUP ] .timer POK
#10 MOD #00 ! #01 JNZ [ BRK ] #10 MOD #00 ! #01 JNZ [ BRK ]
@ -112,16 +114,14 @@ BRK
.Mouse/x DEI2 DUP2 .anchor/x PEK2 >> ROT ROT .anchor/x PEK2 WIDTH #02 * TOS ++ #0001 ++ << #0101 == .Mouse/x DEI2 DUP2 .anchor/x PEK2 >> ROT ROT .anchor/x PEK2 WIDTH #02 * TOS ++ #0001 ++ << #0101 ==
.Mouse/y DEI2 DUP2 .anchor/y PEK2 >> ROT ROT .anchor/y PEK2 HEIGHT #02 * TOS ++ << #0101 == .Mouse/y DEI2 DUP2 .anchor/y PEK2 >> ROT ROT .anchor/y PEK2 HEIGHT #02 * TOS ++ << #0101 ==
#0101 == ;on-touch JNZ2 #0101 == #01 JNZ [ BRK ]
BRK
@on-touch ( -> )
.Mouse/x DEI2 .anchor/x PEK2 SUB2 #02 / TOB .Mouse/x DEI2 .anchor/x PEK2 SUB2 #02 / TOB
.Mouse/y DEI2 .anchor/y PEK2 SUB2 #02 / TOB .Mouse/y DEI2 .anchor/y PEK2 SUB2 #02 / TOB
;set-cell JSR2 ;set-cell JSR2
;draw-grid JSR2
BRK BRK
@draw-grid ( -- ) @draw-grid ( -- )