forgot about this one.

svn path=/trunk/abstractions/rradical/; revision=7461

1 files changed, 239 insertions, 0 deletions

diff --git a/control/rrad.shuffler.pd b/control/rrad.shuffler.pd
new file mode 100644
index 0000000..ccb52d4
--- /dev/null
+++ b/control/rrad.shuffler.pd
@@ -0,0 +1,239 @@
+#N canvas 403 530 252 92 10;
+#X obj 2 14 cnv 15 247 75 empty \$0-background-cnv empty 20 12 1 14
+-195568 -66577 0;
+#X obj 253 0 inlet;
+#X obj 432 0 inlet OSC;
+#N canvas 183 51 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 47 55 r \$0-substate;
+#X obj 15 13 inlet substate;
+#X obj 15 35 route substate;
+#X obj 159 55 r \$0-copy;
+#X msg 159 76 copy;
+#X obj 243 50 r \$0-paste;
+#X msg 241 71 paste;
+#X text 154 15 This is the originator \, including some ready to use
+standard functionality.;
+#X text 502 42 Put your commun sends here \, if you like.;
+#X msg 15 91 setsub \$1;
+#X msg 249 184 svdir \$1;
+#X obj 250 139 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 250 163 savepanel;
+#X obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#X obj 482 109 commun /bpm \$0;
+#X obj 606 110 commun /s \$0;
+#X obj 741 106 commun /rand \$0;
+#X obj 741 82 r \$0-random-value;
+#X obj 740 131 s \$0-random-value;
+#X obj 606 86 r \$0-shuffle-value;
+#X obj 606 133 s \$0-shuffle-value;
+#X obj 482 85 r \$0-bpm;
+#X obj 482 134 s \$0-bpm;
+#X obj 486 185 r \$0-resolution;
+#X obj 486 234 s \$0-resolution;
+#X obj 486 209 commun /resol \$0;
+#X obj 612 215 commun /play \$0;
+#X obj 612 191 r \$0-play;
+#X obj 612 240 s \$0-play;
+#X connect 0 2 15 0;
+#X connect 1 0 0 1;
+#X connect 2 0 11 0;
+#X connect 3 0 4 0;
+#X connect 4 0 11 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 26 0;
+#X connect 19 0 24 0;
+#X connect 20 0 22 0;
+#X connect 21 0 20 0;
+#X connect 23 0 19 0;
+#X connect 25 0 18 0;
+#X connect 27 0 29 0;
+#X connect 29 0 28 0;
+#X connect 30 0 32 0;
+#X connect 31 0 30 0;
+#X restore 370 -1 pd saves;
+#N canvas 569 61 450 300 cnv.ctl 0;
+#X obj 90 188 s \$0-background-cnv;
+#X floatatom 108 59 5 100 1000 0 width - -;
+#X floatatom 112 83 4 50 500 0 height - -;
+#X obj 92 132 pack 0 0;
+#X msg 92 159 vis_size \$1 \$2;
+#X obj 110 106 t b f;
+#X connect 1 0 3 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 5 1 3 1;
+#X restore 295 -1 pd cnv.ctl;
+#X obj 253 69 outlet;
+#X text 183 -1 look! ==>;
+#X obj 370 20 outlet OSC;
+#X obj 335 39 inlet;
+#X obj 6 24 cnv 15 105 60 empty empty shuffle 10 12 0 10 -233017 -66577
+0;
+#X obj 68 54 nbx 3 12 0 100 0 0 \$0-shuffle-value \$0-shuffle-value
+s 0 -6 1 10 -195568 -1 -1 18 256;
+#X obj 16 54 nbx 4 12 0 1e+37 0 0 \$0-random-value \$0-random-value
+rand 0 -6 1 10 -195568 -1 -1 18 256;
+#X obj 164 62 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271
+-1 -1;
+#X obj 193 62 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
+-1 -1;
+#X obj 200 30 cnv 15 45 15 empty \$0-resolution-show 1/4 1 8 0 10 -233017
+-66577 0;
+#N canvas 586 27 377 256 tempomap 0;
+#X obj 30 11 inlet;
+#X obj 95 164 outlet;
+#X obj 75 13 r \$0-resolution;
+#X obj 30 116 nroute b1 1;
+#X obj 76 71 makefilename b%d;
+#X msg 76 95 \$1;
+#X obj 30 140 unpack s 0;
+#X obj 75 52 expr pow(2 \, $f1);
+#X obj 75 32 int;
+#X obj 187 125 makefilename 1/%d;
+#X obj 210 176 symbol \$0-resolution-show;
+#X obj 209 152 loadbang;
+#X obj 159 197 pack s s;
+#X msg 158 217 \; \$2 label \$1;
+#X connect 0 0 3 0;
+#X connect 2 0 8 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 1;
+#X connect 6 1 1 0;
+#X connect 7 0 4 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 0 12 0;
+#X connect 10 0 12 1;
+#X connect 11 0 10 0;
+#X connect 12 0 13 0;
+#X restore 253 23 pd tempomap;
+#N canvas 45 266 651 594 shuffle 0;
+#X obj 73 107 mod 2;
+#X obj 73 128 select 0 1;
+#X obj 82 315 f;
+#X obj 41 315 f;
+#X obj 55 369 outlet;
+#X obj 260 171 random 10;
+#X obj 260 202 * 0.001;
+#X obj 333 172 * 0.001;
+#X obj 96 239 delay 0;
+#X obj 164 277 delay 0;
+#X obj 155 18 r \$0-shuffle-value;
+#X obj 333 130 r \$0-random-value;
+#X obj 46 67 inlet;
+#X obj 414 176 > 0;
+#X obj 260 225 spigot;
+#X obj 415 210 select 0;
+#X msg 415 233 0;
+#X obj 244 250 + 0;
+#X obj 305 5 r \$0-bpm;
+#X obj 305 29 select 0;
+#X msg 305 51 120;
+#X obj 401 19 r \$0-resolution;
+#X obj 401 40 select 0;
+#X msg 401 62 1;
+#X obj 153 69 clip 0 100;
+#X obj 452 63 int;
+#X obj 305 75 expr 60000/$f1;
+#X obj 452 84 expr 1/pow(2 \, $f1);
+#X obj 479 140 *;
+#X obj 153 96 * 0.01;
+#X obj 228 132 *;
+#X obj 473 108 t b b f;
+#X obj 228 92 f 0;
+#X floatatom 271 283 5 0 0 0 - - -;
+#X obj 292 114 t b;
+#X msg 191 243 0;
+#X obj 247 377 t b;
+#X msg 244 400 0;
+#X obj 64 346 spigot;
+#X obj 128 336 r \$0-play;
+#X obj 142 442 s \$0-play;
+#X msg 141 422 1;
+#X obj 142 393 loadbang;
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 1 1 5 0;
+#X connect 1 1 9 0;
+#X connect 2 0 38 0;
+#X connect 3 0 38 0;
+#X connect 5 0 6 0;
+#X connect 6 0 14 0;
+#X connect 7 0 6 1;
+#X connect 8 0 3 0;
+#X connect 9 0 2 0;
+#X connect 10 0 24 0;
+#X connect 11 0 7 0;
+#X connect 11 0 13 0;
+#X connect 12 0 0 0;
+#X connect 12 0 2 1;
+#X connect 12 0 3 1;
+#X connect 13 0 14 1;
+#X connect 13 0 15 0;
+#X connect 14 0 17 1;
+#X connect 15 0 16 0;
+#X connect 16 0 17 1;
+#X connect 17 0 33 0;
+#X connect 17 0 9 1;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 19 1 26 0;
+#X connect 20 0 26 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 22 1 25 0;
+#X connect 23 0 31 0;
+#X connect 24 0 29 0;
+#X connect 25 0 27 0;
+#X connect 26 0 28 0;
+#X connect 26 0 34 0;
+#X connect 27 0 31 0;
+#X connect 28 0 30 1;
+#X connect 29 0 30 0;
+#X connect 29 0 32 1;
+#X connect 30 0 17 0;
+#X connect 31 0 32 0;
+#X connect 31 1 28 0;
+#X connect 31 2 28 1;
+#X connect 32 0 30 0;
+#X connect 34 0 32 0;
+#X connect 35 0 9 1;
+#X connect 35 0 8 1;
+#X connect 36 0 37 0;
+#X connect 37 0 9 1;
+#X connect 38 0 4 0;
+#X connect 39 0 38 1;
+#X connect 41 0 40 0;
+#X connect 42 0 41 0;
+#X restore 253 47 pd shuffle;
+#X obj 118 63 nbx 4 14 0 400 0 0 \$0-bpm \$0-bpm bpm 0 -6 0 8 -233017
+-1 -1 120 256;
+#X obj 118 31 hradio 13 1 0 6 \$0-resolution \$0-resolution resol 0
+-6 0 8 -128992 -143491 -1 2;
+#X obj 225 62 tgl 15 0 \$0-play \$0-play play 0 -6 0 8 -24198 -1 -1
+1 1;
+#X connect 1 0 15 0;
+#X connect 2 0 3 1;
+#X connect 3 0 7 0;
+#X connect 8 0 3 0;
+#X connect 15 0 16 0;
+#X connect 16 0 5 0;
+#X coords 0 0 1 1 250 90 1;