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