pause behavior
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
#lang racket/base
|
(#lang racket/base
|
||||||
|
|
||||||
;; Pure Racket replacement for ao_playasync.c as used by libao.rkt.
|
;; Pure Racket replacement for ao_playasync.c as used by libao.rkt.
|
||||||
;;
|
;;
|
||||||
@@ -160,7 +160,7 @@
|
|||||||
#:mutable
|
#:mutable
|
||||||
)
|
)
|
||||||
|
|
||||||
(define ao-buf-ms 100) ;; Playback buffer of 0.5s
|
(define ao-buf-ms 250) ;; Playback buffer of 0.25s
|
||||||
|
|
||||||
(define (get h ms-wait)
|
(define (get h ms-wait)
|
||||||
(let ((el (if (<= ms-wait 0)
|
(let ((el (if (<= ms-wait 0)
|
||||||
|
|||||||
Reference in New Issue
Block a user