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.
-
lukeianniniļ¼ users.sourceforge.net