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

(m291) d6 fixed the seeking issue

This commit is contained in:
Devine Lu Linvega 2024-08-28 18:31:17 -07:00
parent 6bb1b5fe03
commit 3bdcd4438e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -190,9 +190,9 @@
.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks .selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
@<seek> ( x* -- ) @<seek> ( x* -- )
;dict/jump-cmd <pstr> pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd <pstr>
.frames/a LDZ2 .frames/b LDZ2 ADD2 #00e7 DIV2 <pdec>
( At least 1 ) DUP2 #0000 EQU2 #00 SWP ADD2 MUL2 <pdec> LIT2 "s 18 DEO
#0a18 DEO #0a18 DEO
JMP2r JMP2r
@ -387,6 +387,10 @@
@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
@pos-to-seconds ( pos* -- seconds* )
.secfrom LDZ2 .secto LDZ2 ADD2 #00e7 DIV2k STH2k MUL2 SUB2 OVR2 STH2
MUL2r MUL2 #00e7 DIV2 STH2r ADD2 JMP2r
@calc-width ( total* curr* -- width* ) @calc-width ( total* curr* -- width* )
STH2 STH2
DUP2 #011b LTH2 ?{ DUP2 #011b LTH2 ?{