Mercurial > hg > jslab
annotate src/scheme/spectro.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 "filelist.scm") |
| samer@0 | 3 (load "functions.scm") |
| samer@0 | 4 (load "models.scm") |
| samer@0 | 5 |
| samer@0 | 6 (put "map.symmetric" false) |
| samer@0 | 7 |
| samer@0 | 8 (define (spectro source n m) |
| samer@0 | 9 (define x (ft-mag (ft-vec (offset (linein source n m))))) |
| samer@0 | 10 (define z (diffscale x genexp-spec)) |
| samer@0 | 11 |
| samer@0 | 12 (expose) |
| samer@0 | 13 (node (child x "diffScaler") |
| samer@0 | 14 (exec (viewable "genexp.e") "trace") |
| samer@0 | 15 (exec (viewable "w") "load") |
| samer@0 | 16 (exec (viewable "mu") "load") |
| samer@0 | 17 (viewable "output"))) |