Mercurial > hg > jslab
annotate examples/misc/meters.scm @ 2:74cc9e431818
Revert change to MidiSynth
| author | samer |
|---|---|
| date | Fri, 05 Apr 2019 16:43:56 +0100 |
| parents | 5df24c91468d |
| children | 79922c7f2475 |
| rev | line source |
|---|---|
| samer@1 | 1 (load "filelist.scm") |
| samer@1 | 2 (load "lineout.scm") |
| samer@1 | 3 (load "audio.scm") |
| samer@1 | 4 (load "models.scm") |
| samer@1 | 5 (load "functions.scm") |
| samer@1 | 6 |
| samer@1 | 7 (put "scale.meter" #t) |
| samer@1 | 8 (put "E.meter" #t) |
| samer@1 | 9 (put "regulated" #f) |
| samer@1 | 10 (put "lineout.meter" #f) |
| samer@1 | 11 |
| samer@1 | 12 (tasks) |
| samer@1 | 13 (define f (linein (filesource) 1024 512)) |
| samer@1 | 14 (define x (norm f)) |
| samer@1 | 15 (define y (ft-power (ft-vec x))) |
| samer@1 | 16 |
| samer@1 | 17 ;(set-playlist (ls "/Users/samer/Music/Classical/Bach/The Well Tempered Clavier/Book I/Gould/11kmono")) |
| samer@1 | 18 (lineout (linesnk (mono 11025)) (get "LineIn")) |
| samer@1 | 19 (expose) |
| samer@1 | 20 |