harp~-help.pd

#N canvas 71 23 727 708 10;
#X obj 12 508 hip~ 3;
#X obj 12 530 clip~ -1 1;
#X obj 12 574 dac~ 1 2;
#X obj 194 227 loadbang;
#X obj 194 269 array set \$0-scale;
#X obj 194 290 array define \$0-scale;
#X obj 12 421 /~ 2;
#X obj 12 551 *~ 1;
#X obj 12 486 *~ 0.9;
#X obj 269 87 vsl 17 127 1 127 0 1 empty empty VELOCITY 0 -9 0 10 -262144
-1 -1 9400 1;
#X obj 269 222 nbx 3 17 1 127 0 0 empty empty empty 0 -8 0 10 -262144
-1 -1 95 256;
#X obj 12 109 unpack f f;
#X obj 269 244 v \$0-vel;
#X obj 159 144 v \$0-vel;
#X obj 159 123 sel 127;
#X obj 12 172 % 5;
#X obj 12 193 tabread \$0-scale;
#X obj 12 214 +;
#X obj 122 179 div 5;
#X obj 122 200 * 12;
#X obj 12 151 t f f;
#X obj 114 269 pack f f f;
#X obj 114 290 s \$0-poly;
#X obj 12 316 r \$0-poly;
#X obj 12 337 route 1;
#X obj 12 130 + 5;
#X msg 194 248 0 2 5 7 9;
#X obj 114 222 notein;
#X obj 92 379 mtof;
#X obj 92 421 /~ 2;
#X obj 92 316 r \$0-poly;
#X obj 92 358 unpack f f;
#X obj 92 337 route 2;
#X obj 172 379 mtof;
#X obj 172 421 /~ 2;
#X obj 172 316 r \$0-poly;
#X obj 172 358 unpack f f;
#X obj 252 379 mtof;
#X obj 252 421 /~ 2;
#X obj 252 316 r \$0-poly;
#X obj 252 358 unpack f f;
#X obj 172 337 route 3;
#X obj 252 337 route 4;
#X obj 332 379 mtof;
#X obj 332 421 /~ 2;
#X obj 332 316 r \$0-poly;
#X obj 332 358 unpack f f;
#X obj 412 379 mtof;
#X obj 412 421 /~ 2;
#X obj 412 316 r \$0-poly;
#X obj 412 358 unpack f f;
#X obj 332 337 route 5;
#X obj 412 337 route 6;
#X obj 114 248 poly 6 1;
#X obj 12 67 r \$0-key;
#N canvas 240 74 187 121 keyboard 0;
#N canvas 4 23 491 309 z-m 0;
#X obj 32 120 t b b;
#X msg 51 142 stop;
#X obj 51 164 del 50;
#X msg 51 186 0;
#X obj 32 208 change;
#X obj 32 32 key;
#X obj 32 76 keyup;
#X obj 32 98 sel 122;
#X obj 32 54 sel 122;
#X obj 92 120 t b b;
#X msg 111 142 stop;
#X obj 111 164 del 50;
#X msg 111 186 0;
#X obj 92 208 change;
#X obj 92 32 key;
#X obj 92 76 keyup;
#X obj 152 120 t b b;
#X msg 171 142 stop;
#X obj 171 164 del 50;
#X msg 171 186 0;
#X obj 152 208 change;
#X obj 152 32 key;
#X obj 152 76 keyup;
#X obj 212 120 t b b;
#X msg 231 142 stop;
#X obj 231 164 del 50;
#X msg 231 186 0;
#X obj 212 208 change;
#X obj 212 32 key;
#X obj 212 76 keyup;
#X obj 92 98 sel 120;
#X obj 92 54 sel 120;
#X obj 152 98 sel 99;
#X obj 152 54 sel 99;
#X obj 212 98 sel 118;
#X obj 212 54 sel 118;
#X msg 32 230 1 \$1;
#X obj 272 120 t b b;
#X msg 291 142 stop;
#X obj 291 164 del 50;
#X msg 291 186 0;
#X obj 272 208 change;
#X obj 272 32 key;
#X obj 272 76 keyup;
#X obj 272 98 sel 98;
#X obj 272 54 sel 98;
#X obj 332 120 t b b;
#X msg 351 142 stop;
#X obj 351 164 del 50;
#X msg 351 186 0;
#X obj 332 208 change;
#X obj 332 32 key;
#X obj 332 76 keyup;
#X obj 332 98 sel 110;
#X obj 332 54 sel 110;
#X obj 392 120 t b b;
#X msg 411 142 stop;
#X obj 411 164 del 50;
#X msg 411 186 0;
#X obj 392 208 change;
#X obj 392 32 key;
#X obj 392 76 keyup;
#X obj 392 98 sel 109;
#X obj 392 54 sel 109;
#X msg 92 230 2 \$1;
#X msg 152 230 3 \$1;
#X msg 212 230 4 \$1;
#X msg 272 230 5 \$1;
#X msg 332 230 6 \$1;
#X msg 392 230 7 \$1;
#X msg 32 186 127;
#X msg 92 186 127;
#X msg 152 186 127;
#X msg 212 186 127;
#X msg 272 186 127;
#X msg 332 186 127;
#X msg 392 186 127;
#X obj 32 252 s \$0-key;
#X obj 92 252 s \$0-key;
#X obj 152 252 s \$0-key;
#X obj 212 252 s \$0-key;
#X obj 272 252 s \$0-key;
#X obj 332 252 s \$0-key;
#X obj 392 252 s \$0-key;
#X connect 0 0 70 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 36 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X connect 8 0 0 0;
#X connect 9 0 71 0;
#X connect 9 1 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 64 0;
#X connect 14 0 31 0;
#X connect 15 0 30 0;
#X connect 16 0 72 0;
#X connect 16 1 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 65 0;
#X connect 21 0 33 0;
#X connect 22 0 32 0;
#X connect 23 0 73 0;
#X connect 23 1 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 66 0;
#X connect 28 0 35 0;
#X connect 29 0 34 0;
#X connect 30 0 11 0;
#X connect 31 0 9 0;
#X connect 32 0 18 0;
#X connect 33 0 16 0;
#X connect 34 0 25 0;
#X connect 35 0 23 0;
#X connect 36 0 77 0;
#X connect 37 0 74 0;
#X connect 37 1 38 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 67 0;
#X connect 42 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 39 0;
#X connect 45 0 37 0;
#X connect 46 0 75 0;
#X connect 46 1 47 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 50 0 68 0;
#X connect 51 0 54 0;
#X connect 52 0 53 0;
#X connect 53 0 48 0;
#X connect 54 0 46 0;
#X connect 55 0 76 0;
#X connect 55 1 56 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 69 0;
#X connect 60 0 63 0;
#X connect 61 0 62 0;
#X connect 62 0 57 0;
#X connect 63 0 55 0;
#X connect 64 0 78 0;
#X connect 65 0 79 0;
#X connect 66 0 80 0;
#X connect 67 0 81 0;
#X connect 68 0 82 0;
#X connect 69 0 83 0;
#X connect 70 0 4 0;
#X connect 71 0 13 0;
#X connect 72 0 20 0;
#X connect 73 0 27 0;
#X connect 74 0 41 0;
#X connect 75 0 50 0;
#X connect 76 0 59 0;
#X restore 12 72 pd z-m;
#N canvas 4 23 718 321 a-ñ 0;
#X obj 32 120 t b b;
#X msg 51 142 stop;
#X obj 51 164 del 50;
#X msg 51 186 0;
#X obj 32 208 change;
#X obj 32 32 key;
#X obj 32 76 keyup;
#X obj 92 120 t b b;
#X msg 111 142 stop;
#X obj 111 164 del 50;
#X msg 111 186 0;
#X obj 92 208 change;
#X obj 92 32 key;
#X obj 92 76 keyup;
#X obj 152 120 t b b;
#X msg 171 142 stop;
#X obj 171 164 del 50;
#X msg 171 186 0;
#X obj 152 208 change;
#X obj 152 32 key;
#X obj 152 76 keyup;
#X obj 212 120 t b b;
#X msg 231 142 stop;
#X obj 231 164 del 50;
#X msg 231 186 0;
#X obj 212 208 change;
#X obj 212 32 key;
#X obj 212 76 keyup;
#X obj 272 120 t b b;
#X msg 291 142 stop;
#X obj 291 164 del 50;
#X msg 291 186 0;
#X obj 272 208 change;
#X obj 272 32 key;
#X obj 272 76 keyup;
#X obj 332 120 t b b;
#X msg 351 142 stop;
#X obj 351 164 del 50;
#X msg 351 186 0;
#X obj 332 208 change;
#X obj 332 32 key;
#X obj 332 76 keyup;
#X obj 392 120 t b b;
#X msg 411 142 stop;
#X obj 411 164 del 50;
#X msg 411 186 0;
#X obj 392 208 change;
#X obj 392 32 key;
#X obj 392 76 keyup;
#X obj 32 54 sel 97;
#X obj 32 98 sel 97;
#X obj 92 54 sel 115;
#X obj 152 54 sel 100;
#X obj 212 54 sel 102;
#X obj 272 54 sel 103;
#X obj 332 54 sel 104;
#X obj 392 54 sel 106;
#X obj 452 120 t b b;
#X msg 471 142 stop;
#X obj 471 164 del 50;
#X msg 471 186 0;
#X obj 452 208 change;
#X obj 452 32 key;
#X obj 452 76 keyup;
#X obj 512 120 t b b;
#X msg 531 142 stop;
#X obj 531 164 del 50;
#X msg 531 186 0;
#X obj 512 208 change;
#X obj 512 32 key;
#X obj 512 76 keyup;
#X obj 512 54 sel 108;
#X obj 452 54 sel 107;
#X obj 572 120 t b b;
#X msg 591 142 stop;
#X obj 591 164 del 50;
#X msg 591 186 0;
#X obj 572 208 change;
#X obj 572 32 key;
#X obj 572 76 keyup;
#X obj 572 54 sel 241;
#X obj 92 98 sel 115;
#X obj 152 98 sel 100;
#X obj 212 98 sel 102;
#X obj 272 98 sel 103;
#X obj 332 98 sel 104;
#X obj 392 98 sel 106;
#X obj 452 98 sel 107;
#X obj 512 98 sel 108;
#X obj 572 98 sel 241;
#X msg 32 230 8 \$1;
#X msg 92 230 9 \$1;
#X msg 152 230 10 \$1;
#X msg 212 230 11 \$1;
#X msg 272 230 12 \$1;
#X msg 332 230 13 \$1;
#X msg 392 230 14 \$1;
#X msg 452 230 15 \$1;
#X msg 512 230 16 \$1;
#X msg 572 230 17 \$1;
#X msg 32 186 127;
#X msg 92 186 127;
#X msg 152 186 127;
#X msg 212 186 127;
#X msg 272 186 127;
#X msg 332 186 127;
#X msg 392 186 127;
#X msg 452 186 127;
#X msg 512 186 127;
#X msg 572 186 127;
#X obj 32 252 s \$0-key;
#X obj 92 252 s \$0-key;
#X obj 152 252 s \$0-key;
#X obj 212 252 s \$0-key;
#X obj 272 252 s \$0-key;
#X obj 332 252 s \$0-key;
#X obj 392 252 s \$0-key;
#X obj 452 252 s \$0-key;
#X obj 512 252 s \$0-key;
#X obj 572 252 s \$0-key;
#X connect 0 0 100 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 90 0;
#X connect 5 0 49 0;
#X connect 6 0 50 0;
#X connect 7 0 101 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 91 0;
#X connect 12 0 51 0;
#X connect 13 0 81 0;
#X connect 14 0 102 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 92 0;
#X connect 19 0 52 0;
#X connect 20 0 82 0;
#X connect 21 0 103 0;
#X connect 21 1 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 93 0;
#X connect 26 0 53 0;
#X connect 27 0 83 0;
#X connect 28 0 104 0;
#X connect 28 1 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 94 0;
#X connect 33 0 54 0;
#X connect 34 0 84 0;
#X connect 35 0 105 0;
#X connect 35 1 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 95 0;
#X connect 40 0 55 0;
#X connect 41 0 85 0;
#X connect 42 0 106 0;
#X connect 42 1 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 96 0;
#X connect 47 0 56 0;
#X connect 48 0 86 0;
#X connect 49 0 0 0;
#X connect 50 0 2 0;
#X connect 51 0 7 0;
#X connect 52 0 14 0;
#X connect 53 0 21 0;
#X connect 54 0 28 0;
#X connect 55 0 35 0;
#X connect 56 0 42 0;
#X connect 57 0 107 0;
#X connect 57 1 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X connect 61 0 97 0;
#X connect 62 0 72 0;
#X connect 63 0 87 0;
#X connect 64 0 108 0;
#X connect 64 1 65 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 98 0;
#X connect 69 0 71 0;
#X connect 70 0 88 0;
#X connect 71 0 64 0;
#X connect 72 0 57 0;
#X connect 73 0 109 0;
#X connect 73 1 74 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 76 0 77 0;
#X connect 77 0 99 0;
#X connect 78 0 80 0;
#X connect 79 0 89 0;
#X connect 80 0 73 0;
#X connect 81 0 9 0;
#X connect 82 0 16 0;
#X connect 83 0 23 0;
#X connect 84 0 30 0;
#X connect 85 0 37 0;
#X connect 86 0 44 0;
#X connect 87 0 59 0;
#X connect 88 0 66 0;
#X connect 89 0 75 0;
#X connect 90 0 110 0;
#X connect 91 0 111 0;
#X connect 92 0 112 0;
#X connect 93 0 113 0;
#X connect 94 0 114 0;
#X connect 95 0 115 0;
#X connect 96 0 116 0;
#X connect 97 0 117 0;
#X connect 98 0 118 0;
#X connect 99 0 119 0;
#X connect 100 0 4 0;
#X connect 101 0 11 0;
#X connect 102 0 18 0;
#X connect 103 0 25 0;
#X connect 104 0 32 0;
#X connect 105 0 39 0;
#X connect 106 0 46 0;
#X connect 107 0 61 0;
#X connect 108 0 68 0;
#X connect 109 0 77 0;
#X restore 12 52 pd a-ñ;
#N canvas 4 23 718 321 q-p 0;
#X obj 32 120 t b b;
#X msg 51 142 stop;
#X obj 51 164 del 50;
#X msg 51 186 0;
#X obj 32 208 change;
#X obj 32 32 key;
#X obj 32 76 keyup;
#X obj 92 120 t b b;
#X msg 111 142 stop;
#X obj 111 164 del 50;
#X msg 111 186 0;
#X obj 92 208 change;
#X obj 92 32 key;
#X obj 92 76 keyup;
#X obj 152 120 t b b;
#X msg 171 142 stop;
#X obj 171 164 del 50;
#X msg 171 186 0;
#X obj 152 208 change;
#X obj 152 32 key;
#X obj 152 76 keyup;
#X obj 212 120 t b b;
#X msg 231 142 stop;
#X obj 231 164 del 50;
#X msg 231 186 0;
#X obj 212 208 change;
#X obj 212 32 key;
#X obj 212 76 keyup;
#X obj 272 120 t b b;
#X msg 291 142 stop;
#X obj 291 164 del 50;
#X msg 291 186 0;
#X obj 272 208 change;
#X obj 272 32 key;
#X obj 272 76 keyup;
#X obj 332 120 t b b;
#X msg 351 142 stop;
#X obj 351 164 del 50;
#X msg 351 186 0;
#X obj 332 208 change;
#X obj 332 32 key;
#X obj 332 76 keyup;
#X obj 392 120 t b b;
#X msg 411 142 stop;
#X obj 411 164 del 50;
#X msg 411 186 0;
#X obj 392 208 change;
#X obj 392 32 key;
#X obj 392 76 keyup;
#X obj 452 120 t b b;
#X msg 471 142 stop;
#X obj 471 164 del 50;
#X msg 471 186 0;
#X obj 452 208 change;
#X obj 452 32 key;
#X obj 452 76 keyup;
#X obj 512 120 t b b;
#X msg 531 142 stop;
#X obj 531 164 del 50;
#X msg 531 186 0;
#X obj 512 208 change;
#X obj 512 32 key;
#X obj 512 76 keyup;
#X obj 572 120 t b b;
#X msg 591 142 stop;
#X obj 591 164 del 50;
#X msg 591 186 0;
#X obj 572 208 change;
#X obj 572 32 key;
#X obj 572 76 keyup;
#X obj 32 54 sel 113;
#X obj 92 54 sel 119;
#X obj 152 54 sel 101;
#X obj 212 54 sel 114;
#X obj 272 54 sel 116;
#X obj 332 54 sel 121;
#X obj 392 54 sel 117;
#X obj 452 54 sel 105;
#X obj 512 54 sel 111;
#X obj 572 54 sel 112;
#X obj 32 98 sel 113;
#X obj 92 98 sel 119;
#X obj 152 98 sel 101;
#X obj 212 98 sel 114;
#X obj 272 98 sel 116;
#X obj 332 98 sel 121;
#X obj 392 98 sel 117;
#X obj 452 98 sel 105;
#X obj 512 98 sel 111;
#X obj 572 98 sel 112;
#X msg 32 230 18 \$1;
#X msg 92 230 19 \$1;
#X msg 152 230 20 \$1;
#X msg 212 230 21 \$1;
#X msg 272 230 22 \$1;
#X msg 332 230 23 \$1;
#X msg 392 230 24 \$1;
#X msg 452 230 25 \$1;
#X msg 512 230 26 \$1;
#X msg 572 230 27 \$1;
#X msg 32 186 127;
#X msg 92 186 127;
#X msg 152 186 127;
#X msg 212 186 127;
#X msg 272 186 127;
#X msg 332 186 127;
#X msg 392 186 127;
#X msg 452 186 127;
#X msg 512 186 127;
#X msg 572 186 127;
#X obj 32 252 s \$0-key;
#X obj 92 252 s \$0-key;
#X obj 152 252 s \$0-key;
#X obj 212 252 s \$0-key;
#X obj 272 252 s \$0-key;
#X obj 332 252 s \$0-key;
#X obj 392 252 s \$0-key;
#X obj 452 252 s \$0-key;
#X obj 512 252 s \$0-key;
#X obj 572 252 s \$0-key;
#X connect 0 0 100 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 90 0;
#X connect 5 0 70 0;
#X connect 6 0 80 0;
#X connect 7 0 101 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 91 0;
#X connect 12 0 71 0;
#X connect 13 0 81 0;
#X connect 14 0 102 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 92 0;
#X connect 19 0 72 0;
#X connect 20 0 82 0;
#X connect 21 0 103 0;
#X connect 21 1 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 93 0;
#X connect 26 0 73 0;
#X connect 27 0 83 0;
#X connect 28 0 104 0;
#X connect 28 1 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 94 0;
#X connect 33 0 74 0;
#X connect 34 0 84 0;
#X connect 35 0 105 0;
#X connect 35 1 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 95 0;
#X connect 40 0 75 0;
#X connect 41 0 85 0;
#X connect 42 0 106 0;
#X connect 42 1 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 96 0;
#X connect 47 0 76 0;
#X connect 48 0 86 0;
#X connect 49 0 107 0;
#X connect 49 1 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 97 0;
#X connect 54 0 77 0;
#X connect 55 0 87 0;
#X connect 56 0 108 0;
#X connect 56 1 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 98 0;
#X connect 61 0 78 0;
#X connect 62 0 88 0;
#X connect 63 0 109 0;
#X connect 63 1 64 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 99 0;
#X connect 68 0 79 0;
#X connect 69 0 89 0;
#X connect 70 0 0 0;
#X connect 71 0 7 0;
#X connect 72 0 14 0;
#X connect 73 0 21 0;
#X connect 74 0 28 0;
#X connect 75 0 35 0;
#X connect 76 0 42 0;
#X connect 77 0 49 0;
#X connect 78 0 56 0;
#X connect 79 0 63 0;
#X connect 80 0 2 0;
#X connect 81 0 9 0;
#X connect 82 0 16 0;
#X connect 83 0 23 0;
#X connect 84 0 30 0;
#X connect 85 0 37 0;
#X connect 86 0 44 0;
#X connect 87 0 51 0;
#X connect 88 0 58 0;
#X connect 89 0 65 0;
#X connect 90 0 110 0;
#X connect 91 0 111 0;
#X connect 92 0 112 0;
#X connect 93 0 113 0;
#X connect 94 0 114 0;
#X connect 95 0 115 0;
#X connect 96 0 116 0;
#X connect 97 0 117 0;
#X connect 98 0 118 0;
#X connect 99 0 119 0;
#X connect 100 0 4 0;
#X connect 101 0 11 0;
#X connect 102 0 18 0;
#X connect 103 0 25 0;
#X connect 104 0 32 0;
#X connect 105 0 39 0;
#X connect 106 0 46 0;
#X connect 107 0 53 0;
#X connect 108 0 60 0;
#X connect 109 0 67 0;
#X restore 12 32 pd q-p;
#N canvas 4 23 718 321 1-0 0;
#X obj 32 120 t b b;
#X msg 51 142 stop;
#X obj 51 164 del 50;
#X msg 51 186 0;
#X obj 32 208 change;
#X obj 32 32 key;
#X obj 32 76 keyup;
#X obj 92 120 t b b;
#X msg 111 142 stop;
#X obj 111 164 del 50;
#X msg 111 186 0;
#X obj 92 208 change;
#X obj 92 32 key;
#X obj 92 76 keyup;
#X obj 152 120 t b b;
#X msg 171 142 stop;
#X obj 171 164 del 50;
#X msg 171 186 0;
#X obj 152 208 change;
#X obj 152 32 key;
#X obj 152 76 keyup;
#X obj 212 120 t b b;
#X msg 231 142 stop;
#X obj 231 164 del 50;
#X msg 231 186 0;
#X obj 212 208 change;
#X obj 212 32 key;
#X obj 212 76 keyup;
#X obj 272 120 t b b;
#X msg 291 142 stop;
#X obj 291 164 del 50;
#X msg 291 186 0;
#X obj 272 208 change;
#X obj 272 32 key;
#X obj 272 76 keyup;
#X obj 332 120 t b b;
#X msg 351 142 stop;
#X obj 351 164 del 50;
#X msg 351 186 0;
#X obj 332 208 change;
#X obj 332 32 key;
#X obj 332 76 keyup;
#X obj 392 120 t b b;
#X msg 411 142 stop;
#X obj 411 164 del 50;
#X msg 411 186 0;
#X obj 392 208 change;
#X obj 392 32 key;
#X obj 392 76 keyup;
#X obj 452 120 t b b;
#X msg 471 142 stop;
#X obj 471 164 del 50;
#X msg 471 186 0;
#X obj 452 208 change;
#X obj 452 32 key;
#X obj 452 76 keyup;
#X obj 512 120 t b b;
#X msg 531 142 stop;
#X obj 531 164 del 50;
#X msg 531 186 0;
#X obj 512 208 change;
#X obj 512 32 key;
#X obj 512 76 keyup;
#X obj 572 120 t b b;
#X msg 591 142 stop;
#X obj 591 164 del 50;
#X msg 591 186 0;
#X obj 572 208 change;
#X obj 572 32 key;
#X obj 572 76 keyup;
#X obj 32 54 sel 49;
#X obj 92 54 sel 50;
#X obj 152 54 sel 51;
#X obj 212 54 sel 52;
#X obj 272 54 sel 53;
#X obj 332 54 sel 54;
#X obj 392 54 sel 55;
#X obj 452 54 sel 56;
#X obj 512 54 sel 57;
#X obj 572 54 sel 48;
#X obj 32 98 sel 49;
#X obj 92 98 sel 50;
#X obj 152 98 sel 51;
#X obj 212 98 sel 52;
#X obj 272 98 sel 53;
#X obj 332 98 sel 54;
#X obj 392 98 sel 55;
#X obj 452 98 sel 56;
#X obj 512 98 sel 57;
#X obj 572 98 sel 48;
#X msg 32 230 28 \$1;
#X msg 92 230 29 \$1;
#X msg 152 230 30 \$1;
#X msg 212 230 31 \$1;
#X msg 272 230 32 \$1;
#X msg 332 230 33 \$1;
#X msg 392 230 34 \$1;
#X msg 452 230 35 \$1;
#X msg 512 230 36 \$1;
#X msg 572 230 37 \$1;
#X msg 32 186 127;
#X msg 92 186 127;
#X msg 152 186 127;
#X msg 212 186 127;
#X msg 272 186 127;
#X msg 332 186 127;
#X msg 392 186 127;
#X msg 452 186 127;
#X msg 512 186 127;
#X msg 572 186 127;
#X obj 32 252 s \$0-key;
#X obj 92 252 s \$0-key;
#X obj 152 252 s \$0-key;
#X obj 212 252 s \$0-key;
#X obj 272 252 s \$0-key;
#X obj 332 252 s \$0-key;
#X obj 392 252 s \$0-key;
#X obj 452 252 s \$0-key;
#X obj 512 252 s \$0-key;
#X obj 572 252 s \$0-key;
#X connect 0 0 100 0;
#X connect 0 1 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 90 0;
#X connect 5 0 70 0;
#X connect 6 0 80 0;
#X connect 7 0 101 0;
#X connect 7 1 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 91 0;
#X connect 12 0 71 0;
#X connect 13 0 81 0;
#X connect 14 0 102 0;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 92 0;
#X connect 19 0 72 0;
#X connect 20 0 82 0;
#X connect 21 0 103 0;
#X connect 21 1 22 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 93 0;
#X connect 26 0 73 0;
#X connect 27 0 83 0;
#X connect 28 0 104 0;
#X connect 28 1 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 94 0;
#X connect 33 0 74 0;
#X connect 34 0 84 0;
#X connect 35 0 105 0;
#X connect 35 1 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 95 0;
#X connect 40 0 75 0;
#X connect 41 0 85 0;
#X connect 42 0 106 0;
#X connect 42 1 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 96 0;
#X connect 47 0 76 0;
#X connect 48 0 86 0;
#X connect 49 0 107 0;
#X connect 49 1 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 97 0;
#X connect 54 0 77 0;
#X connect 55 0 87 0;
#X connect 56 0 108 0;
#X connect 56 1 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 98 0;
#X connect 61 0 78 0;
#X connect 62 0 88 0;
#X connect 63 0 109 0;
#X connect 63 1 64 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 99 0;
#X connect 68 0 79 0;
#X connect 69 0 89 0;
#X connect 70 0 0 0;
#X connect 71 0 7 0;
#X connect 72 0 14 0;
#X connect 73 0 21 0;
#X connect 74 0 28 0;
#X connect 75 0 35 0;
#X connect 76 0 42 0;
#X connect 77 0 49 0;
#X connect 78 0 56 0;
#X connect 79 0 63 0;
#X connect 80 0 2 0;
#X connect 81 0 9 0;
#X connect 82 0 16 0;
#X connect 83 0 23 0;
#X connect 84 0 30 0;
#X connect 85 0 37 0;
#X connect 86 0 44 0;
#X connect 87 0 51 0;
#X connect 88 0 58 0;
#X connect 89 0 65 0;
#X connect 90 0 110 0;
#X connect 91 0 111 0;
#X connect 92 0 112 0;
#X connect 93 0 113 0;
#X connect 94 0 114 0;
#X connect 95 0 115 0;
#X connect 96 0 116 0;
#X connect 97 0 117 0;
#X connect 98 0 118 0;
#X connect 99 0 119 0;
#X connect 100 0 4 0;
#X connect 101 0 11 0;
#X connect 102 0 18 0;
#X connect 103 0 25 0;
#X connect 104 0 32 0;
#X connect 105 0 39 0;
#X connect 106 0 46 0;
#X connect 107 0 53 0;
#X connect 108 0 60 0;
#X connect 109 0 67 0;
#X restore 12 12 pd 1-0;
#X restore 12 47 pd keyboard;
#X obj 12 88 spigot;
#X obj 74 73 tgl 17 0 empty empty KEYBOARD 20 8 0 10 -262144 -1 -1
0 1;
#X obj 154 10 tgl 17 0 empty empty PLAY_SCALE 20 8 0 10 -262144 -1
-1 0 1;
#X obj 154 32 metro 250;
#X msg 154 95 \$1 127 \, \$1 0;
#X obj 154 53 random 15;
#X obj 154 74 + 15;
#X text 432 513 Email: mianmogra94@gmail.com;
#X text 432 528 GitHub: github.com/MikeMorenoAudio;
#X text 432 553 Facebook: fb.com/MikeMorenoAudio;
#X text 432 583 WordPress: mikemorenoaudio.wordpress.com;
#X text 432 598 PatchStorage: patchstorage.com/author/mianmogra;
#N canvas 351 87 432 373 spectrolog 0;
#N canvas 556 61 872 789 FFT_Analyse 0;
#X obj 101 102 inlet~;
#X obj 101 332 *~;
#X obj 132 331 *~;
#X obj 101 356 +~;
#X obj 102 377 powtodb~;
#N canvas 0 22 346 535 init_input_window 0;
#X obj 73 217 / 10;
#X obj 55 278 line 0 0.1;
#X msg 119 246 0;
#X obj 54 176 t f f b;
#X obj 54 239 pack;
#X obj 55 301 t f f;
#X obj 54 152 - 1;
#X obj 74 114 t f f;
#X obj 55 359 * 3.14159;
#X obj 55 381 sin;
#X msg 55 401 \$1 \$1;
#X obj 55 423 *;
#X text 119 334 0...0.99;
#X text 128 359 0...pi;
#X text 79 423 hanning;
#X msg 55 88 4096;
#X obj 100 88 f 4096;
#X obj 99 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 99 39 loadbang;
#X obj 74 333 / 4096;
#X obj 55 448 tabwrite \$0-window;
#X text 86 381 half-sine;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 3 2 2 0;
#X connect 4 0 1 0;
#X connect 5 0 19 0;
#X connect 5 1 20 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 1 19 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 20 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 8 0;
#X restore 161 276 pd init_input_window;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-lin_scope 2048 float 0;
#X coords 0 100 2047 0 200 140 1;
#X restore 110 621 graph;
#N canvas 0 22 822 328 init_norm 0;
#X obj 43 230 outlet;
#X obj 43 187 - 100;
#X floatatom 43 208 9 0 0 0 - - -;
#X text 108 169 leistung - techn. dB;
#X msg 43 69 4096;
#X obj 80 68 f 4096;
#X obj 80 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 80 26 loadbang;
#X obj 43 167 rmstodb;
#X obj 43 110 / 4;
#X text 74 103 faktor 2 wegen hanning;
#X text 74 114 weiterer faktor 2 \, weil wir nur die;
#X text 73 124 erste haelfte des konjungiert komplexen spektrum sehen
;
#X text 108 135 bzw. bearbeiten \, somit nur die haelfte der spektralen
energie;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 9 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X restore 153 421 pd init_norm;
#X obj 100 231 *~;
#X obj 102 443 -~ 60.206;
#X obj 113 517 *~ 0.98;
#X obj 100 539 +~;
#X obj 101 471 *~ 0.02;
#X msg 314 481 1 \$1;
#X obj 314 502 -;
#X obj 314 458 clip 0 1;
#X obj 314 437 / 100;
#X floatatom 314 413 5 0.5 100 0 - - -;
#X obj 333 366 loadbang;
#X obj 100 277 fft~;
#X obj 463 557 line 0 0.1;
#X obj 463 602 / 2;
#X obj 463 622 mtof;
#X msg 463 536 6 \, 273 26.7;
#X obj 463 580 t f f;
#X obj 494 602 - 6;
#X obj 463 642 / 44100;
#X obj 463 663 * 4096;
#X msg 656 633 6;
#X obj 656 653 / 2;
#X obj 656 673 mtof;
#X floatatom 656 693 9 0 0 0 - - -;
#X text 723 694 Hz;
#X obj 754 654 / 2;
#X obj 754 673 mtof;
#X floatatom 754 693 9 0 0 0 - - -;
#X text 822 693 Hz;
#X msg 754 634 273;
#X obj 656 612 t b b;
#X obj 463 498 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 463 458 loadbang;
#X msg 463 478 1;
#X obj 656 592 loadbang;
#X obj 468 245 loadbang;
#X obj 703 102 inlet;
#X obj 130 253 table \$0-window 4096;
#X obj 137 214 tabreceive~ \$0-window;
#X text 353 403 temporal lowpass;
#X text 355 415 parameter between 0 .. 100 %;
#X text 23 23 spectrum~;
#X text 120 23 draws the power of a spectrum in a logarithmic scale
;
#X text 118 36 (by Thomas Musil);
#X obj 113 496 tabreceive~ \$0-lin_scope;
#X obj 100 564 tabsend~ \$0-lin_scope;
#X obj 463 685 tabread4 \$0-lin_scope;
#X obj 468 267 f \$0;
#X text 553 536 transformation to log scale;
#X msg 333 385 100;
#X obj 314 341 max 0.5;
#X obj 314 319 min 100;
#X obj 440 107 inlet;
#X text 96 81 audio sig;
#X text 700 81 ON/OFF;
#X text 427 86 (0 .. 100);
#X text 408 72 temporal lowpass;
#X obj 533 244 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 463 735 tabwrite \$0-s;
#X msg 468 296 \; \$1-s xticks 0 12 2;
#X msg 491 330 \; \$1-s yticks 0 5 2;
#X obj 462 516 metro 100;
#X obj 704 166 switch~ 4096 2;
#X obj 463 711 clip 0 100;
#X obj 773 101 loadbang;
#X msg 773 123 1;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 10 0 11 1;
#X connect 11 0 53 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 10 1;
#X connect 15 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 57 0;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 1 2 0;
#X connect 19 1 2 1;
#X connect 20 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 1 25 0;
#X connect 25 0 66 1;
#X connect 26 0 27 0;
#X connect 27 0 54 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 33 0;
#X connect 38 0 28 0;
#X connect 38 1 37 0;
#X connect 39 0 69 0;
#X connect 40 0 41 0;
#X connect 41 0 39 0;
#X connect 42 0 38 0;
#X connect 43 0 55 0;
#X connect 44 0 70 0;
#X connect 46 0 8 1;
#X connect 52 0 10 0;
#X connect 54 0 71 0;
#X connect 55 0 67 0;
#X connect 55 0 68 0;
#X connect 57 0 17 0;
#X connect 58 0 17 0;
#X connect 59 0 58 0;
#X connect 60 0 59 0;
#X connect 65 0 55 0;
#X connect 69 0 23 0;
#X connect 71 0 66 0;
#X connect 72 0 73 0;
#X connect 73 0 70 0;
#X restore 17 320 pd FFT_Analyse;
#X obj 63 299 inlet;
#X obj 17 299 inlet~;
#X obj 110 299 inlet;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-s 268 float 0;
#X coords 0 100 267 0 267 140 1;
#X restore 23 27 graph;
#X obj 297 42 cnv 15 1 1 empty empty -10 0 0 0 10 -262144 -1 0;
#X obj 297 154 cnv 15 1 1 empty empty -90 0 0 0 10 -262144 -1 0;
#X obj 297 98 cnv 15 1 1 empty empty -50 0 0 0 10 -262144 -1 0;
#X obj 297 70 cnv 15 1 1 empty empty -30 0 0 0 10 -262144 -1 0;
#X obj 297 126 cnv 15 1 1 empty empty -70 0 0 0 10 -262144 -1 0;
#X obj 18 171 cnv 15 1 1 empty empty 10 0 5 0 10 -262144 -1 0;
#X obj 66 171 cnv 15 1 1 empty empty 40 0 5 0 10 -262144 -1 0;
#X obj 115 171 cnv 15 1 1 empty empty 160 0 5 0 10 -262144 -1 0;
#X obj 162 171 cnv 15 1 1 empty empty 640 0 5 0 10 -262144 -1 0;
#X obj 210 171 cnv 15 1 1 empty empty 2k56 0 5 0 10 -262144 -1 0;
#X obj 258 171 cnv 15 1 1 empty empty 10k2 0 5 0 10 -262144 -1 0;
#X obj 138 184 cnv 15 1 1 empty empty 320 0 5 0 10 -262144 -1 0;
#X obj 282 184 cnv 15 1 1 empty empty 20k5 0 5 0 10 -262144 -1 0;
#X obj 42 181 cnv 15 1 1 empty empty 20 0 9 0 10 -262144 -1 0;
#X obj 90 184 cnv 15 1 1 empty empty 80 0 5 0 10 -262144 -1 0;
#X obj 186 184 cnv 15 1 1 empty empty 1k28 0 5 0 10 -262144 -1 0;
#X obj 234 184 cnv 15 1 1 empty empty 5k12 0 5 0 10 -262144 -1 0;
#X obj 46 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 94 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 142 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 190 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 238 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X obj 286 168 cnv 15 1 1 empty empty | 0 7 0 10 -262144 -1 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 0 2;
#X coords 0 -1 1 1 330 210 1 0 0;
#X restore 91 479 pd spectrolog;
#X text 346 175 INLET 1: Frequency;
#X text 346 211 INLET 2: Trigger / Velocity;
#X text 356 227 Trigger the instrument by sending a number from 1 to
127;
#X text 356 190 An incoming float or signal sets the frequency.;
#X text 336 255 Activate the KEYBOARD tgl to play the instrument with
your computer keyboard.;
#X obj 12 400 harp~;
#X obj 12 379 mtof;
#X obj 12 358 unpack f f;
#X obj 92 400 harp~;
#X obj 172 400 harp~;
#X obj 252 400 harp~;
#X obj 332 400 harp~;
#X obj 412 400 harp~;
#X text 432 498 Miguel Moreno 2019;
#X text 346 135 [harp~];
#X obj 12 442 throw~ \$0-M;
#X obj 92 442 throw~ \$0-M;
#X obj 172 442 throw~ \$0-M;
#X obj 252 442 throw~ \$0-M;
#X obj 332 442 throw~ \$0-M;
#X obj 412 442 throw~ \$0-M;
#X obj 12 465 catch~ \$0-M;
#X text 432 568 Youtube: youtube.com/c/mikemorenoaudio;
#X text 432 478 [harp~] version 1;
#X text 356 150 A synthesized harp instrument using karplus.;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 3 0 26 0;
#X connect 6 0 84 0;
#X connect 7 0 2 0;
#X connect 7 0 2 1;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 25 0;
#X connect 11 1 14 0;
#X connect 13 0 53 1;
#X connect 14 0 13 0;
#X connect 14 1 53 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 53 0;
#X connect 18 0 19 0;
#X connect 19 0 17 1;
#X connect 20 0 15 0;
#X connect 20 1 18 0;
#X connect 21 0 22 0;
#X connect 23 0 24 0;
#X connect 24 0 76 0;
#X connect 25 0 20 0;
#X connect 26 0 4 0;
#X connect 27 0 53 0;
#X connect 27 1 53 1;
#X connect 28 0 77 0;
#X connect 29 0 85 0;
#X connect 30 0 32 0;
#X connect 31 0 28 0;
#X connect 31 1 77 1;
#X connect 32 0 31 0;
#X connect 33 0 78 0;
#X connect 34 0 86 0;
#X connect 35 0 41 0;
#X connect 36 0 33 0;
#X connect 36 1 78 1;
#X connect 37 0 79 0;
#X connect 38 0 87 0;
#X connect 39 0 42 0;
#X connect 40 0 37 0;
#X connect 40 1 79 1;
#X connect 41 0 36 0;
#X connect 42 0 40 0;
#X connect 43 0 80 0;
#X connect 44 0 88 0;
#X connect 45 0 51 0;
#X connect 46 0 43 0;
#X connect 46 1 80 1;
#X connect 47 0 81 0;
#X connect 48 0 89 0;
#X connect 49 0 52 0;
#X connect 50 0 47 0;
#X connect 50 1 81 1;
#X connect 51 0 46 0;
#X connect 52 0 50 0;
#X connect 53 0 21 0;
#X connect 53 1 21 1;
#X connect 53 2 21 2;
#X connect 54 0 56 0;
#X connect 56 0 11 0;
#X connect 57 0 56 1;
#X connect 58 0 59 0;
#X connect 59 0 61 0;
#X connect 60 0 11 0;
#X connect 61 0 62 0;
#X connect 62 0 60 0;
#X connect 74 0 6 0;
#X connect 75 0 74 0;
#X connect 76 0 75 0;
#X connect 76 1 74 1;
#X connect 77 0 29 0;
#X connect 78 0 34 0;
#X connect 79 0 38 0;
#X connect 80 0 44 0;
#X connect 81 0 48 0;
#X connect 90 0 8 0;
#X connect 90 0 68 0;
#X coords 0 708 1 707 100 100 0;