(notepad) Fixed drawing bug
This commit is contained in:
parent
9ee28d3cd2
commit
87ab45e0c0
|
@ -36,7 +36,7 @@ BRK
|
||||||
( name ) "Note 20 "Pad 0a
|
( name ) "Note 20 "Pad 0a
|
||||||
( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
|
( details ) "Original 20 "by 20 "Donn 20 "Denman 0a
|
||||||
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
|
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
|
||||||
( date ) "Apr 20 "28, 20 "2023 00
|
( date ) "Jul 20 "27, 20 "2023 00
|
||||||
01
|
01
|
||||||
( icon ) 83 =appicon
|
( icon ) 83 =appicon
|
||||||
|
|
||||||
|
@ -704,6 +704,7 @@ JMP2r
|
||||||
@update-cursor ( color addr* -- )
|
@update-cursor ( color addr* -- )
|
||||||
|
|
||||||
[ LIT2 15 -Screen/auto ] DEO
|
[ LIT2 15 -Screen/auto ] DEO
|
||||||
|
;fill-icn .Screen/addr DEO2
|
||||||
#40 draw-cursor
|
#40 draw-cursor
|
||||||
.Mouse/x DEI2 ,draw-cursor/x STR2
|
.Mouse/x DEI2 ,draw-cursor/x STR2
|
||||||
.Mouse/y DEI2 ,draw-cursor/y STR2
|
.Mouse/y DEI2 ,draw-cursor/y STR2
|
||||||
|
@ -742,6 +743,8 @@ JMP2r
|
||||||
(
|
(
|
||||||
@|assets )
|
@|assets )
|
||||||
|
|
||||||
|
@fill-icn [
|
||||||
|
ffff ffff ffff ffff ffff ffff ffff ffff ]
|
||||||
@error-icn [
|
@error-icn [
|
||||||
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
|
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
|
||||||
@blink-icn [
|
@blink-icn [
|
||||||
|
|
Loading…
Reference in New Issue