From e8dde1eab901369921ea8d56f0dc7fd51b008dad Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Thu, 22 Jan 2009 22:20:37 +0000
Subject: added a couple more list-abs - list-change is [change] for lists,
 list-toggle-pairs is mostly like [bag]

svn path=/trunk/abstractions/sfruit/; revision=10601
---
 sfruit/list-toggle-pairs.pd | 58 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 sfruit/list-toggle-pairs.pd

(limited to 'sfruit/list-toggle-pairs.pd')

diff --git a/sfruit/list-toggle-pairs.pd b/sfruit/list-toggle-pairs.pd
new file mode 100644
index 0000000..cee180f
--- /dev/null
+++ b/sfruit/list-toggle-pairs.pd
@@ -0,0 +1,58 @@
+#N canvas 1147 348 380 732 10;
+#X obj 114 184 list split 1;
+#X obj 139 377 list-filter;
+#X obj 222 367 compare-any;
+#X obj 222 391 == 0;
+#X obj 139 335 list-value \$0.collection;
+#X obj 139 445 list-value \$0.collection;
+#X obj 148 207 sel 0;
+#X obj 114 255 list prepend;
+#X msg 148 229 0;
+#X msg 175 228 1;
+#X obj 114 281 route 1 0;
+#X obj 139 308 t b a;
+#X obj 165 594 list-value \$0.collection;
+#X obj 114 550 list-find;
+#X obj 165 573 sel 0;
+#X obj 165 614 list append;
+#X obj 128 602 t a;
+#X obj 87 162 t b a;
+#X obj 87 643 list-value \$0.collection;
+#X obj 87 673 outlet;
+#X obj 114 483 t a b a;
+#X obj 133 514 list-value \$0.collection;
+#X obj 87 120 inlet;
+#X obj 139 399 route bang;
+#X msg 139 422 clear;
+#X connect 0 0 7 0;
+#X connect 0 1 6 0;
+#X connect 1 0 23 0;
+#X connect 1 1 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 1;
+#X connect 4 0 1 0;
+#X connect 6 0 8 0;
+#X connect 6 1 9 0;
+#X connect 7 0 10 0;
+#X connect 8 0 7 1;
+#X connect 9 0 7 1;
+#X connect 10 0 20 0;
+#X connect 10 1 11 0;
+#X connect 11 0 4 0;
+#X connect 11 1 2 1;
+#X connect 12 0 15 0;
+#X connect 13 1 14 0;
+#X connect 14 0 12 0;
+#X connect 15 0 16 0;
+#X connect 16 0 12 0;
+#X connect 17 0 18 0;
+#X connect 17 1 0 0;
+#X connect 18 0 19 0;
+#X connect 20 0 13 0;
+#X connect 20 1 21 0;
+#X connect 20 2 15 1;
+#X connect 21 0 13 1;
+#X connect 22 0 17 0;
+#X connect 23 0 24 0;
+#X connect 23 1 5 0;
+#X connect 24 0 5 0;
-- 
cgit v1.2.1