This commit is contained in:
2026-02-22 16:08:02 +01:00
parent 4a0a0b9f96
commit 869fa8739f
9 changed files with 315 additions and 15 deletions

View File

@@ -1,11 +1,13 @@
#lang racket/base
(require "libao/libao.rkt"
"libflac/flac-decoder.rkt"
data/queue
)
(define fmt (ao-mk-format 16 44100 2 'big-endian))
(define test-file3 "/muziek/Klassiek-Viool/Alina Ibragimova/Paganini_24 Caprices (2021)/24. 24 Caprices, Op 1 - No. 24 in A minor- Tema con variazioni. Quasi presto.flac")
(define fmt (ao-mk-format 24 48000 2 'big-endian))
(define ao-h (ao-open-live #f fmt))
(define (flac-play frame buffer)
@@ -14,7 +16,8 @@
(define (flac-meta meta)
(displayln meta))
(define flac-h (flac-open test-file3 flac-meta flac-play))
(define flac-h
(flac-open test-file3 flac-meta flac-play))
(flac-read flac-h)