comparison yeti/silvet.yeti @ 12:0f6db1895e1c

Prepare the ground for cqt and templates

+
+program silvet;
+
+{ prepareTimeFrequency } = load timefreq;
+{ loadTemplates } = load templates;
+
+mat = load may.matrix;
+vec = load may.vector;
+
+templates = loadTemplates ();
+
+eprintln "we have \(length (keys templates)) instruments:";
+for (sort (keys templates)) eprintln;
+eprintln "";
+
+columns = prepareTimeFrequency "test.wav";
+
+chunkSize = 100;
+height = if empty? columns then 0 else vec.length (head columns) fi;
+
+chunkify cols = 
+    if empty? cols then []
+    else
+       (mat.resizedTo { rows = chunkSize, columns = height }
+           (mat.fromColumns (take chunkSize cols)))
+        :. \(chunkify (drop chunkSize cols));
+    fi;
+
+chunks = chunkify columns;
+
+eprintln "we have \(length chunks) chunks of size \(mat.size (head chunks))";
+