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
@misc $1
@selection $1 &mod $1
@selection $1 &mod $1 &track $1
@path $2 &null $80
@lines &folders $1 &tracks $1 &misc $1
@playing $1
@ -87,7 +87,7 @@
BRK }
#01 GTH .selection/mod STZ
<pick>
<lock-mouse>
;on-mouse-locked .Mouse/vector DEO2
BRK
&status-bar ( y* -> )
@ -102,11 +102,11 @@
&controls ( y* -> )
POP2 .Mouse/x DEI2 #0010 SUB2 #05 SFT2 NIP
( > ) DUP #02 NEQ ?{ <skip-prev>
<lock-mouse> }
;on-mouse-locked .Mouse/vector DEO2 }
( > ) DUP #03 NEQ ?{ <send-pause>
<lock-mouse> }
;on-mouse-locked .Mouse/vector DEO2 }
( > ) #04 NEQ ?{ <skip-next>
<lock-mouse> }
;on-mouse-locked .Mouse/vector DEO2 }
BRK
&seeker ( -> )
@ -130,10 +130,6 @@
( A ) DUP #01 NEQ ?{ .selection LDZ <pick> }
POP BRK
@<lock-mouse> ( -- )
;on-mouse-locked .Mouse/vector DEO2
JMP2r
(
@|message )
@ -162,18 +158,6 @@
STA
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 )
@ -181,7 +165,7 @@
JMP2r
@<skip-next> ( -- )
JMP2r
.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
@<seek> ( x* -- )
<phex>
@ -315,6 +299,7 @@
POP JMP2r
&tracks ( id -- )
DUP .selection/track STZ
#00 SWP
( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
@ -382,6 +367,15 @@
@is-mp3 ( line* -- line*f )
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 )