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

(m291) Improved drawing

This commit is contained in:
Devine Lu Linvega 2024-08-26 10:17:50 -07:00
parent 1e5df7fe01
commit 3d29390b44
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gui/m291/src/m291.tal
View File

@ -40,7 +40,7 @@
;dict/mpg-cmd .Console/addr DEO2
[ LIT2 03 -Console/mode ] DEO
[ LIT2 01 -Console/exec ] DEO
[ LIT2 01 -playing ] STZ
[ LIT2 00 -playing ] STZ
;dict/home-path set-path <refresh-dir>
( | unlock )
;on-mouse .Mouse/vector DEO2
@ -142,7 +142,8 @@
[ LIT2 01 -playing ] STZ
#ffff ;<draw-timestamp>/last STA2
fit-window POP <perr>
#0a19 DEO !message/<new>
#0a19 DEO
<draw-player> !message/<new>
@handle-frame ( buf* char -- )
POP
@ -324,7 +325,8 @@
@<redraw> ( -- )
( | clear )
#0000 DUP2 .Screen/x DEO2
#0000 .Screen/x DEO2
#0018 [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
.Screen/y DEO2
[ LIT2 80 -Screen/pixel ] DEO
( | status )
@ -335,8 +337,7 @@
#0014 .Screen/y DEO2
;line-icn <draw-spacer>
( | content )
#001c [ LIT2 00 -playing ] LDZ EQU ?{ <draw-player>
#0080 ADD2 }
#001c [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
.Screen/y DEO2
( | empty )
count-lines ?{