Mercurial > hg > constant-q-cpp
annotate yeti/test.yeti @ 37:7f0133234f00
Pull out test program
| author | Chris Cannam <c.cannam@qmul.ac.uk> |
|---|---|
| date | Thu, 07 Nov 2013 11:55:10 +0000 |
| parents | |
| children | 97d998de1fcf |
| rev | line source |
|---|---|
| c@37 | 1 |
| c@37 | 2 program test; |
| c@37 | 3 |
| c@37 | 4 af = load may.stream.audiofile; |
| c@37 | 5 plot = load may.plot; |
| c@37 | 6 cm = load may.matrix.complex; |
| c@37 | 7 mat = load may.matrix; |
| c@37 | 8 vec = load may.vector; |
| c@37 | 9 manipulate = load may.stream.manipulate; |
| c@37 | 10 syn = load may.stream.syntheticstream; |
| c@37 | 11 |
| c@37 | 12 { cqt } = load cqt; |
| c@37 | 13 |
| c@37 | 14 //testStream = manipulate.withDuration 96000 (syn.sinusoid 48000 500); |
| c@37 | 15 //testStream = manipulate.withDuration 96000 (syn.pulseTrain 48000 4); |
| c@37 | 16 //testStream = af.open "sweep-48000.wav"; |
| c@37 | 17 //testStream = af.open "sweep.wav"; |
| c@37 | 18 |
| c@37 | 19 testStream = manipulate.withDuration 32 (syn.sinusoid 8 2); |
| c@37 | 20 |
| c@37 | 21 eprintln "have test stream"; |
| c@37 | 22 |
| c@37 | 23 cq = cqt { maxFreq = testStream.sampleRate/2, minFreq = 1, binsPerOctave = 24 } testStream; |
| c@37 | 24 |
| c@37 | 25 for cq do c: |
| c@37 | 26 mm = cm.magnitudes c; |
| c@37 | 27 for (mat.asColumns mm) (println . strJoin "," . vec.list); |
| c@37 | 28 done; |
| c@37 | 29 |
| c@37 | 30 bigM = mat.concatHorizontal (map cm.magnitudes cq); |
| c@37 | 31 |
| c@37 | 32 \() (plot.plot [Contour bigM]); |
| c@37 | 33 |
| c@37 | 34 () |
| c@37 | 35 |