* flac support

* taglib support
It is possible to play some music already.
This commit is contained in:
2025-08-13 14:13:35 +02:00
parent 820c68a1aa
commit ad7f1345ad
16 changed files with 1522 additions and 35 deletions

20
play-test.rkt Normal file
View File

@@ -0,0 +1,20 @@
#lang racket/base
(require "libao/libao.rkt"
"libflac/flac-decoder.rkt"
)
(define fmt (ao-mk-format 16 44100 2 'big-endian))
(define ao-h (ao-open-live #f fmt))
(define (flac-play frame buffer)
(ao-play ao-h buffer))
(define (flac-meta meta)
(displayln meta))
(define flac-h (flac-open test-file3 flac-meta flac-play))
(flac-read flac-h)