1 files changed, 150 insertions, 0 deletions
diff --git a/instruments/rrad.fluid~.pd b/instruments/rrad.fluid~.pd
new file mode 100644
index 0000000..4530316
--- /dev/null
+++ b/instruments/rrad.fluid~.pd
@@ -0,0 +1,150 @@
+#N canvas 269 340 255 162 10;
+#X obj 3 21 cnv 15 247 138 empty \$0-background-cnv empty 20 12 1 14
+-195568 -66577 0;
+#X obj 254 3 inlet;
+#X obj 434 3 inlet OSC;
+#N canvas 0 0 981 424 saves 0;
+#X msg 15 103 set;
+#X msg 45 104 substate \$1;
+#X obj 15 78 t b f;
+#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 507 56 Put your commun sends here \, if you like.;
+#X obj 625 110 commun /soundfont \$0;
+#X obj 625 86 r \$0-soundfont;
+#X obj 625 171 s \$0-soundfont;
+#X obj 321 156 openpanel;
+#X obj 321 129 r \$0-open;
+#X obj 326 264 s \$0-fluid;
+#X msg 326 235 load \$1;
+#X obj 321 179 s \$0-soundfont;
+#X obj 326 212 r \$0-soundfont;
+#X obj 507 86 r \$0-chan;
+#X obj 507 110 commun /chan \$0;
+#X obj 507 135 s \$0-chan;
+#X obj 413 238 stripdir;
+#X obj 430 265 s \$0-soundfont-name;
+#X obj 625 140 symbol;
+#X obj 152 182 outlet;
+#X obj 622 226 r \$0-prog;
+#X obj 622 250 commun /prog \$0;
+#X obj 622 276 s \$0-prog;
+#X obj 743 226 r \$0-bank;
+#X obj 743 250 commun /bank \$0;
+#X obj 743 276 s \$0-bank;
+#X connect 0 0 3 0;
+#X connect 1 0 3 0;
+#X connect 2 0 0 0;
+#X connect 2 1 1 0;
+#X connect 3 2 29 0;
+#X connect 4 0 3 1;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 2 0;
+#X connect 7 1 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 3 0;
+#X connect 10 0 11 0;
+#X connect 11 0 3 0;
+#X connect 14 0 28 0;
+#X connect 15 0 14 0;
+#X connect 17 0 21 0;
+#X connect 18 0 17 0;
+#X connect 20 0 19 0;
+#X connect 22 0 20 0;
+#X connect 22 0 26 0;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X connect 26 0 27 0;
+#X connect 28 0 16 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X restore 372 2 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 297 2 pd cnv.ctl;
+#X obj 7 60 vradio 15 1 0 3 \$0-substate \$0-substate-r empty 0 -6
+0 8 -262144 -1 -1 0;
+#X obj 161 59 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -262144
+-1 -1;
+#X obj 191 59 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -262144
+-1 -1;
+#X text 185 2 look! ==>;
+#X obj 254 142 outlet~;
+#X obj 314 142 outlet~;
+#X obj 254 100 fluid~;
+#X obj 35 56 bng 32 250 50 0 \$0-open \$0-open Open 0 -6 0 8 -225271
+-1 -1;
+#X obj 280 72 r \$0-fluid;
+#X obj 87 59 nbx 5 14 0 1e+37 0 0 \$0-prog \$0-prog prog 0 -6 0 10
+-233017 -1 -1 0 256;
+#X obj 86 87 nbx 5 14 0 1e+37 0 0 \$0-chan \$0-chan chan 0 -6 0 10
+-262131 -1 -1 10 256;
+#N canvas 529 477 450 300 data 0;
+#X obj 122 44 r \$0-chan;
+#X obj 49 125 s \$0-fluid;
+#X msg 49 98 prog \$2 \$1;
+#X obj 49 75 pack 0 1;
+#X obj 49 45 r \$0-prog;
+#X obj 267 44 r \$0-chan;
+#X obj 194 125 s \$0-fluid;
+#X obj 194 75 pack 0 1;
+#X obj 194 45 r \$0-bank;
+#X msg 194 98 bank \$2 \$1;
+#X obj 122 168 r \$0-chan;
+#X obj 49 249 s \$0-fluid;
+#X obj 48 170 r \$0-ctl;
+#X obj 48 199 pack 0 0 1;
+#X msg 49 222 control \$3 \$1 \$2;
+#X connect 0 0 3 1;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 5 0 7 1;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 9 0 6 0;
+#X connect 10 0 13 2;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 11 0;
+#X restore 298 40 pd data;
+#X obj 85 125 nbx 5 14 -1e+37 1e+37 0 0 \$0-cc-num \$0-cc-num cc-num
+0 -6 0 10 -261689 -1 -1 0 256;
+#X obj 147 125 nbx 5 14 -1e+37 1e+37 0 0 \$0-cc-val \$0-cc-val cc-val
+0 -6 0 10 -261689 -1 -1 0 256;
+#X obj 21 125 nbx 5 14 0 1e+37 0 0 \$0-bank \$0-bank bank 0 -6 0 10
+-233017 -1 -1 0 256;
+#X symbolatom 148 88 10 0 0 0 - #0-soundfont-name -;
+#X obj 326 100 print 2fluid;
+#X obj 400 42 outlet;
+#X connect 1 0 11 0;
+#X connect 2 0 3 1;
+#X connect 3 0 22 0;
+#X connect 11 0 9 0;
+#X connect 11 1 10 0;
+#X connect 13 0 11 0;
+#X connect 13 0 21 0;
+#X coords 0 0 1 1 250 160 1;