From 24f7ce4939013a697c3315ff1afaed6e4a368be7 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Thu, 6 Mar 2008 10:41:06 +0000 Subject: 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 --- core/list-range-help.pd | 55 +++++++++++++++++++++++++++++++++++++++++++++++ core/list-sample-help.pd | 27 +++++++++++++++++++++++ core/list-sample.pd | 30 ++++++++++++++++++++++++++ core/list-shuffle-help.pd | 12 +++++++++++ core/list-shuffle.pd | 11 ++++++++++ 5 files changed, 135 insertions(+) create mode 100644 core/list-range-help.pd create mode 100644 core/list-sample-help.pd create mode 100644 core/list-sample.pd create mode 100644 core/list-shuffle-help.pd create mode 100644 core/list-shuffle.pd 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; -- cgit v1.2.1