(mouse.tal) Fixed issue with clearing

This commit is contained in:
Devine Lu Linvega 2023-07-24 10:47:52 -07:00
parent dcb434760b
commit 07f2ea43f7
1 changed files with 6 additions and 13 deletions

View File

@ -44,6 +44,7 @@ BRK
( clear last cursor ) ( clear last cursor )
.pointer/x LDZ2 .Screen/x DEO2 .pointer/x LDZ2 .Screen/x DEO2
.pointer/y LDZ2 .Screen/y DEO2 .pointer/y LDZ2 .Screen/y DEO2
;fill-icn .Screen/addr DEO2
[ LIT2 40 -Screen/sprite ] DEO [ LIT2 40 -Screen/sprite ] DEO
draw-mouse draw-mouse
( draw new cursor ) ( draw new cursor )
@ -128,6 +129,7 @@ JMP2r
DUP2 .Screen/x DEO2 DUP2 .Screen/x DEO2
.Screen/y DEO2 .Screen/y DEO2
#16 .Screen/auto DEO #16 .Screen/auto DEO
;fill-icn .Screen/addr DEO2
#40 .Screen/sprite DEOk DEO #40 .Screen/sprite DEOk DEO
( buttons ) ( buttons )
#0300 #0300
@ -189,22 +191,13 @@ JMP2r
@clear-screen ( -- ) @clear-screen ( -- )
#00 .Screen/auto DEO #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#80 .Screen/pixel DEO
.Screen/height DEI2 #03 SFT2 NIP #00
&y
#00 OVR #30 SFT2 .Screen/y DEO2
.Screen/width DEI2 #03 SFT2 NIP #00
&x
#00 OVR #30 SFT2 .Screen/x DEO2
[ LIT2 00 -Screen/sprite ] DEO
INC GTHk ?&x
POP2
INC GTHk ?&y
POP2
JMP2r JMP2r
@fill-icn [
ffff ffff ffff ffff ]
@pointer-icn [ @pointer-icn [
80c0 e0f0 f8e0 1000 ] 80c0 e0f0 f8e0 1000 ]
@mouse-icn [ @mouse-icn [