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