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

(m291) Fixed path redraw

This commit is contained in:
Devine Lu Linvega 2024-08-26 13:21:59 -07:00
parent 9476c5de87
commit f34b972602
1 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -276,17 +276,20 @@
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden #0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
is-folder ?&folder is-folder ?&folder
is-mp3 ?&mp3 is-mp3 ?&mp3
;mem/misc [ LIT2 00 -lines/misc ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy> ;mem/misc [ LIT2 00 -lines/misc ] LDZ
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/misc LDZ INC .lines/misc STZ .lines/misc LDZ INC .lines/misc STZ
JMP2r JMP2r
&folder ( line* -- ) &folder ( line* -- )
;mem/folders [ LIT2 00 -lines/folders ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy> ;mem/folders [ LIT2 00 -lines/folders ] LDZ
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/folders LDZ INC .lines/folders STZ .lines/folders LDZ INC .lines/folders STZ
JMP2r JMP2r
&mp3 ( line* -- ) &mp3 ( line* -- )
;mem/tracks [ LIT2 00 -lines/tracks ] LDZ ( CELLSIZE ) #60 SFT2 ADD2 <lcpy> ;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/tracks LDZ INC .lines/tracks STZ .lines/tracks LDZ INC .lines/tracks STZ
JMP2r JMP2r
@ -312,19 +315,24 @@
POP JMP2r POP JMP2r
&tracks ( id -- ) &tracks ( id -- )
#00 SWP ( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load> #00 SWP
( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
&misc ( id -- ) &misc ( id -- )
#00 SWP ( CELLSIZE ) #60 SFT2 ;mem/misc ADD2 !<send-load> #00 SWP
( CELLSIZE ) #60 SFT2 ;mem/misc ADD2 !<send-load>
&folder ( id -- ) &folder ( id -- )
#00 SWP ( CELLSIZE ) #60 SFT2 ;mem/folders ADD2 !<enter> #00 SWP
( CELLSIZE ) #60 SFT2 ;mem/folders ADD2 !<enter>
@<send-load> ( file* -- ) @<send-load> ( file* -- )
( | start ID3 ) ( | start ID3 )
;dict/no-title ;id3/title <scpy> ;dict/no-title ;id3/title <scpy>
;dict/no-artist ;id3/artist <scpy> ;dict/no-artist ;id3/artist <scpy>
;dict/no-album ;id3/album <scpy> ;dict/no-album ;id3/album <scpy>
[ LIT2 01 -playing ] STZ
fit-window
( | request ) ( | request )
;dict/load-cmd <pstr> ;dict/load-cmd <pstr>
;path <pstr> ;path <pstr>
@ -417,13 +425,7 @@
#0018 [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 } #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 ) <draw-path>
#0008 .Screen/x DEO2
#0004 .Screen/y DEO2
;path #01 <draw-uf2>
( | spacer )
#0014 .Screen/y DEO2
;line-icn <draw-spacer>
( | content ) ( | content )
#001c [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 } #001c [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
.Screen/y DEO2 .Screen/y DEO2
@ -439,6 +441,19 @@
;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> } ;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
JMP2r JMP2r
@<draw-path> ( -- )
( | clear )
#0000 .Screen/x DEO2
#0014 .Screen/y DEO2
[ LIT2 a0 -Screen/pixel ] DEO
( | draw )
#0008 .Screen/x DEO2
#0004 .Screen/y DEO2
;path #01 <draw-uf2>
( | spacer )
#0014 .Screen/y DEO2
;line-icn !<draw-spacer>
@<redraw-player> ( -- ) @<redraw-player> ( -- )
#ffff ;<draw-timestamp>/last STA2 #ffff ;<draw-timestamp>/last STA2
#ffff ;<draw-progress>/last STA2 #ffff ;<draw-progress>/last STA2
@ -605,7 +620,8 @@
.Screen/y DEO2 } .Screen/y DEO2 }
( | normal ) ( | normal )
#0008 .Screen/x DEO2 #0008 .Screen/x DEO2
#00 OVR ( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2> #00 OVR
( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2 .Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l INC GTHk ?&>l
POP2 JMP2r POP2 JMP2r