view SwordSounds/tenSource.pd @ 121:fc6aff2a2493

angleCalcN added and Mach effects added to the dipole source.

#N canvas 198 54 1259 813 10;
#X obj 670 10 inlet;
#X obj 670 31 i;
#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 973 15 inlet;
#X obj 973 39 s \$0_elev;
#X obj 373 353 r \$0_elev;
#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 floatatom 3 169 5 0 0 0 - - -;
#X obj 77 385 woSoFreqD2;
#X obj -159 239 woSoFreqD2;
#X obj -158 490 woSoFreqD2;
#X obj -155 727 woSoFreqD2;
#X obj 80 750 woSoFreqD2;
#X obj 303 724 woSoFreqD2;
#X obj 541 702 woSoFreqD2;
#X obj 772 475 woSoFreqD2;
#X obj 537 352 woSoFreqD2;
#X obj 313 375 woSoFreqD2;
#X obj 670 76 * 1;
#X obj 670 53 - 9;
#X obj 772 347 sourceSpeed;
#X obj -159 109 sourceSpeed;
#X obj 77 239 sourceSpeed;
#X obj 313 223 sourceSpeed;
#X obj 537 223 sourceSpeed;
#X obj 541 573 sourceSpeed;
#X obj 303 595 sourceSpeed;
#X obj 80 596 sourceSpeed;
#X obj -155 598 sourceSpeed;
#X obj -158 336 sourceSpeed;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 1 0 142 0;
#X connect 3 0 144 0;
#X connect 4 0 9 1;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 8 0 9 0;
#X connect 9 0 130 0;
#X connect 9 0 132 1;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 10 0 16 0;
#X connect 10 0 17 0;
#X connect 10 0 18 0;
#X connect 10 0 19 0;
#X connect 10 0 20 0;
#X connect 11 0 26 0;
#X connect 12 0 25 0;
#X connect 13 0 24 0;
#X connect 14 0 23 0;
#X connect 15 0 22 0;
#X connect 16 0 21 0;
#X connect 17 0 27 0;
#X connect 18 0 28 0;
#X connect 19 0 29 0;
#X connect 20 0 30 0;
#X connect 31 0 7 1;
#X connect 32 0 144 1;
#X connect 33 0 152 0;
#X connect 34 0 39 1;
#X connect 35 0 34 1;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X connect 38 0 39 0;
#X connect 39 0 133 1;
#X connect 40 0 152 1;
#X connect 41 0 37 1;
#X connect 42 0 151 0;
#X connect 43 0 48 1;
#X connect 44 0 43 1;
#X connect 45 0 46 0;
#X connect 46 0 43 0;
#X connect 47 0 48 0;
#X connect 48 0 134 1;
#X connect 49 0 151 1;
#X connect 50 0 46 1;
#X connect 51 0 145 0;
#X connect 52 0 57 1;
#X connect 53 0 52 1;
#X connect 54 0 55 0;
#X connect 55 0 52 0;
#X connect 56 0 57 0;
#X connect 57 0 131 1;
#X connect 58 0 145 1;
#X connect 59 0 55 1;
#X connect 60 0 150 0;
#X connect 61 0 66 1;
#X connect 62 0 61 1;
#X connect 63 0 64 0;
#X connect 64 0 61 0;
#X connect 65 0 66 0;
#X connect 66 0 135 1;
#X connect 67 0 64 1;
#X connect 68 0 150 1;
#X connect 69 0 146 0;
#X connect 70 0 75 1;
#X connect 71 0 70 1;
#X connect 72 0 73 0;
#X connect 73 0 70 0;
#X connect 74 0 75 0;
#X connect 75 0 140 1;
#X connect 76 0 146 1;
#X connect 77 0 73 1;
#X connect 78 0 149 0;
#X connect 79 0 84 1;
#X connect 80 0 79 1;
#X connect 81 0 82 0;
#X connect 82 0 79 0;
#X connect 83 0 84 0;
#X connect 84 0 136 1;
#X connect 85 0 149 1;
#X connect 86 0 82 1;
#X connect 87 0 147 0;
#X connect 88 0 93 1;
#X connect 89 0 88 1;
#X connect 90 0 91 0;
#X connect 91 0 88 0;
#X connect 92 0 93 0;
#X connect 93 0 139 1;
#X connect 94 0 147 1;
#X connect 95 0 91 1;
#X connect 96 0 148 0;
#X connect 97 0 102 1;
#X connect 98 0 97 1;
#X connect 99 0 100 0;
#X connect 100 0 97 0;
#X connect 101 0 102 0;
#X connect 102 0 137 1;
#X connect 103 0 148 1;
#X connect 104 0 100 1;
#X connect 105 0 143 0;
#X connect 106 0 111 1;
#X connect 107 0 106 1;
#X connect 108 0 109 0;
#X connect 109 0 106 0;
#X connect 110 0 111 0;
#X connect 111 0 138 1;
#X connect 112 0 143 1;
#X connect 113 0 109 1;
#X connect 114 0 117 0;
#X connect 115 0 116 0;
#X connect 118 0 119 0;
#X connect 120 0 140 4;
#X connect 121 0 131 4;
#X connect 122 0 132 4;
#X connect 123 0 133 4;
#X connect 124 0 134 4;
#X connect 125 0 135 4;
#X connect 126 0 136 4;
#X connect 127 0 137 4;
#X connect 128 0 138 4;
#X connect 129 0 139 4;
#X connect 141 0 2 0;
#X connect 142 0 141 0;
#X connect 143 0 138 0;
#X connect 144 0 132 0;
#X connect 145 0 131 0;
#X connect 146 0 140 0;
#X connect 147 0 139 0;
#X connect 148 0 137 0;
#X connect 149 0 136 0;
#X connect 150 0 135 0;
#X connect 151 0 134 0;
#X connect 152 0 133 0;