standard audio pipeline

2026-04-22 19:08:57 +02:00
parent 1fdd7eb204
commit 2db3af084d
5 changed files with 53 additions and 32 deletions
@@ -56,6 +56,7 @@
    (define el-at #f)
    (define el-length #f)
    (define el-rate #f)
+    (define el-format #f)
    (define el-channels #f)
    (define el-bits #f)

@@ -294,10 +295,11 @@
      (send playlist add-tab!)
      (send this update-tabs))

-    (define (update-audio-info samples rate channels bits)
+    (define (update-audio-info samples rate channels bits audio-format)
      (send el-bits set-innerHTML! (format "~a ~a" bits (tr "bits")))
      (send el-channels set-innerHTML! (format "~a ~a" channels (tr "channels")))
      (send el-rate set-innerHTML! (format "~a Hz" rate))
+      (send el-format set-innerHTML! (format "~a" audio-format))
      )

    (define (update-repeat state)
@@ -370,6 +372,7 @@
      (set! el-rate (send this element 'rate))
      (set! el-bits (send this element 'bits))
      (set! el-channels (send this element 'channels))
+      (set! el-format (send this element 'format))

      (send this set-menu! (player-menu))
      (send this connect-menu! 'm-quit (λ () (send this quit)))