Working racket lib ao async backend

2026-05-08 00:59:13 +02:00
parent b69f29075f
commit be0399796d
3 changed files with 140 additions and 88 deletions
@@ -122,8 +122,10 @@
        (second-printer buf-seconds)
        (cond-seek)
        (cond-volume)
-        (when (> buf-seconds 5)
-          (info-sound "Reuse buf: ~a" (ao-reuse-buf-len-async ao-h))
+        (when (> buf-seconds 10)
+          (info-sound "Reuse buf/Sample queue: ~a/~a"
+                      (ao-reuse-buf-len-async ao-h)
+                      (ao-sample-queue-len-async ao-h))
          (letrec ((waiter (λ ()
                             (let ((buf-seconds-left (exact->inexact
                                                      (/ (ao-bufsize-async ao-h)
@@ -139,7 +141,9 @@
                                     (waiter)))))
                             ))
            (waiter)
-            (info-sound "Reuse buf: ~a" (ao-reuse-buf-len-async ao-h))
+            (info-sound "Reuse buf/Sample queue: ~a/~a"
+                        (ao-reuse-buf-len-async ao-h)
+                        (ao-sample-queue-len-async ao-h))
            )))
      )
    )