Mercurial > hg > jslab
annotate examples/sound/sampled/play.scm @ 8:5e3cbbf173aa tip
Reorganise some more
| author | samer |
|---|---|
| date | Fri, 05 Apr 2019 22:41:58 +0100 |
| parents | bf79fb79ee13 |
| children |
| 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) |