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

(m291) Starting UI

This commit is contained in:
Devine Lu Linvega 2024-08-25 20:14:00 -07:00
parent 7f70a7abbe
commit 7180744cbf
2 changed files with 50 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,6 +99,7 @@
( | route )
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "F ] EQU ?handle-frame
DUP [ LIT "I ] EQU ?handle-id3
POP
( | not-handled )
<perr>
@ -126,6 +127,10 @@
POP <perr>
#0a19 DEO !message/<new>
@handle-id3 ( buf* char -- )
POP <perr>
#0a19 DEO !message/<new>
(
@|core )
@ -313,6 +318,20 @@
JMP2r
@<draw-player> ( -- )
#0080 .Screen/x DEO2
#0020 .Screen/y DEO2
;placeholder/track #01 <draw-uf2-center>
#0080 .Screen/x DEO2
#0030 .Screen/y DEO2
;placeholder/artist #01 <draw-uf2-center>
#0080 .Screen/x DEO2
#0040 .Screen/y DEO2
;placeholder/album #01 <draw-uf2-center>
#0070 .Screen/x DEO2
#0058 .Screen/y DEO2
[ LIT2 36 -Screen/auto ] DEO
;button-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
JMP2r
@<draw-spacer> ( addr* -- )
@ -363,7 +382,20 @@
INC GTHk ?&>l
POP2 JMP2r
@<draw-uf2> ( addr* color -- )
@get-uf2-width ( text* -- width* )
[ LIT2r 0000 ]
&>while ( -- )
LDAk #20 SUB #0000 ROT ;font ADD2 LDA STH2
ADD2r INC2 LDAk ?&>while
POP2 STH2r JMP2r
@<draw-uf2-center> ( text* color -- )
STH
.Screen/x DEI2 OVR2 get-uf2-width #01 SFT2 SUB2 .Screen/x DEO2
STHr
( >> )
@<draw-uf2> ( text* color -- )
,&color STR
[ LIT2 15 -Screen/auto ] DEO
&>w ( -- )
@ -470,6 +502,13 @@
&mpg-cmd "mpg123 20 "-R $1
&load-cmd "load 20 $1
@placeholder
&artist "Blood 20 "Girl $1
&track "Always 20 "Wrong $1
&album "Unknown 20 "Album $1
&time-a "0:23 $1
&time-b "-3:46 $1
@touch-chr [
0000 0000 0814 1417 0000 0000 0008 0808
0000 0000 0000 00c0 0000 0000 0000 0000
@ -481,6 +520,16 @@
1010 2010 1008 0700 0f0f 1f0f 0f07 0000
2010 1010 2020 c000 c0e0 e0e0 c0c0 0000 ]
@button-icn [
0000 0000 0102 0408 0000 1f60 8000 0000
0000 f806 0100 0000 0000 0000 8040 2010
0810 1020 2020 2020 0000 0000 0000 0000
0000 0000 0000 0000 1008 0804 0404 0404
2020 2020 2010 1008 0000 0000 0000 0000
0000 0000 0000 0000 0404 0404 0408 0810
0804 0201 0000 0000 0000 0080 601f 0000
0000 0001 06f8 0000 1020 4080 0000 0000 ]
@fill-icn [
ffff ffff ffff ffff ffff ffff ffff ffff
ffff ffff ffff ffff ffff ffff ffff ffff ]

BIN
gui/m291/ss10x10.chr Normal file
View File

Binary file not shown.