hans/gemigreerd-racket-audio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

paused handling

Browse Source
This commit is contained in:
Hans Dijkema
2026-05-07 14:29:55 +02:00
parent b668bc5bda
commit 905c9153f7
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libao-async-ffi-racket.rkt
+5 -3
View File
@@ -160,7 +160,7 @@
#:mutable #:mutable
) )
(define ao-buf-ms 50) ;; Playback buffer of 0.5s (define ao-buf-ms 500) ;; Playback buffer of 0.5s
(define (get h ms-wait) (define (get h ms-wait)
(let ((el (if (<= ms-wait 0) (let ((el (if (<= ms-wait 0)
@@ -469,12 +469,14 @@
(mutex-lock (ao-handle-pause-mutex h)) (mutex-lock (ao-handle-pause-mutex h))
(mutex-unlock (ao-handle-pause-mutex h)) (mutex-unlock (ao-handle-pause-mutex h))
(mutex-lock (ao-handle-clear-mutex h)) (mutex-lock (ao-handle-clear-mutex h))
(let ((elem (get h 250))) (let ((if (ao-handle-paused h)
#f
(elem (get h 250))))
(mutex-unlock (ao-handle-clear-mutex h)) (mutex-unlock (ao-handle-clear-mutex h))
(if (eq? elem #f) (if (eq? elem #f)
(begin (begin
(dbg-sound "nothing in the queue") (dbg-sound "nothing in the queue")
(sleep 0.005)) (sleep 0.01))
(begin (begin
(if (eq? (queue-elem-command elem) 'stop) (if (eq? (queue-elem-command elem) 'stop)
(set! go-on #f) (set! go-on #f)