view newSwordAuto/newSwordAuto.pd @ 178:ac78bd3d259b

Sword, increased to 24 sources but CPU peaking. Reduced to 12 sources and CPU at 75%.

#N canvas 46 193 1360 805 10;
#X obj 315 22 loadbang;
#X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 315 85 s myMet;
#X obj -259 60 s NoOfSources;
#X obj -221 455 s topSpeed;
#X obj -273 429 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4765 1;
#X floatatom -276 455 8 0 0 0 - - -;
#X text -24 27 Blade Length;
#X text -25 93 Arm Length;
#X text -231 37 Number of Sources;
#X text -165 433 Top Speed;
#X obj 21 251 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5500 1;
#X floatatom 18 280 8 0 0 0 - - -;
#X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6600 1;
#X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8
0 10 -262144 -1 -1 9700 1;
#X floatatom -282 546 8 0 0 0 - - -;
#X floatatom -283 629 8 0 0 0 - - -;
#X obj -225 628 s tipThick;
#X text -165 518 Hilt Thickness;
#X text -173 602 Tip Thickness;
#X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 143 126 s GO;
#X obj 143 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 143 46 metro 200;
#X obj 197 22 hsl 100 20 500 30 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 400 1;
#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 83 126 s setUp;
#X obj -329 403 r setUp;
#X obj -40 228 r setUp;
#X obj -333 493 r setUp;
#X obj -334 581 r setUp;
#X obj -57 4 loadbang;
#X obj -59 73 loadbang;
#X obj -259 15 loadbang;
#X obj -276 403 r thisTS;
#X obj -282 493 r thisHT;
#X obj -283 581 r thisTT;
#X obj -312 17 r setUp;
#X obj -108 71 r setUp;
#X obj -109 6 r setUp;
#X obj 83 21 loadbang;
#X obj 83 45 delay 13;
#X obj 19 326 hsl 100 20 180 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4950 1;
#X floatatom 16 358 8 0 0 0 - - -;
#X obj -42 306 r setUp;
#X obj 14 439 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3300 1;
#X floatatom 11 471 8 0 0 0 - - -;
#X obj -47 419 r setUp;
#X obj 12 517 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6600 1;
#X floatatom 9 549 8 0 0 0 - - -;
#X obj -49 497 r setUp;
#X obj 66 470 s presweepElev;
#X obj 90 547 s postsweepElev;
#X text 125 440 pre-sweep elevation;
#X text 123 517 post-sweep elevation;
#X text 132 249 pre-sweep azimuth;
#X text 130 327 post-sweep azimuth;
#X obj 73 279 s presweepAzim;
#X obj 85 358 s postsweepAzim;
#X obj -59 115 s start_armLength;
#X msg -59 94 0.35;
#X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5150 1;
#X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5151 1;
#X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5148 1;
#X obj -277 162 s Xobs;
#X obj -278 253 s Yobs;
#X obj -278 351 s Zobs;
#X floatatom -317 162 5 0 0 0 - - -;
#X floatatom -317 254 5 0 0 0 - - -;
#X floatatom -318 346 5 0 0 0 - - -;
#X msg -269 115 0;
#X msg -269 298 0;
#X msg -271 209 0.7;
#X obj -322 113 r setUp;
#X obj -327 210 r setUp;
#X obj -331 301 r setUp;
#X msg -219 208 0;
#X msg 136 221 90;
#X msg -227 298 4;
#X msg -230 116 4;
#X msg 79 416 0;
#X msg -127 207 2.034;
#X msg -81 209 3;
#X msg -208 400 0.5;
#X msg -188 111 0.2;
#X msg -204 491 0.02;
#X msg -210 575 0.008;
#X msg -141 404 35;
#X obj -277 94 r thisXobs;
#X obj -278 186 r thisYobs;
#X obj -278 279 r thisZobs;
#X obj 18 227 r thisPrA;
#X obj 16 305 r thisPoA;
#X obj 11 418 r thisPrE;
#X obj 9 496 r thisPoE;
#X msg 175 222 10;
#X msg 109 492 0;
#X obj 431 195 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 494 195 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 491 104 Gain;
#X obj 439 75 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 74 322 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X obj 74 143 /~ 15;
#X obj 95 165 /~ 15;
#X obj 196 132 inlet;
#X obj 93 68 / 100;
#X obj 74 261 hip~ 100;
#X obj 95 280 hip~ 100;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 15 0;
#X connect 12 0 10 1;
#X connect 12 0 11 1;
#X connect 13 0 3 1;
#X connect 13 0 4 1;
#X connect 14 0 0 0;
#X connect 15 0 0 1;
#X restore 430 152 pd opLevels;
#X msg 439 98 5;
#X obj 433 123 hsl 100 25 0.1 100000 0 0 empty empty empty -2 -8 0
10 -262144 -1 -1 7500 1;
#X obj 550 126 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 547 80 loadbang;
#X text 612 105 No Of Sources;
#X obj 430 52 r GAIN;
#X msg 547 103 1;
#X floatatom 373 153 8 0 0 0 - - -;
#X obj -227 545 s hiltThick;
#X obj -58 48 s bladeLen;
#X obj 315 63 metro 25;
#X msg 206 221 100;
#X msg 87 225 45;
#X msg 79 494 120;
#X msg 126 416 60;
#X msg 89 307 270;
#X msg 170 416 90;
#X msg 238 222 80;
#X msg -170 207 1;
#X msg -195 297 2;
#N canvas 160 100 468 247 sources 0;
#X obj 78 59 sweepTime;
#N canvas 190 23 1218 834 arcDist 0;
#X obj 118 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 118 112 s GO;
#X obj 58 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 58 112 s setUp;
#X obj 210 67 * 0.01745;
#X floatatom 274 65 0 0 0 0 - - -;
#X obj 225 138 * 0.01745;
#X floatatom 288 138 0 0 0 0 - - -;
#X obj 210 90 cos;
#X obj 225 159 cos;
#X obj 210 209 *;
#X obj 225 183 t f b;
#X obj 225 258 * 0.01745;
#X obj 225 233 r presweepElev;
#X floatatom 288 258 0 0 0 0 - - -;
#X obj 320 231 * 0.01745;
#X obj 320 206 r postsweepElev;
#X floatatom 384 229 0 0 0 0 - - -;
#X obj 320 252 sin;
#X obj 320 274 t f b;
#X obj 225 282 sin;
#X obj 225 306 *;
#X obj 240 356 * 0.01745;
#X obj 356 341 * 0.01745;
#X floatatom 420 339 0 0 0 0 - - -;
#X floatatom 305 356 0 0 0 0 - - -;
#X obj 240 387 -;
#X obj 240 412 cos;
#X obj 240 432 t f b;
#X obj 225 457 *;
#X obj 356 364 t f b;
#X obj 210 506 +;
#X obj 225 481 t f b;
#X obj 210 529 acos;
#X obj 210 552 *;
#X obj 244 526 r length;
#X obj 210 42 r presweepElev;
#X obj 225 113 r postsweepElev;
#X obj 74 290 -;
#X obj 74 335 select 1;
#X msg 74 363 4.24115;
#X obj 195 600 +;
#X obj 210 575 t f b;
#X obj 133 335 select 0;
#X msg 133 359 0;
#X obj 114 421 -;
#X obj 114 444 * 2;
#X floatatom 21 340 5 0 0 0 - - -;
#X obj 74 217 r postsweepAzim;
#X obj 89 239 r presweepAzim;
#X obj 89 261 t f b;
#X floatatom 194 630 0 0 0 0 - - -;
#X floatatom 269 584 0 0 0 0 - - -;
#X obj 39 626 spigot;
#X obj 129 395 t f b b;
#X floatatom 171 681 0 0 0 0 - - -;
#X obj 72 582 * -1;
#X obj 72 603 + 1;
#X obj 98 628 spigot;
#X obj 240 331 r postsweepAzim;
#X obj 356 316 r presweepAzim;
#X obj 74 313 >= 180;
#X obj 123 657 abs;
#X obj 123 683 outlet;
#X text 327 27 Calculates the length of the arc based on the length
of the great circle. Always presumed the centre of the arc is a stationary
origin.;
#X obj 588 289 -;
#X obj 588 334 select 1;
#X msg 588 358 4.24115;
#X obj 709 599 +;
#X obj 647 334 select 0;
#X msg 647 358 0;
#X obj 628 420 -;
#X obj 628 443 * 2;
#X floatatom 535 339 5 0 0 0 - - -;
#X obj 588 216 r postsweepAzim;
#X obj 603 238 r presweepAzim;
#X obj 603 260 t f b;
#X floatatom 708 629 0 0 0 0 - - -;
#X obj 553 625 spigot;
#X obj 643 394 t f b b;
#X floatatom 685 680 0 0 0 0 - - -;
#X obj 586 581 * -1;
#X obj 586 602 + 1;
#X obj 612 627 spigot;
#X obj 588 312 >= 180;
#X obj 637 656 abs;
#X obj 637 682 outlet;
#X obj 724 549 *;
#X obj 724 572 t f b;
#X obj 739 515 r start_armLength;
#X floatatom 805 591 0 0 0 0 - - -;
#X floatatom 348 563 5 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 4 0 8 0;
#X connect 6 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 31 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 20 0;
#X connect 13 0 14 0;
#X connect 13 0 12 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 16 0 15 0;
#X connect 18 0 19 0;
#X connect 19 0 21 1;
#X connect 19 1 21 0;
#X connect 20 0 21 0;
#X connect 21 0 29 0;
#X connect 22 0 26 0;
#X connect 23 0 30 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 29 1;
#X connect 28 1 29 0;
#X connect 29 0 32 0;
#X connect 30 0 26 1;
#X connect 30 1 26 0;
#X connect 31 0 33 0;
#X connect 32 0 31 1;
#X connect 32 1 31 0;
#X connect 33 0 34 0;
#X connect 33 0 87 0;
#X connect 34 0 42 0;
#X connect 34 0 52 0;
#X connect 34 0 53 0;
#X connect 35 0 34 1;
#X connect 35 0 91 0;
#X connect 36 0 5 0;
#X connect 36 0 4 0;
#X connect 37 0 7 0;
#X connect 37 0 6 0;
#X connect 38 0 61 0;
#X connect 39 0 40 0;
#X connect 40 0 45 0;
#X connect 41 0 51 0;
#X connect 41 0 58 0;
#X connect 42 0 41 1;
#X connect 42 0 54 0;
#X connect 42 1 41 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 41 0;
#X connect 48 0 38 0;
#X connect 49 0 50 0;
#X connect 50 0 38 1;
#X connect 50 1 38 0;
#X connect 53 0 62 0;
#X connect 54 0 45 1;
#X connect 54 2 45 0;
#X connect 56 0 57 0;
#X connect 57 0 53 1;
#X connect 58 0 62 0;
#X connect 59 0 22 0;
#X connect 59 0 25 0;
#X connect 60 0 24 0;
#X connect 60 0 23 0;
#X connect 61 0 39 0;
#X connect 61 0 43 0;
#X connect 61 0 47 0;
#X connect 61 0 56 0;
#X connect 61 0 58 1;
#X connect 62 0 55 0;
#X connect 62 0 63 0;
#X connect 65 0 84 0;
#X connect 66 0 67 0;
#X connect 67 0 71 0;
#X connect 68 0 77 0;
#X connect 68 0 83 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 72 0 68 0;
#X connect 74 0 65 0;
#X connect 75 0 76 0;
#X connect 76 0 65 1;
#X connect 76 1 65 0;
#X connect 78 0 85 0;
#X connect 79 0 71 1;
#X connect 79 2 71 0;
#X connect 81 0 82 0;
#X connect 82 0 78 1;
#X connect 83 0 85 0;
#X connect 84 0 66 0;
#X connect 84 0 69 0;
#X connect 84 0 73 0;
#X connect 84 0 81 0;
#X connect 84 0 83 1;
#X connect 85 0 80 0;
#X connect 85 0 86 0;
#X connect 87 0 88 0;
#X connect 87 0 90 0;
#X connect 88 0 68 1;
#X connect 88 1 68 0;
#X connect 89 0 87 1;
#X restore 137 34 pd arcDist;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 12 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 166 59 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 11 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 166 81 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 10 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 167 104 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 9 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 166 127 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 8 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 166 150 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 6 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 258 61 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 5 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 258 83 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 4 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 259 106 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 3 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 258 129 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 2 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 258 152 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 7 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 166 171 pd one_Source;
#N canvas 563 178 372 392 one_Source 0;
#X obj 159 204 centreAngles;
#X msg 227 295 0;
#X obj 227 254 r setUp;
#N canvas 189 123 1233 633 positions 0;
#X text -8660 88 z coordinate of tip;
#X text -8976 234 x coordinate of tip;
#X text -8748 46 y coordinate of tip;
#X obj -8662 291 r Zobs;
#X obj -8748 289 r Yobs;
#X obj -8832 281 r Xobs;
#X obj -8847 48 sig~ 180;
#X obj -8847 92 -~;
#X obj -8847 112 *~ 0.002778;
#X obj -8763 110 *~ 0.002778;
#X obj -8677 133 *~ 0.002778;
#X obj -8847 136 cos~;
#X obj -8763 134 sin~;
#X obj -8832 158 sin~;
#X obj -8748 158 sin~;
#X obj -8677 160 cos~;
#X obj -8832 203 *~ 1;
#X obj -8748 203 *~ 1;
#X obj -8677 207 *~ 1;
#X obj -8847 231 *~;
#X obj -8763 234 *~;
#X obj -8847 350 -~;
#X obj -8847 374 *~;
#X obj -8763 352 -~;
#X obj -8763 381 *~;
#X obj -8677 352 -~;
#X obj -8677 376 *~;
#X obj -8778 415 +~;
#X obj -8778 447 +~;
#X obj -8778 474 sqrt~;
#X obj -8778 499 outlet~;
#X obj -8832 69 inlet~;
#X obj -8677 111 inlet~;
#X obj -8812 497 *~ 2;
#X obj -8812 522 *~;
#X text -8783 537 source distance from Observer;
#N canvas 2 23 1440 824 baseFind 0;
#X text -8140 262 z coordinate of tip;
#X text -8461 291 x coordinate of tip;
#X text -8264 135 y coordinate of tip;
#X obj -8297 237 r length;
#X obj -8212 237 r length;
#X obj -8141 241 r length;
#X obj -8332 105 sig~ 180;
#X obj -8332 149 -~;
#X obj -8332 169 *~ 0.002778;
#X obj -8248 167 *~ 0.002778;
#X obj -8162 190 *~ 0.002778;
#X obj -8332 193 cos~;
#X obj -8248 191 sin~;
#X obj -8317 215 sin~;
#X obj -8233 215 sin~;
#X obj -8162 217 cos~;
#X obj -8317 260 *~ 1;
#X obj -8233 260 *~ 1;
#X obj -8162 264 *~ 1;
#X obj -8332 304 *~;
#X obj -8248 291 *~;
#X obj -8317 126 inlet~;
#X obj -8162 168 inlet~;
#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8837 78 s GO;
#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8897 78 s setUp;
#X text -8327 41 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8767 21 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X obj -8773 126 inlet~;
#X obj -8719 126 inlet~;
#X obj -8613 123 inlet~;
#X text -8774 109 a11;
#X text -8716 108 a21;
#X text -8612 105 a31;
#X text -8188 263 a32;
#X text -8269 298 a22;
#X text -8310 292 a12;
#X obj -8773 167 *~;
#X obj -8719 165 *~;
#X obj -8613 164 *~;
#X obj -8719 195 +~;
#X obj -8734 219 +~;
#X obj -8563 353 *~;
#X obj -8532 354 *~;
#X obj -8502 355 *~;
#X obj -8532 380 +~;
#X obj -8547 404 +~;
#X obj -8332 333 *~;
#X obj -8248 339 *~;
#X obj -8162 339 *~;
#X obj -8248 371 +~;
#X obj -8263 395 +~;
#X text -8761 219 b11;
#X text -8620 396 b12 & b21;
#X text -8291 393 b22;
#X obj -8278 423 *~;
#X obj -8546 439 *~;
#X obj -8278 449 -~;
#X obj -8321 463 sig~ 1;
#X obj -8293 486 /~;
#X text -8250 451 Determinant;
#X obj -8592 442 *~ -1;
#X text -8669 442 -b12 & -b21;
#X text -8873 287 Martix a is original;
#X text -8873 317 Martix c is inverse b;
#X text -8873 302 Martix b is a' * a;
#X obj -8263 517 *~;
#X text -8233 516 c11;
#X obj -8749 522 *~;
#X obj -8460 525 *~;
#X text -8522 525 c12 & c21;
#X obj -8773 617 *~;
#X obj -8758 642 *~;
#X text -8774 510 c22;
#X obj -8773 667 +~;
#X obj -8643 619 *~;
#X obj -8628 644 *~;
#X obj -8643 669 +~;
#X obj -8518 629 *~;
#X obj -8503 654 *~;
#X obj -8518 679 +~;
#X obj -8383 638 *~;
#X obj -8368 663 *~;
#X obj -8383 688 +~;
#X obj -8253 640 *~;
#X obj -8238 665 *~;
#X obj -8253 690 +~;
#X obj -8128 650 *~;
#X obj -8113 675 *~;
#X obj -8128 700 +~;
#X text -8875 331 Matrix d is a * b;
#X text -8802 665 d11;
#X text -8669 666 d21;
#X text -8545 678 d31;
#X text -8409 687 d12;
#X text -8280 686 d22;
#X text -8150 697 d32;
#X obj -7912 206 *~;
#X obj -7897 231 *~;
#X obj -7912 256 +~;
#X obj -7912 329 *~;
#X obj -7897 354 *~;
#X obj -7912 379 +~;
#X obj -7914 448 *~;
#X obj -7899 473 *~;
#X obj -7914 498 +~;
#X obj -7797 207 *~;
#X obj -7782 232 *~;
#X obj -7797 257 +~;
#X obj -7797 330 *~;
#X obj -7782 355 *~;
#X obj -7797 380 +~;
#X obj -7799 449 *~;
#X obj -7784 474 *~;
#X obj -7799 499 +~;
#X obj -7672 204 *~;
#X obj -7657 229 *~;
#X obj -7672 254 +~;
#X obj -7672 327 *~;
#X obj -7657 352 *~;
#X obj -7672 377 +~;
#X obj -7674 446 *~;
#X obj -7659 471 *~;
#X obj -7674 496 +~;
#X text -7955 132 Under all this is the projection matrix onto the
plane of the sword;
#X text -7640 256 p13;
#X text -7769 255 p12;
#X text -7887 256 p11;
#X text -7641 375 p23;
#X text -7772 380 p22;
#X text -7890 384 p21;
#X text -7644 498 p33;
#X text -7772 499 p32;
#X text -7888 493 p31;
#N canvas 285 176 1010 408 ProjectionPoint 0;
#X obj -150 133 inlet~;
#X obj -107 132 inlet~;
#X obj -64 133 inlet~;
#X obj 42 130 inlet~;
#X obj 103 131 inlet~;
#X obj 162 131 inlet~;
#X obj 47 24 r Xobs;
#X obj 161 24 r Zobs;
#X obj 103 25 r Yobs;
#X msg 47 46 \$1 5;
#X obj 47 68 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -120 249 +~;
#X obj -106 280 +~;
#X msg 103 47 \$1 5;
#X obj 103 69 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 83 240 +~;
#X obj 97 271 +~;
#X msg 160 48 \$1 5;
#X obj 160 70 line~;
#X obj 239 133 inlet~;
#X obj 300 134 inlet~;
#X obj 359 134 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 280 243 +~;
#X obj 294 274 +~;
#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -136 85 s GO;
#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -196 85 s setUp;
#X obj -106 333 outlet~;
#X obj 97 331 outlet~;
#X obj 294 328 outlet~;
#X text 269 34 x' \, y' & z' relates to the point in the plane of the
sword when the observer position is projected on;
#X text -80 279 x';
#X text 124 273 y';
#X text 322 274 z';
#X connect 0 0 13 0;
#X connect 1 0 11 0;
#X connect 2 0 12 0;
#X connect 3 0 20 0;
#X connect 4 0 18 0;
#X connect 5 0 19 0;
#X connect 6 0 9 0;
#X connect 7 0 23 0;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 13 1;
#X connect 10 0 20 1;
#X connect 10 0 30 1;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 37 0;
#X connect 16 0 17 0;
#X connect 17 0 11 1;
#X connect 17 0 18 1;
#X connect 17 0 28 1;
#X connect 18 0 21 1;
#X connect 19 0 22 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 38 0;
#X connect 23 0 24 0;
#X connect 24 0 12 1;
#X connect 24 0 19 1;
#X connect 24 0 29 1;
#X connect 25 0 30 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X restore -7676 685 pd ProjectionPoint;
#X obj -7676 705 outlet~;
#X obj -7624 705 outlet~;
#X obj -7571 705 outlet~;
#X connect 3 0 16 1;
#X connect 4 0 17 1;
#X connect 5 0 18 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 45 1;
#X connect 18 0 50 1;
#X connect 18 0 50 0;
#X connect 18 0 80 0;
#X connect 18 0 89 1;
#X connect 18 0 114 1;
#X connect 18 0 117 1;
#X connect 18 0 120 1;
#X connect 18 0 123 1;
#X connect 19 0 43 1;
#X connect 19 0 48 0;
#X connect 19 0 48 1;
#X connect 19 0 73 0;
#X connect 19 0 83 1;
#X connect 19 0 99 1;
#X connect 19 0 102 1;
#X connect 19 0 105 1;
#X connect 20 0 44 1;
#X connect 20 0 49 0;
#X connect 20 0 49 1;
#X connect 20 0 77 0;
#X connect 20 0 86 1;
#X connect 20 0 108 1;
#X connect 20 0 111 1;
#X connect 21 0 7 1;
#X connect 22 0 10 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 29 0 38 0;
#X connect 29 0 38 1;
#X connect 29 0 43 0;
#X connect 29 0 72 0;
#X connect 29 0 82 0;
#X connect 29 0 98 1;
#X connect 29 0 101 1;
#X connect 29 0 104 1;
#X connect 30 0 39 0;
#X connect 30 0 39 1;
#X connect 30 0 44 0;
#X connect 30 0 76 0;
#X connect 30 0 85 0;
#X connect 30 0 107 1;
#X connect 30 0 110 1;
#X connect 30 0 113 1;
#X connect 31 0 40 0;
#X connect 31 0 40 1;
#X connect 31 0 45 0;
#X connect 31 0 79 0;
#X connect 31 0 88 0;
#X connect 31 0 116 1;
#X connect 31 0 119 1;
#X connect 31 0 122 1;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 1;
#X connect 42 0 56 0;
#X connect 42 0 69 1;
#X connect 43 0 47 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 47 1;
#X connect 47 0 57 0;
#X connect 47 0 57 1;
#X connect 47 0 62 0;
#X connect 48 0 52 0;
#X connect 49 0 51 0;
#X connect 50 0 51 1;
#X connect 51 0 52 1;
#X connect 52 0 56 1;
#X connect 52 0 67 0;
#X connect 56 0 58 0;
#X connect 57 0 58 1;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 67 1;
#X connect 60 0 69 0;
#X connect 60 0 70 1;
#X connect 62 0 70 0;
#X connect 67 0 72 1;
#X connect 67 0 76 1;
#X connect 67 0 79 1;
#X connect 69 0 83 0;
#X connect 69 0 86 0;
#X connect 69 0 89 0;
#X connect 70 0 73 1;
#X connect 70 0 77 1;
#X connect 70 0 80 1;
#X connect 70 0 82 1;
#X connect 70 0 85 1;
#X connect 70 0 88 1;
#X connect 72 0 75 0;
#X connect 73 0 75 1;
#X connect 75 0 98 0;
#X connect 75 0 107 0;
#X connect 75 0 116 0;
#X connect 76 0 78 0;
#X connect 77 0 78 1;
#X connect 78 0 101 0;
#X connect 78 0 110 0;
#X connect 78 0 119 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 104 0;
#X connect 81 0 113 0;
#X connect 81 0 122 0;
#X connect 82 0 84 0;
#X connect 83 0 84 1;
#X connect 84 0 99 0;
#X connect 84 0 108 0;
#X connect 84 0 117 0;
#X connect 85 0 87 0;
#X connect 86 0 87 1;
#X connect 87 0 102 0;
#X connect 87 0 111 0;
#X connect 87 0 120 0;
#X connect 88 0 90 0;
#X connect 89 0 90 1;
#X connect 90 0 105 0;
#X connect 90 0 114 0;
#X connect 90 0 123 0;
#X connect 98 0 100 0;
#X connect 99 0 100 1;
#X connect 100 0 135 0;
#X connect 101 0 103 0;
#X connect 102 0 103 1;
#X connect 103 0 135 3;
#X connect 104 0 106 0;
#X connect 105 0 106 1;
#X connect 106 0 135 6;
#X connect 107 0 109 0;
#X connect 108 0 109 1;
#X connect 109 0 135 1;
#X connect 110 0 112 0;
#X connect 111 0 112 1;
#X connect 112 0 135 4;
#X connect 113 0 115 0;
#X connect 114 0 115 1;
#X connect 115 0 135 7;
#X connect 116 0 118 0;
#X connect 117 0 118 1;
#X connect 118 0 135 2;
#X connect 119 0 121 0;
#X connect 120 0 121 1;
#X connect 121 0 135 5;
#X connect 122 0 124 0;
#X connect 123 0 124 1;
#X connect 124 0 135 8;
#X connect 135 0 136 0;
#X connect 135 1 137 0;
#X connect 135 2 138 0;
#X restore -8203 306 pd baseFind;
#X obj -8079 145 r midAzim;
#X obj -8063 215 r midElev;
#X obj -8063 259 line~;
#X msg -8063 237 \$1 5;
#X obj -8662 333 line~;
#X msg -8662 311 \$1 5;
#X obj -8748 331 line~;
#X msg -8748 310 \$1 5;
#X obj -8832 327 line~;
#X msg -8832 305 \$1 5;
#X obj -8079 191 line~;
#X msg -8079 169 \$1 5;
#X floatatom -8290 218 5 0 0 0 - - -;
#X obj -8301 195 r length;
#X obj -8216 195 r length;
#X obj -8145 211 r length;
#X obj -8336 21 sig~ 180;
#X obj -8336 107 -~;
#X obj -8336 127 *~ 0.002778;
#X obj -8252 125 *~ 0.002778;
#X obj -8166 150 *~ 0.002778;
#X obj -8336 151 cos~;
#X obj -8252 149 sin~;
#X obj -8321 173 sin~;
#X obj -8237 173 sin~;
#X obj -8166 187 cos~;
#X obj -8321 218 *~ 1;
#X obj -8237 218 *~ 1;
#X obj -8166 234 *~ 1;
#X obj -8336 246 *~;
#X obj -8252 249 *~;
#X obj -8321 87 line~;
#X msg -8321 65 \$1 5;
#X obj -8166 129 line~;
#X msg -8166 107 \$1 5;
#X obj -8321 42 r presweepAzim;
#X obj -8166 84 r presweepElev;
#N canvas 18 29 1440 731 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8361 50 inlet~;
#X obj -8313 50 inlet~;
#X obj -8267 50 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8362 25 x';
#X text -8310 27 y';
#X text -8260 28 z';
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8579 502 +~;
#X obj -8543 547 -~;
#X obj -8543 585 /~;
#X obj -8458 508 *~ 2;
#X obj -8459 544 *~;
#X obj -8543 608 arccos~;
#X obj -8615 612 sig~ 90;
#X obj -8558 632 -~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X obj -8091 490 +~;
#X text -7936 341 m;
#X obj -8091 516 -~;
#X obj -8034 530 *~ 2;
#X obj -8035 566 *~;
#X obj -8100 587 /~;
#X obj -8100 610 arccos~;
#X obj -8558 666 outlet~;
#X obj -8100 659 outlet~;
#X text -8565 692 Source - Obs Elevation;
#X text -8160 684 Source - Obs Azimuth;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 65 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 64 1;
#X connect 13 0 76 1;
#X connect 14 0 68 1;
#X connect 14 0 80 1;
#X connect 15 0 6 1;
#X connect 15 0 36 1;
#X connect 15 0 57 0;
#X connect 15 0 57 1;
#X connect 16 0 8 1;
#X connect 16 0 38 1;
#X connect 16 0 58 0;
#X connect 16 0 58 1;
#X connect 17 0 10 1;
#X connect 17 0 40 1;
#X connect 17 0 59 0;
#X connect 17 0 59 1;
#X connect 18 0 0 0;
#X connect 18 0 0 1;
#X connect 18 0 6 0;
#X connect 18 0 45 1;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 0 8 0;
#X connect 19 0 47 1;
#X connect 20 0 2 0;
#X connect 20 0 2 1;
#X connect 20 0 10 0;
#X connect 20 0 49 1;
#X connect 21 0 23 0;
#X connect 22 0 36 0;
#X connect 22 0 45 0;
#X connect 23 0 22 0;
#X connect 24 0 38 0;
#X connect 24 0 47 0;
#X connect 25 0 24 0;
#X connect 26 0 40 0;
#X connect 26 0 49 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 27 0;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 42 1;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 43 0 76 0;
#X connect 44 0 79 0;
#X connect 45 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 51 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 51 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 50 0 52 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 52 0 78 1;
#X connect 57 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 61 1;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 69 0;
#X connect 67 0 68 0;
#X connect 68 0 66 1;
#X connect 69 0 71 1;
#X connect 70 0 71 0;
#X connect 71 0 83 0;
#X connect 72 0 73 0;
#X connect 74 0 75 0;
#X connect 76 0 78 0;
#X connect 78 0 81 0;
#X connect 79 0 80 0;
#X connect 80 0 81 1;
#X connect 81 0 82 0;
#X connect 82 0 84 0;
#X restore -8459 462 pd SourceAngles;
#X obj -8459 484 outlet~;
#X obj -8372 484 outlet~;
#X text -8533 510 Source - Obs Elevation;
#X text -8378 511 Source - Obs Azimuth;
#X text -8276 69 Start Coordinates of tip;
#X obj -8483 57 inlet;
#X text -8535 36 Source position on sword;
#X connect 3 0 42 0;
#X connect 4 0 44 0;
#X connect 5 0 46 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 19 0;
#X connect 12 0 20 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 16 0 19 1;
#X connect 17 0 20 1;
#X connect 18 0 25 0;
#X connect 18 0 74 2;
#X connect 19 0 21 0;
#X connect 19 0 74 0;
#X connect 20 0 23 0;
#X connect 20 0 74 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 0 33 0;
#X connect 31 0 7 1;
#X connect 32 0 10 0;
#X connect 33 0 34 0;
#X connect 36 0 74 3;
#X connect 36 1 74 4;
#X connect 36 2 74 5;
#X connect 37 0 48 0;
#X connect 38 0 40 0;
#X connect 39 0 36 4;
#X connect 40 0 39 0;
#X connect 41 0 25 1;
#X connect 42 0 41 0;
#X connect 43 0 23 1;
#X connect 44 0 43 0;
#X connect 45 0 21 1;
#X connect 46 0 45 0;
#X connect 47 0 36 3;
#X connect 48 0 47 0;
#X connect 50 0 49 0;
#X connect 50 0 63 1;
#X connect 51 0 64 1;
#X connect 52 0 65 1;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 56 0;
#X connect 55 0 58 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 61 0;
#X connect 57 0 62 0;
#X connect 58 0 66 0;
#X connect 59 0 67 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 65 0;
#X connect 63 0 66 1;
#X connect 64 0 67 1;
#X connect 65 0 36 2;
#X connect 66 0 36 0;
#X connect 67 0 36 1;
#X connect 68 0 54 1;
#X connect 69 0 68 0;
#X connect 70 0 57 0;
#X connect 71 0 70 0;
#X connect 72 0 69 0;
#X connect 73 0 71 0;
#X connect 74 0 75 0;
#X connect 74 1 76 0;
#X connect 80 0 16 1;
#X connect 80 0 17 1;
#X connect 80 0 18 1;
#X restore 159 231 pd positions;
#X msg 200 276 0.5;
#X obj 145 182 r bladeLen;
#X obj 118 318 freqCalcCyl3No_D3Mach;
#X obj 228 40 loadbang;
#N canvas 649 57 311 384 lengthCalc 0;
#X obj 151 48 inlet;
#X obj 151 74 unpack;
#X obj 151 189 r start_armLength;
#X obj 74 140 r bladeLen;
#X obj 151 97 - 1;
#X obj 184 98 - 1;
#X obj 151 121 /;
#X obj 136 169 *;
#X obj 136 209 +;
#X obj 136 235 outlet;
#X obj 151 144 t f b;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 5 0;
#X connect 2 0 8 1;
#X connect 3 0 7 0;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 7 1;
#X connect 10 1 7 0;
#X restore 228 86 pd lengthCalc;
#N canvas 63 71 726 590 myThinkness 0;
#X obj 136 61 inlet;
#X obj 136 87 unpack;
#X obj 136 110 - 1;
#X obj 169 111 - 1;
#X obj 227 252 outlet;
#X obj 167 204 r hiltThick;
#X obj 272 124 r tipThick;
#X obj 257 102 r hiltThick;
#X obj 257 149 -;
#X obj 257 176 /;
#X obj 227 228 -;
#X obj 242 203 *;
#X obj 200 142 t f b;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 5 0 10 0;
#X connect 6 0 8 1;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 11 1;
#X connect 10 0 4 0;
#X connect 11 0 10 1;
#X connect 12 0 9 1;
#X connect 12 1 9 0;
#X restore 131 157 pd myThinkness;
#X obj 180 40 r setUp;
#X obj 199 114 inlet;
#N canvas 186 23 742 749 sourceSpeed 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X obj -79 492 outlet~;
#X obj -357 40 inlet;
#X obj -342 144 inlet;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X obj -220 249 r preswingTime;
#X obj -235 292 /;
#X obj -220 270 * 0.001;
#X obj -235 319 * 2;
#X text -192 299 Average Speed;
#X text -195 323 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 459 vline~;
#X obj -327 81 r bladeLen;
#X obj -342 61 r start_armLength;
#X obj -342 102 +;
#X obj -357 124 /;
#X obj -357 168 *;
#X obj -205 67 r postsweepAzim;
#X obj -190 89 r presweepAzim;
#X obj -190 110 t f b;
#X obj -220 183 /;
#X obj -205 160 t f b;
#X obj -235 227 *;
#X obj -220 204 t f b;
#X obj -205 139 -;
#X obj -241 159 -;
#X msg -241 137 180;
#X connect 1 0 30 0;
#X connect 2 0 1 0;
#X connect 3 0 30 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 30 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 29 0;
#X connect 9 0 3 0;
#X connect 12 0 28 1;
#X connect 15 0 34 0;
#X connect 16 0 35 1;
#X connect 19 0 2 1;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 4 1;
#X connect 26 0 29 1;
#X connect 27 0 28 0;
#X connect 28 0 7 0;
#X connect 29 0 6 0;
#X connect 30 0 14 0;
#X connect 31 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 35 0;
#X connect 35 0 41 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 43 1;
#X connect 38 0 44 1;
#X connect 38 1 43 0;
#X connect 38 1 45 0;
#X connect 39 0 42 0;
#X connect 40 0 39 1;
#X connect 40 1 39 0;
#X connect 41 0 21 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 0;
#X connect 44 0 39 0;
#X connect 45 0 44 0;
#X restore 118 135 pd sourceSpeed;
#X msg 228 63 1 12;
#X connect 0 0 3 0;
#X connect 0 1 3 1;
#X connect 1 0 6 9;
#X connect 1 0 6 8;
#X connect 1 0 6 7;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 6 3;
#X connect 3 1 6 4;
#X connect 3 2 6 5;
#X connect 4 0 6 6;
#X connect 5 0 6 2;
#X connect 7 0 13 0;
#X connect 8 0 3 2;
#X connect 8 0 12 0;
#X connect 9 0 6 1;
#X connect 10 0 13 0;
#X connect 11 0 12 1;
#X connect 12 0 6 0;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X restore 258 173 pd one_Source;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 1 0 12 0;
#X connect 1 0 7 0;
#X connect 1 0 8 0;
#X connect 1 0 9 0;
#X connect 1 0 10 0;
#X connect 1 0 11 0;
#X connect 1 0 13 0;
#X restore 219 144 pd sources;
#X floatatom 227 52 5 0 0 0 - - -;
#X msg -57 28 0.5;
#X msg -259 37 12;
#X connect 0 0 1 0;
#X connect 1 0 112 0;
#X connect 5 0 4 0;
#X connect 5 0 6 0;
#X connect 11 0 12 0;
#X connect 11 0 57 0;
#X connect 13 0 15 0;
#X connect 13 0 110 0;
#X connect 14 0 16 0;
#X connect 14 0 17 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 24 0 23 1;
#X connect 24 0 123 0;
#X connect 25 0 26 0;
#X connect 27 0 5 0;
#X connect 28 0 11 0;
#X connect 29 0 13 0;
#X connect 30 0 14 0;
#X connect 31 0 124 0;
#X connect 32 0 60 0;
#X connect 33 0 125 0;
#X connect 34 0 5 0;
#X connect 35 0 13 0;
#X connect 36 0 14 0;
#X connect 37 0 125 0;
#X connect 38 0 60 0;
#X connect 39 0 124 0;
#X connect 40 0 41 0;
#X connect 41 0 25 0;
#X connect 42 0 43 0;
#X connect 42 0 58 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 45 0 51 0;
#X connect 47 0 45 0;
#X connect 48 0 49 0;
#X connect 48 0 52 0;
#X connect 50 0 48 0;
#X connect 60 0 59 0;
#X connect 61 0 64 0;
#X connect 61 0 67 0;
#X connect 62 0 65 0;
#X connect 62 0 68 0;
#X connect 63 0 66 0;
#X connect 63 0 69 0;
#X connect 70 0 61 0;
#X connect 71 0 63 0;
#X connect 72 0 62 0;
#X connect 73 0 61 0;
#X connect 74 0 62 0;
#X connect 75 0 63 0;
#X connect 76 0 62 0;
#X connect 77 0 11 0;
#X connect 78 0 63 0;
#X connect 79 0 61 0;
#X connect 80 0 45 0;
#X connect 81 0 62 0;
#X connect 82 0 62 0;
#X connect 83 0 5 0;
#X connect 84 0 61 0;
#X connect 85 0 13 0;
#X connect 86 0 14 0;
#X connect 87 0 5 0;
#X connect 88 0 61 0;
#X connect 89 0 62 0;
#X connect 90 0 63 0;
#X connect 91 0 11 0;
#X connect 93 0 45 0;
#X connect 94 0 48 0;
#X connect 95 0 11 0;
#X connect 96 0 48 0;
#X connect 100 0 102 0;
#X connect 101 0 97 0;
#X connect 101 1 98 0;
#X connect 102 0 103 0;
#X connect 103 0 101 0;
#X connect 103 0 109 0;
#X connect 104 0 101 1;
#X connect 105 0 108 0;
#X connect 107 0 103 0;
#X connect 108 0 104 0;
#X connect 112 0 2 0;
#X connect 113 0 11 0;
#X connect 114 0 11 0;
#X connect 115 0 48 0;
#X connect 116 0 45 0;
#X connect 117 0 42 0;
#X connect 118 0 45 0;
#X connect 118 0 48 0;
#X connect 119 0 11 0;
#X connect 120 0 62 0;
#X connect 121 0 63 0;
#X connect 124 0 111 0;
#X connect 125 0 3 0;