list-sample and its little brother list-shuffle, plus the helpfile for list-range that I apparently didn't check in earlier.

svn path=/trunk/abstractions/senderfruit/; revision=9541

5 files changed, 135 insertions, 0 deletions

diff --git a/core/list-range-help.pd b/core/list-range-help.pd
new file mode 100644
index 0000000..987a2e0
--- /dev/null
+++ b/core/list-range-help.pd
@@ -0,0 +1,55 @@
+#N canvas 198 58 783 493 10;
+#X obj 22 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 22 317 prepent set;
+#X text 10 2 list-range: create a list of all numbers from x to y \,
+with interval of z;
+#X text 11 37 Takes 1 \, 2 or 3 args:;
+#X text 388 65 With creation arguments \, only outputs on bang. Bang
+also outputs a list with the last input parameters. Newly input parameters
+will cause immediate output.;
+#X obj 206 317 prepent set;
+#X msg 187 200 -12;
+#X msg 224 200 12;
+#X obj 496 317 prepent set;
+#X obj 496 243 list-range;
+#X msg 467 200 -12 32 7;
+#X msg 530 200 1 100 50;
+#X text 11 86 2 args: output [n1 to (n2-1)] \, with interval 1 if n1
+is less than n2 \, or interval -1 if n2 is less than n1;
+#X text 11 56 1 arg: output [0 to (n-1)] with interval 1 if n is positive
+\, or interval -1 if N is negative.;
+#X text 11 116 3 args: output [n1 to (n2-1)] with interval n3.;
+#X msg 330 200 5 20;
+#X msg 369 200 5 -3;
+#X obj 346 317 prepent set;
+#X text 19 376 Creation args;
+#X text 361 268 Two args;
+#X text 509 267 Three args;
+#X msg 595 202 1 99 11;
+#X msg 22 349;
+#X text 615 441 2008 Luke Iannini;
+#X obj 615 456 pddplink http://proyekto.net;
+#X obj 206 243 list-range;
+#X obj 346 243 list-range;
+#X obj 22 243 list-range 0 9 2;
+#X text 213 272 One arg;
+#X msg 496 353;
+#X msg 346 388;
+#X msg 206 428;
+#X connect 0 0 27 0;
+#X connect 1 0 22 0;
+#X connect 5 0 31 0;
+#X connect 6 0 25 0;
+#X connect 7 0 25 0;
+#X connect 8 0 29 0;
+#X connect 9 0 8 0;
+#X connect 10 0 9 0;
+#X connect 11 0 9 0;
+#X connect 15 0 26 0;
+#X connect 16 0 26 0;
+#X connect 17 0 30 0;
+#X connect 21 0 9 0;
+#X connect 25 0 5 0;
+#X connect 26 0 17 0;
+#X connect 27 0 1 0;
diff --git a/core/list-sample-help.pd b/core/list-sample-help.pd
new file mode 100644
index 0000000..f274505
--- /dev/null
+++ b/core/list-sample-help.pd
@@ -0,0 +1,27 @@
+#N canvas 421 159 709 295 10;
+#X obj 30 128 list-sample 5;
+#X msg 30 61 a b c d e f g h i j k l m n o p q r s t u v w x y z;
+#X obj 30 160 prepent set;
+#X floatatom 128 129 5 0 0 0 - - -;
+#X msg 167 128 3;
+#X msg 167 152 20;
+#X obj 276 147 list-shuffle;
+#X msg 276 110 a b c d e f g h i j k l m n o p q r s t u v w x y z
+;
+#X obj 276 173 prepent set;
+#X text 356 147 is just list-sample with a length equal to the length
+of the input list;
+#X text 23 10 list-sample: grab n unique random items from the incoming
+list and output them as a new list;
+#X text 572 266 2008 Luke Iannini;
+#X msg 30 199;
+#X msg 276 212;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 12 0;
+#X connect 3 0 0 1;
+#X connect 4 0 3 0;
+#X connect 5 0 3 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 13 0;
diff --git a/core/list-sample.pd b/core/list-sample.pd
new file mode 100644
index 0000000..bc36051
--- /dev/null
+++ b/core/list-sample.pd
@@ -0,0 +1,30 @@
+#N canvas 754 395 450 300 10;
+#X obj 47 189 list-idx;
+#X obj 47 8 inlet;
+#X obj 107 116 list length;
+#X obj 92 160 urn;
+#X obj 234 18 inlet;
+#X obj 47 58 \$1;
+#X obj 47 112 list;
+#X obj 47 86 until;
+#X obj 47 133 t a b;
+#X obj 47 221 list-extend;
+#X obj 47 33 t b a a b;
+#X obj 200 116 t b;
+#X obj 47 254 outlet;
+#X connect 0 0 9 0;
+#X connect 1 0 10 0;
+#X connect 2 0 3 1;
+#X connect 3 0 0 1;
+#X connect 4 0 5 1;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 0 0;
+#X connect 8 1 3 0;
+#X connect 9 0 12 0;
+#X connect 10 0 5 0;
+#X connect 10 1 6 1;
+#X connect 10 2 2 0;
+#X connect 10 3 11 0;
+#X connect 11 0 9 1;
diff --git a/core/list-shuffle-help.pd b/core/list-shuffle-help.pd
new file mode 100644
index 0000000..b63454a
--- /dev/null
+++ b/core/list-shuffle-help.pd
@@ -0,0 +1,12 @@
+#N canvas 0 22 408 277 10;
+#X obj 50 108 list-shuffle;
+#X msg 50 71 a b c d e f g h i j k l m n o p q r s t u v w x y z;
+#X obj 50 134 prepent set;
+#X msg 50 173;
+#X text 30 17 list-shuffle: reorder the incoming list in a random fashion
+;
+#X text 28 33 (see list-sample to grab just a few items randomly);
+#X text 251 241 2008 Luke Iannini;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
diff --git a/core/list-shuffle.pd b/core/list-shuffle.pd
new file mode 100644
index 0000000..ce211e7
--- /dev/null
+++ b/core/list-shuffle.pd
@@ -0,0 +1,11 @@
+#N canvas 681 406 169 195 10;
+#X obj 41 124 list-sample;
+#X obj 41 33 inlet;
+#X obj 41 59 t a a;
+#X obj 68 88 list length;
+#X obj 41 155 outlet;
+#X connect 0 0 4 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 2 1 3 0;
+#X connect 3 0 0 1;