From 07f2ea43f75c3fbf7d881765c40c5c016fd927bb Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Mon, 24 Jul 2023 10:47:52 -0700 Subject: [PATCH] (mouse.tal) Fixed issue with clearing --- projects/examples/devices/mouse.tal | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/projects/examples/devices/mouse.tal b/projects/examples/devices/mouse.tal index 45c3aca..5b78ac1 100644 --- a/projects/examples/devices/mouse.tal +++ b/projects/examples/devices/mouse.tal @@ -44,6 +44,7 @@ BRK ( clear last cursor ) .pointer/x LDZ2 .Screen/x DEO2 .pointer/y LDZ2 .Screen/y DEO2 + ;fill-icn .Screen/addr DEO2 [ LIT2 40 -Screen/sprite ] DEO draw-mouse ( draw new cursor ) @@ -128,6 +129,7 @@ JMP2r DUP2 .Screen/x DEO2 .Screen/y DEO2 #16 .Screen/auto DEO + ;fill-icn .Screen/addr DEO2 #40 .Screen/sprite DEOk DEO ( buttons ) #0300 @@ -189,22 +191,13 @@ JMP2r @clear-screen ( -- ) - #00 .Screen/auto 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 + #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 + #80 .Screen/pixel DEO JMP2r +@fill-icn [ + ffff ffff ffff ffff ] @pointer-icn [ 80c0 e0f0 f8e0 1000 ] @mouse-icn [