added Cyrille's list handling objects

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

1 files changed, 101 insertions, 0 deletions

diff --git a/distance_n.pd b/distance_n.pd
new file mode 100644
index 0000000..85f6a70
--- /dev/null
+++ b/distance_n.pd
@@ -0,0 +1,101 @@
+#N canvas 872 510 450 424 10;
+#N canvas 640 117 487 367 drip-two-lists 0;
+#X obj 64 243 outlet;
+#X obj 64 57 inlet;
+#X obj 157 240 outlet;
+#X obj 225 242 outlet;
+#X obj 321 95 inlet;
+#X text 272 240 End;
+#X obj 64 156 t a b;
+#N canvas 0 0 533 407 drip 0;
+#X obj 64 206 list split 1;
+#X obj 64 123 until;
+#X obj 64 181 list append;
+#X obj 194 206 bang;
+#X text 146 90 First store list \, then start the loop;
+#X text 163 118 "until" bangs its output until told to stop by a "bang"
+to its right inlet.;
+#X text 182 160 Store the remaining list.;
+#X text 239 205 third outlet of "split" tells us to stop.;
+#X obj 64 243 outlet;
+#X obj 64 57 inlet;
+#X text 237 44 From list-help.pd;
+#X obj 143 243 outlet;
+#X obj 64 86 t b a;
+#X connect 0 0 8 0;
+#X connect 0 1 2 1;
+#X connect 0 2 3 0;
+#X connect 0 2 11 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 1 1;
+#X connect 9 0 12 0;
+#X connect 12 0 1 0;
+#X connect 12 1 2 1;
+#X restore 64 122 pd drip;
+#N canvas 0 0 533 407 dripslow 0;
+#X obj 87 232 list split 1;
+#X obj 87 207 list append;
+#X obj 87 283 outlet;
+#X obj 87 83 inlet;
+#X obj 166 283 outlet;
+#X obj 159 81 inlet;
+#X obj 87 118 b;
+#X text 202 82 list;
+#X text 42 83 bang;
+#X text 210 283 EOL;
+#X text 28 282 element;
+#X obj 166 253 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 158 191 pd dripslow;
+#X connect 1 0 7 0;
+#X connect 4 0 8 1;
+#X connect 6 0 0 0;
+#X connect 6 1 8 0;
+#X connect 7 0 6 0;
+#X connect 7 1 3 0;
+#X connect 8 0 2 0;
+#X restore 133 139 pd drip-two-lists;
+#X obj 113 27 inlet;
+#X obj 287 20 inlet;
+#X obj 133 167 -;
+#X obj 133 195 t f f;
+#X obj 133 224 *;
+#X obj 134 278 f;
+#X obj 133 256 +;
+#X msg 196 197 0;
+#X obj 118 300 f;
+#X obj 119 325 sqrt;
+#X obj 118 349 outlet;
+#X msg 313 61 1 2 3 5 7 8;
+#X msg 134 62 1 2 3 4 5 6;
+#X obj 246 99 list;
+#X obj 115 98 t b a b b;
+#X connect 0 0 3 0;
+#X connect 0 1 3 1;
+#X connect 1 0 15 0;
+#X connect 2 0 14 1;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 5 1;
+#X connect 5 0 7 0;
+#X connect 6 0 7 1;
+#X connect 6 0 9 1;
+#X connect 7 0 6 0;
+#X connect 8 0 7 1;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 14 1;
+#X connect 13 0 15 0;
+#X connect 14 0 0 1;
+#X connect 15 0 9 0;
+#X connect 15 1 0 0;
+#X connect 15 2 8 0;
+#X connect 15 3 14 0;