(sliderule) Fixed drawing bug

This commit is contained in:
Devine Lu Linvega 2023-07-27 15:28:28 -07:00
parent 87ab45e0c0
commit 795d9cb321
2 changed files with 4 additions and 0 deletions

View File

@ -1,4 +1,7 @@
@fill-icn
[ ffff ffff ffff ffff ]
@pointer-icn @pointer-icn
[ 80c0 e0f0 f8e0 1000 ] [ 80c0 e0f0 f8e0 1000 ]

View File

@ -204,6 +204,7 @@
@<update-pointer> ( color addr* -- ) @<update-pointer> ( color addr* -- )
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
;fill-icn .Screen/addr DEO2
#40 <draw-pointer> #40 <draw-pointer>
.Mouse/x DEI2 ,<draw-pointer>/x STR2 .Mouse/x DEI2 ,<draw-pointer>/x STR2
.Mouse/y DEI2 ,<draw-pointer>/y STR2 .Mouse/y DEI2 ,<draw-pointer>/y STR2