# HG changeset patch
# User Chris Cannam
# Date 1356340858 0
# Node ID 27c6525fa5db2ce367571a95a6a4dae066380a0b
# Parent  805b611754439aefc69fd9a9c700210c6ee91ee2
Add windowedFrames

diff -r 805b61175443 -r 27c6525fa5db window.yeti
--- 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
 };