play/pause for current stream

parent ad0c45a7
Pipeline #1310 passed with stage
in 13 minutes and 12 seconds
......@@ -206,6 +206,25 @@ Semaphore opus-block-sem
ELSE drop THEN
[THEN] ;
: pause-play ( -- )
[IFDEF] pulse-exec##
idx-block $@ $10 u> IF
idx-channels c@ 1 = >r
mono-play stereo-play r> select ?dup-IF
pause-stream
THEN
ELSE drop THEN
[THEN] ;
: resume-play ( -- )
[IFDEF] pulse-exec##
idx-block $@ $10 u> IF
idx-channels c@ 1 = >r
mono-play stereo-play r> select ?dup-IF
resume-stream
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
......
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