Mercurial > hg > jslab
annotate examples/sound/sampled/play.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author | samer |
|---|---|
| date | Tue, 17 Jan 2012 17:50:20 +0000 |
| parents | |
| children | 5e3cbbf173aa |
| rev | line source |
|---|---|
| samer@0 | 1 ;;; This script reads audio from standard input and presents |
| samer@0 | 2 ;;; an interface for playing it. Program exits when playback |
| samer@0 | 3 ;;; thread is killed. |
| samer@0 | 4 |
| samer@0 | 5 (load "audio.scm") |
| samer@0 | 6 (load "filelist.scm") |
| samer@0 | 7 (load "lineout.scm") |
| samer@0 | 8 |
| samer@0 | 9 (tasks) |
| samer@0 | 10 (put "playlist.current" null) |
| samer@0 | 11 (define in (filesource)) |
| samer@0 | 12 (.open in System.in$) |
| samer@0 | 13 |
| samer@0 | 14 (lineout (linein in 2048 2048)) |
| samer@0 | 15 (expose) |
| samer@0 | 16 (start) |
| samer@0 | 17 (.join (thread)) |
| samer@0 | 18 (exit) |
| samer@0 | 19 |
| samer@0 | 20 |