From cd44ee2563aba2c25b3a34eb20d2f4dff97af96a Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sun, 1 Mar 2009 00:47:31 +0000
Subject: a couple slightly tweaked list-abs

svn path=/trunk/abstractions/sfruit/; revision=10822
---
 sfruit/gem.triplet.pd       | 29 +++++++++++++++++++++++++++++
 sfruit/list-dripslowx.pd    | 39 +++++++++++++++++++++++++++++++++++++++
 sfruit/list-extendq-help.pd | 29 +++++++++++++++++++++++++++++
 sfruit/list-extendq.pd      | 13 +++++++++++++
 4 files changed, 110 insertions(+)
 create mode 100644 sfruit/gem.triplet.pd
 create mode 100644 sfruit/list-dripslowx.pd
 create mode 100644 sfruit/list-extendq-help.pd
 create mode 100644 sfruit/list-extendq.pd

diff --git a/sfruit/gem.triplet.pd b/sfruit/gem.triplet.pd
new file mode 100644
index 0000000..2ed6077
--- /dev/null
+++ b/sfruit/gem.triplet.pd
@@ -0,0 +1,29 @@
+#N canvas 866 300 448 447 10;
+#X floatatom 43 144 12 0 0 0 - #0.x.r #0.x.s;
+#X floatatom 123 144 12 0 0 0 - #0.y.r #0.y.s;
+#X floatatom 203 144 12 0 0 0 - #0.z.r #0.z.s;
+#X obj 43 25 inlet;
+#X obj 43 45 unpack f f f;
+#X obj 43 66 s \$0.x.r;
+#X obj 63 86 s \$0.y.r;
+#X obj 83 106 s \$0.z.r;
+#X obj 43 262 hotpack3 f f f;
+#X obj 43 295 t a a;
+#X msg 70 321 set \$1 \$2 \$3;
+#X obj 43 368 outlet;
+#X obj 122 371 outlet;
+#X obj 43 186 r \$0.x.s;
+#X obj 63 206 r \$0.y.s;
+#X obj 83 226 r \$0.z.s;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 6 0;
+#X connect 4 2 7 0;
+#X connect 8 0 9 0;
+#X connect 9 0 11 0;
+#X connect 9 1 10 0;
+#X connect 10 0 12 0;
+#X connect 13 0 8 0;
+#X connect 14 0 8 1;
+#X connect 15 0 8 2;
+#X coords 0 -1 1 1 238 20 2 41 142;
diff --git a/sfruit/list-dripslowx.pd b/sfruit/list-dripslowx.pd
new file mode 100644
index 0000000..5579566
--- /dev/null
+++ b/sfruit/list-dripslowx.pd
@@ -0,0 +1,39 @@
+#N canvas 592 504 407 292 10;
+#N canvas 0 22 533 407 dripslow 1;
+#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 obj 165 181 loadbang;
+#X obj 165 207 list-onearg \$1;
+#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 connect 12 0 13 0;
+#X connect 13 0 0 1;
+#X restore 149 136 pd dripslow;
+#X obj 149 199 outlet;
+#X obj 149 73 inlet;
+#X obj 221 199 outlet;
+#X obj 221 71 inlet;
+#X text 265 70 list;
+#X text 105 71 bang;
+#X text 274 200 EOL;
+#X text 94 198 element;
+#X connect 0 0 1 0;
+#X connect 0 1 3 0;
+#X connect 2 0 0 0;
+#X connect 4 0 0 1;
diff --git a/sfruit/list-extendq-help.pd b/sfruit/list-extendq-help.pd
new file mode 100644
index 0000000..302c8cb
--- /dev/null
+++ b/sfruit/list-extendq-help.pd
@@ -0,0 +1,29 @@
+#N canvas 329 163 570 457 10;
+#X msg 102 183 1 2 3;
+#X msg 156 290 bang;
+#X msg 101 215 bang;
+#X msg 102 161 a b c;
+#X msg 102 139 x y z;
+#X msg 154 259 A B C;
+#X text 60 72 Build a list from incoming lists or elements.;
+#X floatatom 101 119 5 0 0 0 - - -;
+#X text 97 97 Add elements or lists and output stored list.;
+#X text 146 219 output stored list;
+#X text 201 261 set complete stored list;
+#X text 201 292 set stored list to empty list (==reset);
+#X text 44 27 list-extendq;
+#X text 141 14 same as [list-extend] \, but doesn't output its contents
+every time you add elements (instead it only outputs when you send
+a bang).;
+#X obj 68 323 list-extendq;
+#X obj 68 363 print LIST-EXTENDQ;
+#X text 163 404 a modification of Frank Barknecht's list-extend (and
+its helpfile) by Luke Iannini 2009;
+#X connect 0 0 14 0;
+#X connect 1 0 14 1;
+#X connect 2 0 14 0;
+#X connect 3 0 14 0;
+#X connect 4 0 14 0;
+#X connect 5 0 14 1;
+#X connect 7 0 14 0;
+#X connect 14 0 15 0;
diff --git a/sfruit/list-extendq.pd b/sfruit/list-extendq.pd
new file mode 100644
index 0000000..7be33d5
--- /dev/null
+++ b/sfruit/list-extendq.pd
@@ -0,0 +1,13 @@
+#N canvas 420 440 356 227 10;
+#X obj 142 108 list-extend;
+#X obj 121 140 list;
+#X obj 205 46 inlet;
+#X obj 121 46 inlet;
+#X obj 121 80 route bang;
+#X obj 121 172 outlet;
+#X connect 0 0 1 1;
+#X connect 1 0 5 0;
+#X connect 2 0 0 1;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 0 0;
-- 
cgit v1.2.1