Mercurial > hg > jslab
annotate examples/sound/sampled/stacker.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author | samer |
|---|---|
| date | Tue, 17 Jan 2012 17:50:20 +0000 |
| parents | |
| children |
| rev | line source |
|---|---|
| samer@0 | 1 (load "audio.scm") |
| samer@0 | 2 (load "functions.scm") |
| samer@0 | 3 (load "models.scm") |
| samer@0 | 4 |
| samer@0 | 5 (put "image.width" 256) |
| samer@0 | 6 (put "image.height" 16) |
| samer@0 | 7 (put "image.map.log" true) |
| samer@0 | 8 |
| samer@0 | 9 |
| samer@0 | 10 (define audioTasks (seq)) |
| samer@0 | 11 (with-tasks audioTasks |
| samer@0 | 12 (define x (ft-mag (ft-vec (norm |
| samer@0 | 13 (linein (linesrc (mono 11025)) 512 256)))))) |
| samer@0 | 14 |
| samer@0 | 15 (addtasks (Stacker. x audioTasks 16 1)) |
| samer@0 | 16 (expose) |