(sliderule) Fixed drawing bug
This commit is contained in:
parent
87ab45e0c0
commit
795d9cb321
|
@ -1,4 +1,7 @@
|
|||
|
||||
@fill-icn
|
||||
[ ffff ffff ffff ffff ]
|
||||
|
||||
@pointer-icn
|
||||
[ 80c0 e0f0 f8e0 1000 ]
|
||||
|
||||
|
|
|
@ -204,6 +204,7 @@
|
|||
|
||||
@<update-pointer> ( color addr* -- )
|
||||
[ LIT2 00 -Screen/auto ] DEO
|
||||
;fill-icn .Screen/addr DEO2
|
||||
#40 <draw-pointer>
|
||||
.Mouse/x DEI2 ,<draw-pointer>/x STR2
|
||||
.Mouse/y DEI2 ,<draw-pointer>/y STR2
|
||||
|
|
Loading…
Reference in New Issue