[PD-cvs] SF.net SVN: pure-data:[10601] trunk/abstractions/sfruit/sfruit
lukeiannini at users.sourceforge.net
lukeiannini at users.sourceforge.net
Thu Jan 22 23:20:38 CET 2009
Revision: 10601
http://pure-data.svn.sourceforge.net/pure-data/?rev=10601&view=rev
Author: lukeiannini
Date: 2009-01-22 22:20:37 +0000 (Thu, 22 Jan 2009)
Log Message:
-----------
added a couple more list-abs - list-change is [change] for lists, list-toggle-pairs is mostly like [bag]
Added Paths:
-----------
trunk/abstractions/sfruit/sfruit/file-exists.pd
trunk/abstractions/sfruit/sfruit/list-change-help.pd
trunk/abstractions/sfruit/sfruit/list-change.pd
trunk/abstractions/sfruit/sfruit/list-toggle-pairs-help.pd
trunk/abstractions/sfruit/sfruit/list-toggle-pairs.pd
Added: trunk/abstractions/sfruit/sfruit/file-exists.pd
===================================================================
--- trunk/abstractions/sfruit/sfruit/file-exists.pd (rev 0)
+++ trunk/abstractions/sfruit/sfruit/file-exists.pd 2009-01-22 22:20:37 UTC (rev 10601)
@@ -0,0 +1,30 @@
+#N canvas 1181 781 372 316 10;
+#X obj 97 174 compare-any;
+#X obj 97 197 +;
+#X obj 125 197 t a;
+#X msg 117 153 0;
+#X obj 97 128 folder_list ~;
+#X obj 78 280 outlet;
+#X obj 78 228 f;
+#X obj 78 251 > 0;
+#X obj 78 58 split_path;
+#X obj 78 13 inlet absolute filename to look for;
+#X obj 78 83 t b a b;
+#X msg 97 105 symbol \$1/*;
+#X obj 78 35 t a a;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 1 0 6 1;
+#X connect 2 0 1 1;
+#X connect 3 0 1 0;
+#X connect 4 0 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X connect 8 0 10 0;
+#X connect 9 0 12 0;
+#X connect 10 0 6 0;
+#X connect 10 1 11 0;
+#X connect 10 2 3 0;
+#X connect 11 0 4 0;
+#X connect 12 0 8 0;
+#X connect 12 1 0 1;
Added: trunk/abstractions/sfruit/sfruit/list-change-help.pd
===================================================================
--- trunk/abstractions/sfruit/sfruit/list-change-help.pd (rev 0)
+++ trunk/abstractions/sfruit/sfruit/list-change-help.pd 2009-01-22 22:20:37 UTC (rev 10601)
@@ -0,0 +1,18 @@
+#N canvas 1131 447 450 300 10;
+#X obj 111 154 list-change;
+#X text 30 30 [list-change] [change] for lists: only output a list
+if it's different than the last list received.;
+#X obj 111 222 bng 15 250 50 0 empty empty output! 17 7 0 10 -262144
+-1 -1;
+#X msg 90 110 a b c;
+#X obj 129 195 print got_new_list;
+#X msg 130 110 a b c;
+#X msg 170 110 def;
+#X msg 200 110 1 2 3;
+#X text 282 277 2009 Luke Iannini;
+#X connect 0 0 2 0;
+#X connect 0 0 4 0;
+#X connect 3 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 0 0;
+#X connect 7 0 0 0;
Added: trunk/abstractions/sfruit/sfruit/list-change.pd
===================================================================
--- trunk/abstractions/sfruit/sfruit/list-change.pd (rev 0)
+++ trunk/abstractions/sfruit/sfruit/list-change.pd 2009-01-22 22:20:37 UTC (rev 10601)
@@ -0,0 +1,16 @@
+#N canvas 675 674 170 263 10;
+#X obj 47 70 inlet;
+#X obj 47 116 list-compare;
+#X obj 47 160 list;
+#X obj 47 94 t a a;
+#X obj 47 184 t a a;
+#X obj 47 208 outlet;
+#X obj 47 137 sel 0;
+#X connect 0 0 3 0;
+#X connect 1 0 6 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 0;
+#X connect 3 1 2 1;
+#X connect 4 0 5 0;
+#X connect 4 1 1 1;
+#X connect 6 0 2 0;
Added: trunk/abstractions/sfruit/sfruit/list-toggle-pairs-help.pd
===================================================================
--- trunk/abstractions/sfruit/sfruit/list-toggle-pairs-help.pd (rev 0)
+++ trunk/abstractions/sfruit/sfruit/list-toggle-pairs-help.pd 2009-01-22 22:20:37 UTC (rev 10601)
@@ -0,0 +1,35 @@
+#N canvas 531 385 435 422 10;
+#X msg 126 141 10 0;
+#X msg 126 121 10 1;
+#X msg 166 121 20 1;
+#X msg 166 141 20 0;
+#X msg 206 121 30 1;
+#X msg 206 141 30 0;
+#X obj 133 175 t a;
+#X obj 169 349 bag;
+#X text 45 348 somewhat similar to;
+#X text 310 392 2009 Luke Iannini;
+#X text 36 294 I use this to learn which keys are currently being held
+down on a controller - holding down buttons 60 \, 62 and 68 outputs
+the list 60 62 68;
+#X text 45 368 but only outputs unique items and can take symbols or
+floats;
+#X msg 246 121 a 1;
+#X msg 246 141 a 0;
+#X obj 133 233 print active-items;
+#X obj 133 202 list-toggle-pairs;
+#X text 7 15 [list-toggle-pairs] - an object for turning a stream of
+flagged items into a list. If a float or symbol is followed by a 1
+\, it is added to the list \, and if followed by a 0 \, it is removed.
+Each item will only exist once in the list \, even if sent with a "1"
+flag multiple times.;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 6 0;
+#X connect 4 0 6 0;
+#X connect 5 0 6 0;
+#X connect 6 0 15 0;
+#X connect 12 0 6 0;
+#X connect 13 0 6 0;
+#X connect 15 0 14 0;
Added: trunk/abstractions/sfruit/sfruit/list-toggle-pairs.pd
===================================================================
--- trunk/abstractions/sfruit/sfruit/list-toggle-pairs.pd (rev 0)
+++ trunk/abstractions/sfruit/sfruit/list-toggle-pairs.pd 2009-01-22 22:20:37 UTC (rev 10601)
@@ -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;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list