#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;