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

Characters allow to jump

This commit is contained in:
Devine Lu Linvega 2024-08-30 12:41:28 -07:00
parent fe35aadb66
commit a47bc38042
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@
( name ) "m291 0a ( name ) "m291 0a
( desc ) "Audio 20 "Player 0a ( desc ) "Audio 20 "Player 0a
( auth ) "By 20 "Linvega 20 "& 20 "d6 0a ( auth ) "By 20 "Linvega 20 "& 20 "d6 0a
( date ) "29 20 "Aug 20 "2024 $2 ( date ) "30 20 "Aug 20 "2024 $2
( (
@|vectors ) @|vectors )
@ -130,6 +130,7 @@
( esc ) DUP #1b NEQ ?{ <escape> } ( esc ) DUP #1b NEQ ?{ <escape> }
( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> } ( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
( space ) DUP #20 NEQ ?{ <send-pause> } ( space ) DUP #20 NEQ ?{ <send-pause> }
DUP #20 SUB #5f GTH ?{ DUP <find-any> }
POP POP
( | button ) ( | button )
.Controller/button DEI .Controller/button DEI
@ -192,7 +193,7 @@
@<seek> ( x* -- ) @<seek> ( x* -- )
pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd <pstr> pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd <pstr>
<pdec> <pdec>
LIT2 "s 18 DEO [ LIT2 "s 18 ] DEO
#0a18 DEO #0a18 DEO
JMP2r JMP2r
@ -247,6 +248,22 @@
@<change-mode> ( -- ) @<change-mode> ( -- )
.mode LDZk INC #03 DIVk MUL SUB SWP STZ !<draw-mode> .mode LDZk INC #03 DIVk MUL SUB SWP STZ !<draw-mode>
@<find-any> ( letter -- )
( case insensitive ) cflc STH
( | folders )
.lines/folders LDZ #00
&>folders ( -- )
#00 OVR #70 SFT2 ;mem/folders ADD2 LDA cflc STHkr NEQ ?{ POPr NIP !<select> }
INC GTHk ?&>folders
POP2
( | tracks )
.lines/tracks LDZ #00
&>tracks ( -- )
#00 OVR #70 SFT2 ;mem/tracks ADD2 LDA cflc STHkr NEQ ?{
POPr NIP .lines/tracks LDZ ADD !<select> }
INC GTHk ?&>tracks
POP2 POPr JMP2r
( (
@|events ) @|events )
@ -860,6 +877,10 @@
( (
@|stdlib ) @|stdlib )
@cflc ( c -- lowercase )
DUP #41 SUB #1a GTH ?{ #20 ADD }
JMP2r
@scap ( str* -- end* ) @scap ( str* -- end* )
INC2 & LDAk ?scap INC2 & LDAk ?scap
JMP2r JMP2r