From 1b43706903aed0f5e23e355fe67584209c6634d6 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sun, 22 Feb 2026 23:15:22 +0100 Subject: [PATCH] - --- libao/libao.rkt | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/libao/libao.rkt b/libao/libao.rkt index 017d713..8b6314a 100644 --- a/libao/libao.rkt +++ b/libao/libao.rkt @@ -13,6 +13,7 @@ ao-close ao-default-driver-id ao-at-second + ao-bufsize-async ) (define devices (make-hash)) @@ -85,7 +86,7 @@ (set-ao-handle-byte-format! handle endianness) (set-ao-handle-rate! handle rate) (set-ao-handle-channels! handle channels) - (set-ao-handle-async-player! handle (ao_create_async ao-device)) + (set-ao-handle-async-player! handle (ao_create_async ao-device ao_play_ptr)) (hash-set! devices handle-num ao-device) (fin:register-finalizer handle (lambda (handle) @@ -159,7 +160,9 @@ 'filled)) )) (fill 0 0) - (ao_play_async (ao-handle-async-player handle) (exact->inexact at-time-in-s) audio-buf-len audio) + (ao_play_async (ao-handle-async-player handle) (exact->inexact at-time-in-s) + audio-buf-len + audio) ) ) ) @@ -167,6 +170,9 @@ (define (ao-at-second handle) (ao_is_at_second_async (ao-handle-async-player handle))) +(define (ao-bufsize-async handle) + (ao_bufsize_async (ao-handle-async-player handle))) + ;(let* ((handle-num (ao-handle-handle-num handle)) ; (ao-device (hash-ref devices handle-num #f))) ; (if (eq? ao-device #f)