view examples/sound/sampled/play.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

;;; This script reads audio from standard input and presents
;;; an interface for playing it. Program exits when playback
;;; thread is killed.

(load "audio.scm")
(load "filelist.scm")
(load "lineout.scm")

(tasks)
(put "playlist.current" null)
(define in (filesource))
(.open in System.in$)

(lineout (linein in 2048 2048))
(expose)
(start)
(.join (thread))
(exit)