audio-play! returns the file id.

The file id is now a randomized number
2026-05-17 20:19:06 +02:00
parent f706d4e8e6
commit 65ca59bef8
7 changed files with 170 additions and 499 deletions
@@ -9,7 +9,7 @@
         "tests.rkt"
         )

-(define place-mode #t)
+(define place-mode #f)

 (define run-queue #f)
 (define (set-test a)
@@ -60,13 +60,13 @@
    (if (null? play-queue)
        (audio-quit! h)
        (begin
-          (audio-play! h (car play-queue))
+          (dbg-sound "audio-play! -> ~a" (audio-play! h (car play-queue)))
          (set! play-queue (cdr play-queue))
          )
        ))
  (when (eq? run-queue 'once)
    (set! run-queue #f)
-    (audio-play! h test-file3))
+    (dbg-sound "audio-play! -> ~a" (audio-play! h (car play-queue))))
  )

 (define h (make-audio-player audio-player-state