view June/tenSource.pd @ 87:94fdafb68c3e

Sources made to match the one for the harp. Corrections to angle gain calculations made

#N canvas 164 39 1259 813 10;
#X obj 670 10 inlet;
#X obj 670 31 i;
#X obj 670 53 - 1;
#X obj 670 76 * 10;
#X obj 670 100 s \$0_thisGroup;
#X obj -159 58 r \$0_thisGroup;
#X obj -33 136 *;
#X obj -18 111 r deltaThick;
#X obj -33 47 r \$0_thisGroup;
#X obj -33 90 +;
#X obj -48 22 r hiltThick;
#X obj -48 161 -;
#X obj 628 39 t b;
#X msg 99 69 0;
#X msg 155 68 1;
#X msg 211 70 2;
#X msg 264 71 3;
#X msg 316 70 4;
#X msg 367 70 5;
#X msg 417 70 6;
#X msg 467 69 7;
#X msg 517 70 8;
#X msg 566 70 9;
#X obj 367 90 s \$0_s5;
#X obj 316 91 s \$0_s4;
#X obj 264 92 s \$0_s3;
#X obj 211 91 s \$0_s2;
#X obj 155 90 s \$0_s1;
#X obj 99 91 s \$0_s0;
#X obj 417 90 s \$0_s6;
#X obj 467 90 s \$0_s7;
#X obj 517 90 s \$0_s8;
#X obj 566 90 s \$0_s9;
#X obj -18 68 r \$0_s0;
#X obj -96 86 r \$0_s0;
#X obj -158 284 r \$0_thisGroup;
#X obj -44 368 *;
#X obj -29 343 r deltaThick;
#X obj -44 279 r \$0_thisGroup;
#X obj -44 322 +;
#X obj -59 246 r hiltThick;
#X obj -59 393 -;
#X obj -95 312 r \$0_s1;
#X obj -29 300 r \$0_s1;
#X obj -155 546 r \$0_thisGroup;
#X obj -41 630 *;
#X obj -26 605 r deltaThick;
#X obj -41 541 r \$0_thisGroup;
#X obj -41 584 +;
#X obj -56 516 r hiltThick;
#X obj -56 655 -;
#X obj -92 574 r \$0_s2;
#X obj -26 562 r \$0_s2;
#X obj 77 187 r \$0_thisGroup;
#X obj 191 271 *;
#X obj 206 246 r deltaThick;
#X obj 191 182 r \$0_thisGroup;
#X obj 191 225 +;
#X obj 176 157 r hiltThick;
#X obj 176 296 -;
#X obj 140 215 r \$0_s3;
#X obj 206 203 r \$0_s3;
#X obj 80 544 r \$0_thisGroup;
#X obj 194 628 *;
#X obj 209 603 r deltaThick;
#X obj 194 539 r \$0_thisGroup;
#X obj 194 582 +;
#X obj 179 514 r hiltThick;
#X obj 179 653 -;
#X obj 209 560 r \$0_s4;
#X obj 143 572 r \$0_s4;
#X obj 313 171 r \$0_thisGroup;
#X obj 427 255 *;
#X obj 442 230 r deltaThick;
#X obj 427 166 r \$0_thisGroup;
#X obj 427 209 +;
#X obj 412 141 r hiltThick;
#X obj 412 280 -;
#X obj 376 199 r \$0_s5;
#X obj 442 187 r \$0_s5;
#X obj 303 543 r \$0_thisGroup;
#X obj 417 627 *;
#X obj 432 602 r deltaThick;
#X obj 417 538 r \$0_thisGroup;
#X obj 417 581 +;
#X obj 402 513 r hiltThick;
#X obj 402 652 -;
#X obj 366 571 r \$0_s6;
#X obj 432 559 r \$0_s6;
#X obj 537 171 r \$0_thisGroup;
#X obj 651 255 *;
#X obj 666 230 r deltaThick;
#X obj 651 166 r \$0_thisGroup;
#X obj 651 209 +;
#X obj 636 141 r hiltThick;
#X obj 636 280 -;
#X obj 600 199 r \$0_s7;
#X obj 666 187 r \$0_s7;
#X obj 541 521 r \$0_thisGroup;
#X obj 655 605 *;
#X obj 670 580 r deltaThick;
#X obj 655 516 r \$0_thisGroup;
#X obj 655 559 +;
#X obj 639 467 r hiltThick;
#X obj 640 630 -;
#X obj 604 549 r \$0_s8;
#X obj 670 537 r \$0_s8;
#X obj 772 295 r \$0_thisGroup;
#X obj 886 379 *;
#X obj 901 354 r deltaThick;
#X obj 886 290 r \$0_thisGroup;
#X obj 886 333 +;
#X obj 871 265 r hiltThick;
#X obj 871 404 -;
#X obj 835 323 r \$0_s9;
#X obj 901 311 r \$0_s9;
#X obj 780 16 inlet;
#X obj 872 15 inlet;
#X obj 872 39 s \$0_obAngle;
#X obj 780 40 s \$0_obDist;
#X obj 313 223 freqCalcWoo;
#X obj 973 15 inlet;
#X obj 973 39 s \$0_elev;
#X obj 373 353 r \$0_elev;
#X obj -159 109 freqCalcWoo;
#X obj -158 336 freqCalcWoo;
#X obj -155 598 freqCalcWoo;
#X obj 77 239 freqCalcWoo;
#X obj 80 596 freqCalcWoo;
#X obj 303 595 freqCalcWoo;
#X obj 537 223 freqCalcWoo;
#X obj 541 573 freqCalcWoo;
#X obj 772 347 freqCalcWoo;
#X obj -158 490 woSoFreq;
#X obj 150 368 r \$0_elev;
#X obj -39 195 r \$0_elev;
#X obj -80 470 r \$0_elev;
#X obj -34 709 r \$0_elev;
#X obj 150 733 r \$0_elev;
#X obj 391 707 r \$0_elev;
#X obj 630 685 r \$0_elev;
#X obj 855 457 r \$0_elev;
#X obj 627 334 r \$0_elev;
#X obj 313 375 woSoFreq;
#X obj -159 239 woSoFreq;
#X obj -155 727 woSoFreq;
#X obj 77 385 woSoFreq;
#X obj 80 750 woSoFreq;
#X obj 303 724 woSoFreq;
#X obj 537 352 woSoFreq;
#X obj 541 702 woSoFreq;
#X obj 772 476 woSoFreq;
#X obj 559 306 obsPosition;
#X obj 794 427 obsPosition;
#X obj 563 655 obsPosition;
#X obj 325 679 obsPosition;
#X obj 102 688 obsPosition;
#X obj -138 681 obsPosition;
#X obj -133 428 obsPosition;
#X obj -137 194 obsPosition;
#X obj 99 328 obsPosition;
#X obj 335 315 obsPosition;
#X connect 0 0 1 0;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 124 0;
#X connect 6 0 11 1;
#X connect 7 0 6 1;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 9 0 159 0;
#X connect 10 0 11 0;
#X connect 11 0 144 1;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 12 0 17 0;
#X connect 12 0 18 0;
#X connect 12 0 19 0;
#X connect 12 0 20 0;
#X connect 12 0 21 0;
#X connect 12 0 22 0;
#X connect 13 0 28 0;
#X connect 14 0 27 0;
#X connect 15 0 26 0;
#X connect 16 0 25 0;
#X connect 17 0 24 0;
#X connect 18 0 23 0;
#X connect 19 0 29 0;
#X connect 20 0 30 0;
#X connect 21 0 31 0;
#X connect 22 0 32 0;
#X connect 33 0 9 1;
#X connect 34 0 124 1;
#X connect 35 0 125 0;
#X connect 36 0 41 1;
#X connect 37 0 36 1;
#X connect 38 0 39 0;
#X connect 39 0 36 0;
#X connect 39 0 158 0;
#X connect 40 0 41 0;
#X connect 41 0 133 1;
#X connect 42 0 125 1;
#X connect 43 0 39 1;
#X connect 44 0 126 0;
#X connect 45 0 50 1;
#X connect 46 0 45 1;
#X connect 47 0 48 0;
#X connect 48 0 45 0;
#X connect 48 0 157 0;
#X connect 49 0 50 0;
#X connect 50 0 145 1;
#X connect 51 0 126 1;
#X connect 52 0 48 1;
#X connect 53 0 127 0;
#X connect 54 0 59 1;
#X connect 55 0 54 1;
#X connect 56 0 57 0;
#X connect 57 0 54 0;
#X connect 57 0 160 0;
#X connect 58 0 59 0;
#X connect 59 0 146 1;
#X connect 60 0 127 1;
#X connect 61 0 57 1;
#X connect 62 0 128 0;
#X connect 63 0 68 1;
#X connect 64 0 63 1;
#X connect 65 0 66 0;
#X connect 66 0 63 0;
#X connect 66 0 156 0;
#X connect 67 0 68 0;
#X connect 68 0 147 1;
#X connect 69 0 66 1;
#X connect 70 0 128 1;
#X connect 71 0 120 0;
#X connect 72 0 77 1;
#X connect 73 0 72 1;
#X connect 74 0 75 0;
#X connect 75 0 72 0;
#X connect 75 0 161 0;
#X connect 76 0 77 0;
#X connect 77 0 143 1;
#X connect 78 0 120 1;
#X connect 79 0 75 1;
#X connect 80 0 129 0;
#X connect 81 0 86 1;
#X connect 82 0 81 1;
#X connect 83 0 84 0;
#X connect 84 0 81 0;
#X connect 84 0 155 0;
#X connect 85 0 86 0;
#X connect 86 0 148 1;
#X connect 87 0 129 1;
#X connect 88 0 84 1;
#X connect 89 0 130 0;
#X connect 90 0 95 1;
#X connect 91 0 90 1;
#X connect 92 0 93 0;
#X connect 93 0 90 0;
#X connect 93 0 152 0;
#X connect 94 0 95 0;
#X connect 95 0 149 1;
#X connect 96 0 130 1;
#X connect 97 0 93 1;
#X connect 98 0 131 0;
#X connect 99 0 104 1;
#X connect 100 0 99 1;
#X connect 101 0 102 0;
#X connect 102 0 99 0;
#X connect 102 0 154 0;
#X connect 103 0 104 0;
#X connect 104 0 150 1;
#X connect 105 0 131 1;
#X connect 106 0 102 1;
#X connect 107 0 132 0;
#X connect 108 0 113 1;
#X connect 109 0 108 1;
#X connect 110 0 111 0;
#X connect 111 0 108 0;
#X connect 111 0 153 0;
#X connect 112 0 113 0;
#X connect 113 0 151 1;
#X connect 114 0 132 1;
#X connect 115 0 111 1;
#X connect 116 0 119 0;
#X connect 117 0 118 0;
#X connect 120 0 143 0;
#X connect 121 0 122 0;
#X connect 123 0 143 4;
#X connect 124 0 144 0;
#X connect 125 0 133 0;
#X connect 126 0 145 0;
#X connect 127 0 146 0;
#X connect 128 0 147 0;
#X connect 129 0 148 0;
#X connect 130 0 149 0;
#X connect 131 0 150 0;
#X connect 132 0 151 0;
#X connect 134 0 146 4;
#X connect 135 0 144 4;
#X connect 136 0 133 4;
#X connect 137 0 145 4;
#X connect 138 0 147 4;
#X connect 139 0 148 4;
#X connect 140 0 150 4;
#X connect 141 0 151 4;
#X connect 142 0 149 4;
#X connect 152 0 149 2;
#X connect 152 1 149 3;
#X connect 153 0 151 2;
#X connect 153 1 151 3;
#X connect 154 0 150 2;
#X connect 154 1 150 3;
#X connect 155 0 148 2;
#X connect 155 1 148 3;
#X connect 156 0 147 2;
#X connect 156 1 147 3;
#X connect 157 0 145 2;
#X connect 157 1 145 3;
#X connect 158 0 133 2;
#X connect 158 1 133 3;
#X connect 159 0 144 2;
#X connect 159 1 144 3;
#X connect 160 0 146 2;
#X connect 160 1 146 3;
#X connect 161 0 143 2;
#X connect 161 1 143 3;