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

Connected id3

This commit is contained in:
Devine Lu Linvega 2024-08-26 11:08:34 -07:00
parent f1c531b876
commit 09e44959c1
2 changed files with 33 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui/m291/src/assets.tal
View File

@ -396,3 +396,5 @@
@message &buf $200
@id3 &title $100 &artist $100 &album $100

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

@ -166,8 +166,12 @@
<draw-progress> !message/<new>
@handle-id3 ( buf* char -- )
POP <perr>
#0a19 DEO !message/<new>
POP [ LIT ". ] find-next INC2 LDA2k
( | parse lines )
DUP2 [ LIT2 "ti ] NEQ2 ?{ OVR2 <set-title> }
DUP2 [ LIT2 "ar ] NEQ2 ?{ OVR2 <set-artist> }
DUP2 [ LIT2 "al ] NEQ2 ?{ OVR2 <set-album> }
POP2 POP2 !message/<new>
@handle-pause ( buf* char -- )
POP INC2 INC2 LDA [ LIT "1 ] SUB #01 EOR .paused STZ
@ -314,6 +318,21 @@
@is-mp3 ( line* -- line*f )
DUP2 lcap/ #0003 SUB2 ;dict/mp3-ext !scmp3
(
@|id3 )
@<set-title> ( id3* -- )
[ LIT ": ] find-next INC2 ;id3/title <scpy>
JMP2r
@<set-artist> ( id3* -- )
[ LIT ": ] find-next INC2 ;id3/artist <scpy>
JMP2r
@<set-album> ( id3* -- )
[ LIT ": ] find-next INC2 ;id3/album <scpy>
JMP2r
(
@|path )
@ -372,13 +391,13 @@
@<draw-player> ( -- )
#0080 .Screen/x DEO2
#0020 .Screen/y DEO2
;placeholder/track #01 <draw-uf2-center>
;id3/title #01 <draw-uf2-center>
#0080 .Screen/x DEO2
#0030 .Screen/y DEO2
;placeholder/artist #01 <draw-uf2-center>
;id3/artist #01 <draw-uf2-center>
#0080 .Screen/x DEO2
#0040 .Screen/y DEO2
;placeholder/album #01 <draw-uf2-center>
;id3/album #01 <draw-uf2-center>
<draw-play>
<draw-progress> !<draw-timestamp>
@ -592,6 +611,13 @@
LDAkr LDAk STHr NEQ ?{ INC2r INC2 }
LDA2r LDA2 STH2r EQU2 JMP2r
@<scpy> ( src* dst* -: )
STH2
&>w ( src* `dst* -- )
LDAk #00 STH2kr STA2
INC2r INC2 LDAk ?&>w
POP2 POP2r JMP2r
@lcap ( str* -- next-line* )
&w ( -- )
@ -607,13 +633,6 @@
LDAk #00 STH2kr STA2
INC2r INC2 !&w
@<scpy> ( src* dst* -- )
STH2
&w ( -- )
LDAk #00 STH2kr STA2
INC2r INC2 LDAk ?&w
POP2 POP2r JMP2r
@<pstr> ( str* -- )
LDAk #18 DEO
INC2 & LDAk ?<pstr>
@ -659,12 +678,5 @@
&load-cmd "load 20 $1
&pause-cmd "pause 0a $1
@placeholder
&artist "Blood 20 "Girl $1
&track "Always 20 "Wrong $1
&album "Unknown 20 "Album $1
&time-a "0:31 $1
&time-b "2:25 $1
~src/assets.tal