Browse code
(mouse.tal) Fixed issue with clearing
Devine Lu Linvega authored on 24/07/2023 17:47:52
Showing 1 changed files
| ... | ... |
@@ -44,6 +44,7 @@ BRK |
| 44 | 44 |
( clear last cursor ) |
| 45 | 45 |
.pointer/x LDZ2 .Screen/x DEO2 |
| 46 | 46 |
.pointer/y LDZ2 .Screen/y DEO2 |
| 47 |
+ ;fill-icn .Screen/addr DEO2 |
|
| 47 | 48 |
[ LIT2 40 -Screen/sprite ] DEO |
| 48 | 49 |
draw-mouse |
| 49 | 50 |
( draw new cursor ) |
| ... | ... |
@@ -128,6 +129,7 @@ JMP2r |
| 128 | 129 |
DUP2 .Screen/x DEO2 |
| 129 | 130 |
.Screen/y DEO2 |
| 130 | 131 |
#16 .Screen/auto DEO |
| 132 |
+ ;fill-icn .Screen/addr DEO2 |
|
| 131 | 133 |
#40 .Screen/sprite DEOk DEO |
| 132 | 134 |
( buttons ) |
| 133 | 135 |
#0300 |
| ... | ... |
@@ -189,22 +191,13 @@ JMP2r |
| 189 | 191 |
|
| 190 | 192 |
@clear-screen ( -- ) |
| 191 | 193 |
|
| 192 |
- #00 .Screen/auto DEO |
|
| 193 |
- |
|
| 194 |
- .Screen/height DEI2 #03 SFT2 NIP #00 |
|
| 195 |
- &y |
|
| 196 |
- #00 OVR #30 SFT2 .Screen/y DEO2 |
|
| 197 |
- .Screen/width DEI2 #03 SFT2 NIP #00 |
|
| 198 |
- &x |
|
| 199 |
- #00 OVR #30 SFT2 .Screen/x DEO2 |
|
| 200 |
- [ LIT2 00 -Screen/sprite ] DEO |
|
| 201 |
- INC GTHk ?&x |
|
| 202 |
- POP2 |
|
| 203 |
- INC GTHk ?&y |
|
| 204 |
- POP2 |
|
| 194 |
+ #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 |
|
| 195 |
+ #80 .Screen/pixel DEO |
|
| 205 | 196 |
|
| 206 | 197 |
JMP2r |
| 207 | 198 |
|
| 199 |
+@fill-icn [ |
|
| 200 |
+ ffff ffff ffff ffff ] |
|
| 208 | 201 |
@pointer-icn [ |
| 209 | 202 |
80c0 e0f0 f8e0 1000 ] |
| 210 | 203 |
@mouse-icn [ |