1 files changed, 229 insertions, 0 deletions
diff --git a/puremapping/fir.pd b/puremapping/fir.pd
new file mode 100644
index 0000000..74cc504
--- /dev/null
+++ b/puremapping/fir.pd
@@ -0,0 +1,229 @@
+#N canvas 778 146 455 393 10;
+#X obj 187 61 inlet;
+#X text 72 34 flux donnees;
+#X obj 85 57 inlet;
+#X obj 85 298 outlet;
+#X obj 85 269 * \$1;
+#N canvas 198 25 616 543 list_emath_* 1;
+#X obj 59 31 inlet;
+#X obj 287 28 inlet;
+#X obj 59 437 outlet;
+#X obj 264 131 list;
+#X obj 78 287 route float;
+#X obj 178 261 route float;
+#X obj 78 162 t a b b;
+#X obj 78 379 list prepend;
+#X obj 176 379 t a;
+#X obj 59 404 list;
+#X obj 136 57 s \$0-reset;
+#X obj 157 343 r \$0-reset;
+#X obj 59 58 t b a b b;
+#X obj 325 232 f 1;
+#N canvas 0 0 782 506 list-drip 0;
+#X obj 63 84 t a a;
+#X obj 63 241 spigot;
+#X obj 102 149 bang;
+#X obj 102 168 1;
+#X obj 223 149 route bang;
+#X obj 183 150 bang;
+#X obj 183 169 0;
+#X obj 102 114 list split 2;
+#X obj 232 379 list split;
+#X obj 299 328 list length;
+#X obj 299 350 >> 1;
+#X obj 63 260 t a a a a;
+#X obj 63 446 list split;
+#X obj 130 398 list length;
+#X obj 130 423 >> 1;
+#X obj 31 19 inlet;
+#X obj 290 175 outlet;
+#X text 73 19 Copyright 2009 by Mathieu Bouchard;
+#X obj 31 53 t b a;
+#X obj 465 119 outlet;
+#X text 520 121 signal end of list;
+#X text 381 23 made compatible with [list-drip]: fbar 2009;
+#X connect 0 0 1 0;
+#X connect 0 1 7 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 1;
+#X connect 4 1 16 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 1;
+#X connect 7 0 2 0;
+#X connect 7 2 4 0;
+#X connect 7 2 5 0;
+#X connect 8 0 0 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 1;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 11 2 8 0;
+#X connect 11 3 9 0;
+#X connect 12 1 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 1 0 0;
+#X restore 78 138 pd list-drip;
+#N canvas 0 0 450 300 list-dripslow 0;
+#X obj 148 186 list split 1;
+#X obj 148 161 list append;
+#X obj 148 237 outlet;
+#X obj 148 37 inlet;
+#X obj 229 237 outlet;
+#X obj 222 35 inlet;
+#X obj 148 72 b;
+#X text 265 36 list;
+#X text 103 37 bang;
+#X text 273 237 EOL;
+#X text 89 236 element;
+#X obj 229 207 b;
+#X connect 0 0 2 0;
+#X connect 0 1 1 1;
+#X connect 0 2 11 0;
+#X connect 1 0 0 0;
+#X connect 3 0 6 0;
+#X connect 5 0 1 1;
+#X connect 6 0 1 0;
+#X connect 11 0 4 0;
+#X restore 178 232 pd list-dripslow;
+#X obj 78 322 *;
+#X connect 0 0 12 0;
+#X connect 1 0 3 1;
+#X connect 3 0 15 1;
+#X connect 4 0 16 0;
+#X connect 4 1 7 0;
+#X connect 5 0 16 1;
+#X connect 6 0 4 0;
+#X connect 6 1 15 0;
+#X connect 6 2 13 0;
+#X connect 7 0 8 0;
+#X connect 7 0 9 1;
+#X connect 8 0 7 1;
+#X connect 9 0 2 0;
+#X connect 11 0 7 1;
+#X connect 12 0 9 0;
+#X connect 12 1 14 0;
+#X connect 12 2 3 0;
+#X connect 12 3 10 0;
+#X connect 13 0 16 1;
+#X connect 14 0 6 0;
+#X connect 15 0 5 0;
+#X connect 16 0 7 0;
+#X restore 85 207 pd list_emath_*;
+#N canvas 0 0 450 300 list-mean 0;
+#X obj 127 69 inlet;
+#X obj 127 337 outlet;
+#X obj 146 164 route float;
+#X obj 127 274 f;
+#N canvas 425 298 450 300 count 0;
+#X obj 133 59 b;
+#X obj 133 35 inlet;
+#X obj 183 35 inlet;
+#X obj 164 111 + 1;
+#X obj 133 133 outlet;
+#X msg 183 71 1;
+#X obj 133 110 f 1;
+#X connect 0 0 6 0;
+#X connect 1 0 0 0;
+#X connect 2 0 5 0;
+#X connect 3 0 6 1;
+#X connect 5 0 6 1;
+#X connect 6 0 3 0;
+#X connect 6 0 4 0;
+#X restore 222 226 pd count;
+#X obj 127 308 /;
+#X obj 146 189 t a b;
+#N canvas 370 313 450 300 accum 0;
+#X obj 182 102 0;
+#X obj 135 79 inlet;
+#X obj 182 79 inlet;
+#X obj 135 169 outlet;
+#X obj 135 137 +;
+#X obj 168 138 f;
+#X connect 0 0 4 1;
+#X connect 1 0 4 0;
+#X connect 2 0 0 0;
+#X connect 4 0 3 0;
+#X connect 4 0 5 0;
+#X connect 5 0 4 1;
+#X restore 146 224 pd accum;
+#X obj 127 105 t b a b b;
+#N canvas 0 0 450 300 list-drip 0;
+#X obj 63 84 t a a;
+#X obj 63 241 spigot;
+#X obj 102 149 bang;
+#X obj 102 168 1;
+#X obj 223 149 route bang;
+#X obj 183 150 bang;
+#X obj 183 169 0;
+#X obj 102 114 list split 2;
+#X obj 232 379 list split;
+#X obj 299 328 list length;
+#X obj 299 350 >> 1;
+#X obj 63 260 t a a a a;
+#X obj 63 446 list split;
+#X obj 130 398 list length;
+#X obj 130 423 >> 1;
+#X obj 31 19 inlet;
+#X obj 290 175 outlet;
+#X text 73 19 Copyright 2009 by Mathieu Bouchard;
+#X obj 31 53 t b a;
+#X obj 465 119 outlet;
+#X text 520 121 signal end of list;
+#X text 381 23 made compatible with [list-drip]: fbar 2009;
+#X connect 0 0 1 0;
+#X connect 0 1 7 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 1;
+#X connect 4 1 16 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 1;
+#X connect 7 0 2 0;
+#X connect 7 2 4 0;
+#X connect 7 2 5 0;
+#X connect 8 0 0 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 1;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 11 2 8 0;
+#X connect 11 3 9 0;
+#X connect 12 1 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 1 0 0;
+#X restore 146 138 pd list-drip;
+#X connect 0 0 8 0;
+#X connect 2 0 6 0;
+#X connect 3 0 5 0;
+#X connect 4 0 5 1;
+#X connect 5 0 1 0;
+#X connect 6 0 7 0;
+#X connect 6 1 4 0;
+#X connect 7 0 3 1;
+#X connect 8 0 3 0;
+#X connect 8 1 9 0;
+#X connect 8 2 7 1;
+#X connect 8 3 4 1;
+#X connect 9 0 2 0;
+#X restore 85 237 pd list-mean;
+#X text 235 60 list coef filtre;
+#X obj 165 89 list length;
+#X obj 85 124 last_n;
+#X floatatom 172 119 5 0 0 0 - - -;
+#X connect 0 0 5 1;
+#X connect 0 0 8 0;
+#X connect 2 0 9 0;
+#X connect 4 0 3 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 8 0 9 1;
+#X connect 8 0 10 0;
+#X connect 8 0 4 1;
+#X connect 9 0 5 0;