1 files changed, 151 insertions, 0 deletions
diff --git a/instruments/rrad.fm2~.pd b/instruments/rrad.fm2~.pd
new file mode 100644
index 0000000..6b6f0fe
--- /dev/null
+++ b/instruments/rrad.fm2~.pd
@@ -0,0 +1,151 @@
+#N canvas 135 368 405 175 10;
+#X obj 3 18 cnv 15 400 150 empty \$0-background-cnv empty 20 12 1 14
+-233017 -66577 0;
+#X obj 722 17 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 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 obj 152 189 outlet OSC;
+#X msg 108 214 svxdir /tmp/svdir.xml;
+#X msg 78 241 ldxdir /tmp/svdir.xml;
+#X obj 243 116 r \$0-adsr-OSC-out;
+#X obj 306 144 s \$0-adsr-OSC;
+#X obj 507 110 commun /mod \$0;
+#X obj 606 110 commun /car \$0;
+#X obj 507 86 r \$0-mod;
+#X obj 507 135 s \$0-mod;
+#X obj 606 86 r \$0-car;
+#X obj 607 134 s \$0-car;
+#X obj 543 193 commun /index \$0;
+#X obj 507 185 r \$0-ind;
+#X obj 507 234 s \$0-ind;
+#X connect 0 2 15 0;
+#X connect 1 0 0 1;
+#X connect 1 0 19 0;
+#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 15 0;
+#X connect 20 0 23 0;
+#X connect 21 0 25 0;
+#X connect 22 0 20 0;
+#X connect 24 0 21 0;
+#X connect 26 0 28 0;
+#X connect 27 0 26 0;
+#X restore 660 16 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 585 16 pd cnv.ctl;
+#X obj 11 144 bng 15 250 50 0 \$0-copy empty copy 0 -6 0 8 -225271
+-1 -1;
+#X obj 43 144 bng 15 250 50 0 \$0-paste empty paste 0 -6 0 8 -257472
+-1 -1;
+#X text 244 3 look! ==>;
+#X obj 660 37 outlet OSC;
+#X obj 618 45 inlet;
+#N canvas 478 505 450 300 engine 0;
+#X obj 205 173 foscil~;
+#X obj 120 63 catch~ \$0-adsr;
+#X obj 69 64 inlet;
+#X obj 66 101 mtof;
+#X obj 226 232 outlet~;
+#X obj 159 96 r \$0-car;
+#X obj 231 95 r \$0-mod;
+#X obj 318 111 catch~ \$0-index;
+#X connect 0 0 4 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 0 1;
+#X connect 5 0 0 2;
+#X connect 6 0 0 3;
+#X connect 7 0 0 4;
+#X restore 559 120 pd engine;
+#X obj 539 16 inlet;
+#X obj 546 48 unpack 0 0;
+#X obj 542 156 outlet~;
+#X obj 569 80 s \$0-note;
+#X obj 639 79 s \$0-vel;
+#X obj 84 9 r \$0-vel;
+#X obj 81 171 throw~ \$0-adsr;
+#X obj 224 11 r \$0-adsr-OSC;
+#X obj 188 213 s \$0-adsr-OSC-out;
+#X obj 336 3 r \$0-vel;
+#X obj 415 12 r \$0-adsr-OSC;
+#X obj 482 194 s \$0-adsr-OSC-out;
+#X obj 82 35 rrad.adsr~ \$1-adsr;
+#X obj 334 248 throw~ \$0-index;
+#X obj 247 35 rrad.adsr~ \$1-index;
+#X msg 432 212 \$1 20;
+#X obj 327 200 *~;
+#X obj 374 203 line~;
+#X obj 8 49 nbx 5 14 -1e+37 1e+37 0 0 \$0-car \$0-car car 0 -6 1 10
+-241291 -1 -1 5 256;
+#X obj 8 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-mod \$0-mod mod 0 -6 1 10
+-262131 -1 -1 1 256;
+#X obj 8 111 hsl 64 15 0 127 0 0 \$0-ind \$0-ind index -2 -6 1 8 -262135
+-1 -1 4800 1;
+#X obj 496 238 r \$0-ind;
+#X obj 428 191 / 32;
+#X obj 83 37 cnv 15 150 15 empty empty \$1-adsr 20 8 1 12 -228904 -66577
+0;
+#X obj 248 37 cnv 15 150 15 empty empty \$1-index 20 8 1 12 -228904
+-66577 0;
+#X connect 1 0 2 1;
+#X connect 2 0 7 0;
+#X connect 8 0 2 0;
+#X connect 9 0 12 0;
+#X connect 10 0 11 0;
+#X connect 11 0 13 0;
+#X connect 11 0 9 0;
+#X connect 11 1 14 0;
+#X connect 15 0 22 0;
+#X connect 17 0 22 1;
+#X connect 19 0 24 0;
+#X connect 20 0 24 1;
+#X connect 22 0 16 0;
+#X connect 22 1 18 0;
+#X connect 24 0 26 0;
+#X connect 24 1 21 0;
+#X connect 25 0 27 0;
+#X connect 26 0 23 0;
+#X connect 27 0 26 1;
+#X connect 31 0 32 0;
+#X connect 32 0 25 0;
+#X coords 0 0 1 1 403 170 1;