1 files changed, 151 insertions, 0 deletions
diff --git a/control/rrad.playlist.pd b/control/rrad.playlist.pd
new file mode 100644
index 0000000..698c8fc
--- /dev/null
+++ b/control/rrad.playlist.pd
@@ -0,0 +1,151 @@
+#N canvas 221 49 1042 656 10;
+#X obj 2 32 cnv 15 330 160 empty empty empty 20 12 0 14 -261689 -66577
+0;
+#X obj 454 127 pool \$0-playlist;
+#X symbolatom 29 57 40 0 0 0 - #0-1 #0-o;
+#X obj 9 41 vradio 16 1 0 9 \$0-select \$0-select empty 0 -6 1728 8
+-225271 -1 -1 6;
+#X symbolatom 29 73 40 0 0 0 - #0-2 #0-o;
+#X symbolatom 29 90 40 0 0 0 - #0-3 #0-o;
+#X symbolatom 29 107 40 0 0 0 - #0-4 #0-o;
+#X symbolatom 29 123 40 0 0 0 - #0-5 #0-o;
+#X symbolatom 29 139 40 0 0 0 - #0-6 #0-o;
+#X symbolatom 29 155 40 0 0 0 - #0-7 #0-o;
+#X symbolatom 29 172 40 0 0 0 - #0-8 #0-o;
+#X obj 14 266 outlet;
+#X symbolatom 29 40 40 0 0 0 - #0-0 #0-o;
+#X obj 447 39 makefilename file-%d;
+#X floatatom 433 11 5 0 0 0 - - -;
+#X obj 425 74 pack 0 s;
+#X obj 402 32 t f f;
+#X obj 429 97 prepend set;
+#X msg 520 94 printroot;
+#X obj 650 86 int 0;
+#X obj 691 86 + 1;
+#X msg 630 31 9;
+#X obj 631 54 until;
+#X obj 371 369 print num;
+#X floatatom 357 69 5 0 0 0 - - -;
+#X msg 357 91 get \$1;
+#X obj 453 242 lister;
+#X msg 139 470 cntall;
+#X msg 509 243 set \$1;
+#X obj 455 275 prepend XXXX;
+#X obj 455 299 unpack 0 s;
+#X obj 458 369 makefilename \$0-%d;
+#X obj 458 395 pack s s;
+#X msg 458 417 \; \$1 set \$2;
+#X floatatom 238 228 5 0 0 0 offset - #0-offset;
+#X obj 520 336 stripdir;
+#X msg 593 108 reset;
+#X obj 149 227 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 149 246 openpanel;
+#X obj 149 268 t s b;
+#X obj 117 317 pack s 0;
+#X obj 177 291 int 0;
+#X obj 223 291 + 1;
+#X msg 219 266 0;
+#X msg 193 321 set \$2 \$1;
+#X obj 273 320 s \$0-play;
+#X obj 526 65 r \$0-play;
+#X obj 339 127 r \$0-select;
+#X msg 135 409 1;
+#X msg 182 409 0;
+#X msg 178 429 1;
+#X msg 128 432 0;
+#X obj 137 385 t b b b;
+#X obj 134 365 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 105 499 pool \$0-playlist;
+#X obj 131 553 print count;
+#X obj 10 191 bng 15 250 50 0 \$0-next empty empty 0 -6 1152 8 -262131
+-1 -1;
+#X obj 10 21 bng 15 250 50 0 \$0-prev empty empty 0 -6 1152 8 -262131
+-1 -1;
+#X obj 714 13 r \$0-prev;
+#X obj 819 40 r \$0-next;
+#X obj 633 261 int 0;
+#X obj 674 260 + 1;
+#X obj 740 164 bng 15 250 50 0 empty empty empty 0 -6 0 8 -258699 -1
+-1;
+#X obj 742 192 t b b b;
+#X floatatom 692 62 5 0 0 0 - - -;
+#X msg 748 216 0;
+#X obj 747 62 int 0;
+#X obj 788 61 + 1;
+#X obj 847 93 int 0;
+#X msg 802 10 0;
+#X obj 888 92 - 1;
+#X msg 524 167 save playlist.dat;
+#X obj 819 59 t b b b;
+#X obj 718 38 t b b b;
+#X connect 1 0 26 0;
+#X connect 1 1 28 0;
+#X connect 13 0 15 1;
+#X connect 14 0 16 0;
+#X connect 15 0 17 0;
+#X connect 16 0 15 0;
+#X connect 16 1 13 0;
+#X connect 17 0 1 0;
+#X connect 18 0 1 0;
+#X connect 19 0 20 0;
+#X connect 19 0 24 0;
+#X connect 20 0 19 1;
+#X connect 21 0 22 0;
+#X connect 22 0 19 0;
+#X connect 22 0 60 0;
+#X connect 24 0 25 0;
+#X connect 25 0 1 0;
+#X connect 26 0 29 0;
+#X connect 27 0 54 0;
+#X connect 28 0 29 0;
+#X connect 29 0 30 0;
+#X connect 30 1 35 0;
+#X connect 31 0 32 0;
+#X connect 32 0 23 0;
+#X connect 32 0 33 0;
+#X connect 35 0 32 1;
+#X connect 36 0 1 0;
+#X connect 37 0 38 0;
+#X connect 38 0 39 0;
+#X connect 39 0 40 0;
+#X connect 39 1 41 0;
+#X connect 40 0 44 0;
+#X connect 41 0 42 0;
+#X connect 41 0 40 1;
+#X connect 42 0 41 1;
+#X connect 43 0 41 1;
+#X connect 44 0 45 0;
+#X connect 46 0 1 0;
+#X connect 47 0 24 0;
+#X connect 52 0 51 0;
+#X connect 52 1 27 0;
+#X connect 52 2 50 0;
+#X connect 53 0 52 0;
+#X connect 54 0 55 0;
+#X connect 58 0 73 0;
+#X connect 59 0 72 0;
+#X connect 60 0 61 0;
+#X connect 60 0 31 0;
+#X connect 61 0 60 1;
+#X connect 62 0 63 0;
+#X connect 63 0 21 0;
+#X connect 63 1 65 0;
+#X connect 63 2 64 0;
+#X connect 64 0 19 1;
+#X connect 65 0 60 1;
+#X connect 66 0 67 0;
+#X connect 66 0 64 0;
+#X connect 67 0 66 1;
+#X connect 68 0 70 0;
+#X connect 68 0 66 1;
+#X connect 69 0 68 1;
+#X connect 69 0 66 1;
+#X connect 69 0 64 0;
+#X connect 70 0 68 1;
+#X connect 71 0 1 0;
+#X connect 72 1 62 0;
+#X connect 72 2 68 0;
+#X connect 73 1 62 0;
+#X connect 73 2 66 0;