From e8dde1eab901369921ea8d56f0dc7fd51b008dad Mon Sep 17 00:00:00 2001 From: Luke Iannini 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/file-exists.pd | 30 +++++++++++++++++++++ sfruit/list-change-help.pd | 18 +++++++++++++ sfruit/list-change.pd | 16 +++++++++++ sfruit/list-toggle-pairs-help.pd | 35 ++++++++++++++++++++++++ sfruit/list-toggle-pairs.pd | 58 ++++++++++++++++++++++++++++++++++++++++ 5 files changed, 157 insertions(+) create mode 100644 sfruit/file-exists.pd create mode 100644 sfruit/list-change-help.pd create mode 100644 sfruit/list-change.pd create mode 100644 sfruit/list-toggle-pairs-help.pd create mode 100644 sfruit/list-toggle-pairs.pd (limited to 'sfruit') diff --git a/sfruit/file-exists.pd b/sfruit/file-exists.pd new file mode 100644 index 0000000..06d2a61 --- /dev/null +++ b/sfruit/file-exists.pd @@ -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; diff --git a/sfruit/list-change-help.pd b/sfruit/list-change-help.pd new file mode 100644 index 0000000..712365b --- /dev/null +++ b/sfruit/list-change-help.pd @@ -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; diff --git a/sfruit/list-change.pd b/sfruit/list-change.pd new file mode 100644 index 0000000..6b97be0 --- /dev/null +++ b/sfruit/list-change.pd @@ -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; diff --git a/sfruit/list-toggle-pairs-help.pd b/sfruit/list-toggle-pairs-help.pd new file mode 100644 index 0000000..5a82d7a --- /dev/null +++ b/sfruit/list-toggle-pairs-help.pd @@ -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; 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