d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(romviz) Draw size at the top

This commit is contained in:
Devine Lu Linvega 2023-04-05 11:44:45 -07:00
parent a2be85d2b1
commit 07cc62a712
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui/romviz/romviz.tal
View File

@ -95,6 +95,7 @@ JMP2r
@redraw ( -- )
( bytes )
#00 .Screen/auto DEO
;src .File/name DEO2
#0001 .File/length DEO2
;pixel-icn .Screen/addr DEO2
@ -103,8 +104,13 @@ JMP2r
;&buf .File/read DEO2
.File/success DEI2 #0000 EQU2 ?&eof
[ LIT &buf $1 ] STH2kr draw-cell INC2r
STH2kr #0000 EQU2 ?&eof
!&stream &eof
POP2r
( size )
#0200 .Screen/x DEO2
#0010 .Screen/y DEO2
#01 .Screen/auto DEO
STH2r draw-short
( filename )
#0020 .Screen/x DEO2
#0010 .Screen/y DEO2
@ -164,7 +170,7 @@ JMP2r
addr-pos .Screen/y DEO2 .Screen/x DEO2
DUP ?&no-null
.Screen/sprite DEO JMP2r
POP ( .Screen/sprite DEO ) JMP2r
&no-null
DUP #20 GTH ?&no-low
POP #05 .Screen/sprite DEO JMP2r