1 files changed, 92 insertions, 0 deletions
diff --git a/s-perc~.pd b/s-perc~.pd
new file mode 100644
index 0000000..23e992f
--- /dev/null
+++ b/s-perc~.pd
@@ -0,0 +1,92 @@
+#N canvas 370 86 402 478 10;
+#X obj 5 31 nbx 3 15 0 127 0 1 \$0-height \$0-height height 0 -6 0
+8 -260818 -1 -1 16 256;
+#X obj 58 63 nbx 4 15 1 5000 0 0 \$0-length \$0-length length 0 -6
+0 8 -260818 -1 -1 107 256;
+#N canvas 59 114 781 546 internals 0;
+#X obj 88 288 osc~;
+#X obj 89 196 cos~;
+#X obj 90 171 line~;
+#X msg 60 74 0;
+#X obj 60 95 t b f;
+#X obj 113 131 pack 0.25 f;
+#X obj 88 220 *~;
+#X obj 88 263 +~;
+#X obj 289 490 outlet~;
+#X obj 144 195 mtof;
+#X obj 143 238 mtof;
+#X obj 420 160 line~;
+#X obj 517 83 * 1.1;
+#X obj 288 380 *~;
+#X obj 379 85 t b b;
+#X obj 447 110 delay 3;
+#X obj 517 58 * 4;
+#X obj 185 97 * 4;
+#X obj 517 30 r \$0-length;
+#X obj 144 173 r \$0-height;
+#X obj 143 217 r \$0-end_freq;
+#X obj 185 64 r \$0-length;
+#X obj 60 44 r \$0-shot;
+#X obj 379 34 r \$0-shot;
+#X obj 419 208 clip~ -2 2;
+#X obj 419 185 expr~ -ln(1 - $v1);
+#X msg 409 109 1 3;
+#X obj 447 131 pack 0 f;
+#X connect 0 0 13 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 4 1 2 0;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 9 0 6 1;
+#X connect 10 0 7 1;
+#X connect 11 0 25 0;
+#X connect 12 0 27 1;
+#X connect 13 0 8 0;
+#X connect 14 0 15 0;
+#X connect 14 1 26 0;
+#X connect 15 0 27 0;
+#X connect 16 0 12 0;
+#X connect 17 0 5 1;
+#X connect 18 0 16 0;
+#X connect 19 0 9 0;
+#X connect 20 0 10 0;
+#X connect 21 0 17 0;
+#X connect 22 0 3 0;
+#X connect 23 0 14 0;
+#X connect 24 0 13 1;
+#X connect 25 0 24 0;
+#X connect 26 0 11 0;
+#X connect 27 0 11 0;
+#X restore 253 19 pd internals;
+#X obj 5 63 nbx 3 15 0 127 0 1 \$0-end_freq \$0-end_freq end_freq 0
+-6 0 8 -260818 -1 -1 33 256;
+#X obj 253 67 outlet~;
+#X obj 73 27 bng 16 250 50 0 \$0-shot \$0-shot shot 0 -6 0 8 -260818
+-1 -1;
+#X obj 1 264 s-connect \$1-height \$0-height;
+#X obj 1 285 s-connect \$1-end_freq \$0-end_freq;
+#X obj 1 327 s-connect \$1-shot \$0-shot;
+#X obj 1 306 s-connect \$1-length \$0-length;
+#X obj 253 43 *~ 2;
+#X obj 0 89 inlet;
+#X obj 0 112 unpack f f;
+#X obj 0 134 t b f;
+#X obj 0 239 s \$0-shot;
+#X msg 0 217 bang;
+#X obj 65 136 / 12;
+#X obj 65 159 s \$0-vol;
+#X obj 30 188 s \$0-end_freq;
+#X connect 2 0 10 0;
+#X connect 10 0 4 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 12 1 16 0;
+#X connect 13 0 15 0;
+#X connect 13 1 18 0;
+#X connect 15 0 14 0;
+#X connect 16 0 17 0;
+#X coords 0 0 1 1 100 84 1 0 0;