1 files changed, 105 insertions, 0 deletions
diff --git a/instruments/rrad.square~.pd b/instruments/rrad.square~.pd
new file mode 100644
index 0000000..44fa95c
--- /dev/null
+++ b/instruments/rrad.square~.pd
@@ -0,0 +1,105 @@
+#N canvas 500 433 141 69 10;
+#X obj 1 14 cnv 15 140 50 empty \$0-background-cnv empty 20 12 1 14
+-225271 -66577 0;
+#X obj 432 -4 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 606 141 commun /width \$0;
+#X obj 606 86 r \$0-width;
+#X obj 606 192 s \$0-width;
+#X obj 606 116 clip 0.01 0.99;
+#X obj 606 169 clip 0.01 0.99;
+#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 22 0;
+#X connect 19 0 21 0;
+#X connect 21 0 18 0;
+#X connect 22 0 20 0;
+#X restore 370 -5 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 -5 pd cnv.ctl;
+#X obj 73 20 vradio 12 1 0 3 \$0-substate \$0-substate-r empty 0 -6
+0 8 -261689 -1 -1 1;
+#X text 183 -5 look! ==>;
+#X obj 370 16 outlet OSC;
+#X obj 253 55 outlet~;
+#N canvas 0 0 450 300 sigs 0;
+#X obj 109 136 phasor~;
+#X obj 109 193 blosc~ comparator;
+#X text 104 86 (square - pulse wave);
+#X obj 110 233 outlet~;
+#X obj 110 51 inlet;
+#X obj 239 117 r \$0-width;
+#X obj 109 165 -~;
+#X obj 167 161 line~;
+#X msg 229 152 \$1 15;
+#X obj 196 46 loadbang;
+#X msg 196 66 1 15;
+#X connect 0 0 6 0;
+#X connect 1 0 3 0;
+#X connect 4 0 0 0;
+#X connect 5 0 8 0;
+#X connect 6 0 1 0;
+#X connect 7 0 6 1;
+#X connect 8 0 7 0;
+#X connect 9 0 10 0;
+#X connect 10 0 7 0;
+#X restore 251 30 pd sigs;
+#X obj 7 29 hsl 50 15 0.01 0.99 0 0 \$0-width \$0-width width -2 -6
+0 8 -261681 -1 -1 3493 1;
+#X obj 249 -4 inlet;
+#X obj 105 29 bng 15 250 50 0 empty empty center -5 -8 0 8 -261681
+-1 -1;
+#X msg 47 50 0.5;
+#X connect 1 0 2 1;
+#X connect 2 0 6 0;
+#X connect 8 0 7 0;
+#X connect 10 0 8 0;
+#X connect 11 0 12 0;
+#X connect 12 0 9 0;
+#X coords 0 0 1 1 142 65 1;