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

seeking support

Browse Source
This commit is contained in:
Hans Dijkema
2026-04-14 15:07:12 +02:00
parent ea9432cc37
commit fdba3ad8f8
3 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
play-test.rkt
View File

@@ -57,7 +57,7 @@
(let* ((buf-size (ao-bufsize-async ao-h))
(buf-seconds (exact->inexact (/ buf-size bytes-per-sample-all-channels rate))))
(second-printer buf-seconds)
(when (> buf-seconds 5)
(when (> buf-seconds 30)
(letrec ((waiter (λ ()
(let ((buf-seconds-left (exact->inexact
(/ (ao-bufsize-async ao-h)
@@ -66,7 +66,7 @@
(if (< buf-seconds-left 2.0)
(displayln (format "Seconds in buffer left: ~a" buf-seconds-left))
(begin
(sleep 0.5)
(sleep 1)
(second-printer buf-seconds)
(waiter)))))
))