Mercurial > hg > jslab
annotate examples/sound/sampled/powspec.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 (define fmt (mono 22050)) |
| samer@0 | 6 (define size 2048) |
| samer@0 | 7 (define hop 512) |
| samer@0 | 8 ; get low latency input line with a buffer size of 4096 |
| samer@0 | 9 (define X (ft-power (ft-vec (norm (linein (linesrc-buf fmt 4096) size hop))))) |
| samer@0 | 10 (define Y (diffscale X cauchy-spec)) |
| samer@0 | 11 |
| samer@0 | 12 (exec Y "trace") |
| samer@0 | 13 |
| samer@0 | 14 (expose) |
| samer@0 | 15 (start) |