Browse code

Improved UX for GOL

neauoire authored on 06/05/2021 03:33:48
Showing 1 changed files
... ...
@@ -60,6 +60,8 @@
60 60
 BRK
61 61
 
62 62
 @on-frame ( -> )
63
+	
64
+	.Mouse/state DEI #00 = #01 JNZ [ BRK ]
63 65
 
64 66
 	.timer PEK #01 + [ DUP ] .timer POK
65 67
 
... ...
@@ -112,15 +114,13 @@ BRK
112 114
 
113 115
 	.Mouse/x DEI2 DUP2 .anchor/x PEK2 >> ROT ROT .anchor/x PEK2 WIDTH #02 * TOS ++ #0001 ++ << #0101 ==
114 116
 	.Mouse/y DEI2 DUP2 .anchor/y PEK2 >> ROT ROT .anchor/y PEK2 HEIGHT #02 * TOS ++ << #0101 ==
115
-	#0101 == ;on-touch JNZ2
116
-
117
-BRK
118
-
119
-@on-touch ( -> )
117
+	#0101 == #01 JNZ [ BRK ]
120 118
 
121 119
 	.Mouse/x DEI2 .anchor/x PEK2 SUB2 #02 / TOB
122 120
 	.Mouse/y DEI2 .anchor/y PEK2 SUB2 #02 / TOB
123 121
 	;set-cell JSR2
122
+	
123
+	;draw-grid JSR2
124 124
 
125 125
 BRK
126 126