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

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-25 10:37:23 +01:00
parent 5f332afbef
commit f7cdc84a2a
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
libao/libao.rkt
View File

@@ -176,7 +176,7 @@
(reverse bytes) (reverse bytes)
bytes)))) bytes))))
(define (ao-play handle at-time-in-s buffer) (define (ao-play handle at-time-in-s music-duration-s buffer)
(let* ((bytes-per-sample (ao-handle-bytes-per-sample handle)) (let* ((bytes-per-sample (ao-handle-bytes-per-sample handle))
(bits (ao-handle-bits handle)) (bits (ao-handle-bits handle))
(channels (ao-handle-channels handle)) (channels (ao-handle-channels handle))
@@ -212,10 +212,12 @@
(if (eq? libao-async-mode 'ffi) (if (eq? libao-async-mode 'ffi)
(ffi:ao_play_async (ao-handle-async-player handle) (ffi:ao_play_async (ao-handle-async-player handle)
(exact->inexact at-time-in-s) (exact->inexact at-time-in-s)
(exact->inexact music-duration-s)
audio-buf-len audio-buf-len
audio) audio)
(scm:ao_play_async (ao-handle-async-player handle) (scm:ao_play_async (ao-handle-async-player handle)
(exact->inexact at-time-in-s) (exact->inexact at-time-in-s)
(exact->inexact music-duration-s)
audio-buf-len audio-buf-len
audio) audio)
) )