1 files changed, 281 insertions, 0 deletions
diff --git a/s-env~.pd b/s-env~.pd
new file mode 100644
index 0000000..3f8102c
--- /dev/null
+++ b/s-env~.pd
@@ -0,0 +1,281 @@
+#N canvas 9 15 721 668 10;
+#N canvas 0 16 999 675 1125data 0;
+#X coords 0 0 198 86 198 86 1;
+#X restore 4 18 pd \$0data;
+#N canvas 183 252 599 314 1125template 0;
+#X obj 17 51 struct \$0template float x float y array \$0arrayvals
+\$0arraytemplate;
+#X obj 17 86 outlet;
+#X obj 17 17 plot -x x(3:195)(3:195) -y y(3:83)(3:83) \$0arrayvals
+333 1 0 0 0;
+#X connect 0 0 1 0;
+#X restore 236 36 pd \$0template;
+#N canvas 435 201 450 300 1125arraytemplate 0;
+#X obj 24 43 struct \$0arraytemplate float x float y;
+#X obj 24 87 filledpolygon 333 333 1 -2 -2 2 -2 2 2 -2 2 -2 -2;
+#X obj 24 65 print;
+#X connect 0 0 2 0;
+#X restore 236 13 pd \$0arraytemplate;
+#N canvas 0 0 439 363 initarray 0;
+#X obj 163 211 pointer;
+#X msg 133 47 bang;
+#X text 186 35 click here to re-initialize;
+#X msg 300 176 \; \$1 clear;
+#X obj 163 96 \$0;
+#X msg 163 188 traverse \$1 \, bang;
+#X obj 163 119 makefilename pd-%ddata;
+#X obj 35 251 append \$0template x;
+#X msg 35 219 0;
+#X obj 133 12 loadbang;
+#X obj 133 72 t b b b;
+#X obj 68 114 outlet;
+#X obj 163 140 t s s;
+#X connect 0 0 7 1;
+#X connect 1 0 10 0;
+#X connect 4 0 6 0;
+#X connect 5 0 0 0;
+#X connect 6 0 12 0;
+#X connect 8 0 7 0;
+#X connect 9 0 1 0;
+#X connect 10 0 11 0;
+#X connect 10 1 8 0;
+#X connect 10 2 4 0;
+#X connect 12 0 5 0;
+#X connect 12 1 3 0;
+#X restore 415 174 pd initarray;
+#X obj 236 58 print;
+#X obj 415 316 pointer;
+#X obj 453 387 setsize \$0template \$0arrayvals;
+#X msg 415 293 traverse \$1 \, next;
+#X obj 415 249 \$0;
+#X obj 415 272 makefilename pd-%ddata;
+#X msg 415 198 bang;
+#X obj 415 225 delay 10;
+#X obj 357 543 inlet;
+#X text 12 519 this is how long you want the envelope to take.;
+#X obj 357 592 outlet~;
+#X obj 415 543 t p p;
+#X obj 453 363 1;
+#N canvas 37 101 484 592 envgen 0;
+#X obj 102 241 element \$0template \$0arrayvals;
+#X obj 102 316 get \$0arraytemplate x y;
+#X obj 171 545 line~;
+#X obj 171 402 *;
+#X obj 102 145 f;
+#X obj 130 145 + 1;
+#X msg 102 116 0;
+#X obj 171 501 f;
+#X obj 171 471 t b f;
+#X obj 171 523 pack f f;
+#X obj 242 523 delay;
+#X obj 242 544 s \$0-loop;
+#X obj 23 102 r \$0-loop;
+#X obj 102 169 t f f;
+#X obj 102 216 spigot;
+#X obj 171 360 - 3;
+#X obj 171 424 t f f;
+#X obj 171 448 -;
+#X obj 258 411 expr 1 - $f1;
+#X obj 148 172 getsize \$0template \$0arrayvals;
+#X obj 132 194 < 1;
+#X obj 102 3 inlet;
+#X obj 307 216 inlet;
+#X obj 171 567 outlet~;
+#X obj 102 30 t b f b;
+#X obj 175 132 pointer;
+#X msg 175 109 traverse \$1 \, next;
+#X obj 175 65 \$0;
+#X obj 175 88 makefilename pd-%ddata;
+#X msg 222 423 0;
+#X obj 168 217 select 0;
+#X obj 258 361 - 3;
+#X obj 307 344 set \$0arraytemplate x y;
+#X text 350 324 redraw;
+#X obj 102 262 t p p;
+#X obj 270 498 s \$1/ticksize;
+#X obj 258 389 / 80;
+#X obj 171 380 / 192;
+#X connect 0 0 34 0;
+#X connect 1 0 15 0;
+#X connect 1 0 32 0;
+#X connect 1 1 31 0;
+#X connect 1 1 32 1;
+#X connect 2 0 23 0;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 4 0 13 0;
+#X connect 5 0 4 1;
+#X connect 6 0 4 0;
+#X connect 7 0 9 0;
+#X connect 8 0 7 0;
+#X connect 8 0 10 0;
+#X connect 8 1 9 1;
+#X connect 8 1 10 1;
+#X connect 8 1 35 0;
+#X connect 9 0 2 0;
+#X connect 10 0 11 0;
+#X connect 12 0 4 0;
+#X connect 13 0 14 0;
+#X connect 13 1 20 0;
+#X connect 14 0 0 0;
+#X connect 15 0 37 0;
+#X connect 16 0 17 1;
+#X connect 16 1 17 0;
+#X connect 17 0 8 0;
+#X connect 18 0 7 1;
+#X connect 19 0 20 1;
+#X connect 20 0 14 1;
+#X connect 20 0 30 0;
+#X connect 21 0 24 0;
+#X connect 22 0 0 1;
+#X connect 24 0 6 0;
+#X connect 24 1 3 1;
+#X connect 24 2 27 0;
+#X connect 25 0 19 0;
+#X connect 26 0 25 0;
+#X connect 27 0 28 0;
+#X connect 28 0 26 0;
+#X connect 29 0 17 1;
+#X connect 30 0 29 0;
+#X connect 31 0 36 0;
+#X connect 34 0 1 0;
+#X connect 34 1 32 2;
+#X connect 36 0 18 0;
+#X connect 37 0 3 0;
+#X restore 357 568 pd envgen;
+#X obj 306 490 set \$0arraytemplate x y;
+#X obj 462 462 element \$0template \$0arrayvals;
+#X msg 384 463 3;
+#X msg 306 464 3;
+#X obj 434 416 t b b b p;
+#X msg 462 440 0;
+#X obj 415 340 t p p b p;
+#N canvas 212 221 507 438 save 0;
+#X obj 57 11 r SSSAD_SAVE;
+#X obj 74 239 element \$0template \$0arrayvals;
+#X obj 74 260 get \$0arraytemplate x y;
+#X obj 74 217 f;
+#X obj 102 217 + 1;
+#X obj 74 286 list append;
+#X obj 74 194 until;
+#X msg 111 172 0;
+#X obj 53 333 list prepend;
+#X obj 146 333 t l;
+#X obj 30 362 list;
+#X obj 57 36 t b b b b;
+#X obj 279 217 inlet;
+#X obj 72 127 pointer;
+#X msg 72 104 traverse \$1 \, next;
+#X obj 72 60 \$0;
+#X obj 72 83 makefilename pd-%ddata;
+#X obj 72 148 getsize \$0template \$0arrayvals;
+#X obj 7 415 outlet;
+#X obj 7 394 sssad/sssad \$1/envelope;
+#X connect 0 0 11 0;
+#X connect 1 0 2 0;
+#X connect 2 0 5 0;
+#X connect 2 1 5 1;
+#X connect 3 0 4 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 0;
+#X connect 6 0 3 0;
+#X connect 7 0 3 1;
+#X connect 8 0 9 0;
+#X connect 8 0 10 1;
+#X connect 9 0 8 1;
+#X connect 10 0 19 1;
+#X connect 11 0 10 0;
+#X connect 11 1 15 0;
+#X connect 11 2 7 0;
+#X connect 11 3 8 1;
+#X connect 12 0 1 1;
+#X connect 13 0 17 0;
+#X connect 14 0 13 0;
+#X connect 15 0 16 0;
+#X connect 16 0 14 0;
+#X connect 17 0 6 0;
+#X connect 19 0 18 0;
+#X restore 445 568 pd save;
+#N canvas 64 35 650 643 load 0;
+#X obj 21 6 inlet;
+#X obj 21 65 until;
+#X obj 21 103 list append;
+#X obj 120 148 bang;
+#X obj 21 148 list split 2;
+#X obj 21 229 list split 1;
+#X obj 361 235 pointer;
+#X obj 156 305 setsize \$0template \$0arrayvals;
+#X msg 361 212 traverse \$1 \, next;
+#X obj 361 168 \$0;
+#X obj 361 191 makefilename pd-%ddata;
+#X msg 172 126 0;
+#X obj 156 232 f;
+#X obj 185 232 + 1;
+#X obj 49 174 t l b;
+#X obj 21 32 t b l b b;
+#X obj 183 342 element \$0template \$0arrayvals;
+#X obj 27 389 set \$0arraytemplate x y;
+#X obj 156 258 t f f;
+#X obj 186 281 + 1;
+#X connect 0 0 15 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 1;
+#X connect 4 0 14 0;
+#X connect 4 1 2 1;
+#X connect 4 2 3 0;
+#X connect 5 0 17 0;
+#X connect 5 1 17 1;
+#X connect 6 0 7 1;
+#X connect 6 0 16 1;
+#X connect 8 0 6 0;
+#X connect 9 0 10 0;
+#X connect 10 0 8 0;
+#X connect 11 0 12 1;
+#X connect 12 0 13 0;
+#X connect 12 0 18 0;
+#X connect 13 0 12 1;
+#X connect 14 0 5 0;
+#X connect 14 1 12 0;
+#X connect 15 0 1 0;
+#X connect 15 1 2 1;
+#X connect 15 2 11 0;
+#X connect 15 3 9 0;
+#X connect 16 0 17 2;
+#X connect 18 0 16 0;
+#X connect 18 1 19 0;
+#X connect 19 0 7 0;
+#X restore 445 592 pd load;
+#X text 414 7 args: [name];
+#X obj 284 537 r \$1/shot;
+#X obj 5 19 cnv 15 196 84 empty empty empty 20 12 0 14 -260818 -66577
+0;
+#X connect 1 0 4 0;
+#X connect 3 0 10 0;
+#X connect 5 0 24 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 7 0;
+#X connect 10 0 11 0;
+#X connect 11 0 8 0;
+#X connect 12 0 17 0;
+#X connect 15 0 17 1;
+#X connect 15 1 25 0;
+#X connect 16 0 6 0;
+#X connect 17 0 14 0;
+#X connect 19 0 18 2;
+#X connect 20 0 18 1;
+#X connect 21 0 18 0;
+#X connect 22 0 21 0;
+#X connect 22 1 20 0;
+#X connect 22 2 23 0;
+#X connect 22 3 19 1;
+#X connect 23 0 19 0;
+#X connect 24 0 15 0;
+#X connect 24 1 22 0;
+#X connect 24 2 16 0;
+#X connect 24 3 6 1;
+#X connect 25 0 26 0;
+#X connect 28 0 17 0;
+#X coords 0 -1 1 1 206 108 1 0 0;