1 files changed, 83 insertions, 0 deletions
diff --git a/instruments/mgadsr.pd b/instruments/mgadsr.pd
new file mode 100644
index 0000000..c813282
--- /dev/null
+++ b/instruments/mgadsr.pd
@@ -0,0 +1,83 @@
+#N canvas 176 493 602 343 10;
+#X obj 66 99 vsl 8 64 0 100 0 0 \$0-a \$0-ain a 0 -8 1729 8 -355 -260818
+-143491 693 1;
+#X obj 209 100 vsl 8 64 0 200 0 0 \$0-d \$0-din d 0 -8 1729 8 -355
+-260818 -143491 800 1;
+#X obj 362 100 vsl 8 64 0 1 0 0 \$0-s \$0-sin s 0 -8 1729 8 -355 -260818
+-143491 1800 1;
+#X obj 498 100 vsl 8 64 0 1000 0 0 \$0-r \$0-rin r 0 -8 1729 8 -355
+-260818 -143491 1000 1;
+#X obj 36 27 inlet;
+#N canvas 0 0 600 400 envelope 0;
+#X obj 252 135 r \$0-a;
+#X obj 307 134 r \$0-d;
+#X obj 361 133 r \$0-s;
+#X obj 413 132 r \$0-r;
+#X obj 448 340 outlet;
+#X obj 508 170 t b f;
+#X obj 455 171 t b f;
+#X obj 409 172 t b f;
+#X obj 458 274 pack 0 0 0 0;
+#X obj 448 314 prepend adsr;
+#X connect 0 0 8 0;
+#X connect 1 0 7 0;
+#X connect 2 0 6 0;
+#X connect 3 0 5 0;
+#X connect 5 0 8 0;
+#X connect 5 1 8 3;
+#X connect 6 0 8 0;
+#X connect 6 1 8 2;
+#X connect 7 0 8 0;
+#X connect 7 1 8 1;
+#X connect 8 0 9 0;
+#X connect 9 0 4 0;
+#X restore 13 206 pd envelope;
+#X text 24 5 Graphical ADSR;
+#X obj 566 97 f;
+#X obj 15 80 f;
+#X obj 85 230 outlet;
+#N canvas 625 564 450 300 saves 0;
+#X obj 15 71 originator \$1 \$0;
+#X obj 250 96 r \$0-s;
+#X obj 252 150 s \$0-sin;
+#X obj 142 96 r \$0-d;
+#X obj 151 149 s \$0-din;
+#X obj 205 65 s \$0-ain;
+#X obj 202 11 r \$0-a;
+#X obj 181 201 r \$0-r;
+#X obj 183 255 s \$0-rin;
+#X obj 18 19 inlet;
+#X obj 203 38 commun /a \$0;
+#X obj 251 123 commun /s \$0;
+#X obj 147 122 commun /d \$0;
+#X obj 182 228 commun /r \$0;
+#X connect 1 0 11 0;
+#X connect 3 0 12 0;
+#X connect 6 0 10 0;
+#X connect 7 0 13 0;
+#X connect 9 0 0 0;
+#X connect 10 0 5 0;
+#X connect 11 0 2 0;
+#X connect 12 0 4 0;
+#X connect 13 0 8 0;
+#X restore 364 251 pd saves;
+#X obj 192 298 s \$0-levelin;
+#X msg 376 228 substate \$1;
+#X obj 36 51 route set substate vel;
+#X msg 315 228 set mem;
+#X obj 324 75 s \$0-OSC;
+#X obj 324 29 inlet;
+#X obj 324 49 OSCroute \$1;
+#X text 79 260 level;
+#X text 79 249 adsr as list;
+#X connect 4 0 13 0;
+#X connect 5 0 9 0;
+#X connect 8 0 7 0;
+#X connect 12 0 10 0;
+#X connect 13 0 14 0;
+#X connect 13 1 12 0;
+#X connect 13 2 11 0;
+#X connect 14 0 10 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X coords 0 0 1 1 80 90 1;