#N canvas 0 25 592 645 10;
#X obj 17 91 vsl 15 128 0.5 0.989 0 0 \$0-muting empty empty 0 -8 0
10 -262144 -1 -1 12700 1;
#X floatatom 8 232 5 0 0 0 - - -;
#X text -4 243 mute strings;
#X obj 7 573 dac~;
#X floatatom 46 196 5 0 0 0 - - #0-pick-angle;
#X obj 46 171 deg2rad;
#X floatatom 46 149 5 0 0 0 - - -;
#X text 81 148 degrees;
#X obj 15 524 clip~ -1 1;
#X obj 22 495 *~;
#X obj 72 345 vsl 15 128 0.5 5 0 0 empty empty empty 0 -8 0 10 -262144
-1 -1 4233 1;
#X obj 17 48 loadbang;
#X msg 17 70 0.989;
#X obj 20 13 hsl 128 15 0 60 0 0 \$0-pick-spacing empty empty -2 -8
0 10 -262144 -1 -1 8467 1;
#X msg 46 128 45;
#X floatatom 17 30 5 0 0 0 - - -;
#X obj 204 14 hsl 128 15 2 50 0 0 \$0-pick-location empty empty -2
-6 0 10 -262144 -1 -1 529 1;
#X text 229 -20 pick location;
#X text 189 -3 middle;
#X text 315 -2 bridge;
#X msg 201 -28 4;
#X obj 202 -48 loadbang;
#N canvas 0 25 997 637 delay-writer 0;
#X obj 680 538 outlet~;
#X obj 764 -49 sin;
#X obj 856 -49 cos;
#X text 770 -78 get components of vector;
#N canvas 0 331 925 397 body-resonance 0;
#X obj 429 1 inlet~;
#X obj 423 299 outlet~;
#X obj 429 56 hip~ 5;
#X obj 424 269 *~ 1.5;
#X obj 20 138 bp~ 100 10;
#X obj 87 138 bp~ 169 10;
#X obj 552 139 bp~ 980 48;
#X obj 620 139 bp~ 1010 80;
#X obj 693 139 bp~ 1174 58;
#X obj 766 139 bp~ 1194 39;
#X obj 152 139 bp~ 205 40;
#X obj 218 139 bp~ 377 50;
#X obj 284 139 bp~ 436 55;
#X obj 417 139 bp~ 731 72;
#X obj 485 139 bp~ 873 75;
#X obj 350 139 bp~ 650 70;
#X obj 109 161 *~ 0.65;
#X obj 663 167 *~ 0.4;
#X obj 733 168 *~ 0.4;
#X obj 245 165 *~ 0.4;
#X text 37 254 I got these numbers from The Physics of Musical Instruments
\, by Fletcher and Rossing \, pp. 252-254. Some artistic license was
taken \, as I kludged this filter bank together from the resonant frequencies
(with Q values!) that they give for folk and classical guitar bodies.
I had to guess the lower Q values \, and also I replaced two resonances
in the 600-700 Hz range with one at 650 Hz to make the response more
even among notes. Then I reduced the volume of a few (as you can see)
to improve the sound.;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 2 0 7 0;
#X connect 2 0 8 0;
#X connect 2 0 9 0;
#X connect 2 0 10 0;
#X connect 2 0 11 0;
#X connect 2 0 12 0;
#X connect 2 0 13 0;
#X connect 2 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 16 0;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 3 0;
#X connect 11 0 19 0;
#X connect 12 0 3 0;
#X connect 13 0 3 0;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 3 0;
#X connect 19 0 3 0;
#X restore 747 514 pd body-resonance;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 143 87 delwrite~ \$0-low-e-pick-position 100;
#X obj 141 116 delread~ \$0-low-e-pick-position 3;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 15 0 3 1;
#X restore 289 280 pd pick-position;
#X floatatom 404 254 5 0 0 0 - - -;
#X text 435 252 in ms;
#X obj 856 -24 abs;
#X obj 764 -23 abs;
#X text 880 -46 absolute value to preserve magnitude of components
but avoid cancellation;
#N canvas 0 25 997 656 low-e-string 0;
#X text 245 266 vertical plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 250 309 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 87 307 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X text 857 320 horizontal plane;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 191 284 delread~ \$0-low-e-string-del-xz 12.1349;
#X obj 586 266 delread~ \$0-low-e-string-del-xy 12.1349;
#X obj 140 452 delwrite~ \$0-low-e-string-del-xz 50;
#X obj 665 460 delwrite~ \$0-low-e-string-del-xy 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 4 332 r \$0-mute-low-e;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X connect 1 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 2 0 6 0;
#X connect 3 0 53 0;
#X connect 4 0 14 0;
#X connect 5 0 15 0;
#X connect 5 0 36 0;
#X connect 6 0 25 0;
#X connect 7 0 16 0;
#X connect 12 0 27 0;
#X connect 13 0 30 0;
#X connect 14 0 20 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 23 0;
#X connect 17 0 36 0;
#X connect 18 0 22 0;
#X connect 19 0 21 0;
#X connect 20 0 3 0;
#X connect 21 0 34 0;
#X connect 21 0 54 0;
#X connect 22 0 54 0;
#X connect 23 0 12 0;
#X connect 23 0 53 0;
#X connect 24 0 22 0;
#X connect 24 0 26 0;
#X connect 25 0 19 0;
#X connect 26 0 40 0;
#X connect 27 0 40 0;
#X connect 28 0 6 1;
#X connect 29 0 7 1;
#X connect 30 0 40 0;
#X connect 31 0 1 0;
#X connect 31 0 2 0;
#X connect 32 0 5 1;
#X connect 33 0 4 1;
#X connect 34 0 35 0;
#X connect 35 0 40 0;
#X connect 36 0 45 0;
#X connect 37 0 13 0;
#X connect 37 0 31 0;
#X connect 38 0 44 0;
#X connect 38 0 55 0;
#X connect 38 0 56 0;
#X connect 39 0 24 0;
#X connect 46 0 64 0;
#X connect 48 0 29 0;
#X connect 48 0 32 0;
#X connect 48 0 33 0;
#X connect 48 0 28 0;
#X connect 48 0 41 0;
#X connect 49 0 1 1;
#X connect 49 0 42 0;
#X connect 50 0 2 1;
#X connect 50 0 43 0;
#X connect 51 0 5 0;
#X connect 51 0 7 0;
#X connect 52 0 4 0;
#X connect 52 0 6 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 67 0;
#X connect 64 1 59 0;
#X connect 65 0 69 0;
#X connect 66 0 61 0;
#X connect 67 0 66 0;
#X connect 68 0 66 0;
#X connect 69 0 68 0;
#X connect 69 1 70 0;
#X connect 70 0 66 0;
#X restore 288 349 pd low-e-string;
#N canvas 0 25 997 656 a-string 0;
#X text 245 266 vertical plane;
#X text 857 320 horizontal plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 190 306 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 29 303 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 191 284 delread~ \$0-a-string-del-xz 9.09091;
#X obj 586 266 delread~ \$0-a-string-del-xy 9.09091;
#X obj 665 460 delwrite~ \$0-a-string-del-xy 50;
#X obj 140 452 delwrite~ \$0-a-string-del-xz 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X obj 4 332 r \$0-mute-a;
#X connect 2 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 54 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 6 0 37 0;
#X connect 7 0 26 0;
#X connect 8 0 17 0;
#X connect 13 0 28 0;
#X connect 14 0 31 0;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 24 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 21 0 4 0;
#X connect 22 0 35 0;
#X connect 22 0 53 0;
#X connect 23 0 53 0;
#X connect 24 0 13 0;
#X connect 24 0 54 0;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 20 0;
#X connect 27 0 41 0;
#X connect 28 0 41 0;
#X connect 29 0 7 1;
#X connect 30 0 8 1;
#X connect 31 0 41 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 6 1;
#X connect 34 0 5 1;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 46 0;
#X connect 38 0 14 0;
#X connect 38 0 32 0;
#X connect 39 0 45 0;
#X connect 39 0 55 0;
#X connect 39 0 56 0;
#X connect 40 0 25 0;
#X connect 47 0 64 0;
#X connect 48 0 30 0;
#X connect 48 0 33 0;
#X connect 48 0 34 0;
#X connect 48 0 29 0;
#X connect 48 0 42 0;
#X connect 49 0 2 1;
#X connect 49 0 43 0;
#X connect 50 0 3 1;
#X connect 50 0 44 0;
#X connect 51 0 6 0;
#X connect 51 0 8 0;
#X connect 52 0 5 0;
#X connect 52 0 7 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 66 0;
#X connect 64 1 59 0;
#X connect 65 0 61 0;
#X connect 66 0 65 0;
#X connect 67 0 65 0;
#X connect 68 0 67 0;
#X connect 68 1 69 0;
#X connect 69 0 65 0;
#X connect 70 0 68 0;
#X restore 447 348 pd a-string;
#N canvas 0 25 997 656 d-string 0;
#X text 245 266 vertical plane;
#X text 857 320 horizontal plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 190 306 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 29 303 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 191 284 delread~ \$0-d-string-del-xz 6.81049;
#X obj 586 266 delread~ \$0-d-string-del-xy 6.81049;
#X obj 665 460 delwrite~ \$0-d-string-del-xy 50;
#X obj 140 452 delwrite~ \$0-d-string-del-xz 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X obj 4 332 r \$0-mute-d;
#X connect 2 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 54 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 6 0 37 0;
#X connect 7 0 26 0;
#X connect 8 0 17 0;
#X connect 13 0 28 0;
#X connect 14 0 31 0;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 24 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 21 0 4 0;
#X connect 22 0 35 0;
#X connect 22 0 53 0;
#X connect 23 0 53 0;
#X connect 24 0 13 0;
#X connect 24 0 54 0;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 20 0;
#X connect 27 0 41 0;
#X connect 28 0 41 0;
#X connect 29 0 7 1;
#X connect 30 0 8 1;
#X connect 31 0 41 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 6 1;
#X connect 34 0 5 1;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 46 0;
#X connect 38 0 14 0;
#X connect 38 0 32 0;
#X connect 39 0 45 0;
#X connect 39 0 55 0;
#X connect 39 0 56 0;
#X connect 40 0 25 0;
#X connect 47 0 64 0;
#X connect 48 0 30 0;
#X connect 48 0 33 0;
#X connect 48 0 34 0;
#X connect 48 0 29 0;
#X connect 48 0 42 0;
#X connect 49 0 2 1;
#X connect 49 0 43 0;
#X connect 50 0 3 1;
#X connect 50 0 44 0;
#X connect 51 0 6 0;
#X connect 51 0 8 0;
#X connect 52 0 5 0;
#X connect 52 0 7 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 66 0;
#X connect 64 1 59 0;
#X connect 65 0 61 0;
#X connect 66 0 65 0;
#X connect 67 0 65 0;
#X connect 68 0 67 0;
#X connect 68 1 69 0;
#X connect 69 0 65 0;
#X connect 70 0 68 0;
#X restore 664 348 pd d-string;
#N canvas 0 25 997 656 g-string 0;
#X text 245 266 vertical plane;
#X text 857 320 horizontal plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 190 306 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 29 303 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 190 284 delread~ \$0-g-string-del-xz 5.1021;
#X obj 586 266 delread~ \$0-g-string-del-xy 5.1021;
#X obj 665 460 delwrite~ \$0-g-string-del-xy 50;
#X obj 140 452 delwrite~ \$0-g-string-del-xz 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X obj 4 332 r \$0-mute-g;
#X connect 2 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 54 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 6 0 37 0;
#X connect 7 0 26 0;
#X connect 8 0 17 0;
#X connect 13 0 28 0;
#X connect 14 0 31 0;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 24 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 21 0 4 0;
#X connect 22 0 35 0;
#X connect 22 0 53 0;
#X connect 23 0 53 0;
#X connect 24 0 13 0;
#X connect 24 0 54 0;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 20 0;
#X connect 27 0 41 0;
#X connect 28 0 41 0;
#X connect 29 0 7 1;
#X connect 30 0 8 1;
#X connect 31 0 41 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 6 1;
#X connect 34 0 5 1;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 46 0;
#X connect 38 0 14 0;
#X connect 38 0 32 0;
#X connect 39 0 45 0;
#X connect 39 0 55 0;
#X connect 39 0 56 0;
#X connect 40 0 25 0;
#X connect 47 0 64 0;
#X connect 48 0 30 0;
#X connect 48 0 33 0;
#X connect 48 0 34 0;
#X connect 48 0 29 0;
#X connect 48 0 42 0;
#X connect 49 0 2 1;
#X connect 49 0 43 0;
#X connect 50 0 3 1;
#X connect 50 0 44 0;
#X connect 51 0 6 0;
#X connect 51 0 8 0;
#X connect 52 0 5 0;
#X connect 52 0 7 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 66 0;
#X connect 64 1 59 0;
#X connect 65 0 61 0;
#X connect 66 0 65 0;
#X connect 67 0 65 0;
#X connect 68 0 67 0;
#X connect 68 1 69 0;
#X connect 69 0 65 0;
#X connect 70 0 68 0;
#X restore 836 348 pd g-string;
#N canvas 0 25 997 656 b-string 0;
#X text 245 266 vertical plane;
#X text 857 320 horizontal plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 190 306 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 29 303 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 191 284 delread~ \$0-b-string-del-xz 4.04954;
#X obj 586 266 delread~ \$0-b-string-del-xy 4.04954;
#X obj 665 460 delwrite~ \$0-b-string-del-xy 50;
#X obj 140 452 delwrite~ \$0-b-string-del-xz 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X obj 4 332 r \$0-mute-b;
#X connect 2 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 54 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 6 0 37 0;
#X connect 7 0 26 0;
#X connect 8 0 17 0;
#X connect 13 0 28 0;
#X connect 14 0 31 0;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 24 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 21 0 4 0;
#X connect 22 0 35 0;
#X connect 22 0 53 0;
#X connect 23 0 53 0;
#X connect 24 0 13 0;
#X connect 24 0 54 0;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 20 0;
#X connect 27 0 41 0;
#X connect 28 0 41 0;
#X connect 29 0 7 1;
#X connect 30 0 8 1;
#X connect 31 0 41 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 6 1;
#X connect 34 0 5 1;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 46 0;
#X connect 38 0 14 0;
#X connect 38 0 32 0;
#X connect 39 0 45 0;
#X connect 39 0 55 0;
#X connect 39 0 56 0;
#X connect 40 0 25 0;
#X connect 47 0 64 0;
#X connect 48 0 30 0;
#X connect 48 0 33 0;
#X connect 48 0 34 0;
#X connect 48 0 29 0;
#X connect 48 0 42 0;
#X connect 49 0 2 1;
#X connect 49 0 43 0;
#X connect 50 0 3 1;
#X connect 50 0 44 0;
#X connect 51 0 6 0;
#X connect 51 0 8 0;
#X connect 52 0 5 0;
#X connect 52 0 7 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 66 0;
#X connect 64 1 59 0;
#X connect 65 0 61 0;
#X connect 66 0 65 0;
#X connect 67 0 65 0;
#X connect 68 0 67 0;
#X connect 68 1 69 0;
#X connect 69 0 65 0;
#X connect 70 0 68 0;
#X restore 1016 348 pd b-string;
#N canvas 0 25 997 656 high-e-string 0;
#X text 245 266 vertical plane;
#X text 857 320 horizontal plane;
#X obj 367 319 *~;
#X obj 459 321 *~;
#X obj 587 409 clip~ -1 1;
#X obj 587 352 *~;
#X obj 227 345 *~;
#X obj 614 321 *~;
#X obj 190 306 *~;
#X text 642 318 horizontal-horizontal transfer;
#X text 29 303 vertical-vertical transfer;
#X text 467 349 horizontal-vertical;
#X text 249 347 vertical-horizontal;
#X obj 237 595 lop~ 3000;
#X obj 167 595 *~ 0.1;
#X obj 587 371 lop~ 3500;
#X obj 265 402 lop~ 4000;
#X obj 140 388 lop~ 4500;
#X obj 140 408 hip~ 10;
#X obj 378 583 hip~ 10;
#X obj 666 417 hip~ 10;
#X obj 587 390 hip~ 10;
#X obj 665 438 clip~ -1 1;
#X obj 429 607 clip~ -1 1;
#X obj 140 427 clip~ -1 1;
#X obj 429 583 hip~ 20;
#X obj 666 397 lop~ 5000;
#X obj 366 620 *~ 100;
#X obj 236 618 *~ 0.3;
#X obj 672 237 * 0.6;
#X obj 226 251 * 0.59;
#X obj 167 617 lop~ 4000;
#X obj 229 211 lop~ 2000;
#X obj 311 243 * 0.42;
#X obj 580 231 * 0.393;
#X obj 298 595 lop~ 3000;
#X obj 297 618 *~ 0.3;
#X obj 424 452 *~ 0.01425;
#X obj 103 181 inlet~ pluck;
#X obj 242 185 inlet delaylength;
#X obj 870 202 inlet~ bodyres;
#X obj 361 716 outlet~;
#X floatatom 473 205 5 0 0 0 - - -;
#X floatatom 680 221 5 0 0 0 - - -;
#X floatatom 754 225 5 0 0 0 - - -;
#X floatatom 361 204 8 0 0 0 - - -;
#X obj 427 716 outlet~ body-res;
#X obj 35 181 inlet bang;
#X obj 469 184 r \$0-muting;
#X obj 638 201 r \$0-sin-magnitude;
#X obj 755 202 r \$0-cos-magnitude;
#X obj 191 284 delread~ \$0-high-e-string-del-xz 3.03373;
#X obj 586 266 delread~ \$0-high-e-string-del-xy 3.03373;
#X obj 665 461 delwrite~ \$0-high-e-string-del-xy 50;
#X obj 140 452 delwrite~ \$0-high-e-string-del-xz 50;
#X obj 422 235 / 1;
#X obj 374 235 * 1;
#X obj 423 101 r \$0-offset;
#X obj 14 521 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 9 476 1;
#X msg 40 476 0;
#X floatatom 40 439 5 0 0 0 - - -;
#X obj 40 457 sel 0;
#X obj 14 547 switch~ 1;
#X obj 38 223 t b b;
#X obj 40 419 line 1 5;
#X msg 40 397 1 0 \, 0 60000;
#X msg 0 375 0 5;
#X obj 0 354 sel 0 1;
#X msg 29 375 1;
#X obj 4 332 r \$0-mute-high-e;
#X connect 2 0 8 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 7 0;
#X connect 4 0 54 0;
#X connect 5 0 15 0;
#X connect 6 0 16 0;
#X connect 6 0 37 0;
#X connect 7 0 26 0;
#X connect 8 0 17 0;
#X connect 13 0 28 0;
#X connect 14 0 31 0;
#X connect 15 0 21 0;
#X connect 16 0 19 0;
#X connect 17 0 18 0;
#X connect 18 0 24 0;
#X connect 18 0 37 0;
#X connect 19 0 23 0;
#X connect 20 0 22 0;
#X connect 21 0 4 0;
#X connect 22 0 35 0;
#X connect 22 0 53 0;
#X connect 23 0 53 0;
#X connect 24 0 13 0;
#X connect 24 0 54 0;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 26 0 20 0;
#X connect 27 0 41 0;
#X connect 28 0 41 0;
#X connect 29 0 7 1;
#X connect 30 0 8 1;
#X connect 31 0 41 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 6 1;
#X connect 34 0 5 1;
#X connect 35 0 36 0;
#X connect 36 0 41 0;
#X connect 37 0 46 0;
#X connect 38 0 14 0;
#X connect 38 0 32 0;
#X connect 39 0 45 0;
#X connect 39 0 55 0;
#X connect 39 0 56 0;
#X connect 40 0 25 0;
#X connect 47 0 64 0;
#X connect 48 0 30 0;
#X connect 48 0 33 0;
#X connect 48 0 34 0;
#X connect 48 0 29 0;
#X connect 48 0 42 0;
#X connect 49 0 2 1;
#X connect 49 0 43 0;
#X connect 50 0 3 1;
#X connect 50 0 44 0;
#X connect 51 0 6 0;
#X connect 51 0 8 0;
#X connect 52 0 5 0;
#X connect 52 0 7 0;
#X connect 55 0 52 0;
#X connect 56 0 51 0;
#X connect 57 0 56 1;
#X connect 57 0 55 1;
#X connect 58 0 63 0;
#X connect 59 0 58 0;
#X connect 60 0 58 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 64 0 66 0;
#X connect 64 1 59 0;
#X connect 65 0 61 0;
#X connect 66 0 65 0;
#X connect 67 0 65 0;
#X connect 68 0 67 0;
#X connect 68 1 69 0;
#X connect 69 0 65 0;
#X connect 70 0 68 0;
#X restore 1201 348 pd high-e-string;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X obj 160 172 +~ 1606;
#X obj 159 148 *~ 1000;
#X obj 116 229 vcf~ 15;
#X obj 148 264 *~ 6;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 14 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 17 0 2 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 289 253 pd gopluckyourself;
#X obj 48 162 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 43 117 1;
#X msg 74 117 0;
#X floatatom 74 80 5 0 0 0 - - -;
#X obj 74 98 sel 0;
#X obj 75 60 line 1 60000;
#X msg 75 41 1 0 \, 0 60000;
#X obj 48 188 switch~ 1;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 143 87 delwrite~ \$0-a-pick-position 100;
#X obj 141 116 delread~ \$0-a-pick-position 3;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 15 0 3 1;
#X restore 473 280 pd pick-position;
#X floatatom 588 254 5 0 0 0 - - -;
#X text 619 252 in ms;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X obj 160 172 +~ 1928;
#X obj 159 148 *~ 1800;
#X obj 117 229 vcf~ 20;
#X obj 148 264 *~ 5.21739;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 14 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 17 0 2 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 473 253 pd gopluckyourself;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 143 87 delwrite~ \$0-d-pick-position 100;
#X obj 141 116 delread~ \$0-d-pick-position 3;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 15 0 3 1;
#X restore 654 280 pd pick-position;
#X floatatom 769 254 5 0 0 0 - - -;
#X text 800 252 in ms;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X obj 160 172 +~ 2314;
#X obj 159 148 *~ 3240;
#X obj 117 229 vcf~ 25;
#X obj 148 264 *~ 4.53686;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 14 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 17 0 2 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 654 253 pd gopluckyourself;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 143 87 delwrite~ \$0-g-pick-position 100;
#X obj 141 116 delread~ \$0-g-pick-position 3;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 15 0 3 1;
#X restore 836 283 pd pick-position;
#X floatatom 951 257 5 0 0 0 - - -;
#X text 982 255 in ms;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X obj 160 172 +~ 2777;
#X obj 159 148 *~ 5832;
#X obj 117 229 vcf~ 30;
#X obj 148 264 *~ 3.9451;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 14 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 17 0 2 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 835 256 pd gopluckyourself;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 143 87 delwrite~ \$0-b-pick-position 100;
#X obj 141 116 delread~ \$0-b-pick-position 3;
#X connect 0 0 3 0;
#X connect 0 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 15 0 3 1;
#X restore 1016 285 pd pick-position;
#X floatatom 1131 259 5 0 0 0 - - -;
#X text 1162 257 in ms;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X obj 160 172 +~ 3333;
#X obj 159 148 *~ 10498;
#X obj 117 229 vcf~ 35;
#X obj 147 265 *~ 3.43052;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 14 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 17 0;
#X connect 11 0 15 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 9 0;
#X connect 15 0 10 0;
#X connect 17 0 2 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 1016 258 pd gopluckyourself;
#N canvas 0 25 1016 656 pick-position 0;
#X obj 81 21 inlet~;
#X obj 80 267 outlet~;
#X obj 171 20 inlet position;
#X obj 81 216 -~;
#X obj 15 21 inlet bang;
#X obj -4 226 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg -9 181 1;
#X msg 22 181 0;
#X floatatom 31 135 5 0 0 0 - - -;
#X obj 31 153 sel 0;
#X obj 1 64 t b b;
#X msg 31 97 1 0 \, 0 40;
#X obj 31 116 line 1 40;
#X obj -4 247 switch~ 16;
#X obj 141 116 delread~ \$0-high-e-pick-position 3;
#X obj 143 87 delwrite~ \$0-high-e-pick-position 100;
#X connect 0 0 3 0;
#X connect 0 0 15 0;
#X connect 2 0 14 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 5 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 10 1 6 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 14 0 3 1;
#X restore 1199 287 pd pick-position;
#X floatatom 1313 261 5 0 0 0 - - -;
#X text 1344 259 in ms;
#N canvas 469 25 445 656 gopluckyourself 0;
#X obj 62 57 noise~;
#X obj 104 -43 inlet bang;
#X obj 129 412 outlet~;
#X obj 241 148 tgl 15 0 empty empty empty 0 -6 0 10 -262144 -1 -1 0
1;
#X msg 236 103 1;
#X msg 267 103 0;
#X floatatom 326 81 5 0 0 0 - - -;
#X obj 326 99 sel 0;
#X obj 214 -7 t b b b;
#X obj 143 57 vline~;
#X obj 128 312 *~;
#X obj 15 126 clip~ -1 1;
#X obj 143 88 *~;
#X obj 14 83 *~ 5;
#X obj 50 248 *~ 0.1;
#X obj 241 168 switch~ 64;
#X obj 129 350 *~ 0.2;
#X msg 142 37 1 1 0 \, 0 9 1;
#X obj 160 172 +~ 4000;
#X obj 159 148 *~ 18896;
#X obj 116 229 vcf~ 40;
#X obj 147 264 *~ 2.98306;
#X msg 326 43 1 0 \, 0 15;
#X obj 326 62 line 1 15;
#X connect 0 0 13 0;
#X connect 1 0 8 0;
#X connect 3 0 15 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 22 0;
#X connect 8 1 17 0;
#X connect 8 2 4 0;
#X connect 9 0 12 0;
#X connect 9 0 12 1;
#X connect 10 0 16 0;
#X connect 11 0 14 0;
#X connect 11 0 20 0;
#X connect 12 0 19 0;
#X connect 12 0 21 0;
#X connect 13 0 11 0;
#X connect 14 0 10 0;
#X connect 16 0 2 0;
#X connect 17 0 9 0;
#X connect 18 0 20 1;
#X connect 19 0 18 0;
#X connect 20 0 10 0;
#X connect 21 0 10 1;
#X connect 22 0 23 0;
#X connect 23 0 6 0;
#X restore 1198 260 pd gopluckyourself;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 422 102 pd convert-and-trigger;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 644 100 pd convert-and-trigger;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 854 99 pd convert-and-trigger;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 1006 99 pd convert-and-trigger;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 1188 99 pd convert-and-trigger;
#N canvas 0 0 450 300 convert-and-trigger 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 89 126 pd midi-to-delay-length;
#X obj 45 16 inlet;
#X obj -1 261 outlet bang;
#X obj 45 66 t b b f;
#X obj 71 261 outlet pluck-bang;
#X obj 179 261 outlet delay-length;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 3 2 0 0;
#X restore 160 99 pd convert-and-trigger;
#X obj 423 -88 t b l b;
#X obj 748 483 *~ 0.75;
#X obj 407 405 line~;
#X obj 392 428 *~;
#X msg 407 385 \$1 5;
#N canvas 0 25 1003 663 ----------pipe-assignment---------- 0;
#X obj 115 -484 packel 1;
#X obj 212 -484 packel 2;
#X obj 288 -484 packel 3;
#X obj 380 -484 packel 4;
#X obj 475 -484 packel 5;
#X obj 589 -484 packel 6;
#X symbolatom 127 -464 10 0 0 0 - - -;
#X floatatom 79 -466 5 0 0 0 - - -;
#X obj 79 -450 moses 1;
#X floatatom 85 -282 5 0 0 0 - - -;
#X symbolatom 224 -448 10 0 0 0 - - -;
#X floatatom 175 -448 5 0 0 0 - - -;
#X obj 175 -432 moses 1;
#X floatatom 214 -283 5 0 0 0 - - -;
#X symbolatom 318 -431 10 0 0 0 - - -;
#X floatatom 271 -430 5 0 0 0 - - -;
#X obj 271 -414 moses 1;
#X floatatom 268 -281 5 0 0 0 - - -;
#X symbolatom 415 -410 10 0 0 0 - - -;
#X floatatom 367 -412 5 0 0 0 - - -;
#X obj 367 -396 moses 1;
#X floatatom 347 -280 5 0 0 0 - - -;
#X symbolatom 511 -392 10 0 0 0 - - -;
#X floatatom 463 -394 5 0 0 0 - - -;
#X obj 463 -378 moses 1;
#X floatatom 426 -279 5 0 0 0 - - -;
#X symbolatom 609 -374 10 0 0 0 - - -;
#X floatatom 561 -376 5 0 0 0 - - -;
#X obj 561 -360 moses 1;
#X floatatom 509 -277 5 0 0 0 - - -;
#X obj 599 -192 int;
#X obj 627 -192 + 1;
#X floatatom 596 -168 5 0 0 0 - - -;
#X msg 599 -212 0;
#X obj 32 -217 spigot;
#X msg 42 -261 1;
#X msg 70 -261 0;
#X msg 596 -148 set \$1;
#X msg 594 -118 1 48 p p p p;
#X msg 678 -219 add2 \$1;
#X msg 669 -293 symbol x;
#X obj 611 -331 t b b b;
#X obj 502 -346 t b b b;
#X obj 400 -366 t b b b;
#X obj 301 -384 t b b b;
#X obj 216 -406 t b b b;
#X obj 93 -423 t b b b;
#X obj 293 -522 t b a a a a a a;
#X obj 594 -96 route 0 1 2 3 4 5;
#X obj 58 -541 inlet bang;
#X obj 316 -546 inlet list;
#N canvas 0 0 450 300 assign0 0;
#X obj 95 -113 packel 1;
#X obj 149 -113 packel 2;
#X obj 203 -113 packel 3;
#X obj 257 -113 packel 4;
#X obj 311 -113 packel 5;
#X obj 365 -113 packel 6;
#X floatatom 2 -95 5 0 0 0 - - -;
#X obj 2 -79 moses 1;
#X floatatom 90 -77 5 0 0 0 - - -;
#X obj 90 -61 moses 1;
#X floatatom 175 -59 5 0 0 0 - - -;
#X obj 175 -43 moses 1;
#X floatatom 259 -41 5 0 0 0 - - -;
#X obj 259 -25 moses 1;
#X floatatom 343 -23 5 0 0 0 - - -;
#X obj 343 -7 moses 1;
#X floatatom 427 -5 5 0 0 0 - - -;
#X obj 427 11 moses 1;
#X obj 241 -155 inlet list;
#X obj 71 40 outlet;
#X obj 113 40 outlet;
#X obj 155 40 outlet;
#X obj 197 40 outlet;
#X obj 239 40 outlet;
#X obj 281 40 outlet;
#X connect 0 0 6 0;
#X connect 1 0 8 0;
#X connect 2 0 10 0;
#X connect 3 0 12 0;
#X connect 4 0 14 0;
#X connect 5 0 16 0;
#X connect 6 0 7 0;
#X connect 7 1 19 0;
#X connect 8 0 9 0;
#X connect 9 1 20 0;
#X connect 10 0 11 0;
#X connect 11 1 21 0;
#X connect 12 0 13 0;
#X connect 13 1 22 0;
#X connect 14 0 15 0;
#X connect 15 1 23 0;
#X connect 16 0 17 0;
#X connect 17 1 24 0;
#X connect 18 0 0 0;
#X connect 18 0 1 0;
#X connect 18 0 2 0;
#X connect 18 0 3 0;
#X connect 18 0 4 0;
#X connect 18 0 5 0;
#X restore 434 -64 pd assign0;
#N canvas 0 25 1016 656 assign1 0;
#X obj 95 -113 packel 1;
#X obj 149 -113 packel 2;
#X obj 203 -113 packel 3;
#X obj 257 -113 packel 4;
#X obj 311 -113 packel 5;
#X floatatom 2 -95 5 0 0 0 - - -;
#X obj 2 -79 moses 1;
#X floatatom 90 -77 5 0 0 0 - - -;
#X obj 90 -61 moses 1;
#X floatatom 175 -59 5 0 0 0 - - -;
#X obj 175 -43 moses 1;
#X floatatom 259 -41 5 0 0 0 - - -;
#X obj 259 -25 moses 1;
#X floatatom 343 -23 5 0 0 0 - - -;
#X obj 343 -7 moses 1;
#X obj 241 -155 inlet list;
#X obj 71 40 outlet;
#X obj 113 40 outlet;
#X obj 155 40 outlet;
#X obj 197 40 outlet;
#X obj 239 40 outlet;
#X connect 0 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 9 0;
#X connect 3 0 11 0;
#X connect 4 0 13 0;
#X connect 5 0 6 0;
#X connect 6 1 16 0;
#X connect 7 0 8 0;
#X connect 8 1 17 0;
#X connect 9 0 10 0;
#X connect 10 1 18 0;
#X connect 11 0 12 0;
#X connect 12 1 19 0;
#X connect 13 0 14 0;
#X connect 14 1 20 0;
#X connect 15 0 0 0;
#X connect 15 0 1 0;
#X connect 15 0 2 0;
#X connect 15 0 3 0;
#X connect 15 0 4 0;
#X restore 500 -64 pd assign1;
#N canvas 0 25 1022 661 assign2 0;
#X obj 95 -113 packel 1;
#X obj 149 -113 packel 2;
#X obj 203 -113 packel 3;
#X obj 257 -113 packel 4;
#X floatatom 2 -95 5 0 0 0 - - -;
#X obj 2 -79 moses 1;
#X floatatom 90 -77 5 0 0 0 - - -;
#X obj 90 -61 moses 1;
#X floatatom 175 -59 5 0 0 0 - - -;
#X obj 175 -43 moses 1;
#X floatatom 259 -41 5 0 0 0 - - -;
#X obj 259 -25 moses 1;
#X obj 241 -155 inlet list;
#X obj 71 40 outlet;
#X obj 113 40 outlet;
#X obj 155 40 outlet;
#X obj 197 40 outlet;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 2 0 8 0;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 5 1 13 0;
#X connect 6 0 7 0;
#X connect 7 1 14 0;
#X connect 8 0 9 0;
#X connect 9 1 15 0;
#X connect 10 0 11 0;
#X connect 11 1 16 0;
#X connect 12 0 0 0;
#X connect 12 0 1 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 566 -64 pd assign2;
#N canvas 0 0 450 300 assign3 0;
#X obj 95 -113 packel 1;
#X obj 149 -113 packel 2;
#X obj 203 -113 packel 3;
#X floatatom 2 -95 5 0 0 0 - - -;
#X obj 2 -79 moses 1;
#X floatatom 90 -77 5 0 0 0 - - -;
#X obj 90 -61 moses 1;
#X floatatom 175 -59 5 0 0 0 - - -;
#X obj 175 -43 moses 1;
#X obj 241 -155 inlet list;
#X obj 71 40 outlet;
#X obj 113 40 outlet;
#X obj 155 40 outlet;
#X connect 0 0 3 0;
#X connect 1 0 5 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 1 10 0;
#X connect 5 0 6 0;
#X connect 6 1 11 0;
#X connect 7 0 8 0;
#X connect 8 1 12 0;
#X connect 9 0 0 0;
#X connect 9 0 1 0;
#X connect 9 0 2 0;
#X restore 632 -64 pd assign3;
#N canvas 0 0 450 300 assign4 0;
#X obj 213 -99 packel 1;
#X obj 267 -99 packel 2;
#X floatatom 154 -64 5 0 0 0 - - -;
#X obj 154 -48 moses 1;
#X floatatom 242 -46 5 0 0 0 - - -;
#X obj 242 -30 moses 1;
#X obj 241 -155 inlet list;
#X obj 189 54 outlet;
#X obj 231 54 outlet;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 1 7 0;
#X connect 4 0 5 0;
#X connect 5 1 8 0;
#X connect 6 0 0 0;
#X connect 6 0 1 0;
#X restore 698 -64 pd assign4;
#N canvas 0 0 450 300 assign5 0;
#X obj 237 -125 packel 1;
#X floatatom 235 -87 5 0 0 0 - - -;
#X obj 235 -71 moses 1;
#X obj 241 -155 inlet list;
#X obj 218 27 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 1 4 0;
#X connect 3 0 0 0;
#X restore 764 -64 pd assign5;
#X obj 49 11 pipe 8;
#X obj 99 10 pipe 16;
#X obj 152 10 pipe 24;
#X obj 206 10 pipe 32;
#X obj 207 -56 * 2;
#X obj 234 -56 * 3;
#X obj 260 -56 * 4;
#X obj 285 -56 * 5;
#X obj 260 10 pipe 40;
#X obj 104 41 pipe 8;
#X obj 154 40 pipe 16;
#X obj 207 40 pipe 24;
#X obj 260 39 pipe 32;
#X obj 155 74 pipe 8;
#X obj 207 74 pipe 16;
#X obj 261 72 pipe 24;
#X obj 206 104 pipe 8;
#X obj 260 103 pipe 16;
#X obj 264 132 pipe 8;
#X obj 36 201 outlet to-low-e;
#X obj 132 201 outlet to-a;
#X obj 204 201 outlet to-d;
#X obj 276 201 outlet to-g;
#X obj 348 201 outlet to-b;
#X obj 420 201 outlet to-high-e;
#X msg 57 -181 0;
#X msg 85 -181 1;
#X msg 154 -180 0;
#X msg 182 -180 1;
#X msg 240 -182 0;
#X msg 268 -182 1;
#X msg 320 -183 0;
#X msg 348 -183 1;
#X msg 398 -185 0;
#X msg 426 -185 1;
#X msg 481 -185 0;
#X msg 509 -185 1;
#X obj 159 -101 r \$0-pick-spacing;
#X obj 48 -137 s \$0-mute-low-e;
#X obj 157 -137 s \$0-mute-a;
#X obj 241 -137 s \$0-mute-d;
#X obj 325 -137 s \$0-mute-g;
#X obj 409 -137 s \$0-mute-b;
#X obj 484 -137 s \$0-mute-high-e;
#X obj 127 -448 sel x p;
#X obj 223 -432 sel x p;
#X obj 318 -415 sel x p;
#X obj 414 -393 sel x p;
#X obj 511 -376 sel x p;
#X obj 610 -358 sel x p;
#X obj 146 -396 t b b;
#X msg 678 -259 symbol p;
#X obj 246 -372 t b b;
#X obj 330 -355 t b b;
#X obj 433 -336 t b b;
#X obj 544 -318 t b b;
#X obj 634 -311 t b b;
#X text 641 -460 This subpatcher is ugly \, but basically what it does
is turn messages into strumming. If you wanted to turn this guitar
model into an instrument to use with a MIDI keyboard \, you could get
rid of this whole thing.;
#X connect 0 0 7 0;
#X connect 0 0 6 0;
#X connect 1 0 11 0;
#X connect 1 0 10 0;
#X connect 2 0 15 0;
#X connect 2 0 14 0;
#X connect 3 0 19 0;
#X connect 3 0 18 0;
#X connect 4 0 23 0;
#X connect 4 0 22 0;
#X connect 5 0 27 0;
#X connect 5 0 26 0;
#X connect 6 0 101 0;
#X connect 7 0 8 0;
#X connect 8 1 9 0;
#X connect 9 0 36 0;
#X connect 9 0 39 0;
#X connect 9 0 83 0;
#X connect 10 0 102 0;
#X connect 11 0 12 0;
#X connect 12 1 13 0;
#X connect 13 0 36 0;
#X connect 13 0 39 0;
#X connect 13 0 85 0;
#X connect 14 0 103 0;
#X connect 15 0 16 0;
#X connect 16 1 17 0;
#X connect 17 0 36 0;
#X connect 17 0 39 0;
#X connect 17 0 87 0;
#X connect 18 0 104 0;
#X connect 19 0 20 0;
#X connect 20 1 21 0;
#X connect 21 0 36 0;
#X connect 21 0 39 0;
#X connect 21 0 89 0;
#X connect 22 0 105 0;
#X connect 23 0 24 0;
#X connect 24 1 25 0;
#X connect 25 0 36 0;
#X connect 25 0 39 0;
#X connect 25 0 91 0;
#X connect 26 0 106 0;
#X connect 27 0 28 0;
#X connect 28 1 29 0;
#X connect 29 0 36 0;
#X connect 29 0 39 0;
#X connect 29 0 93 0;
#X connect 30 0 31 0;
#X connect 30 0 32 0;
#X connect 31 0 30 1;
#X connect 32 0 37 0;
#X connect 33 0 30 0;
#X connect 34 0 30 0;
#X connect 35 0 34 1;
#X connect 36 0 34 1;
#X connect 37 0 38 0;
#X connect 38 0 48 0;
#X connect 39 0 38 0;
#X connect 40 0 39 0;
#X connect 41 0 92 0;
#X connect 41 1 34 0;
#X connect 41 2 40 0;
#X connect 42 0 90 0;
#X connect 42 1 34 0;
#X connect 42 2 40 0;
#X connect 43 0 88 0;
#X connect 43 1 34 0;
#X connect 43 2 40 0;
#X connect 44 0 86 0;
#X connect 44 1 34 0;
#X connect 44 2 40 0;
#X connect 45 0 84 0;
#X connect 45 1 34 0;
#X connect 45 2 40 0;
#X connect 46 0 82 0;
#X connect 46 1 34 0;
#X connect 46 2 40 0;
#X connect 47 0 38 0;
#X connect 47 1 5 0;
#X connect 47 2 4 0;
#X connect 47 3 3 0;
#X connect 47 4 2 0;
#X connect 47 5 1 0;
#X connect 47 6 0 0;
#X connect 48 0 51 0;
#X connect 48 1 52 0;
#X connect 48 2 53 0;
#X connect 48 3 54 0;
#X connect 48 4 55 0;
#X connect 48 5 56 0;
#X connect 49 0 33 0;
#X connect 49 0 35 0;
#X connect 50 0 47 0;
#X connect 51 0 76 0;
#X connect 51 1 57 0;
#X connect 51 2 58 0;
#X connect 51 3 59 0;
#X connect 51 4 60 0;
#X connect 51 5 65 0;
#X connect 52 0 77 0;
#X connect 52 1 66 0;
#X connect 52 2 67 0;
#X connect 52 3 68 0;
#X connect 52 4 69 0;
#X connect 53 0 78 0;
#X connect 53 1 70 0;
#X connect 53 2 71 0;
#X connect 53 3 72 0;
#X connect 54 0 79 0;
#X connect 54 1 73 0;
#X connect 54 2 74 0;
#X connect 55 0 80 0;
#X connect 55 1 75 0;
#X connect 56 0 81 0;
#X connect 57 0 77 0;
#X connect 58 0 78 0;
#X connect 59 0 79 0;
#X connect 60 0 80 0;
#X connect 61 0 58 1;
#X connect 61 0 67 1;
#X connect 61 0 71 1;
#X connect 61 0 74 1;
#X connect 62 0 59 1;
#X connect 62 0 68 1;
#X connect 62 0 72 1;
#X connect 63 0 60 1;
#X connect 63 0 69 1;
#X connect 64 0 65 1;
#X connect 65 0 81 0;
#X connect 66 0 78 0;
#X connect 67 0 79 0;
#X connect 68 0 80 0;
#X connect 69 0 81 0;
#X connect 70 0 79 0;
#X connect 71 0 80 0;
#X connect 72 0 81 0;
#X connect 73 0 80 0;
#X connect 74 0 81 0;
#X connect 75 0 81 0;
#X connect 82 0 95 0;
#X connect 83 0 95 0;
#X connect 84 0 96 0;
#X connect 85 0 96 0;
#X connect 86 0 97 0;
#X connect 87 0 97 0;
#X connect 88 0 98 0;
#X connect 89 0 98 0;
#X connect 90 0 99 0;
#X connect 91 0 99 0;
#X connect 92 0 100 0;
#X connect 93 0 100 0;
#X connect 94 0 57 1;
#X connect 94 0 61 0;
#X connect 94 0 62 0;
#X connect 94 0 63 0;
#X connect 94 0 64 0;
#X connect 94 0 66 1;
#X connect 94 0 70 1;
#X connect 94 0 73 1;
#X connect 94 0 75 1;
#X connect 101 0 46 0;
#X connect 101 1 107 0;
#X connect 102 0 45 0;
#X connect 102 1 109 0;
#X connect 103 0 44 0;
#X connect 103 1 110 0;
#X connect 104 0 43 0;
#X connect 104 1 111 0;
#X connect 105 0 42 0;
#X connect 105 1 112 0;
#X connect 106 0 41 0;
#X connect 106 1 113 0;
#X connect 107 0 34 0;
#X connect 107 1 108 0;
#X connect 108 0 39 0;
#X connect 109 0 34 0;
#X connect 109 1 108 0;
#X connect 110 0 34 0;
#X connect 110 1 108 0;
#X connect 111 0 34 0;
#X connect 111 1 108 0;
#X connect 112 0 34 0;
#X connect 112 1 108 0;
#X connect 113 0 34 0;
#X connect 113 1 108 0;
#X restore 425 -1 pd ----------pipe-assignment----------;
#X obj 507 405 line~;
#X obj 492 428 *~;
#X msg 507 385 \$1 5;
#X obj 709 398 line~;
#X obj 694 421 *~;
#X msg 709 378 \$1 5;
#X obj 896 392 line~;
#X obj 881 415 *~;
#X msg 896 372 \$1 5;
#X obj 1070 394 line~;
#X obj 1055 417 *~;
#X msg 1070 374 \$1 5;
#X obj 1289 392 line~;
#X obj 1274 415 *~;
#X msg 1289 372 \$1 5;
#X obj 764 -158 r \$0-pick-angle;
#X obj 423 -133 prepend list;
#X obj 423 -162 r notelist;
#N canvas 0 25 1016 640 pick-position-delay-calculator 0;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 141 -99 pd midi-to-delay-length;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 169 -79 pd midi-to-delay-length;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 198 -60 pd midi-to-delay-length;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 228 -40 pd midi-to-delay-length;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 256 -20 pd midi-to-delay-length;
#N canvas 0 0 450 300 midi-to-delay-length 0;
#X obj 33 51 mtof;
#X obj 33 71 expr 1000/$f1;
#X obj 33 31 inlet;
#X obj 33 92 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X restore 285 0 pd midi-to-delay-length;
#X obj 228 -163 loadbang;
#X msg 141 -129 40;
#X msg 169 -129 45;
#X msg 198 -129 50;
#X msg 228 -129 55;
#X msg 256 -129 59;
#X msg 285 -129 64;
#X obj 141 -23 / 4;
#X obj 184 -1 / 4;
#X obj 215 23 / 4;
#X obj 254 47 / 4;
#X obj 293 68 / 4;
#X obj 328 89 / 4;
#X floatatom 204 -218 5 0 0 0 - - -;
#X obj 201 -190 t b f;
#X obj 188 -257 r \$0-pick-location;
#X obj 96 104 s \$0-low-e-pick-position-delay;
#X obj 115 131 s \$0-a-pick-position-delay;
#X obj 133 156 s \$0-d-pick-position-delay;
#X obj 150 179 s \$0-g-pick-position-delay;
#X obj 164 204 s \$0-b-pick-position-delay;
#X obj 178 227 s \$0-high-e-pick-position-delay;
#X connect 0 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 15 0;
#X connect 3 0 16 0;
#X connect 4 0 17 0;
#X connect 5 0 18 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 6 0 9 0;
#X connect 6 0 10 0;
#X connect 6 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 0 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 10 0 3 0;
#X connect 11 0 4 0;
#X connect 12 0 5 0;
#X connect 13 0 22 0;
#X connect 14 0 23 0;
#X connect 15 0 24 0;
#X connect 16 0 25 0;
#X connect 17 0 26 0;
#X connect 18 0 27 0;
#X connect 19 0 20 0;
#X connect 20 0 13 0;
#X connect 20 0 14 0;
#X connect 20 0 15 0;
#X connect 20 0 16 0;
#X connect 20 0 17 0;
#X connect 20 0 18 0;
#X connect 20 1 13 1;
#X connect 20 1 14 1;
#X connect 20 1 15 1;
#X connect 20 1 16 1;
#X connect 20 1 17 1;
#X connect 20 1 18 1;
#X connect 21 0 19 0;
#X restore 1235 -17 pd pick-position-delay-calculator;
#X obj 365 204 r \$0-low-e-pick-position-delay;
#X obj 556 204 r \$0-a-pick-position-delay;
#X obj 721 204 r \$0-d-pick-position-delay;
#X obj 914 204 r \$0-g-pick-position-delay;
#X obj 1090 204 r \$0-b-pick-position-delay;
#X obj 1266 205 r \$0-high-e-pick-position-delay;
#X obj 404 365 r \$0-mute-low-e;
#X obj 521 365 r \$0-mute-a;
#X obj 737 359 r \$0-mute-d;
#X obj 911 350 r \$0-mute-g;
#X obj 1094 350 r \$0-mute-b;
#X obj 1308 347 r \$0-mute-high-e;
#X obj 747 538 delwrite~ \$0-from-body 0;
#X obj 1295 321 delread~ \$0-from-body 0;
#X obj 1078 322 delread~ \$0-from-body 0;
#X obj 900 321 delread~ \$0-from-body 0;
#X obj 733 322 delread~ \$0-from-body 0;
#X obj 518 324 delread~ \$0-from-body 0;
#X obj 365 325 delread~ \$0-from-body 0;
#X obj 752 7 s \$0-sin-magnitude;
#X obj 868 7 s \$0-cos-magnitude;
#X text 395 -18 hideous innards that turn messages into strumming;
#X text 1172 -1 calculate comb filter lengths for pick position;
#X text 545 160 note that the pluck mechanisms sound a bit different
from string to string;
#X connect 1 0 9 0;
#X connect 2 0 8 0;
#X connect 4 0 89 0;
#X connect 5 0 11 1;
#X connect 6 0 5 2;
#X connect 8 0 97 0;
#X connect 9 0 96 0;
#X connect 11 0 0 0;
#X connect 11 1 55 0;
#X connect 12 0 0 0;
#X connect 12 1 59 0;
#X connect 13 0 0 0;
#X connect 13 1 62 0;
#X connect 14 0 0 0;
#X connect 14 1 65 0;
#X connect 15 0 0 0;
#X connect 15 1 68 0;
#X connect 16 0 0 0;
#X connect 16 1 71 0;
#X connect 17 0 5 1;
#X connect 18 0 25 0;
#X connect 19 0 18 0;
#X connect 20 0 18 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 24 0 23 0;
#X connect 26 0 12 1;
#X connect 27 0 26 2;
#X connect 29 0 26 1;
#X connect 30 0 13 1;
#X connect 31 0 30 2;
#X connect 33 0 30 1;
#X connect 34 0 14 1;
#X connect 35 0 34 2;
#X connect 37 0 34 1;
#X connect 38 0 15 1;
#X connect 39 0 38 2;
#X connect 41 0 38 1;
#X connect 42 0 16 1;
#X connect 43 0 42 2;
#X connect 45 0 42 1;
#X connect 46 0 12 0;
#X connect 46 1 29 0;
#X connect 46 1 26 0;
#X connect 46 2 12 2;
#X connect 47 0 13 0;
#X connect 47 1 33 0;
#X connect 47 1 30 0;
#X connect 47 2 13 2;
#X connect 48 0 14 0;
#X connect 48 1 37 0;
#X connect 48 1 34 0;
#X connect 48 2 14 2;
#X connect 49 0 15 0;
#X connect 49 1 41 0;
#X connect 49 1 38 0;
#X connect 49 2 15 2;
#X connect 50 0 16 0;
#X connect 50 1 45 0;
#X connect 50 1 42 0;
#X connect 50 2 16 2;
#X connect 51 0 11 0;
#X connect 51 1 17 0;
#X connect 51 1 5 0;
#X connect 51 2 11 2;
#X connect 52 0 24 0;
#X connect 52 1 57 1;
#X connect 52 2 19 0;
#X connect 52 2 57 0;
#X connect 53 0 4 0;
#X connect 54 0 55 1;
#X connect 55 0 53 0;
#X connect 56 0 54 0;
#X connect 57 0 51 0;
#X connect 57 1 46 0;
#X connect 57 2 47 0;
#X connect 57 3 48 0;
#X connect 57 4 49 0;
#X connect 57 5 50 0;
#X connect 58 0 59 1;
#X connect 59 0 53 0;
#X connect 60 0 58 0;
#X connect 61 0 62 1;
#X connect 62 0 53 0;
#X connect 63 0 61 0;
#X connect 64 0 65 1;
#X connect 65 0 53 0;
#X connect 66 0 64 0;
#X connect 67 0 68 1;
#X connect 68 0 53 0;
#X connect 69 0 67 0;
#X connect 70 0 71 1;
#X connect 71 0 53 0;
#X connect 72 0 70 0;
#X connect 73 0 2 0;
#X connect 73 0 1 0;
#X connect 74 0 52 0;
#X connect 75 0 74 0;
#X connect 77 0 6 0;
#X connect 78 0 27 0;
#X connect 79 0 31 0;
#X connect 80 0 35 0;
#X connect 81 0 39 0;
#X connect 82 0 43 0;
#X connect 83 0 56 0;
#X connect 84 0 60 0;
#X connect 85 0 63 0;
#X connect 86 0 66 0;
#X connect 87 0 69 0;
#X connect 88 0 72 0;
#X connect 90 0 16 3;
#X connect 91 0 15 3;
#X connect 92 0 14 3;
#X connect 93 0 13 3;
#X connect 94 0 12 3;
#X connect 95 0 11 3;
#X restore 22 268 pd delay-writer;
#X obj 83 299 loadbang;
#X obj 318 379 s notelist;
#X msg 242 284 x x 52 58 62 67;
#X msg 242 264 x 48 x x x x;
#X msg 242 304 43 x x x x x;
#X msg 367 264 p 48 p p p p;
#X msg 367 304 43 p p p p p;
#X msg 367 284 p p 52 58 62 67;
#X obj 46 106 loadbang;
#X obj 17 -34 loadbang;
#X text 50 -9 pluck spacing in strum;
#X text 80 197 radians;
#X text 81 125 pick angle;
#X text 40 474 raise volume and clip;
#X obj 150 95 vsl 15 128 1 1.004 0 0 \$0-offset empty empty 0 -8 0
10 -262144 -1 -1 0 1;
#X floatatom 150 229 8 0 0 0 - - -;
#X obj 125 54 loadbang;
#X msg 139 73 1;
#X text 108 29 offset two axes;
#X text 107 38 (like a kantele);
#X text 236 63 A WAVEGUIDE GUITAR;
#X text 236 157 example chord messages:;
#X text 235 182 -the numbers are MIDI notes;
#X text 235 202 -positions are different strings \, from low E to high
E;
#X msg 17 -12 40;
#X msg 83 318 2;
#X text 540 577 sg 2008;
#X text 235 222 -p means sustain the last note that was played on that
string \; x means mute it;
#X connect 0 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 8 0 3 0;
#X connect 8 0 3 1;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 0 0;
#X connect 13 0 15 0;
#X connect 14 0 6 0;
#X connect 20 0 16 0;
#X connect 21 0 20 0;
#X connect 22 0 9 0;
#X connect 23 0 48 0;
#X connect 25 0 24 0;
#X connect 26 0 24 0;
#X connect 27 0 24 0;
#X connect 28 0 24 0;
#X connect 29 0 24 0;
#X connect 30 0 24 0;
#X connect 31 0 14 0;
#X connect 32 0 47 0;
#X connect 37 0 38 0;
#X connect 39 0 40 0;
#X connect 40 0 37 0;
#X connect 47 0 13 0;
#X connect 48 0 10 0;