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

Merge branch 'main' of https://git.dijkewijk.nl/hans/racket-sound

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-06 12:31:17 +02:00
parent 83c6de6e60 dd174469d9
commit 0b86b8712e
6 changed files with 58 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
libao-async.rkt
View File

@@ -94,7 +94,7 @@
(set-ao-shm-bufsize! shm (- bs buf-len)))
(mutex-unlock (ao-shm-mutex shm))
(ao_play ao-device buf buf-len) ; Play this buffer part
(free buf) ; Free the previously malloc 'raw (see libao.rkt)
;(free buf) ; Free the previously malloc 'raw (see libao.rkt)
)]
)
(player)
@@ -185,9 +185,10 @@
(let ((q (ao-shm-queue shm)))
(while (> (queue-length q) 0)
;(displayln (format "queue-length: ~a" (queue-length q)))
(let* ((elem (dequeue! q))
(buf (car (cddddr elem))))
(free buf))))
;(let* ((elem (dequeue! q))
;(buf (car (cddddr elem))))
;(free buf))))
(dequeue! q)))
(set-ao-shm-queue! shm (make-queue))
(set-ao-shm-bufsize! shm 0)
)