Make sure libao-1.2.2 is loaded in windows.
This commit is contained in:
@@ -7,6 +7,7 @@
|
||||
)
|
||||
|
||||
(define test-file3 #f)
|
||||
(define test-file3-id 3)
|
||||
(let ((os (system-type 'os)))
|
||||
(when (eq? os 'unix)
|
||||
(set! 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"))
|
||||
@@ -37,7 +38,7 @@
|
||||
(when (eq? ao-h #f)
|
||||
(set! ao-h (ao-open-live bits-per-sample rate channels 'big-endian)))
|
||||
;(displayln 'ao-play)
|
||||
(ao-play ao-h second duration buffer buf-len 'flac)
|
||||
(ao-play ao-h test-file3-id second duration buffer buf-len 'flac)
|
||||
;(displayln 'done)
|
||||
(let ((second-printer (λ (buf-seconds)
|
||||
(let ((s (inexact->exact (round (ao-at-second ao-h)))))
|
||||
|
||||
Reference in New Issue
Block a user