list-in to simply check for existence of an atom in a list, and doubleclick to detect quick bangs in succession

svn path=/trunk/abstractions/sfruit/; revision=10866

5 files changed, 95 insertions, 9 deletions

diff --git a/sfruit/doubleclick-help.pd b/sfruit/doubleclick-help.pd
new file mode 100644
index 0000000..6c5be33
--- /dev/null
+++ b/sfruit/doubleclick-help.pd
@@ -0,0 +1,12 @@
+#N canvas 0 22 450 300 10;
+#X text 13 20 [doubleclick] - only outputs a bang when it receives
+two bangs in quick succession (by default \, <200ms apart. change with
+the first argument);
+#X obj 89 104 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 89 124 doubleclick;
+#X obj 89 146 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 305 254 2009 Luke Iannini;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
diff --git a/sfruit/doubleclick.pd b/sfruit/doubleclick.pd
new file mode 100644
index 0000000..f7d9fdb
--- /dev/null
+++ b/sfruit/doubleclick.pd
@@ -0,0 +1,17 @@
+#N canvas 15 541 450 300 10;
+#X obj 95 118 t b b;
+#X obj 95 139 timer;
+#X obj 95 162 < 200;
+#X obj 95 183 sel 1;
+#X obj 185 123 list-onearg \$1;
+#X obj 186 94 loadbang;
+#X obj 95 94 inlet;
+#X obj 95 204 outlet;
+#X connect 0 0 1 0;
+#X connect 0 1 1 1;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 2 1;
+#X connect 5 0 4 0;
+#X connect 6 0 0 0;
diff --git a/sfruit/gem.triplet.pd b/sfruit/gui.triplet.pd
index 2ed6077..8f3fa50 100644
--- a/sfruit/gem.triplet.pd
+++ b/sfruit/gui.triplet.pd
@@ -8,22 +8,30 @@
 #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 msg 270 321 set \$1 \$2 \$3;
 #X obj 43 368 outlet;
-#X obj 122 371 outlet;
+#X obj 322 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 obj 235 372 outlet;
+#X obj 43 295 t a a a;
+#X obj 175 372 outlet;
+#X obj 115 372 outlet;
+#X obj 111 348 unpack f f f;
 #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 8 0 16 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 connect 12 0 8 0;
+#X connect 13 0 8 1;
+#X connect 14 0 8 2;
+#X connect 16 0 10 0;
+#X connect 16 1 19 0;
+#X connect 16 2 9 0;
+#X connect 19 0 18 0;
+#X connect 19 1 17 0;
+#X connect 19 2 15 0;
 #X coords 0 -1 1 1 238 20 2 41 142;
diff --git a/sfruit/list-in-help.pd b/sfruit/list-in-help.pd
new file mode 100644
index 0000000..061a3d0
--- /dev/null
+++ b/sfruit/list-in-help.pd
@@ -0,0 +1,24 @@
+#N canvas 695 316 450 300 10;
+#X obj 147 192 list-in;
+#X obj 203 163 loadbang;
+#X msg 204 192 a b c d e f;
+#X obj 147 243 tgl 30 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X msg 123 75 a;
+#X msg 158 73 c;
+#X msg 196 75 e;
+#X msg 234 75 g;
+#X msg 273 76 x;
+#X msg 88 115 1;
+#X text 12 19 [list-in] - checks for the existence of an item in a
+list;
+#X text 321 275 2009 Luke Iannini;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 1;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 0 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 0 0;
diff --git a/sfruit/list-in.pd b/sfruit/list-in.pd
new file mode 100644
index 0000000..7a9f0b2
--- /dev/null
+++ b/sfruit/list-in.pd
@@ -0,0 +1,25 @@
+#N canvas 526 22 196 359 10;
+#X obj 100 28 inlet;
+#X obj 42 146 list-drip;
+#X obj 42 182 compare-any;
+#X obj 42 228 sel 1;
+#X obj 42 111 list;
+#X obj 42 28 inlet;
+#X msg 42 253 1;
+#X obj 47 286 f;
+#X obj 42 63 t b a b;
+#X msg 133 157 0;
+#X obj 47 310 outlet;
+#X connect 0 0 4 1;
+#X connect 1 0 2 0;
+#X connect 1 1 7 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 1 0;
+#X connect 5 0 8 0;
+#X connect 6 0 7 1;
+#X connect 7 0 10 0;
+#X connect 8 0 4 0;
+#X connect 8 1 2 1;
+#X connect 8 2 9 0;
+#X connect 9 0 7 1;