ao buffer timing

2026-05-18 16:36:19 +02:00
parent 5cff13f55a
commit 73e778e4a5
3 changed files with 25 additions and 1 deletions
@@ -30,6 +30,8 @@
         audio-file
         audio-play?
         audio-buf-seconds!
+         audio-ao-buf-ms!
+         audio-ao-buf-ms
         audio-known-exts?
         )

@@ -269,6 +271,14 @@
  (let ((from (if (< min 1) 1 (if (> min 10) 10 min)))
        (until (if (< max min) (+ min 1) (if (> max 30) 30 max))))
    ((audio-play-rpc handle) 'buf-seconds from until)))
+
+(define/contract (audio-ao-buf-ms! handle ms)
+  (-> audio-play? integer? (or/c integer? boolean?))
+  ((audio-play-rpc handle) 'ao-buf-ms ms))
+
+(define/contract (audio-ao-buf-ms handle)
+  (-> audio-play? (or/c integer? boolean?))
+  ((audio-play-rpc handle) 'ao-buf-ms))