view newSwordAuto/newSwordAuto.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 302 81 1070 736 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 -221 455 s topSpeed;
#X obj -273 429 hsl 100 20 0 1000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 346 1;
#X floatatom -276 455 8 0 0 0 - - -;
#X text -165 346 Blade Length;
#X text -9 37 Arm Length;
#X text -165 433 Top Speed;
#X obj 21 251 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1100 1;
#X floatatom 18 280 8 0 0 0 - - -;
#X obj -279 516 hsl 100 20 0 0.05 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 4600 1;
#X obj -280 601 hsl 100 20 0.0001 0.03 0 0 empty empty empty -2 -8
0 10 -262144 -1 -1 5000 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 0 1;
#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 83 150 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 -43 17 loadbang;
#X obj -276 403 r thisTS;
#X obj -282 493 r thisHT;
#X obj -283 581 r thisTT;
#X obj -92 15 r setUp;
#X obj 83 21 loadbang;
#X obj 83 45 delay 13;
#X obj 19 326 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6300 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 1700 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 5000 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 -43 59 s start_armLength;
#X msg -43 38 0.35;
#X obj -275 52 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5346 1;
#X obj -276 146 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 4653 1;
#X obj -276 237 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5048 1;
#X obj -278 75 s Xobs;
#X obj -279 166 s Yobs;
#X obj -279 264 s Zobs;
#X floatatom -318 75 5 0 0 0 - - -;
#X floatatom -318 167 5 0 0 0 - - -;
#X floatatom -319 259 5 0 0 0 - - -;
#X msg -270 28 0;
#X msg -270 211 0;
#X msg -272 122 0.7;
#X obj -323 26 r setUp;
#X obj -328 123 r setUp;
#X obj -332 214 r setUp;
#X msg -220 121 0;
#X msg 136 221 90;
#X msg -228 211 4;
#X msg -231 29 4;
#X msg -128 120 2.034;
#X msg -208 400 0.5;
#X msg -189 24 0.2;
#X msg -204 491 0.02;
#X msg -210 575 0.008;
#X msg -141 404 35;
#X obj -278 7 r thisXobs;
#X obj -279 99 r thisYobs;
#X obj -279 192 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 obj 428 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 491 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 488 54 Gain;
#X obj 436 25 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 83 210 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 connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore 427 102 pd opLevels;
#X msg 436 48 5;
#X obj 430 73 hsl 100 25 0.1 100000 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9400 1;
#X obj 427 2 r GAIN;
#X floatatom 370 103 8 0 0 0 - - -;
#X obj -227 545 s hiltThick;
#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 -171 120 1;
#X msg -196 210 2;
#N canvas 87 92 1277 549 sources 0;
#X obj 312 -80 sweepTime;
#N canvas 100 23 841 797 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 96 175 * 0.01745;
#X obj 111 246 * 0.01745;
#X obj 96 198 cos;
#X obj 111 267 cos;
#X obj 96 317 *;
#X obj 111 291 t f b;
#X obj 225 178 * 0.01745;
#X obj 225 153 r presweepElev;
#X obj 320 151 * 0.01745;
#X obj 320 126 r postsweepElev;
#X obj 320 172 sin;
#X obj 320 194 t f b;
#X obj 225 202 sin;
#X obj 225 226 *;
#X obj 240 276 * 0.01745;
#X obj 339 261 * 0.01745;
#X obj 240 307 -;
#X obj 240 332 cos;
#X obj 240 352 t f b;
#X obj 225 377 *;
#X obj 339 284 t f b;
#X obj 210 426 +;
#X obj 225 401 t f b;
#X obj 210 449 acos;
#X obj 210 472 *;
#X obj 244 446 r length;
#X obj 96 150 r presweepElev;
#X obj 111 221 r postsweepElev;
#X obj 428 483 -;
#X obj 428 528 select 1;
#X obj 195 600 +;
#X obj 210 515 t f b;
#X obj 508 525 select 0;
#X msg 508 549 0;
#X obj 508 617 -;
#X obj 508 640 * 2;
#X obj 428 410 r postsweepAzim;
#X obj 443 432 r presweepAzim;
#X obj 443 454 t f b;
#X floatatom 194 630 0 0 0 0 - - -;
#X obj 361 573 spigot;
#X floatatom 380 710 0 0 0 0 - - -;
#X obj 394 529 * -1;
#X obj 394 550 + 1;
#X obj 332 531 spigot;
#X obj 240 251 r postsweepAzim;
#X obj 339 236 r presweepAzim;
#X obj 428 506 >= 180;
#X obj 332 686 abs;
#X obj 332 712 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 515 120 r start_armLength;
#X obj 530 140 r bladeLen;
#X obj 515 161 +;
#X obj 515 183 s length;
#X obj 443 547 r length;
#X obj 428 589 f;
#X obj 523 589 t f b;
#X obj 443 567 * 3.14159;
#X text 25 695 Calculate the length of the great circle;
#X text 371 373 Add in the length of half the circumference if angles
are greater than 180 degrees.;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 25 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 16 0;
#X connect 11 0 10 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 17 1;
#X connect 15 1 17 0;
#X connect 16 0 17 0;
#X connect 17 0 23 0;
#X connect 18 0 20 0;
#X connect 19 0 24 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 1;
#X connect 22 1 23 0;
#X connect 23 0 26 0;
#X connect 24 0 20 1;
#X connect 24 1 20 0;
#X connect 25 0 27 0;
#X connect 26 0 25 1;
#X connect 26 1 25 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 28 0 44 0;
#X connect 29 0 28 1;
#X connect 30 0 4 0;
#X connect 31 0 5 0;
#X connect 32 0 51 0;
#X connect 33 0 60 0;
#X connect 34 0 43 0;
#X connect 34 0 48 0;
#X connect 35 0 34 1;
#X connect 35 0 61 0;
#X connect 35 1 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 34 0;
#X connect 40 0 32 0;
#X connect 41 0 42 0;
#X connect 42 0 32 1;
#X connect 42 1 32 0;
#X connect 44 0 52 0;
#X connect 46 0 47 0;
#X connect 47 0 44 1;
#X connect 48 0 52 0;
#X connect 49 0 18 0;
#X connect 50 0 19 0;
#X connect 51 0 33 0;
#X connect 51 0 36 0;
#X connect 51 0 46 0;
#X connect 51 0 48 1;
#X connect 52 0 45 0;
#X connect 52 0 53 0;
#X connect 55 0 57 0;
#X connect 56 0 57 1;
#X connect 57 0 58 0;
#X connect 59 0 62 0;
#X connect 60 0 38 0;
#X connect 61 0 38 1;
#X connect 61 1 38 0;
#X connect 62 0 60 1;
#X restore 432 -114 pd arcDist;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 12 12;
#X connect 0 0 5 9;
#X connect 0 0 5 8;
#X connect 0 0 5 7;
#X connect 0 0 5 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 5 3;
#X connect 2 1 5 4;
#X connect 2 2 5 5;
#X connect 3 0 5 6;
#X connect 4 0 5 2;
#X connect 6 0 17 0;
#X connect 7 0 2 2;
#X connect 7 0 11 0;
#X connect 8 0 5 1;
#X connect 9 0 17 0;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 2 0;
#X connect 13 0 2 1;
#X connect 14 0 2 3;
#X connect 15 0 2 4;
#X connect 16 0 2 5;
#X connect 17 0 7 0;
#X connect 17 0 8 0;
#X restore 107 123 pd one_Source;
#X obj 513 -132 centreAngles;
#N canvas 572 380 614 399 PlaneFind 0;
#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 638 403 ProjectionPoint 0;
#X obj -140 119 inlet~;
#X obj -101 140 inlet~;
#X obj -65 160 inlet~;
#X obj 62 112 inlet~;
#X obj 102 134 inlet~;
#X obj 138 156 inlet~;
#X obj 69 19 r Xobs;
#X obj 154 19 r Zobs;
#X obj 112 19 r Yobs;
#X msg 69 41 \$1 5;
#X obj 69 63 line~;
#X obj -101 192 *~;
#X obj -65 193 *~;
#X obj -140 192 *~;
#X obj -116 217 +~;
#X obj -116 242 +~;
#X msg 112 41 \$1 5;
#X obj 112 63 line~;
#X obj 102 183 *~;
#X obj 138 184 *~;
#X obj 63 183 *~;
#X obj 87 213 +~;
#X obj 87 241 +~;
#X msg 153 43 \$1 5;
#X obj 153 65 line~;
#X obj 260 117 inlet~;
#X obj 299 137 inlet~;
#X obj 335 158 inlet~;
#X obj 299 186 *~;
#X obj 335 187 *~;
#X obj 260 186 *~;
#X obj 284 219 +~;
#X obj 284 250 +~;
#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 -116 266 outlet~;
#X obj 87 266 outlet~;
#X obj 284 275 outlet~;
#X text -80 315 x' \, y' & z' relates to the point in the plane of
the sword when the observer position is projected on;
#X text -89 244 x';
#X text 114 243 y';
#X text 307 248 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 -8131 307 pd baseFind;
#X obj -8007 146 r midAzim;
#X obj -7991 216 r midElev;
#X obj -7991 260 line~;
#X msg -7991 238 \$1 5;
#X obj -8007 192 line~;
#X msg -8007 170 \$1 5;
#X floatatom -8218 219 5 0 0 0 - - -;
#X obj -8229 196 r length;
#X obj -8144 196 r length;
#X obj -8073 212 r length;
#X obj -8264 22 sig~ 180;
#X obj -8264 108 -~;
#X obj -8264 128 *~ 0.002778;
#X obj -8180 126 *~ 0.002778;
#X obj -8094 151 *~ 0.002778;
#X obj -8264 152 cos~;
#X obj -8180 150 sin~;
#X obj -8249 174 sin~;
#X obj -8165 174 sin~;
#X obj -8094 188 cos~;
#X obj -8249 219 *~ 1;
#X obj -8165 219 *~ 1;
#X obj -8094 235 *~ 1;
#X obj -8264 247 *~;
#X obj -8180 250 *~;
#X obj -8249 88 line~;
#X msg -8249 66 \$1 5;
#X obj -8094 130 line~;
#X msg -8094 108 \$1 5;
#X obj -8249 43 r presweepAzim;
#X obj -8094 85 r presweepElev;
#X text -8204 70 Start Coordinates of tip;
#X obj -8068 329 outlet~;
#X obj -8100 349 outlet~;
#X obj -8131 370 outlet~;
#X connect 0 0 35 0;
#X connect 0 1 34 0;
#X connect 0 2 33 0;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 3 0 0 4;
#X connect 4 0 3 0;
#X connect 5 0 0 3;
#X connect 6 0 5 0;
#X connect 8 0 7 0;
#X connect 8 0 21 1;
#X connect 9 0 22 1;
#X connect 10 0 23 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 18 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 16 0 24 0;
#X connect 17 0 25 0;
#X connect 18 0 21 0;
#X connect 19 0 22 0;
#X connect 20 0 23 0;
#X connect 21 0 24 1;
#X connect 22 0 25 1;
#X connect 23 0 0 2;
#X connect 24 0 0 0;
#X connect 25 0 0 1;
#X connect 26 0 12 1;
#X connect 27 0 26 0;
#X connect 28 0 15 0;
#X connect 29 0 28 0;
#X connect 30 0 27 0;
#X connect 31 0 29 0;
#X restore 599 -132 pd PlaneFind;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 11 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 193 123 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 10 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 280 123 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 9 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 370 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 8 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 456 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 7 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 543 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 6 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 631 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 5 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 717 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 4 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 804 122 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 3 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 894 121 pd one_Source;
#N canvas 563 178 378 516 one_Source 0;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 2 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 980 121 pd one_Source;
#N canvas 563 178 378 516 one_Source 1;
#X msg 227 355 0;
#X obj 227 314 r setUp;
#N canvas 189 123 896 643 positions 0;
#X text -8608 92 z coordinate of tip;
#X text -8924 238 x coordinate of tip;
#X text -8696 50 y coordinate of tip;
#X obj -8610 295 r Zobs;
#X obj -8696 293 r Yobs;
#X obj -8780 285 r Xobs;
#X obj -8795 52 sig~ 180;
#X obj -8795 96 -~;
#X obj -8795 116 *~ 0.002778;
#X obj -8711 114 *~ 0.002778;
#X obj -8625 137 *~ 0.002778;
#X obj -8795 140 cos~;
#X obj -8711 138 sin~;
#X obj -8780 162 sin~;
#X obj -8696 162 sin~;
#X obj -8625 164 cos~;
#X obj -8780 207 *~ 1;
#X obj -8696 207 *~ 1;
#X obj -8625 211 *~ 1;
#X obj -8795 235 *~;
#X obj -8711 238 *~;
#X obj -8795 354 -~;
#X obj -8795 378 *~;
#X obj -8711 356 -~;
#X obj -8711 385 *~;
#X obj -8625 356 -~;
#X obj -8625 380 *~;
#X obj -8726 419 +~;
#X obj -8726 451 +~;
#X obj -8726 478 sqrt~;
#X obj -8726 503 outlet~;
#X obj -8780 73 inlet~;
#X obj -8625 115 inlet~;
#X obj -8760 501 *~ 2;
#X obj -8760 526 *~;
#X text -8731 541 source distance from Observer;
#X obj -8610 337 line~;
#X msg -8610 315 \$1 5;
#X obj -8696 335 line~;
#X msg -8696 314 \$1 5;
#X obj -8780 331 line~;
#X msg -8780 309 \$1 5;
#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 -8407 466 pd SourceAngles;
#X obj -8407 488 outlet~;
#X obj -8320 488 outlet~;
#X text -8481 514 Source - Obs Elevation;
#X text -8326 515 Source - Obs Azimuth;
#X obj -8431 61 inlet;
#X text -8483 40 Source position on sword;
#X obj -8355 402 inlet~;
#X obj -8338 421 inlet~;
#X obj -8320 442 inlet~;
#X connect 3 0 37 0;
#X connect 4 0 39 0;
#X connect 5 0 41 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 42 2;
#X connect 19 0 21 0;
#X connect 19 0 42 0;
#X connect 20 0 23 0;
#X connect 20 0 42 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 25 1;
#X connect 37 0 36 0;
#X connect 38 0 23 1;
#X connect 39 0 38 0;
#X connect 40 0 21 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 42 1 44 0;
#X connect 47 0 16 1;
#X connect 47 0 17 1;
#X connect 47 0 18 1;
#X connect 49 0 42 3;
#X connect 50 0 42 4;
#X connect 51 0 42 5;
#X restore 159 291 pd positions;
#X msg 200 336 0.5;
#X obj 145 165 r bladeLen;
#X obj 228 23 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 69 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 140 pd myThinkness;
#X obj 180 23 r setUp;
#X obj 199 97 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 118 pd sourceSpeed;
#X obj 159 188 inlet~;
#X obj 172 209 inlet~;
#X obj 200 230 inlet~;
#X obj 214 251 inlet~;
#X obj 228 271 inlet~;
#X msg 228 46 1 12;
#X obj 118 378 freqCalcCyl3No_D3Mach;
#X connect 0 0 17 9;
#X connect 0 0 17 8;
#X connect 0 0 17 7;
#X connect 0 0 17 10;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 17 3;
#X connect 2 1 17 4;
#X connect 2 2 17 5;
#X connect 3 0 17 6;
#X connect 4 0 17 2;
#X connect 5 0 16 0;
#X connect 6 0 2 2;
#X connect 6 0 10 0;
#X connect 7 0 17 1;
#X connect 8 0 16 0;
#X connect 9 0 10 1;
#X connect 10 0 17 0;
#X connect 11 0 2 0;
#X connect 12 0 2 1;
#X connect 13 0 2 3;
#X connect 14 0 2 4;
#X connect 15 0 2 5;
#X connect 16 0 6 0;
#X connect 16 0 7 0;
#X restore 1067 121 pd one_Source;
#X connect 1 0 0 0;
#X connect 1 0 2 2;
#X connect 1 0 9 2;
#X connect 1 0 8 2;
#X connect 1 0 7 2;
#X connect 1 0 6 2;
#X connect 1 0 5 2;
#X connect 1 0 15 2;
#X connect 1 0 14 2;
#X connect 1 0 13 2;
#X connect 1 0 12 2;
#X connect 1 0 11 2;
#X connect 1 0 10 2;
#X connect 3 0 2 0;
#X connect 3 0 9 0;
#X connect 3 0 8 0;
#X connect 3 0 7 0;
#X connect 3 0 6 0;
#X connect 3 0 5 0;
#X connect 3 0 15 0;
#X connect 3 0 14 0;
#X connect 3 0 13 0;
#X connect 3 0 12 0;
#X connect 3 0 11 0;
#X connect 3 0 10 0;
#X connect 3 1 2 1;
#X connect 3 1 9 1;
#X connect 3 1 8 1;
#X connect 3 1 7 1;
#X connect 3 1 6 1;
#X connect 3 1 5 1;
#X connect 3 1 15 1;
#X connect 3 1 14 1;
#X connect 3 1 13 1;
#X connect 3 1 12 1;
#X connect 3 1 11 1;
#X connect 3 1 10 1;
#X connect 4 0 2 3;
#X connect 4 0 9 3;
#X connect 4 0 8 3;
#X connect 4 0 7 3;
#X connect 4 0 6 3;
#X connect 4 0 5 3;
#X connect 4 0 15 3;
#X connect 4 0 14 3;
#X connect 4 0 13 3;
#X connect 4 0 12 3;
#X connect 4 0 11 3;
#X connect 4 0 10 3;
#X connect 4 1 2 4;
#X connect 4 1 9 4;
#X connect 4 1 8 4;
#X connect 4 1 7 4;
#X connect 4 1 6 4;
#X connect 4 1 5 4;
#X connect 4 1 15 4;
#X connect 4 1 14 4;
#X connect 4 1 13 4;
#X connect 4 1 12 4;
#X connect 4 1 11 4;
#X connect 4 1 10 4;
#X connect 4 2 2 5;
#X connect 4 2 9 5;
#X connect 4 2 8 5;
#X connect 4 2 7 5;
#X connect 4 2 6 5;
#X connect 4 2 5 5;
#X connect 4 2 15 5;
#X connect 4 2 14 5;
#X connect 4 2 13 5;
#X connect 4 2 12 5;
#X connect 4 2 11 5;
#X connect 4 2 10 5;
#X restore 219 144 pd sources;
#X floatatom 227 52 5 0 0 0 - - -;
#X obj -276 345 hsl 100 20 0.1 3 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3072 1;
#X floatatom -319 368 5 0 0 0 - - -;
#X obj -324 319 r setUp;
#X obj -279 300 r thisLength;
#X obj -279 368 s bladeLen;
#X text -160 56 X Position;
#X text -166 149 Y Position;
#X text -168 239 Z Position;
#X msg -271 321 0.2;
#X msg -232 322 1;
#X msg -190 317 2;
#X obj 83 126 Uzi 20;
#X msg 79 416 45;
#X msg 109 492 135;
#X obj 564 426 s thisPoE;
#X obj 548 445 s thisPrE;
#X obj 533 464 s thisPoA;
#X obj 517 484 s thisPrA;
#X obj 407 627 s thisXobs;
#X obj 501 504 s thisTT;
#X obj 485 525 s thisHT;
#X obj 470 546 s thisTS;
#X obj 454 567 s thisLength;
#X obj 438 588 s thisZobs;
#X obj 422 607 s thisYobs;
#X obj 580 407 s GAIN;
#X obj 62 0 r preswing;
#X obj 407 368 unpack f f f f f f f f f f f f s;
#X obj 596 388 s preswing;
#N canvas 301 296 1054 554 Presets 1;
#X obj 31 19 inlet;
#X obj 345 14 inlet;
#X obj 666 10 inlet;
#X obj 400 120 select 1 2 3;
#X obj 43 121 r GO;
#X obj 78 187 spigot;
#X msg 146 154 0;
#X msg 118 153 1;
#X obj 13 253 s GO;
#X obj 13 230 onebang 1;
#X obj 83 318 spigot;
#X obj 18 384 s GO;
#X obj 18 361 onebang 1;
#X msg 21 179 bang;
#X obj 43 146 delay 200;
#X obj 48 277 delay 200;
#X obj 13 210 delay 50;
#X obj 18 341 delay 50;
#X obj 437 517 outlet;
#X obj 476 192 r GO;
#X obj 511 258 spigot;
#X obj 446 324 s GO;
#X obj 446 301 onebang 1;
#X msg 454 250 bang;
#X obj 446 281 delay 50;
#X msg 577 215 0;
#X msg 549 214 1;
#X obj 476 217 delay 330;
#X msg 31 46 2 0 1 1 45 0.005 0.0045 130 210 60 60 50000 bang;
#X msg 78 210 2 0 1 1 45 0.005 0.0045 130 210 60 120 50000 bang;
#X msg 83 341 2 0 1 1 45 0.005 0.0045 135 225 120 120 50000 bang;
#X msg 345 44 1 2 1 0.6 60 0.012 0.008 90 270 45 90 50000 bang;
#X msg 512 281 1 2 1 0.6 50 0.012 0.008 45 290 30 85 50000 bang;
#X msg 666 40 2 0 1 1 45 0.005 0.0045 130 210 60 60 50000 bang;
#X connect 0 0 28 0;
#X connect 0 0 3 0;
#X connect 0 0 13 0;
#X connect 1 0 31 0;
#X connect 1 0 3 0;
#X connect 1 0 23 0;
#X connect 2 0 33 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 0 25 0;
#X connect 3 1 6 0;
#X connect 3 1 26 0;
#X connect 3 2 6 0;
#X connect 3 2 25 0;
#X connect 4 0 14 0;
#X connect 5 0 29 0;
#X connect 5 0 16 0;
#X connect 6 0 5 1;
#X connect 6 0 10 1;
#X connect 7 0 5 1;
#X connect 7 0 10 1;
#X connect 9 0 8 0;
#X connect 9 0 15 0;
#X connect 10 0 30 0;
#X connect 10 0 17 0;
#X connect 12 0 11 0;
#X connect 13 0 9 1;
#X connect 13 0 12 1;
#X connect 14 0 5 0;
#X connect 15 0 10 0;
#X connect 16 0 9 0;
#X connect 17 0 12 0;
#X connect 19 0 27 0;
#X connect 20 0 24 0;
#X connect 20 0 32 0;
#X connect 22 0 21 0;
#X connect 23 0 22 1;
#X connect 24 0 22 0;
#X connect 25 0 20 1;
#X connect 26 0 20 1;
#X connect 27 0 20 0;
#X connect 28 0 18 0;
#X connect 29 0 18 0;
#X connect 30 0 18 0;
#X connect 31 0 18 0;
#X connect 32 0 18 0;
#X restore 458 324 pd Presets;
#X msg 458 298 1;
#X msg 486 298 2;
#X msg 515 297 3;
#X obj 527 325 s preswing;
#X msg 383 346 20 23 -2 1.7 280 0.05 0.03 0 360 90 90 0.1 bang;
#X msg -78 119 -3;
#X msg -155 214 0.989;
#X connect 0 0 1 0;
#X connect 1 0 98 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 9 0 10 0;
#X connect 9 0 51 0;
#X connect 11 0 13 0;
#X connect 11 0 97 0;
#X connect 12 0 14 0;
#X connect 12 0 15 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 18 0;
#X connect 22 0 21 1;
#X connect 22 0 109 0;
#X connect 23 0 121 0;
#X connect 25 0 4 0;
#X connect 26 0 9 0;
#X connect 27 0 11 0;
#X connect 28 0 12 0;
#X connect 29 0 54 0;
#X connect 30 0 4 0;
#X connect 31 0 11 0;
#X connect 32 0 12 0;
#X connect 33 0 54 0;
#X connect 34 0 35 0;
#X connect 35 0 23 0;
#X connect 36 0 37 0;
#X connect 36 0 52 0;
#X connect 38 0 36 0;
#X connect 39 0 40 0;
#X connect 39 0 45 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 42 0 46 0;
#X connect 44 0 42 0;
#X connect 54 0 53 0;
#X connect 55 0 58 0;
#X connect 55 0 61 0;
#X connect 56 0 59 0;
#X connect 56 0 62 0;
#X connect 57 0 60 0;
#X connect 57 0 63 0;
#X connect 64 0 55 0;
#X connect 65 0 57 0;
#X connect 66 0 56 0;
#X connect 67 0 55 0;
#X connect 68 0 56 0;
#X connect 69 0 57 0;
#X connect 70 0 56 0;
#X connect 71 0 9 0;
#X connect 72 0 57 0;
#X connect 73 0 55 0;
#X connect 74 0 56 0;
#X connect 75 0 4 0;
#X connect 76 0 55 0;
#X connect 77 0 11 0;
#X connect 78 0 12 0;
#X connect 79 0 4 0;
#X connect 80 0 55 0;
#X connect 81 0 56 0;
#X connect 82 0 57 0;
#X connect 83 0 9 0;
#X connect 84 0 36 0;
#X connect 85 0 39 0;
#X connect 86 0 42 0;
#X connect 87 0 9 0;
#X connect 91 0 93 0;
#X connect 92 0 88 0;
#X connect 92 1 89 0;
#X connect 93 0 94 0;
#X connect 94 0 92 0;
#X connect 94 0 96 0;
#X connect 95 0 94 0;
#X connect 98 0 2 0;
#X connect 99 0 9 0;
#X connect 100 0 9 0;
#X connect 101 0 42 0;
#X connect 102 0 39 0;
#X connect 103 0 36 0;
#X connect 104 0 39 0;
#X connect 104 0 42 0;
#X connect 105 0 9 0;
#X connect 106 0 56 0;
#X connect 107 0 57 0;
#X connect 110 0 111 0;
#X connect 110 0 114 0;
#X connect 112 0 110 0;
#X connect 113 0 110 0;
#X connect 118 0 110 0;
#X connect 119 0 110 0;
#X connect 120 0 110 0;
#X connect 121 0 24 0;
#X connect 122 0 39 0;
#X connect 123 0 42 0;
#X connect 136 0 23 0;
#X connect 137 0 128 0;
#X connect 137 1 134 0;
#X connect 137 2 133 0;
#X connect 137 3 132 0;
#X connect 137 4 131 0;
#X connect 137 5 130 0;
#X connect 137 6 129 0;
#X connect 137 7 127 0;
#X connect 137 8 126 0;
#X connect 137 9 125 0;
#X connect 137 10 124 0;
#X connect 137 11 135 0;
#X connect 137 12 138 0;
#X connect 140 0 139 0;
#X connect 140 0 143 0;
#X connect 141 0 139 1;
#X connect 141 0 143 0;
#X connect 142 0 139 2;
#X connect 142 0 143 0;
#X connect 144 0 137 0;
#X connect 145 0 56 0;
#X connect 146 0 57 0;