... | ... |
@@ -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 |
|