Adding median that supports lists.

svn path=/trunk/externals/mapping/; revision=6494

1 files changed, 29 insertions, 0 deletions

diff --git a/median.pd b/median.pd
new file mode 100644
index 0000000..26445fa
--- /dev/null
+++ b/median.pd
@@ -0,0 +1,29 @@
+#N canvas 609 51 652 617 10;
+#X obj 88 37 inlet;
+#X obj 117 321 list split 5;
+#X obj 159 490 list split 1;
+#X obj 159 550 outlet;
+#X obj 127 461 list split;
+#X obj 126 371 sort;
+#X obj 117 237 list append;
+#X obj 290 316 expr rint(($f1+1)/2)-1;
+#X text 329 585 )c( Alexandre Quessy 2006;
+#X text 214 547 median;
+#X obj 213 157 length;
+#X obj 175 93 t l l;
+#X text 86 12 inlet 1 : list of floats;
+#X obj 141 140 drip;
+#X connect 0 0 11 0;
+#X connect 1 0 5 0;
+#X connect 1 0 6 1;
+#X connect 1 2 6 1;
+#X connect 2 0 3 0;
+#X connect 4 1 2 0;
+#X connect 5 0 4 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 1;
+#X connect 10 0 1 1;
+#X connect 10 0 7 0;
+#X connect 11 0 13 0;
+#X connect 11 1 10 0;
+#X connect 13 0 6 0;