(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
|
@pointer-icn
|
||||||
[ 80c0 e0f0 f8e0 1000 ]
|
[ 80c0 e0f0 f8e0 1000 ]
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue