* flac support
* taglib support It is possible to play some music already.
This commit is contained in:
20
play-test.rkt
Normal file
20
play-test.rkt
Normal 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)
|
||||
|
||||
Reference in New Issue
Block a user