#N canvas 259 76 919 752 10;
#X obj 339 520 pluck~;
#X floatatom 60 193 5 0 0 0 - - -;
#X text 59 232 feedback [50 max];
#X obj 248 519 pluck~;
#X obj 149 520 pluck~;
#X obj 60 214 s feedback;
#X obj 511 617 r feedback;
#X floatatom 57 327 5 20 200 0 - - -;
#X text 64 312 current note;
#X obj 332 37 fiddle~;
#X obj 60 146 loadbang;
#X msg 60 169 40;
#N canvas 292 115 817 642 guitar-fiddle 0;
#X obj 106 64 inlet~;
#X floatatom 151 184 5 0 0 0 - - -;
#X obj 151 308 pluck~;
#X obj 151 210 pack 0 60;
#X floatatom 205 287 5 0 0 0 - - -;
#X text 249 289 feedback [50 max];
#X obj 106 90 fiddle~;
#X obj 151 143 lbyl;
#X msg 366 126 tolerance \$1;
#X msg 366 126 tolerance \$1;
#X floatatom 366 105 5 0 0 0 - - -;
#X msg 263 91 quota \$1;
#X floatatom 263 70 5 0 0 0 - - -;
#X msg 263 48 37;
#X obj 263 26 loadbang;
#X obj 366 62 loadbang;
#X msg 366 84 24;
#X obj 205 243 loadbang;
#X msg 205 265 36;
#X text 36 45 responds well to guitar;
#X obj 91 168 outlet;
#X obj 151 332 outlet~;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 21 0;
#X connect 3 0 2 0;
#X connect 4 0 2 1;
#X connect 6 0 7 0;
#X connect 7 0 1 0;
#X connect 7 0 20 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X connect 11 0 7 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 10 0;
#X connect 17 0 18 0;
#X connect 18 0 4 0;
#X restore 57 294 pd guitar-fiddle;
#X obj 441 320 metro 100;
#X floatatom 332 100 5 0 0 0 - - -;
#X floatatom 441 183 5 0 0 0 - - -;
#X obj 398 199 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 398 175 > 80;
#X obj 518 212 gate 1;
#X obj 361 225 gate 1;
#X obj 262 700 outlet~;
#X obj 57 269 inlet~;
#X obj 331 11 inlet~;
#X obj 164 352 outlet~;
#X obj 165 329 fader~;
#X obj 202 306 * 127;
#X obj 525 559 pack 0 0 0;
#X obj 525 583 outlet;
#X obj 521 319 metro 50;
#X obj 458 369 triads;
#X obj 410 519 pluck~;
#X floatatom 264 355 5 0 0 0 - - -;
#X obj 149 492 pack 0 60;
#X obj 410 492 pack 0 60;
#X obj 248 492 pack 0 60;
#X obj 339 491 pack 0 60;
#X text 306 353 chord type;
#X obj 57 355 s curNote;
#X obj 441 238 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 327 198 r curNote;
#X obj 263 669 *~;
#X floatatom 640 360 5 0 0 0 - - -;
#X msg 640 381 \$1 20;
#X obj 640 405 line~ 0;
#X obj 640 334 expr min(1 \, 0.01*(100-min($f1 \, 100)));
#X obj 264 292 int;
#X obj 264 266 expr ($f1-50)/54*4 + 1;
#X obj 264 317 expr max(1 \, min($f1 \, 4));
#X obj 636 221 * 4;
#X obj 636 244 + 30;
#X obj 636 267 outlet;
#X obj 636 197 expr 90-$f1;
#X obj 441 210 < 88;
#X text 390 16;
#X text 235 99 current note;
#X text 60 14 Theremin Controller for Synthesis of Plucked String Chords
Steven Backer MUS 220a HW#4;
#X text 577 584 output notes for use by other patches;
#X text 395 35 thermemin tracker;
#X connect 0 0 40 0;
#X connect 1 0 5 0;
#X connect 3 0 40 0;
#X connect 4 0 40 0;
#X connect 6 0 0 1;
#X connect 6 0 3 1;
#X connect 6 0 4 1;
#X connect 6 0 30 1;
#X connect 7 0 37 0;
#X connect 9 0 14 0;
#X connect 9 3 15 0;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 12 0 7 0;
#X connect 12 1 24 0;
#X connect 13 0 29 0;
#X connect 14 0 17 0;
#X connect 14 0 46 0;
#X connect 15 0 18 0;
#X connect 15 0 44 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 16 0 19 1;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X connect 18 0 28 0;
#X connect 19 0 29 1;
#X connect 21 0 12 0;
#X connect 22 0 9 0;
#X connect 24 0 23 0;
#X connect 25 0 24 1;
#X connect 26 0 27 0;
#X connect 28 0 29 0;
#X connect 29 0 32 0;
#X connect 29 0 26 0;
#X connect 29 1 34 0;
#X connect 29 1 26 1;
#X connect 29 2 35 0;
#X connect 29 2 26 2;
#X connect 29 3 33 0;
#X connect 30 0 40 0;
#X connect 31 0 29 0;
#X connect 32 0 4 0;
#X connect 33 0 30 0;
#X connect 34 0 3 0;
#X connect 35 0 0 0;
#X connect 38 0 18 1;
#X connect 38 0 13 0;
#X connect 38 0 28 0;
#X connect 39 0 19 0;
#X connect 40 0 20 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 40 1;
#X connect 44 0 41 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X connect 47 0 31 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 51 0 48 0;
#X connect 52 0 38 0;