(meta) Fixed issue with refresh
This commit is contained in:
parent
3630f1a4bc
commit
e6bafe74ef
|
@ -18,9 +18,7 @@
|
|||
#a70f .System/b DEO2
|
||||
#0150 .Screen/width DEO2
|
||||
#0050 .Screen/height DEO2
|
||||
.Console/type DEI #03 AND ?{
|
||||
;dict/usage <perr>/
|
||||
#010f DEO }
|
||||
.Console/type DEI #03 AND ?{ ;dict/usage <perr>/ }
|
||||
;await-src .Console/vector DEO2
|
||||
BRK
|
||||
|
||||
|
@ -29,7 +27,7 @@
|
|||
( name ) "Meta 0a
|
||||
( details ) "A 20 "Metadata 20 "Viewer 0a
|
||||
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
|
||||
( date ) "17 20 "Nov 20 "2023 $1
|
||||
( date ) "29 20 "Nov 20 "2023 $1
|
||||
03
|
||||
( skip ) 00 abcd
|
||||
( skip ) 01 ef01
|
||||
|
@ -42,12 +40,13 @@
|
|||
.Console/read DEI .src skey ?{ BRK }
|
||||
;src has-metadata ?{
|
||||
;dict/empty <pstr-ln>
|
||||
#010f DEO
|
||||
;src <sclr>
|
||||
BRK }
|
||||
<load-metadata>
|
||||
;metadata/body DUP2
|
||||
( cli ) <pstr-ln>/
|
||||
( gui ) <draw-metadata>
|
||||
;src <sclr>
|
||||
BRK
|
||||
|
||||
(
|
||||
|
@ -80,6 +79,11 @@
|
|||
@|drawing )
|
||||
|
||||
@<draw-metadata> ( body* -- )
|
||||
( | clear )
|
||||
#0000 DUP2 .Screen/x DEO2
|
||||
.Screen/y DEO2
|
||||
#80 .Screen/pixel DEO
|
||||
( | draw )
|
||||
#004c .Screen/x DEO2
|
||||
#0012 .Screen/y DEO2
|
||||
<draw-txt>
|
||||
|
@ -140,6 +144,13 @@
|
|||
scap/ STA
|
||||
JMP2r
|
||||
|
||||
@<sclr> ( str* -- )
|
||||
#00 ROT ROT
|
||||
&w ( -- )
|
||||
STAk INC2 LDAk ?&w
|
||||
STA
|
||||
JMP2r
|
||||
|
||||
@skey ( key buf -- proc )
|
||||
OVR #21 LTH ?&eval
|
||||
#00 SWP sput #00 JMP2r
|
||||
|
|
Loading…
Reference in New Issue