1 files changed, 49 insertions, 0 deletions
diff --git a/s-alindx~.pd b/s-alindx~.pd
new file mode 100644
index 0000000..795f924
--- /dev/null
+++ b/s-alindx~.pd
@@ -0,0 +1,49 @@
+#N canvas 424 167 621 529 10;
+#X obj 124 224 *~;
+#X obj 124 174 clip~ 0 1;
+#X obj 40 174 clip~ -1 0;
+#X obj 40 199 *~ -1;
+#X obj 40 223 *~;
+#X obj 40 334 -~ 1;
+#X obj 124 269 *~ -1;
+#X obj 124 366 +~ 1;
+#X obj 124 246 expr~ exp(-($v1*1000)/100);
+#X obj 40 308 expr~ exp(-($v1*1000)/100);
+#X obj 124 401 /~;
+#X obj 112 149 inlet~;
+#X obj 124 463 outlet~;
+#X obj 185 349 expr~ 1 - exp(-($v1*1000)/100);
+#X obj 277 191 vline~;
+#X text 210 48 This is an s-abstraction based completely on the work
+of Tristan Chambers http://mbass.sf.net/pd-resources;
+#X text 211 79 Any mistakes are mine \, not his!;
+#X obj 10 38 hsl 64 16 0 127 0 0 \$0/crank \$1/crank crank -2 -6 0
+8 -260818 -1 -1 100 1;
+#X text 210 26 Args: [name];
+#X obj 277 108 r \$0/crank;
+#X obj 277 127 + 1;
+#X obj 277 146 / 80;
+#X obj 277 168 pack f 10;
+#X obj 401 493 sssad/auto \$0/crank \$1/crank;
+#X connect 0 0 8 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 9 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 0;
+#X connect 7 0 10 0;
+#X connect 8 0 6 0;
+#X connect 9 0 5 0;
+#X connect 10 0 12 0;
+#X connect 11 0 2 0;
+#X connect 11 0 1 0;
+#X connect 13 0 10 1;
+#X connect 14 0 0 1;
+#X connect 14 0 4 1;
+#X connect 14 0 13 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 14 0;
+#X coords 0 -1 1 1 85 60 1 0 0;