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

(m291) Hooked up skip-forward button

This commit is contained in:
Devine Lu Linvega 2024-08-26 14:02:34 -07:00
parent 6e4fd9ecd5
commit 458228fb7b
1 changed files with 16 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@
|000 |000
@misc $1 @misc $1
@selection $1 &mod $1 @selection $1 &mod $1 &track $1
@path $2 &null $80 @path $2 &null $80
@lines &folders $1 &tracks $1 &misc $1 @lines &folders $1 &tracks $1 &misc $1
@playing $1 @playing $1
@ -87,7 +87,7 @@
BRK } BRK }
#01 GTH .selection/mod STZ #01 GTH .selection/mod STZ
<pick> <pick>
<lock-mouse> ;on-mouse-locked .Mouse/vector DEO2
BRK BRK
&status-bar ( y* -> ) &status-bar ( y* -> )
@ -102,11 +102,11 @@
&controls ( y* -> ) &controls ( y* -> )
POP2 .Mouse/x DEI2 #0010 SUB2 #05 SFT2 NIP POP2 .Mouse/x DEI2 #0010 SUB2 #05 SFT2 NIP
( > ) DUP #02 NEQ ?{ <skip-prev> ( > ) DUP #02 NEQ ?{ <skip-prev>
<lock-mouse> } ;on-mouse-locked .Mouse/vector DEO2 }
( > ) DUP #03 NEQ ?{ <send-pause> ( > ) DUP #03 NEQ ?{ <send-pause>
<lock-mouse> } ;on-mouse-locked .Mouse/vector DEO2 }
( > ) #04 NEQ ?{ <skip-next> ( > ) #04 NEQ ?{ <skip-next>
<lock-mouse> } ;on-mouse-locked .Mouse/vector DEO2 }
BRK BRK
&seeker ( -> ) &seeker ( -> )
@ -130,10 +130,6 @@
( A ) DUP #01 NEQ ?{ .selection LDZ <pick> } ( A ) DUP #01 NEQ ?{ .selection LDZ <pick> }
POP BRK POP BRK
@<lock-mouse> ( -- )
;on-mouse-locked .Mouse/vector DEO2
JMP2r
( (
@|message ) @|message )
@ -162,18 +158,6 @@
STA STA
JMP2r JMP2r
(
@|timestamp )
@calc-width ( total* curr* -- width* )
STH2
DUP2 #011b LTH2 ?{
&scale ( -- )
DUP2 #0237 LTH2 ?{
#01 SFT2 LITr 01 SFT2r !&scale }
INC2 #01 SFT2 INC2r LITr 01 SFT2r }
[ LIT2r 00e7 ] MUL2r STH2r SWP2 DIV2 JMP2r
( (
@|controls ) @|controls )
@ -181,7 +165,7 @@
JMP2r JMP2r
@<skip-next> ( -- ) @<skip-next> ( -- )
JMP2r .selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
@<seek> ( x* -- ) @<seek> ( x* -- )
<phex> <phex>
@ -315,6 +299,7 @@
POP JMP2r POP JMP2r
&tracks ( id -- ) &tracks ( id -- )
DUP .selection/track STZ
#00 SWP #00 SWP
( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load> ( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
@ -382,6 +367,15 @@
@is-mp3 ( line* -- line*f ) @is-mp3 ( line* -- line*f )
DUP2 lcap/ #0003 SUB2 ;dict/mp3-ext !scmp3 DUP2 lcap/ #0003 SUB2 ;dict/mp3-ext !scmp3
@calc-width ( total* curr* -- width* )
STH2
DUP2 #011b LTH2 ?{
&scale ( -- )
DUP2 #0237 LTH2 ?{
#01 SFT2 LITr 01 SFT2r !&scale }
INC2 #01 SFT2 INC2r LITr 01 SFT2r }
[ LIT2r 00e7 ] MUL2r STH2r SWP2 DIV2 JMP2r
( (
@|id3 ) @|id3 )