1 files changed, 43 insertions, 0 deletions
diff --git a/sfruit/list-dripx.pd b/sfruit/list-dripx.pd
new file mode 100644
index 0000000..c3b6851
--- /dev/null
+++ b/sfruit/list-dripx.pd
@@ -0,0 +1,43 @@
+#N canvas 839 426 450 300 10;
+#X declare -lib list-abs;
+#N canvas 0 22 701 318 drip 1;
+#X obj 64 123 until;
+#X obj 64 181 list append;
+#X obj 194 206 bang;
+#X text 126 90 First store list \, then start the loop;
+#X text 143 118 "until" bangs its output until told to stop by a "bang"
+to its right inlet.;
+#X text 163 168 Store the remaining list.;
+#X text 230 209 third outlet of "split" tells us to stop.;
+#X obj 64 243 outlet;
+#X obj 64 57 inlet;
+#X text 217 44 From list-help.pd;
+#X obj 143 243 outlet;
+#X obj 64 86 t b a;
+#X obj 64 206 list split 1;
+#X obj 333 157 loadbang;
+#X obj 333 177 list-onearg \$1;
+#X obj 414 156 inlet;
+#X connect 0 0 1 0;
+#X connect 1 0 12 0;
+#X connect 2 0 0 1;
+#X connect 8 0 11 0;
+#X connect 11 0 0 0;
+#X connect 11 1 1 1;
+#X connect 12 0 7 0;
+#X connect 12 1 1 1;
+#X connect 12 2 2 0;
+#X connect 12 2 10 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 1;
+#X connect 15 0 14 1;
+#X restore 133 139 pd drip;
+#X obj 133 90 inlet;
+#X obj 133 212 outlet;
+#X obj 177 181 outlet;
+#X obj 172 90 inlet;
+#X obj 238 123 import list-abs;
+#X connect 0 0 2 0;
+#X connect 0 1 3 0;
+#X connect 1 0 0 0;
+#X connect 4 0 0 1;