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

Initial Mercurial check in.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sound/sampled/play.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,20 @@
+;;; 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)
+
+