Mercurial > hg > constant-q-cpp

diff yeti/cqtkernel.yeti @ 74:c2e9c91ed3f7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
vector multiply now takes a list
author Chris Cannam <c.cannam@qmul.ac.uk>
date Mon, 24 Mar 2014 16:30:40 +0000
parents 642df7b3346f
children 872fc9dc0321
line wrap: on
line diff
--- a/yeti/cqtkernel.yeti	Fri Mar 21 12:04:55 2014 +0000
+++ b/yeti/cqtkernel.yeti	Mon Mar 24 16:30:40 2014 +0000
@@ -89,9 +89,10 @@
 
         push binFrequencies fk;
 
-        genKernel f = vec.multiply win
-           (vec.fromList
-               (map do i: f (2 * pi * fk * i / sampleRate) done [0..nk-1]));
+        genKernel f = vec.multiply
+           [win,
+            vec.fromList
+               (map do i: f (2 * pi * fk * i / sampleRate) done [0..nk-1])];
     
         reals = genKernel cos;
         imags = genKernel sin;