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

(m291) Starting player

This commit is contained in:
Devine Lu Linvega 2024-08-25 19:57:14 -07:00
parent 5c974ebb38
commit 7f70a7abbe
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,6 +21,7 @@
@selection $1 &mod $1 @selection $1 &mod $1
@path $2 &null $80 @path $2 &null $80
@lines &folders $1 &roms $1 &misc $1 @lines &folders $1 &roms $1 &misc $1
@playing $1
|100 |100
@ -31,6 +32,7 @@
.System/b DEO2 .System/b DEO2
<load-theme> <load-theme>
#0100 .Screen/width DEO2 #0100 .Screen/width DEO2
[ LIT2 01 -playing ] STZ
;dict/home-path set-path <refresh-dir> ;dict/home-path set-path <refresh-dir>
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
@ -116,7 +118,8 @@
@|events ) @|events )
@handle-status ( buf* char -- ) @handle-status ( buf* char -- )
POP <perr> [ LIT2 01 -playing ] STZ
fit-window POP <perr>
#0a19 DEO !message/<new> #0a19 DEO !message/<new>
@handle-frame ( buf* char -- ) @handle-frame ( buf* char -- )
@ -127,6 +130,7 @@
@|core ) @|core )
@<y-id> ( y* -- id ) @<y-id> ( y* -- id )
[ LIT2 00 -playing ] LDZ EQU ?{ #0080 SUB2 }
#0014 SUB2 #0014 SUB2
( | above ) ( | above )
DUP2 #8000 GTH2 ?&outside DUP2 #8000 GTH2 ?&outside
@ -162,7 +166,9 @@
#00 count-lines #00 count-lines
( empty ) DUP #00 EQU ADD #40 SFT2 ( empty ) DUP #00 EQU ADD #40 SFT2
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 } ( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
( padding ) #0020 ADD2 .Screen/height DEO2 !<redraw> ( padding ) #0020 ADD2
( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
.Screen/height DEO2 !<redraw>
@<parse-line> ( line* -- ) @<parse-line> ( line* -- )
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden #0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@ -291,7 +297,9 @@
#0014 .Screen/y DEO2 #0014 .Screen/y DEO2
;line-icn <draw-spacer> ;line-icn <draw-spacer>
( | content ) ( | content )
#001c .Screen/y DEO2 #001c [ LIT2 00 -playing ] LDZ EQU ?{ <draw-player>
#0080 ADD2 }
.Screen/y DEO2
( | empty ) ( | empty )
count-lines ?{ count-lines ?{
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
@ -304,6 +312,9 @@
;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> } ;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
JMP2r JMP2r
@<draw-player> ( -- )
JMP2r
@<draw-spacer> ( addr* -- ) @<draw-spacer> ( addr* -- )
#0000 .Screen/x DEO2 #0000 .Screen/x DEO2
.Screen/addr DEO2 .Screen/addr DEO2