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

(m291) Scroll long track names

This commit is contained in:
Devine Lu Linvega 2024-08-29 19:37:40 -07:00
parent c149d1b9e7
commit c535dbf3d4
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -279,6 +279,7 @@
POP2 STH2r STH2r SWP2 OVR2 ADD2 SWP2 POP2 STH2r STH2r SWP2 OVR2 ADD2 SWP2
( | print ) ( | print )
calc-width .secprog STZ2 calc-width .secprog STZ2
<draw-title-scroll>
<draw-progress> <draw-progress>
<draw-timestamp> !message/<new> <draw-timestamp> !message/<new>
@ -382,10 +383,9 @@
@str-lth ( a* b* -- a>b ) @str-lth ( a* b* -- a>b )
STH2 STH2
&>loop ( -- ) &>loop ( -- )
LDAk LDAkr STHr SUBk ?&done LDAk LDAkr STHr SUBk ?{
DUP2 #0000 EQU2 ?&done DUP2 #0000 EQU2 ?{ POP2 INC2 INC2r !&>loop } }
POP2 INC2 INC2r !&>loop NIP2 LTH POP2r JMP2r
&done NIP2 LTH POP2r JMP2r
@sort-folders ( -- ) @sort-folders ( -- )
.lines/folders LDZ ?{ JMP2r } .lines/folders LDZ ?{ JMP2r }
@ -412,13 +412,12 @@
POP2 POP2 DUP2 STH2r swap-tracks #0080 ADD2 !&>loop POP2 POP2 DUP2 STH2r swap-tracks #0080 ADD2 !&>loop
@swap-tracks ( src* dst* -- ) @swap-tracks ( src* dst* -- )
EQU2k ?&skip EQU2k ?{
DUP2 ;tmp <scpy> DUP2 ;tmp <scpy>
OVR2 STH2 OVR2 STH2
<scpy> <scpy>
;tmp STH2r <scpy> ;tmp STH2r !<scpy> }
JMP2r POP2 POP2 JMP2r
&skip POP2 POP2 JMP2r
@count-lines ( -- lines ) @count-lines ( -- lines )
.lines/folders LDZ .lines/tracks LDZ ADD JMP2r .lines/folders LDZ .lines/tracks LDZ ADD JMP2r
@ -584,10 +583,23 @@
<draw-next> <draw-next>
<draw-progress> !<draw-timestamp> <draw-progress> !<draw-timestamp>
@<draw-title-scroll> ( -- )
;id3/title get-uf2-width #00d0 LTH2 ?{
[ LIT2 &f $2 ] INC2k ,&f STR2
DUP #0f AND ?{
#0020 .Screen/y DEO2
<clear-line>
#0008 .Screen/x DEO2
#0020 .Screen/y DEO2
#04 SFT2 ;id3/title llen DIV2k MUL2 SUB2 ;id3/title ADD2 #01 !<draw-uf2> }
POP2 }
JMP2r
@<draw-title> ( -- ) @<draw-title> ( -- )
( | clear ) ( | clear )
#0020 .Screen/y DEO2 #0020 .Screen/y DEO2
<clear-line> <clear-line>
#0000 ;<draw-title-scroll>/f STA2
( | draw ) ( | draw )
#0020 .Screen/y DEO2 #0020 .Screen/y DEO2
;id3/title get-uf2-width #00d0 LTH2 ?{ ;id3/title get-uf2-width #00d0 LTH2 ?{