added a kaiser window to the mtx_window abstraction.

svn path=/trunk/externals/iem/iemmatrix/; revision=13168

1 files changed, 67 insertions, 28 deletions

diff --git a/abs/mtx_window.pd b/abs/mtx_window.pd
index 5bd23e6..6fa0a6a 100644
--- a/abs/mtx_window.pd
+++ b/abs/mtx_window.pd
@@ -1,4 +1,4 @@
-#N canvas 0 0 839 500 10;
+#N canvas 400 0 1130 500 10;
 #X obj 41 9 inlet;
 #N canvas 404 130 450 300 scale_-1...1 0;
 #X obj 126 -4 inlet;
@@ -108,7 +108,6 @@
 #X obj 419 328 mtx_+ 0.08;
 #X obj 260 65 t f b;
 #X msg 264 109 5;
-#X obj 48 131 demux 0 1 2 3 4 5;
 #X text 24 147 hanning;
 #X text 62 162 sine;
 #X text 131 160 rect;
@@ -138,10 +137,43 @@
 #X text 625 46 part of iemmatrix;
 #X text 549 412 Franz Zotter 2006;
 #X text 93 149 gauss;
+#X obj 48 131 demux 0 1 2 3 4 5 6;
 #X obj 48 32 route hanning sine gauss rectangular bartlett hamming
-blackman;
+blackman kaiser;
+#X obj 303 67 t f b a;
+#X msg 301 109 6;
+#N canvas 1059 432 430 404 kaiser 1;
+#X obj 43 41 inlet;
+#X obj 232 44 inlet;
+#X obj 43 362 outlet;
+#X obj 43 248 mtx_win_besseli0;
+#X obj 43 327 mtx_./ 1;
+#X obj 43 159 mtx_* 1;
+#X obj 43 74 mtx_.^ 2;
+#X obj 43 95 mtx_* -1;
+#X obj 43 116 mtx_+ 1;
+#X obj 43 137 mtx_.^ 0.5;
+#X msg 232 227 \$3;
+#X msg 232 65 \$2;
+#X msg 232 180 matrix 1 1 \$1;
+#X obj 232 204 mtx_win_besseli0;
+#X connect 0 0 6 0;
+#X connect 1 0 11 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 5 0 3 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 5 0;
+#X connect 10 0 4 1;
+#X connect 11 0 5 1;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 10 0;
+#X restore 704 317 pd kaiser;
 #X connect 0 0 68 0;
-#X connect 1 0 48 0;
+#X connect 1 0 67 0;
 #X connect 2 0 6 0;
 #X connect 3 0 4 0;
 #X connect 4 0 2 1;
@@ -150,7 +182,7 @@ blackman;
 #X connect 7 0 30 0;
 #X connect 8 0 1 0;
 #X connect 8 1 9 0;
-#X connect 9 0 48 1;
+#X connect 9 0 67 1;
 #X connect 10 0 14 0;
 #X connect 11 0 12 0;
 #X connect 12 0 10 1;
@@ -158,8 +190,8 @@ blackman;
 #X connect 14 0 30 0;
 #X connect 15 0 1 0;
 #X connect 15 1 16 0;
-#X connect 16 0 48 1;
-#X connect 17 0 48 1;
+#X connect 16 0 67 1;
+#X connect 17 0 67 1;
 #X connect 18 0 1 0;
 #X connect 18 1 17 0;
 #X connect 18 2 25 0;
@@ -176,7 +208,7 @@ blackman;
 #X connect 29 0 19 0;
 #X connect 31 0 1 0;
 #X connect 31 1 32 0;
-#X connect 32 0 48 1;
+#X connect 32 0 67 1;
 #X connect 33 0 34 0;
 #X connect 34 0 35 0;
 #X connect 35 0 30 0;
@@ -188,30 +220,31 @@ blackman;
 #X connect 41 0 45 0;
 #X connect 42 0 1 0;
 #X connect 42 1 43 0;
-#X connect 43 0 48 1;
+#X connect 43 0 67 1;
 #X connect 44 0 30 0;
 #X connect 45 0 44 0;
 #X connect 46 0 1 0;
 #X connect 46 1 47 0;
-#X connect 47 0 48 1;
-#X connect 48 0 2 0;
-#X connect 48 1 10 0;
-#X connect 48 2 29 0;
-#X connect 48 3 33 0;
-#X connect 48 4 36 0;
-#X connect 48 5 53 0;
-#X connect 53 0 59 0;
-#X connect 54 0 53 1;
-#X connect 55 0 54 0;
-#X connect 56 0 62 0;
-#X connect 58 0 30 0;
-#X connect 59 0 61 0;
-#X connect 59 1 60 0;
-#X connect 60 0 56 0;
-#X connect 61 0 63 0;
-#X connect 62 0 64 1;
-#X connect 63 0 64 0;
-#X connect 64 0 58 0;
+#X connect 47 0 67 1;
+#X connect 52 0 58 0;
+#X connect 53 0 52 1;
+#X connect 54 0 53 0;
+#X connect 55 0 61 0;
+#X connect 57 0 30 0;
+#X connect 58 0 60 0;
+#X connect 58 1 59 0;
+#X connect 59 0 55 0;
+#X connect 60 0 62 0;
+#X connect 61 0 63 1;
+#X connect 62 0 63 0;
+#X connect 63 0 57 0;
+#X connect 67 0 2 0;
+#X connect 67 1 10 0;
+#X connect 67 2 29 0;
+#X connect 67 3 33 0;
+#X connect 67 4 36 0;
+#X connect 67 5 52 0;
+#X connect 67 6 71 0;
 #X connect 68 0 8 0;
 #X connect 68 1 15 0;
 #X connect 68 2 18 0;
@@ -219,3 +252,9 @@ blackman;
 #X connect 68 4 31 0;
 #X connect 68 5 42 0;
 #X connect 68 6 46 0;
+#X connect 68 7 69 0;
+#X connect 69 0 1 0;
+#X connect 69 1 70 0;
+#X connect 69 2 71 1;
+#X connect 70 0 67 1;
+#X connect 71 0 30 0;