improved version of mtx_ispeak finding peaks at the borders of the matrix.

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

1 files changed, 52 insertions, 0 deletions

diff --git a/abs/mtx_ispeakb.pd b/abs/mtx_ispeakb.pd
new file mode 100644
index 0000000..18a9fcb
--- /dev/null
+++ b/abs/mtx_ispeakb.pd
@@ -0,0 +1,52 @@
+#N canvas 639 183 450 611 10;
+#X obj 120 32 inlet;
+#X obj 120 566 outlet;
+#X obj 120 301 t a a;
+#X obj 120 342 mtx_&&;
+#X obj 180 322 mtx_<= 0;
+#X obj 120 322 mtx_>= 0;
+#X obj 120 280 mtx_diff row -1;
+#X obj 180 303 mtx_roll 1;
+#X text 277 252 searches;
+#X text 270 277 matrix rows;
+#X text 268 303 for peaks;
+#X text 248 338 returns 1 at peak location;
+#X text 297 360 0 elsewhere;
+#X obj 120 75 t a a a a;
+#X obj 188 75 mtx_size;
+#X obj 249 75 - 1;
+#X obj 232 123 mtx_slice;
+#X msg 249 95 1 \$1 end \$1;
+#X obj 139 147 mtx_concat row;
+#X obj 120 174 mtx_slice 1 2 end 2;
+#X obj 120 197 mtx_concat row;
+#X obj 120 414 t a a;
+#X obj 149 436 mtx_size;
+#X obj 120 509 mtx_slice;
+#X msg 200 477 1 2 end \$1;
+#X obj 200 457 - 1;
+#X connect 0 0 13 0;
+#X connect 2 0 5 0;
+#X connect 2 1 7 0;
+#X connect 3 0 21 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 6 0 2 0;
+#X connect 7 0 4 0;
+#X connect 13 0 19 0;
+#X connect 13 1 18 0;
+#X connect 13 2 16 0;
+#X connect 13 3 14 0;
+#X connect 14 1 15 0;
+#X connect 15 0 17 0;
+#X connect 16 0 18 1;
+#X connect 17 0 16 1;
+#X connect 18 0 20 1;
+#X connect 19 0 20 0;
+#X connect 20 0 6 0;
+#X connect 21 0 23 0;
+#X connect 21 1 22 0;
+#X connect 22 1 25 0;
+#X connect 23 0 1 0;
+#X connect 24 0 23 1;
+#X connect 25 0 24 0;