1 files changed, 93 insertions, 0 deletions
diff --git a/control/rrad.edi.pd b/control/rrad.edi.pd
new file mode 100644
index 0000000..a36cff0
--- /dev/null
+++ b/control/rrad.edi.pd
@@ -0,0 +1,93 @@
+#N canvas 500 433 98 67 10;
+#X obj 256 0 inlet;
+#X obj 435 0 inlet OSC;
+#N canvas 0 0 981 424 saves 0;
+#X obj 45 160 originator \$1 \$0;
+#X obj 152 132 inlet OSC;
+#X obj 507 86 r \$0-s1;
+#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 507 56 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 msg 108 214 svdir /tmp/svdir.dat;
+#X msg 78 241 lddir /tmp/svdir.dat;
+#X obj 152 189 outlet OSC;
+#X obj 507 110 commun /chan \$0;
+#X obj 507 135 s \$0-s1;
+#X obj 643 82 r \$0-which;
+#X obj 643 106 commun /which \$0;
+#X obj 643 131 s \$0-which-r;
+#X connect 0 2 18 0;
+#X connect 1 0 0 1;
+#X connect 2 0 19 0;
+#X connect 3 0 12 0;
+#X connect 4 0 5 0;
+#X connect 5 0 12 0;
+#X connect 5 1 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 8 0 9 0;
+#X connect 9 0 0 0;
+#X connect 12 0 0 0;
+#X connect 13 0 0 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 19 0 20 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X restore 373 -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 298 -1 pd cnv.ctl;
+#X obj 135 169 outlet;
+#X text 186 -1 look! ==>;
+#X obj 373 20 outlet OSC;
+#X obj 120 -7 ctlin;
+#X obj 123 22 pack 0 0 0;
+#X obj 2 21 cnv 15 90 40 empty empty empty 20 12 0 14 -225271 -66577
+0;
+#X symbolatom 47 25 5 0 0 0 which #0-which-r #0-which;
+#X obj 228 29 r \$0-which;
+#X obj 133 145 OSCprepend /RRADICAL;
+#X obj 177 45 r \$0-c;
+#X obj 145 74 nroute 1 1;
+#X msg 145 110 \$2 \$3;
+#X msg 124 50 \$3 \$2 \$1;
+#X floatatom 47 44 5 1 128 0 chan - #0-c;
+#X connect 1 0 2 1;
+#X connect 2 0 6 0;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 7 2 8 2;
+#X connect 8 0 16 0;
+#X connect 11 0 12 1;
+#X connect 12 0 4 0;
+#X connect 13 0 14 1;
+#X connect 14 0 15 0;
+#X connect 15 0 12 0;
+#X connect 16 0 14 0;
+#X coords 0 0 1 1 92 60 1;