From 3980b38b7d9efb6f1d322ef0785feaed1f06a806 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 17 Nov 2007 13:58:45 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r9017, which included commits to RCS files with non-trunk default branches. svn path=/trunk/abstractions/s-abstractions/; revision=9018 --- s-alindx~.pd | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 s-alindx~.pd (limited to 's-alindx~.pd') 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; -- cgit v1.2.1