Improved UX for GOL

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

View File

@ -61,6 +61,8 @@ BRK
@on-frame ( -> )
.Mouse/state DEI #00 = #01 JNZ [ BRK ]
.timer PEK #01 + [ DUP ] .timer POK
#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/y DEI2 DUP2 .anchor/y PEK2 >> ROT ROT .anchor/y PEK2 HEIGHT #02 * TOS ++ << #0101 ==
#0101 == ;on-touch JNZ2
BRK
@on-touch ( -> )
#0101 == #01 JNZ [ BRK ]
.Mouse/x DEI2 .anchor/x PEK2 SUB2 #02 / TOB
.Mouse/y DEI2 .anchor/y PEK2 SUB2 #02 / TOB
;set-cell JSR2
;draw-grid JSR2
BRK
@draw-grid ( -- )