Opus playback improvements

parent 750143a4
Pipeline #1309 passed with stage
in 15 minutes and 55 seconds
......@@ -883,7 +883,7 @@ install-arch: installdeps installdirs-arch normal-install rm-install install-pro
install-seq: install-indep install-arch install-txt install-info
post-inst:
$(RM) install.TAGS prim.TAGS gforth.fi.install start-gforth.el*
$(RM) TAGS gforth.TAGS install.TAGS prim.TAGS gforth.fi.install start-gforth.el*
-$(RM) libgforth*
$(POST_INSTALL)
@test 0$$SUDO_UID -ne 0 && find . -user root | sed -e 's/^/failed to clean: /g' || true
......
......@@ -190,11 +190,26 @@ Semaphore opus-block-sem
[: opus-blocks back> ;] opus-block-sem c-section
opus-task ?dup-IF wake THEN ;
: start-play ( -- )
0 to idx-pos# 0 to play-pos#
opus-task ?dup-IF wake ELSE opus-block-task THEN
[IFDEF] pulse-exec##
idx-block $@ $10 u> IF
idx-channels c@ 1 = >r
mono-play stereo-play r@ select ?dup-IF
resume-stream rdrop
ELSE
sample-rate ['] read-opus-buf
['] play-mono ['] play-stereo r> select
pulse-exec##
THEN
ELSE drop THEN
[THEN] ;
: open-play ( addr-play u addr-idx u -- )
idx-block $slurp-file
play-block $slurp-file \ r/o open-file throw to play-file
0 to idx-pos# 0 to play-pos#
opus-task ?dup-IF wake ELSE opus-block-task THEN ;
start-play ;
: open-play+ ( addr u -- ) { | w^ play$ w^ idx$ }
2dup play$ $! ".opus" play$ $+!
idx$ $! ".aidx" idx$ $+!
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment