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

We want the original audio bits per sample also.

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-24 13:34:24 +02:00
parent 815f39a8cc
commit 6197fb60e5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
flac-decoder.rkt
+1
View File
@@ -83,6 +83,7 @@
(hash-ref mh 'sample-rate))))) (hash-ref mh 'sample-rate)))))
(hash-set! mh 'duration duration)) (hash-set! mh 'duration duration))
(set-flac-handle-stream-info! handle si) (set-flac-handle-stream-info! handle si)
(hash-set! mh 'audio-bits-per-sample (hash-ref mh 'bits-per-sample))
(hash-set! mh 'bits-per-sample 32) ; Flac works internally 32 bits. (hash-set! mh 'bits-per-sample 32) ; Flac works internally 32 bits.
(let ((cb (flac-handle-cb-stream-info handle))) (let ((cb (flac-handle-cb-stream-info handle)))
(when (procedure? cb) (when (procedure? cb)