Mercurial > hg > jslab
annotate examples/sound/sampled/stacker.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 (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) |