Mercurial > hg > may

changeset 43:27c6525fa5db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add windowedFrames
author Chris Cannam
date Mon, 24 Dec 2012 09:20:58 +0000
parents 805b61175443
children 76eed6453a8a
files window.yeti
diffstat 1 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/window.yeti	Sun Dec 23 21:01:51 2012 +0000
+++ b/window.yeti	Mon Dec 24 09:20:58 2012 +0000
@@ -2,6 +2,7 @@
 module window;
 
 b = load block;
+bf = load blockfuncs;
 
 cosinewin a0 a1 a2 a3 n =
     b.fromList
@@ -31,7 +32,16 @@
                 done [0..m-1]
             ]);
 
+windowedFrames windowFunc frames =
+    case frames of
+        []: frames;
+         _: (first = head frames;
+             window = windowFunc (b.length first);
+             map (bf.multiply window) frames);
+    esac;
+
 {
-cosinewin, hann, hamming, blackman, nuttall, blackmanHarris, boxcar, bartlett
+cosinewin, hann, hamming, blackman, nuttall, blackmanHarris, boxcar, bartlett,
+windowedFrames
 };