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

(m291) Fixed bug with seeking

This commit is contained in:
Devine Lu Linvega 2024-08-26 19:53:41 -07:00
parent 4622c8b34f
commit bbe6a66a82
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

@ -145,6 +145,7 @@
DUP [ LIT "I ] EQU ?handle-id3
DUP [ LIT "P ] EQU ?handle-pause
DUP [ LIT "R ] EQU ?handle-revision
DUP [ LIT "J ] EQU ?handle-jump
POP
( | not-handled )
<perr>
@ -204,6 +205,9 @@
@handle-revision ( buf* char -- )
POP POP2 !message/<new>
@handle-jump ( buf* char -- )
POP POP2 !message/<new>
@handle-status ( buf* char -- )
[ LIT2 01 -playing ] STZ
( | force redraws )
@ -212,10 +216,10 @@
@handle-frame ( buf* char -- )
POP
( skip key ) #0003 ADD2
( skip curr-frame ) parse-dec .frames/a STZ2
( skip key ) #0002 ADD2
( curr-frame ) parse-dec .frames/a STZ2
INC2
( skip next-frame ) parse-dec .frames/b STZ2
( next-frame ) parse-dec .frames/b STZ2
INC2
( | <curr-secs> )
parse-dec STH2k .secfrom STZ2