annotate Propellor/PropTestD4.pd @ 274:0d66b883cc62

Have approximated the goldstien azimuth and elevation calculations as too many errors using Euler angles and not quaternions taking too long.

#N canvas 225 131 1366 832 10;
#X obj 405 16 loadbang;
#X obj 405 38 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 405 79 s myMet;
#X obj -251 527 hsl 70 15 0 2500 0 0 empty empty RPM 2 8 0 10 -262144
-1 -1 3833 1;
#X floatatom 76 540 0 0 0 0 - - -;
#X obj -261 503 r thisTS;
#X obj 224 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 287 414 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 185 406 Gain;
#X obj 85 352 loadbang;
#N canvas 928 252 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 223 371 pd opLevels;
#X obj 77 426 hsl 100 25 0.01 1e+09 1 0 empty empty Gain 2 13 0 10
-261682 -1 -66577 3400 1;
#X obj 76 329 r GAIN;
#X obj -278 417 hsl 70 15 0.1 3 0 0 empty empty Blade_Length 2 8 0
10 -262144 -1 -1 1927 1;
#X floatatom -220 440 0 0 0 0 - - -;
#X obj -281 376 loadbang;
#X obj -203 484 loadbang;
#X msg -203 504 0;
#X obj 78 509 hsl 100 20 0 1 0 0 empty empty Throttle 2 10 0 10 -204800
-1 -1 5500 1;
#X text 131 541 RPM;
#X floatatom 74 459 0 0 0 0 - - -;
#X obj -293 638 hsl 70 15 2 4 0 0 empty empty Blades 2 8 0 10 -262144
-1 -1 6900 1;
#X obj -296 661 i;
#X floatatom -271 662 0 0 0 0 - - -;
#X obj -296 702 line~;
#X msg -296 682 \$1 30;
#X obj -296 723 s~ noBlad;
#X obj -296 617 loadbang;
#X obj 355 429 hsl 70 15 1e-05 1000 1 0 empty empty Rot_Boost 2 8 0
10 -203904 -1 -1 5800 1;
#X floatatom 651 476 0 0 0 0 - - -;
#X obj 456 425 hsl 70 15 0 500 0 0 empty empty Horse_Power 2 8 0 10
-262144 -1 -1 4830 1;
#X obj -57 700 line~;
#X msg -57 680 \$1 30;
#X obj -57 743 s~ horseP;
#X floatatom 496 459 0 0 0 0 - - -;
#X obj -57 640 loadbang;
#N canvas 345 218 373 219 dist 0;
#X obj -154 38 *~;
#X obj -98 40 *~;
#X obj -42 38 *~;
#X obj -113 63 +~;
#X obj -113 87 +~;
#X obj -113 109 sqrt~;
#X obj -113 131 s~ dist;
#X obj -61 110 r myMet;
#X obj -61 130 snapshot~;
#X floatatom -61 149 0 0 0 0 - - -;
#X obj -13 150 outlet;
#X obj -154 15 r~ PropZ;
#X obj -98 15 r~ PropY;
#X obj -42 14 r~ PropX;
#X text -148 171 Distance from the centre of the coordinates system
to the centre of the plane.;
#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 5 0 6 0;
#X connect 5 0 8 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 11 0 0 1;
#X connect 11 0 0 0;
#X connect 12 0 1 1;
#X connect 12 0 1 0;
#X connect 13 0 2 0;
#X connect 13 0 2 1;
#X restore 149 312 pd dist;
#X msg 22 641 180;
#X msg -281 396 0.91;
#X msg -172 504 2000;
#X obj -254 566 line~;
#X msg -254 546 \$1 30;
#X obj -254 587 s~ RPM;
#X obj -281 455 line~;
#X msg -281 435 \$1 30;
#X obj -281 475 s~ length;
#X floatatom 76 564 0 0 0 0 - - -;
#X obj 286 82 phasor~;
#X obj 144 160 wrap~;
#X obj 143 140 +~ 0.5;
#X obj 286 40 r~ RPM;
#X obj 286 61 /~ 60;
#X obj 355 459 hsl 70 15 1e-07 0.01 1 0 empty empty Broad_Boost 2 8
0 10 -204786 -1 -1 4300 1;
#X floatatom 577 612 0 0 0 0 - - -;
#N canvas 370 406 514 342 andyEngine 1;
#N canvas 260 36 528 837 engine 1;
#X obj 155 769 outlet~;
#X obj 215 428 delwrite~ e1b 50;
#X obj 215 662 delwrite~ e2b 50;
#X obj 99 581 +~;
#X obj 53 702 s~ ewgfb1;
#X obj 215 704 s~ ewgfb2;
#X obj 52 364 r~ ewgfb2;
#X obj 52 418 delwrite~ e1a 10;
#X obj 53 659 delwrite~ e2a 10;
#X obj 215 386 r~ ewgfb1;
#X obj 59 184 *~;
#X obj 4 202 sig~ 1;
#X obj 22 231 /~;
#X obj 59 205 +~ 1;
#X obj 23 312 -~ 0.5;
#X obj 153 99 noise~;
#X obj 153 165 clip~ -0.5 0.5;
#X obj 22 288 +~;
#X obj 74 530 cos~;
#X obj 74 508 -~ 0.25;
#X obj 138 529 cos~;
#X obj 138 507 -~ 0.25;
#X obj 74 486 *~ 0.125;
#X obj 138 485 *~ 0.125;
#X obj 23 335 hip~ 30;
#X obj 38 266 *~;
#X obj 153 187 *~ 0.15;
#X obj 74 556 *~ 0.17;
#X obj 138 554 *~ 0.17;
#X obj 52 385 *~ 0.6;
#X obj 53 439 vd~ e1a 8;
#X obj 215 450 vd~ e1b 9;
#X obj 53 681 vd~ e2a 3;
#X obj 215 683 vd~ e2b 6;
#X obj 75 54 *~;
#X obj 59 77 *~;
#X obj 59 125 +~;
#X obj 59 98 *~ -14;
#X obj 106 99 *~ 14;
#X obj 59 163 *~ 7;
#X obj 59 2 inlet~;
#X obj 59 23 phasor~;
#X obj 99 601 lop~ 200;
#X obj 99 622 hip~ 12;
#X obj 155 725 hip~ 100;
#X obj 155 747 hip~ 100;
#X obj 153 121 bp~ 300 5;
#X obj 153 143 *~ 12;
#X obj 215 407 bp~ 100 2;
#X connect 3 0 42 0;
#X connect 6 0 29 0;
#X connect 9 0 48 0;
#X connect 10 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 25 0;
#X connect 12 0 17 0;
#X connect 13 0 12 1;
#X connect 14 0 24 0;
#X connect 15 0 46 0;
#X connect 16 0 26 0;
#X connect 17 0 14 0;
#X connect 18 0 27 0;
#X connect 19 0 18 0;
#X connect 20 0 28 0;
#X connect 21 0 20 0;
#X connect 22 0 19 0;
#X connect 23 0 21 0;
#X connect 24 0 7 0;
#X connect 25 0 17 1;
#X connect 26 0 25 1;
#X connect 27 0 3 0;
#X connect 28 0 3 1;
#X connect 29 0 7 0;
#X connect 30 0 8 0;
#X connect 30 0 22 0;
#X connect 30 0 27 0;
#X connect 31 0 2 0;
#X connect 31 0 23 0;
#X connect 31 0 28 0;
#X connect 32 0 4 0;
#X connect 33 0 5 0;
#X connect 33 0 44 0;
#X connect 34 0 35 1;
#X connect 34 0 38 0;
#X connect 35 0 37 0;
#X connect 36 0 39 0;
#X connect 37 0 36 0;
#X connect 38 0 36 1;
#X connect 39 0 10 0;
#X connect 39 0 10 1;
#X connect 40 0 41 0;
#X connect 41 0 34 0;
#X connect 41 0 34 1;
#X connect 41 0 35 0;
#X connect 42 0 43 0;
#X connect 43 0 8 0;
#X connect 43 0 2 0;
#X connect 44 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 47 0;
#X connect 47 0 16 0;
#X connect 48 0 1 0;
#X restore 178 116 pd engine;
#X obj 178 73 + 1;
#X obj 177 281 throw~ l;
#X obj 204 258 throw~ r;
#X obj 177 237 fcpan;
#X obj 278 64 r~ dist;
#X obj 263 40 sig~ 1;
#X obj 263 111 /~;
#X obj 178 170 *~;
#X obj 178 33 inlet;
#X floatatom 242 238 5 0 0 0 - - -;
#X obj 278 87 *~;
#X obj 178 93 lop~ 2;
#X obj 178 53 * 40;
#X obj 204 217 inlet;
#X obj 178 201 *~ 1;
#X obj 235 156 r motBoost;
#X connect 0 0 8 0;
#X connect 1 0 12 0;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X connect 5 0 11 0;
#X connect 5 0 11 1;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X connect 8 0 15 0;
#X connect 9 0 13 0;
#X connect 11 0 7 1;
#X connect 12 0 0 0;
#X connect 13 0 1 0;
#X connect 14 0 4 1;
#X connect 14 0 10 0;
#X connect 15 0 4 0;
#X connect 16 0 15 1;
#X restore 132 270 pd andyEngine;
#X obj 356 488 hsl 70 15 0.1 2000 1 0 empty empty Engine_Boost 2 8
0 10 -261234 -1 -1 5900 1;
#X obj -120 748 r myMet;
#X obj -120 768 snapshot~;
#X floatatom 497 496 6 0 0 0 - - -;
#X text 495 477 Current;
#X text 495 441 Maximum;
#X floatatom -51 786 0 0 0 0 - - -;
#X text 131 562 Distance;
#X obj -92 385 r thisThro;
#X obj -9 532 s throt;
#X obj -71 514 * 2500;
#X floatatom 677 599 0 0 0 0 - - -;
#X obj -73 335 loadbang;
#X obj -104 494 +;
#X floatatom -122 565 5 0 0 0 - - -;
#X obj -110 442 t f b;
#X obj -109 420 * 0.8;
#X obj 130 247 * 2;
#X obj -191 636 line~;
#X msg -191 616 \$1 30;
#X obj -191 677 s~ planeSpeed;
#X obj 585 783 metro 10;
#X obj 585 805 s flyMet;
#X obj 586 748 bng 25 250 50 0 empty empty F 11 11 0 10 -204786 -1
-1;
#X obj 613 748 tgl 25 0 empty empty empty 17 7 0 10 -204786 -4034 -4034
0 1;
#X obj -191 656 *~ 0.006;
#X obj 747 560 noise~;
#X obj 747 582 lop~ 1;
#X obj 748 604 lop~ 1;
#X obj 795 667 r myMet;
#X obj 795 687 snapshot~;
#X floatatom 795 707 0 0 0 0 - - -;
#X obj 728 715 s thisThro;
#X msg -42 355 0.8;
#X obj 764 646 +~ 0.7;
#X obj 752 480 hsl 100 20 0 1 0 0 empty empty Throttle 2 10 0 10 -204800
-1 -1 0 1;
#X obj 747 624 *~ 0.8;
#X obj 47 140 wrap~;
#X obj 47 120 +~ 0.5;
#X obj -59 137 wrap~;
#X obj -59 117 +~ 0.5;
#X obj 243 25 bng 20 250 50 0 empty empty 2 8 10 0 10 -204786 -1 -1
;
#X obj 99 22 bng 20 250 50 0 empty empty 3 8 10 0 10 -204786 -1 -1
;
#X obj -7 25 bng 20 250 50 0 empty empty 4 8 10 0 10 -204786 -1 -1
;
#N canvas 290 348 1002 525 sources1 0;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X obj 29 -70 inlet~;
#N canvas 42 58 1237 427 sourceEESpeed 0;
#X obj 26 343 outlet~;
#X text 12 369 Source Speed;
#X obj 382 66 cos~;
#X obj 453 69 sin~;
#X text 96 283 2 PI;
#X text 93 304 Radius of source;
#X obj 368 286 outlet~;
#X obj 445 286 outlet~;
#X text 424 306 y position of source;
#X text 597 262 z position of source;
#X text 8 104 diameter;
#X obj 382 16 inlet~;
#X obj 598 -8 r~ length;
#X obj 26 234 r~ RPM;
#X obj 26 258 /~ 60;
#X obj 26 283 *~ 6.28319;
#X obj 26 310 *~;
#X obj 382 104 *~;
#X obj 453 104 *~;
#X obj 27 81 outlet~;
#X obj 633 168 cos~;
#X obj 633 148 /~ 360;
#X obj 687 168 cos~;
#X obj 687 148 /~ 360;
#X obj 549 283 outlet~;
#X obj 816 169 sin~;
#X obj 752 166 sin~;
#X obj 337 210 *~;
#X obj 548 236 *~;
#X obj 337 238 *~;
#X obj 383 239 *~;
#X obj 368 262 -~;
#X obj 445 237 *~;
#X obj 491 238 *~;
#X obj 445 261 +~;
#X text 283 306 x position of source;
#X obj 986 158 cos~;
#X obj 1057 161 sin~;
#X obj 986 196 *~;
#X obj 1057 196 *~;
#X obj 946 242 *~;
#X obj 1144 268 *~;
#X obj 946 270 *~;
#X obj 979 271 *~;
#X obj 964 294 -~;
#X obj 1041 269 *~;
#X obj 1087 270 *~;
#X obj 1041 293 +~;
#X obj 978 318 outlet~;
#X obj 1055 318 outlet~;
#X obj 1159 315 outlet~;
#X text 386 351 Source Position bit;
#X text 954 359 Vector perpendicular to the source bit;
#X obj 987 132 +~ 0.25;
#X text 604 43 Radius;
#X obj 598 17 *~ 0.7486;
#X obj 27 59 sig~ 0.2367;
#X obj 633 127 inlet~;
#X obj 687 127 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 122 210 pd sourceEESpeed;
#N canvas 42 156 1334 566 sourceFFSpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 383 68 cos~;
#X obj 454 71 sin~;
#X text 97 285 2 PI;
#X text 94 306 Radius of source;
#X obj 369 288 outlet~;
#X obj 446 288 outlet~;
#X text 425 308 y position of source;
#X text 598 264 z position of source;
#X text 9 106 diameter;
#X obj 599 -6 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 383 106 *~;
#X obj 454 106 *~;
#X obj 28 83 outlet~;
#X obj 568 130 cos~;
#X obj 568 108 /~ 360;
#X obj 667 133 cos~;
#X obj 667 108 /~ 360;
#X obj 550 285 outlet~;
#X obj 701 134 sin~;
#X obj 600 131 sin~;
#X obj 338 212 *~;
#X obj 549 238 *~;
#X obj 338 240 *~;
#X obj 384 241 *~;
#X obj 369 264 -~;
#X obj 446 239 *~;
#X obj 492 240 *~;
#X obj 446 263 +~;
#X text 284 308 x position of source;
#X obj 786 166 cos~;
#X obj 864 169 sin~;
#X obj 786 204 *~;
#X obj 864 204 *~;
#X obj 741 250 *~;
#X obj 951 276 *~;
#X obj 741 278 *~;
#X obj 786 279 *~;
#X obj 771 302 -~;
#X obj 848 277 *~;
#X obj 894 278 *~;
#X obj 848 301 +~;
#X obj 785 326 outlet~;
#X obj 862 326 outlet~;
#X obj 966 323 outlet~;
#X text 365 355 Source Position bit;
#X text 791 353 Vector perpendicular to the source bit;
#X obj 786 140 +~ 0.25;
#X text 605 45 Radius;
#X obj 599 19 *~ 0.8807;
#X obj 28 61 sig~ 0.2123;
#X obj 568 87 inlet~;
#X obj 667 87 inlet~;
#X obj 383 18 inlet~;
#X obj 457 45 /~ 360;
#X obj 298 41 r myMet;
#X obj 298 61 snapshot~;
#X floatatom 298 81 0 0 0 0 - - -;
#X obj 255 40 *~ 360;
#X obj 696 388 r myMet;
#X obj 696 408 snapshot~;
#X floatatom 696 428 0 0 0 0 - - -;
#X obj 768 387 r myMet;
#X obj 768 407 snapshot~;
#X floatatom 768 427 0 0 0 0 - - -;
#X obj 839 384 r myMet;
#X obj 839 404 snapshot~;
#X floatatom 839 424 0 0 0 0 - - -;
#X obj 388 390 r myMet;
#X obj 388 410 snapshot~;
#X floatatom 388 430 0 0 0 0 - - -;
#X obj 460 389 r myMet;
#X obj 460 409 snapshot~;
#X floatatom 460 429 0 0 0 0 - - -;
#X obj 531 386 r myMet;
#X obj 531 406 snapshot~;
#X floatatom 531 426 0 0 0 0 - - -;
#X obj 840 28 r myMet;
#X obj 840 48 snapshot~;
#X floatatom 840 68 0 0 0 0 - - -;
#X obj 1112 66 cos~;
#X obj 1112 44 /~ 360;
#X obj 1191 70 cos~;
#X obj 1191 45 /~ 360;
#X obj 1225 71 sin~;
#X obj 1144 67 sin~;
#X obj 1112 23 inlet~;
#X obj 1191 24 inlet~;
#X obj 1006 72 cos~;
#X obj 1039 73 sin~;
#X obj 968 20 inlet~;
#X obj 1039 47 /~ 360;
#X obj 1039 22 sig~ 170;
#X text 1190 3 Pitch;
#X text 1113 2 Yaw;
#X text 1035 0 Roll;
#X obj 1004 114 *~;
#X obj 1075 114 *~;
#X obj 1012 173 +~;
#X obj 451 20 sig~ 180;
#X connect 2 0 16 0;
#X connect 3 0 17 0;
#X connect 11 0 54 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 0 0;
#X connect 16 0 29 0;
#X connect 16 0 32 0;
#X connect 17 0 26 0;
#X connect 17 0 27 0;
#X connect 19 0 28 1;
#X connect 19 0 32 1;
#X connect 19 0 41 1;
#X connect 19 0 45 1;
#X connect 20 0 19 0;
#X connect 20 0 25 0;
#X connect 21 0 27 1;
#X connect 21 0 40 1;
#X connect 22 0 21 0;
#X connect 22 0 24 0;
#X connect 24 0 29 1;
#X connect 24 0 31 1;
#X connect 24 0 42 1;
#X connect 24 0 44 1;
#X connect 25 0 26 1;
#X connect 25 0 39 1;
#X connect 26 0 28 0;
#X connect 26 0 31 0;
#X connect 27 0 23 0;
#X connect 27 0 80 0;
#X connect 28 0 30 0;
#X connect 29 0 30 1;
#X connect 30 0 6 0;
#X connect 30 0 74 0;
#X connect 31 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 7 0;
#X connect 33 0 77 0;
#X connect 35 0 37 0;
#X connect 36 0 38 0;
#X connect 37 0 42 0;
#X connect 37 0 45 0;
#X connect 38 0 39 0;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 39 0 44 0;
#X connect 40 0 49 0;
#X connect 40 0 71 0;
#X connect 41 0 43 0;
#X connect 42 0 43 1;
#X connect 43 0 47 0;
#X connect 43 0 65 0;
#X connect 44 0 46 0;
#X connect 45 0 46 1;
#X connect 46 0 48 0;
#X connect 46 0 68 0;
#X connect 52 0 35 0;
#X connect 52 0 36 0;
#X connect 54 0 17 1;
#X connect 54 0 15 1;
#X connect 54 0 16 1;
#X connect 54 0 37 1;
#X connect 54 0 38 1;
#X connect 54 0 83 0;
#X connect 55 0 18 0;
#X connect 56 0 20 0;
#X connect 57 0 22 0;
#X connect 58 0 63 0;
#X connect 58 0 3 0;
#X connect 58 0 2 0;
#X connect 58 0 52 0;
#X connect 60 0 61 0;
#X connect 61 0 62 0;
#X connect 63 0 61 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 76 0 77 0;
#X connect 77 0 78 0;
#X connect 79 0 80 0;
#X connect 80 0 81 0;
#X connect 82 0 83 0;
#X connect 83 0 84 0;
#X connect 85 0 101 1;
#X connect 86 0 85 0;
#X connect 86 0 90 0;
#X connect 88 0 87 0;
#X connect 88 0 89 0;
#X connect 91 0 86 0;
#X connect 92 0 88 0;
#X connect 96 0 94 0;
#X connect 96 0 93 0;
#X connect 97 0 96 0;
#X connect 101 0 103 0;
#X connect 104 0 59 0;
#X restore 345 220 pd sourceFFSpeed;
#N canvas 30 37 1240 425 sourceGGSpeed 0;
#X obj -135 345 outlet~;
#X text -149 371 Source Speed;
#X obj 221 68 cos~;
#X obj 292 71 sin~;
#X text -65 285 2 PI;
#X text -68 306 Radius of source;
#X obj 207 288 outlet~;
#X obj 284 288 outlet~;
#X text 263 308 y position of source;
#X text 436 264 z position of source;
#X text -153 106 diameter;
#X obj 221 18 inlet~;
#X obj 437 -6 r~ length;
#X obj -135 236 r~ RPM;
#X obj -135 260 /~ 60;
#X obj -135 285 *~ 6.28319;
#X obj -135 312 *~;
#X obj 221 106 *~;
#X obj 292 106 *~;
#X obj -134 83 outlet~;
#X obj 472 170 cos~;
#X obj 472 150 /~ 360;
#X obj 526 170 cos~;
#X obj 526 150 /~ 360;
#X obj 388 285 outlet~;
#X obj 655 171 sin~;
#X obj 591 168 sin~;
#X obj 176 212 *~;
#X obj 387 238 *~;
#X obj 176 240 *~;
#X obj 222 241 *~;
#X obj 207 264 -~;
#X obj 284 239 *~;
#X obj 330 240 *~;
#X obj 284 263 +~;
#X text 122 308 x position of source;
#X obj 825 160 cos~;
#X obj 896 163 sin~;
#X obj 825 198 *~;
#X obj 896 198 *~;
#X obj 785 244 *~;
#X obj 983 270 *~;
#X obj 785 272 *~;
#X obj 818 273 *~;
#X obj 803 296 -~;
#X obj 880 271 *~;
#X obj 926 272 *~;
#X obj 880 295 +~;
#X obj 817 320 outlet~;
#X obj 894 320 outlet~;
#X obj 998 317 outlet~;
#X text 202 363 Source Position bit;
#X text 822 355 Vector perpendicular to the source bit;
#X obj 826 134 +~ 0.25;
#X text 443 45 Radius;
#X obj 437 19 *~ 0.9468;
#X obj -134 61 sig~ 0.1885;
#X obj 472 129 inlet~;
#X obj 526 129 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 605 232 pd sourceGGSpeed;
#X obj 609 -20 r centrePan;
#X obj 375 -47 inlet~;
#X obj 419 -47 inlet~;
#X text 374 -66 Yaw;
#X text 420 -66 Pitch;
#N canvas 62 25 1219 804 sourcePositionsD2 0;
#X obj -236 122 *~;
#X obj -152 129 *~;
#X obj -26 126 *~;
#X obj -167 163 +~;
#X obj -167 195 +~;
#X obj -167 222 sqrt~;
#X obj -167 247 outlet~;
#X text -203 282 source distance from Observer;
#X text -10 8 Calculates position of the source.;
#X obj -137 60 inlet~;
#X obj -26 62 inlet~;
#X obj -221 75 r~ PropX;
#X obj -122 80 r~ PropY;
#X obj -11 83 r~ PropZ;
#X obj -236 98 +~;
#X obj -137 102 +~;
#X obj -26 102 +~;
#X obj -236 53 inlet~;
#X text -236 32 Prop X;
#X text -133 42 Prop Y;
#X text -24 42 Prop Z;
#X obj 611 92 inlet~;
#X obj 665 93 inlet~;
#X obj 561 94 inlet~;
#X text 561 73 X';
#X text 615 74 Y';
#X text 667 73 Z';
#X text 697 245 Temp projection Y coordinate;
#N canvas 61 69 1378 751 Projection1Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 619 189 r myMet;
#X obj 619 209 snapshot~;
#X floatatom 619 230 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 777 172 Elevation down to XY plane;
#X text 436 174 Azimuth in the XY plane;
#X obj 650 283 sin~;
#X obj 665 303 cos~;
#X obj 650 323 /~;
#X obj 707 197 /~ 360;
#X obj 635 346 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 328 403 sig~ 180;
#X obj 328 424 -~;
#X obj 328 445 /~ 2;
#X obj 313 383 sig~ 90;
#X obj 313 467 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 482 663 Y coordinate in the XY plane;
#X text 215 679 X coordinate in the XY plane;
#X obj 621 389 -~;
#X obj 306 660 outlet~;
#X obj 470 644 outlet~;
#X obj 399 95 r myMet;
#X obj 399 115 snapshot~;
#X floatatom 399 136 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X obj 360 591 < 0;
#X obj 675 591 r myMet;
#X obj 675 611 snapshot~;
#X floatatom 675 631 0 0 0 0 - - -;
#X floatatom 373 612 0 0 0 0 - - -;
#X floatatom 538 601 0 0 0 0 - - -;
#X obj 510 327 r myMet;
#X obj 510 347 snapshot~;
#X floatatom 510 367 0 0 0 0 - - -;
#X obj 1022 361 r myMet;
#X obj 1022 381 snapshot~;
#X floatatom 1022 402 0 0 0 0 - - -;
#X obj 883 359 r myMet;
#X obj 883 379 snapshot~;
#X floatatom 883 400 0 0 0 0 - - -;
#X obj 650 97 *~;
#X obj 759 95 *~;
#X obj 1019 164 +~;
#X obj 1019 186 sqrt~;
#X obj 1186 91 *~;
#X obj 1171 117 +~;
#X obj 1171 139 sqrt~;
#X text 1057 186 Hyp in elev;
#X text 1219 138 Hyp in az;
#X obj 1004 209 /~;
#X obj 1156 162 /~;
#X obj 1155 183 arccos~;
#X obj 1004 231 arccos~;
#N canvas 421 208 451 214 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -32 21 sig~ 360;
#X obj -13 75 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -59 41 sig~ 360;
#X obj -45 68 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 843 297 pd angleSortOut;
#N canvas 421 208 779 411 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -13 75 -~;
#X obj -32 21 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -45 68 -~;
#X obj -59 41 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 964 312 pd angleSortOut;
#X obj 1218 252 r myMet;
#X obj 1218 272 snapshot~;
#X floatatom 1218 293 0 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 0 0 84 1;
#X connect 0 0 84 0;
#X connect 0 0 96 2;
#X connect 1 0 3 0;
#X connect 1 0 87 1;
#X connect 1 0 87 0;
#X connect 1 0 97 2;
#X connect 2 0 3 1;
#X connect 2 0 53 0;
#X connect 2 0 9 1;
#X connect 2 0 83 0;
#X connect 2 0 83 1;
#X connect 2 0 92 0;
#X connect 2 0 93 0;
#X connect 2 0 96 1;
#X connect 2 0 97 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 65 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 34 0;
#X connect 13 0 75 0;
#X connect 17 0 29 0;
#X connect 18 0 66 0;
#X connect 18 0 67 0;
#X connect 19 0 49 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 29 1;
#X connect 28 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 35 0;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 0 39 1;
#X connect 35 0 32 1;
#X connect 36 0 45 1;
#X connect 36 0 46 1;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 42 1;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 60 0;
#X connect 44 0 61 0;
#X connect 45 0 58 1;
#X connect 45 0 59 1;
#X connect 46 0 66 1;
#X connect 46 0 67 1;
#X connect 49 0 58 0;
#X connect 49 0 59 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 53 0 68 0;
#X connect 55 1 57 0;
#X connect 56 0 57 1;
#X connect 57 0 51 0;
#X connect 58 0 55 0;
#X connect 58 0 70 0;
#X connect 59 0 56 0;
#X connect 60 0 45 0;
#X connect 61 0 46 0;
#X connect 62 1 64 0;
#X connect 63 0 64 1;
#X connect 64 0 50 0;
#X connect 65 0 73 0;
#X connect 65 0 56 1;
#X connect 66 0 63 0;
#X connect 67 0 62 0;
#X connect 68 0 72 0;
#X connect 68 0 63 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 85 0;
#X connect 83 0 88 0;
#X connect 84 0 85 1;
#X connect 85 0 86 0;
#X connect 86 0 92 1;
#X connect 87 0 88 1;
#X connect 88 0 89 0;
#X connect 89 0 93 1;
#X connect 92 0 95 0;
#X connect 93 0 94 0;
#X connect 94 0 97 0;
#X connect 95 0 96 0;
#X connect 96 0 81 0;
#X connect 97 0 78 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X restore 537 172 pd Projection1Angles;
#X text 366 198 Temp projection X coordinate;
#X obj 327 383 -~;
#X obj 327 404 *~;
#X obj 363 384 -~;
#X obj 363 405 *~;
#X obj 327 477 sqrt~;
#X obj 394 404 *~;
#X obj 327 449 +~;
#X obj 363 429 +~;
#X obj 487 380 *~;
#X obj 514 381 *~;
#X obj 497 432 sqrt~;
#X obj 497 404 +~;
#X obj 546 578 +~;
#X obj 546 600 -~;
#X obj 546 623 /~;
#X obj 580 576 *~ 2;
#X obj 580 597 *~;
#X obj 546 647 arccos~;
#X text 232 508 Length between the projection point and the source
;
#X text 530 412 Length between the projection point and the origin
;
#X text 416 692 Elevation angle for goldsteins gain equation;
#N canvas 47 46 1193 713 Projection2Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 646 195 r myMet;
#X obj 646 215 snapshot~;
#X floatatom 646 236 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 32 189 P'1 is directly below the source on the XY plane;
#X text 782 173 Elevation down to XY plane;
#X text 425 176 Azimuth in the XY plane;
#X obj 821 278 sin~;
#X obj 836 298 cos~;
#X obj 821 318 /~;
#X obj 707 197 /~ 360;
#X obj 806 341 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 109 448 sig~ 180;
#X obj 109 469 -~;
#X obj 109 490 /~ 2;
#X obj 94 428 sig~ 90;
#X obj 94 512 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 526 655 Y coordinate in the XY plane;
#X text 133 661 X coordinate in the XY plane;
#X obj 792 384 -~;
#X obj 306 658 outlet~;
#X obj 470 644 outlet~;
#X obj 462 75 r myMet;
#X obj 462 95 snapshot~;
#X floatatom 462 116 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X floatatom 380 614 0 0 0 0 - - -;
#X obj 360 591 < 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 54 0;
#X connect 2 0 9 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 66 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 29 0;
#X connect 12 0 5 0;
#X connect 13 0 35 0;
#X connect 17 0 30 0;
#X connect 18 0 67 0;
#X connect 18 0 68 0;
#X connect 19 0 50 0;
#X connect 26 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 30 1;
#X connect 29 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 36 0;
#X connect 30 0 50 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 46 1;
#X connect 37 0 47 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 62 0;
#X connect 46 0 59 1;
#X connect 46 0 60 1;
#X connect 47 0 67 1;
#X connect 47 0 68 1;
#X connect 50 0 59 0;
#X connect 50 0 60 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 70 0;
#X connect 56 1 58 0;
#X connect 57 0 58 1;
#X connect 58 0 52 0;
#X connect 59 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 46 0;
#X connect 62 0 47 0;
#X connect 63 1 65 0;
#X connect 64 0 65 1;
#X connect 65 0 51 0;
#X connect 66 0 57 1;
#X connect 67 0 64 0;
#X connect 68 0 63 0;
#X connect 70 0 69 0;
#X connect 70 0 64 1;
#X restore -46 395 pd Projection2Angles;
#X obj -233 453 -~;
#X obj -233 474 *~;
#X obj -197 454 -~;
#X obj -197 475 *~;
#X obj -233 547 sqrt~;
#X obj -166 474 *~;
#X obj -233 519 +~;
#X obj -197 499 +~;
#X obj -73 450 *~;
#X obj -46 451 *~;
#X obj -63 502 sqrt~;
#X obj -63 474 +~;
#X obj -12 614 +~;
#X obj -12 636 -~;
#X obj -12 659 /~;
#X obj 22 612 *~ 2;
#X obj 22 633 *~;
#X obj -12 683 arccos~;
#X text -328 578 Length between the projection point and the source
;
#X text -30 482 Length between the projection point and the origin
;
#X text -93 773 Azimuth angle for goldsteins gain equation;
#X obj -27 704 sig~ 90;
#X obj -27 724 -~;
#X obj -27 748 outlet~;
#X obj 546 668 outlet~;
#X obj 345 648 r myMet;
#X obj 345 668 snapshot~;
#X floatatom 345 688 0 0 0 0 - - -;
#X obj 805 677 r myMet;
#X obj 805 697 snapshot~;
#X floatatom 805 717 0 0 0 0 - - -;
#X obj 176 672 r myMet;
#X obj 176 692 snapshot~;
#X floatatom 176 712 0 0 0 0 - - -;
#X obj 640 649 sig~ 90;
#X obj 58 733 sig~ 0;
#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 42 0;
#X connect 4 0 64 0;
#X connect 5 0 6 0;
#X connect 5 0 46 1;
#X connect 5 0 68 1;
#X connect 9 0 15 0;
#X connect 9 0 51 4;
#X connect 10 0 16 0;
#X connect 10 0 51 5;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 0 0;
#X connect 14 0 0 1;
#X connect 14 0 28 0;
#X connect 14 0 30 0;
#X connect 14 0 51 0;
#X connect 14 0 52 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 0 28 1;
#X connect 15 0 32 0;
#X connect 15 0 51 1;
#X connect 15 0 54 0;
#X connect 16 0 2 0;
#X connect 16 0 2 1;
#X connect 16 0 28 2;
#X connect 16 0 35 0;
#X connect 16 0 35 1;
#X connect 16 0 51 2;
#X connect 16 0 57 0;
#X connect 16 0 57 1;
#X connect 17 0 14 0;
#X connect 17 0 51 3;
#X connect 21 0 28 4;
#X connect 22 0 28 5;
#X connect 23 0 28 3;
#X connect 28 0 30 1;
#X connect 28 0 38 0;
#X connect 28 0 38 1;
#X connect 28 1 32 1;
#X connect 28 1 39 0;
#X connect 28 1 39 1;
#X connect 30 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 32 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 45 0;
#X connect 35 0 37 1;
#X connect 36 0 34 0;
#X connect 36 0 42 1;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 41 1;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 44 1;
#X connect 47 0 76 0;
#X connect 47 0 81 0;
#X connect 51 0 60 1;
#X connect 51 0 60 0;
#X connect 51 0 52 1;
#X connect 51 1 61 1;
#X connect 51 1 61 0;
#X connect 51 1 54 1;
#X connect 52 0 53 1;
#X connect 52 0 53 0;
#X connect 53 0 58 0;
#X connect 54 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 59 0;
#X connect 56 0 67 0;
#X connect 57 0 59 1;
#X connect 58 0 56 0;
#X connect 58 0 64 1;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 63 0 62 0;
#X connect 63 0 65 1;
#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 74 1;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 74 0 84 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X restore 372 251 pd sourcePositionsD2;
#X connect 1 0 2 0;
#X connect 1 0 4 0;
#X connect 1 0 3 0;
#X connect 3 2 10 0;
#X connect 3 3 10 1;
#X connect 3 4 10 2;
#X connect 3 5 10 3;
#X connect 3 6 10 4;
#X connect 3 7 10 5;
#X connect 6 0 2 1;
#X connect 6 0 3 1;
#X connect 6 0 4 1;
#X connect 7 0 2 2;
#X connect 7 0 3 2;
#X connect 7 0 4 2;
#X restore 266 168 pd sources1;
#X msg 172 61 0.25;
#X msg 207 59 0.33;
#X obj 47 161 spigot~;
#X obj -59 161 spigot~;
#X msg -59 95 0;
#X msg -27 94 1;
#X msg 73 96 1;
#X msg 45 97 0;
#X msg 243 58 0.5;
#X msg 74 65 0.67;
#X msg 110 66 0.5;
#X msg 0 70 0.75;
#N canvas 819 327 343 198 startUp 0;
#X obj 245 129 outlet;
#X obj 245 85 loadbang;
#X msg 245 105 350;
#X obj 182 124 outlet;
#X obj 182 83 loadbang;
#X msg 182 103 36;
#X obj 35 116 outlet;
#X obj 36 73 loadbang;
#X msg 36 93 10.6;
#X obj 114 120 outlet;
#X obj 114 80 loadbang;
#X msg 114 100 2.5e-05;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X restore 348 378 pd startUp;
#X obj 444 249 hsl 100 20 -500 500 0 0 empty empty PropX 6 10 0 10
-228856 -1 -1 7326 1;
#X obj 553 247 hsl 100 20 -500 500 0 0 empty empty PropY 6 10 0 10
-228856 -1 -1 990 1;
#X obj 395 144 vsl 20 100 0 500 0 0 empty empty PropZ 0 -9 0 10 -228856
-1 -1 1980 1;
#X obj 477 102 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 486 282 0 0 0 0 - - -;
#X floatatom 597 273 0 0 0 0 - - -;
#X floatatom 399 254 0 0 0 0 - - -;
#X obj 441 295 line~;
#X obj 383 294 line~;
#X msg 383 274 \$1 30;
#X obj 550 291 line~;
#X msg 550 271 \$1 30;
#X obj 441 315 s~ PropX;
#X obj 383 315 s~ PropZ;
#X obj 550 312 s~ PropY;
#N canvas 390 120 947 675 Angles2 0;
#X obj 239 129 r~ PropX;
#X obj 269 39 r~ PropZ;
#X obj 254 -5 r~ dist;
#X obj 640 58 r~ Pitch;
#X obj 336 195 r~ Yaw;
#X obj 239 197 arccos~;
#X obj 239 175 /~;
#X obj 254 19 *~;
#X obj 269 64 *~;
#X obj 254 85 -~;
#X obj 254 107 sqrt~;
#X obj 708 77 r myMet;
#X obj 708 97 snapshot~;
#X floatatom 708 120 0 0 0 0 - - -;
#X obj 625 17 /~;
#X obj 625 79 +~;
#X obj 625 101 s~ planeElev;
#X obj 524 508 s~ planeAzim;
#X text 240 576 Calculate the Azimuth and Elevation between the observer
\, at the centre of coordinate system and point between propellors.
Azimuth and elevation of the plane also calculated in.;
#N canvas 37 223 656 584 centrePan 0;
#X obj 28 111 /~;
#X obj 44 91 inlet~;
#X obj 28 71 r~ PropX;
#X obj 62 24 r~ PropY;
#X obj 115 23 r myMet;
#X obj 115 43 snapshot~;
#X obj 115 65 < 0;
#X obj 115 126 * -1;
#X obj 28 154 *~ 1;
#X obj 115 85 * 2;
#X obj 115 105 - 1;
#X obj 28 132 arccos~;
#X obj 235 24 r myMet;
#X obj 235 44 snapshot~;
#X obj 235 66 < 0;
#X obj 235 127 * -1;
#X obj 182 25 r~ PropX;
#X obj 235 106 - 1;
#X obj 235 86 * 1;
#X obj 28 219 spigot~;
#X obj 91 427 r myMet;
#X obj 91 447 snapshot~;
#X floatatom 170 468 0 0 0 0 - - -;
#X obj 28 175 /~ 180;
#X obj 28 198 +~ 0.5;
#X obj 28 239 abs~;
#X obj 28 260 spigot~;
#X obj 28 280 -~ 2;
#X obj 28 300 *~ -1;
#X obj 28 320 +~ 0;
#X obj 28 341 spigot~;
#X obj 78 378 +~;
#X obj 63 422 +~;
#X obj 78 401 spigot~;
#X text 208 230 Calculating the pan value between the obseerver \,
static at the centre of the coordinates system and facing direct up
the x axis.;
#X obj 91 469 s centrePan;
#X connect 0 0 11 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 9 0;
#X connect 6 0 26 1;
#X connect 6 0 30 1;
#X connect 7 0 8 1;
#X connect 8 0 23 0;
#X connect 9 0 10 0;
#X connect 10 0 7 0;
#X connect 11 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 15 0 19 1;
#X connect 15 0 33 1;
#X connect 16 0 13 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 25 0;
#X connect 19 1 32 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 21 0 35 0;
#X connect 23 0 24 0;
#X connect 24 0 19 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 31 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 1;
#X connect 31 0 33 0;
#X connect 32 0 21 0;
#X connect 33 0 32 1;
#X restore 320 131 pd centrePan;
#X obj 625 38 arccos~;
#X obj 239 155 abs~;
#X obj 647 167 r~ Yaw;
#X obj 689 167 r myMet;
#X obj 647 187 snapshot~;
#X floatatom 676 209 0 0 0 0 - - -;
#X obj 647 209 > 0;
#X obj 108 388 r myMet;
#X obj 108 408 snapshot~;
#X floatatom 108 431 0 0 0 0 - - -;
#X obj 96 113 r myMet;
#X obj 96 133 snapshot~;
#X floatatom 96 156 0 0 0 0 - - -;
#N canvas 20 503 246 189 Q1 0;
#X obj 73 40 inlet~;
#X obj 58 16 sig~ 180;
#X obj 84 64 inlet~;
#X obj 58 64 -~;
#X obj 69 88 +~;
#X obj 69 113 outlet~;
#X text 15 140 Calculate first step azimuth angle;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X restore 224 321 pd Q1;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X obj 64 40 r~ PropX;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 169 69 r~ PropY;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 5 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 9 0 12 1;
#X connect 9 0 13 1;
#X connect 9 0 14 1;
#X connect 9 0 15 1;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 11 0 15 0;
#X connect 11 1 12 0;
#X connect 11 1 13 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X restore 224 345 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X obj 64 40 r~ PropX;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 169 69 r~ PropY;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 5 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 9 0 12 1;
#X connect 9 0 13 1;
#X connect 9 0 14 1;
#X connect 9 0 15 1;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 11 0 15 0;
#X connect 11 1 12 0;
#X connect 11 1 13 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X restore 322 349 pd QuadSelect;
#N canvas 20 503 246 189 Q2 0;
#X obj 73 40 inlet~;
#X obj 58 16 sig~ 180;
#X obj 84 64 inlet~;
#X obj 58 64 -~;
#X obj 69 113 outlet~;
#X text 15 140 Calculate first step azimuth angle;
#X obj 69 88 -~;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 2 0 6 1;
#X connect 3 0 6 0;
#X connect 6 0 4 0;
#X restore 322 322 pd Q2;
#X obj 332 377 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X obj 64 40 r~ PropX;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 169 69 r~ PropY;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 5 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 9 0 12 1;
#X connect 9 0 13 1;
#X connect 9 0 14 1;
#X connect 9 0 15 1;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 11 0 15 0;
#X connect 11 1 12 0;
#X connect 11 1 13 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X restore 504 349 pd QuadSelect;
#X obj 451 374 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X obj 64 40 r~ PropX;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 169 69 r~ PropY;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 5 0 4 0;
#X connect 5 0 11 1;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;
#X connect 9 0 12 1;
#X connect 9 0 13 1;
#X connect 9 0 14 1;
#X connect 9 0 15 1;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 11 0 15 0;
#X connect 11 1 12 0;
#X connect 11 1 13 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 14 1 18 0;
#X connect 15 0 19 0;
#X restore 416 349 pd QuadSelect;
#X obj 564 376 +~;
#N canvas 20 503 246 189 Q4 0;
#X obj 69 40 inlet~;
#X obj 84 64 inlet~;
#X obj 69 113 outlet~;
#X text 15 140 Calculate first step azimuth angle;
#X obj 69 88 +~;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 4 0 2 0;
#X restore 417 322 pd Q4;
#N canvas 20 503 246 189 Q3 0;
#X obj 69 40 inlet~;
#X obj 84 64 inlet~;
#X obj 69 113 outlet~;
#X text 15 140 Calculate first step azimuth angle;
#X obj 69 88 -~;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 4 0 2 0;
#X restore 503 320 pd Q3;
#N canvas 266 228 1134 494 corAngle 0;
#X obj 606 27 inlet~;
#X obj 632 116 spigot~;
#X obj 671 52 r myMet;
#X obj 672 74 snapshot~;
#X obj 411 128 r myMet;
#X obj 411 149 snapshot~;
#X obj 411 169 > 180;
#X obj 672 94 > 0;
#X obj 671 160 spigot~;
#X obj 710 96 r myMet;
#X obj 711 118 snapshot~;
#X obj 711 138 < 180;
#X obj 720 312 +~;
#X obj 859 136 spigot~;
#X obj 898 72 r myMet;
#X obj 899 94 snapshot~;
#X obj 899 114 > 360;
#X obj 451 217 spigot~;
#X obj 490 153 r myMet;
#X obj 491 175 snapshot~;
#X obj 412 194 spigot~;
#X obj 491 195 < 360;
#X obj 838 99 -~ 360;
#X obj 248 120 r myMet;
#X obj 248 141 snapshot~;
#X obj 288 209 spigot~;
#X obj 327 145 r myMet;
#X obj 328 167 snapshot~;
#X obj 249 186 spigot~;
#X obj 327 123 *~ -1;
#X obj 492 107 sig~ 360;
#X obj 492 128 -~;
#X obj 328 187 < 0;
#X obj 51 127 r myMet;
#X obj 51 148 snapshot~;
#X obj 91 216 spigot~;
#X obj 130 152 r myMet;
#X obj 131 174 snapshot~;
#X obj 52 193 spigot~;
#X obj 132 106 sig~ 360;
#X obj 248 161 > -180;
#X obj 51 168 > -360;
#X obj 131 194 < -180;
#X obj 132 127 +~;
#X obj 315 277 +~;
#X obj 471 310 +~;
#X obj 862 252 +~;
#X obj 840 383 outlet~;
#X obj 119 342 r myMet;
#X obj 119 362 snapshot~;
#X floatatom 119 385 0 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 10 0;
#X connect 0 0 19 0;
#X connect 0 0 5 0;
#X connect 0 0 15 0;
#X connect 0 0 22 0;
#X connect 0 0 31 1;
#X connect 0 0 29 0;
#X connect 0 0 43 1;
#X connect 0 0 34 0;
#X connect 0 0 27 0;
#X connect 0 0 24 0;
#X connect 0 0 37 0;
#X connect 1 1 8 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 20 1;
#X connect 7 0 1 1;
#X connect 8 1 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 1;
#X connect 12 0 46 1;
#X connect 13 1 46 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 13 1;
#X connect 17 1 45 0;
#X connect 18 0 19 0;
#X connect 19 0 21 0;
#X connect 20 1 17 0;
#X connect 21 0 17 1;
#X connect 22 0 13 0;
#X connect 23 0 24 0;
#X connect 24 0 40 0;
#X connect 25 1 44 0;
#X connect 26 0 27 0;
#X connect 27 0 32 0;
#X connect 28 1 25 0;
#X connect 29 0 28 0;
#X connect 30 0 31 0;
#X connect 31 0 20 0;
#X connect 32 0 25 1;
#X connect 33 0 34 0;
#X connect 34 0 41 0;
#X connect 35 1 44 1;
#X connect 36 0 37 0;
#X connect 37 0 42 0;
#X connect 38 1 35 0;
#X connect 39 0 43 0;
#X connect 40 0 28 1;
#X connect 41 0 38 1;
#X connect 42 0 35 1;
#X connect 43 0 38 0;
#X connect 44 0 45 1;
#X connect 45 0 12 1;
#X connect 46 0 47 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X restore 524 468 pd corAngle;
#X obj 116 489 r myMet;
#X obj 116 509 snapshot~;
#X floatatom 116 532 0 0 0 0 - - -;
#X obj 220 555 outlet;
#X connect 0 0 21 0;
#X connect 1 0 8 0;
#X connect 1 0 8 1;
#X connect 2 0 7 0;
#X connect 2 0 7 1;
#X connect 2 0 14 1;
#X connect 3 0 15 1;
#X connect 4 0 33 1;
#X connect 4 0 36 1;
#X connect 4 0 42 1;
#X connect 4 0 43 1;
#X connect 5 0 33 0;
#X connect 5 0 36 0;
#X connect 5 0 42 0;
#X connect 5 0 43 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 10 0 6 1;
#X connect 10 0 14 0;
#X connect 10 0 19 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 20 0;
#X connect 15 0 12 0;
#X connect 15 0 16 0;
#X connect 20 0 15 0;
#X connect 21 0 6 0;
#X connect 22 0 24 0;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 33 0 34 0;
#X connect 34 0 37 0;
#X connect 35 1 37 1;
#X connect 36 0 35 0;
#X connect 37 0 39 0;
#X connect 38 3 41 1;
#X connect 39 0 41 0;
#X connect 40 2 39 1;
#X connect 41 0 28 0;
#X connect 41 0 44 0;
#X connect 42 0 40 0;
#X connect 43 0 38 0;
#X connect 44 0 46 0;
#X connect 44 0 17 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 48 0;
#X restore 576 379 pd Angles2;
#X obj 593 137 hsl 80 20 0 360 0 0 empty empty Yaw(Azimuth) 2 10 0
10 -232576 -1 -1 6348 1;
#X floatatom 755 163 0 0 0 0 - - -;
#X obj 809 137 hsl 80 20 -180 180 0 0 empty empty Roll 2 10 0 10 -232576
-1 -1 3950 1;
#X floatatom 863 165 0 0 0 0 - - -;
#X obj 590 184 line~;
#X msg 590 164 \$1 30;
#X floatatom 641 162 0 0 0 0 - - -;
#X obj 700 183 line~;
#X msg 700 163 \$1 30;
#X obj 806 181 line~;
#X msg 806 161 \$1 30;
#X obj 700 76 vsl 25 80 90 -90 0 0 empty empty Pitch(Elevation) 0 -9
0 10 -232576 -1 -1 3950 1;
#X msg 806 114 0;
#X msg 742 100 0 5000;
#X msg 742 121 -1 5000;
#X msg 742 141 0 5000;
#X obj 590 205 s~ Yaw;
#X obj 700 204 s~ Pitch;
#X obj 806 202 s~ Roll;
#X obj 136 4 select 2 3 4;
#X obj -233 718 s noBlad;
#X obj 69 -7 r noBlad;
#N canvas 190 23 703 814 rotNoise1 0;
#X obj 329 -137 noise~;
#X obj 329 -116 s~ myNoise;
#X obj 489 -118 /~ 60;
#X obj 489 -92 *~;
#X obj 528 -118 r~ noBlad;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 69 479 s centrePan;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 13 0;
#X connect 10 0 9 1;
#X connect 12 0 2 1;
#X connect 13 0 2 0;
#X connect 14 0 13 1;
#X restore 35 -48 pd rotPeak;
#X obj 35 -69 *~ 1;
#X obj 489 -29 s~ \$0-fundFreq;
#X obj 35 -134 r~ \$0-fundFreq;
#X obj 56 -112 loadbang;
#X obj 596 -110 *~ 0.10472;
#X obj 596 -130 r~ RPM;
#X obj 596 -90 s~ radsec;
#X msg 56 -91 1;
#N canvas 561 155 413 204 step1 0;
#X obj 54 21 r~ horseP;
#X obj 54 44 log~ 10;
#X obj 54 67 *~ 15.11;
#X obj 69 88 sig~ 83.57;
#X obj 54 110 +~;
#X obj 115 22 sig~ 10;
#X obj 54 132 outlet~;
#X text 50 161 Reference level based on the power input to the propeller
;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 6 0;
#X connect 5 0 1 1;
#X restore 338 245 pd step1;
#N canvas 278 94 435 484 step2 0;
#X obj 111 18 sig~ 4;
#X obj 126 38 r~ noBlad;
#X obj 111 58 /~;
#X obj 132 78 sig~ 10;
#X obj 111 98 log~;
#X obj 111 119 *~ 20;
#X obj 126 252 /~;
#X obj 147 272 sig~ 10;
#X obj 126 292 log~;
#X obj 126 150 sig~ 4.72;
#X obj 126 313 *~ 40;
#X obj 37 127 r myMet;
#X obj 37 147 snapshot~;
#X floatatom 37 166 0 0 0 0 - - -;
#X obj 194 344 r myMet;
#X obj 194 364 snapshot~;
#X floatatom 194 383 0 0 0 0 - - -;
#X obj 141 231 *~ 2;
#X obj 111 337 +~;
#X obj 141 170 r~ length;
#X obj 111 362 outlet~;
#X text 49 423 Calculate the correction to the partial level for number
of blades and propeller diameter;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 5 0 18 0;
#X connect 6 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 0;
#X connect 9 0 6 0;
#X connect 10 0 15 0;
#X connect 10 0 18 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 6 1;
#X connect 18 0 20 0;
#X connect 19 0 17 0;
#X restore 349 267 pd step2;
#N canvas 204 35 390 417 step3 0;
#X obj -47 77 *~ 2;
#X obj -47 159 *~;
#X obj -47 180 *~ 3.14159;
#X obj -47 203 /~ 60;
#X obj -111 229 r myMet;
#X obj -111 249 snapshot~;
#X floatatom -111 268 0 0 0 0 - - -;
#X obj -47 226 /~ 343;
#X obj -117 75 sig~ 0.305;
#X obj -117 97 /~;
#X obj -121 145 r myMet;
#X obj -121 165 snapshot~;
#X floatatom -121 184 0 0 0 0 - - -;
#X obj -117 119 s~ repPo;
#X obj 170 51 *~ 25.12;
#X obj 170 72 -~ 33.4;
#X obj 206 113 sig~ 10;
#X obj 185 133 log~;
#X obj 185 92 r~ repPo;
#X obj 170 155 *~;
#X obj 185 198 *~ 34.375;
#X obj 185 219 -~ 36.875;
#X obj 170 240 +~;
#X obj 103 242 r myMet;
#X obj 103 262 snapshot~;
#X floatatom 103 281 0 0 0 0 - - -;
#X obj -47 16 r~ length;
#X obj -32 98 r~ RPM;
#X obj 170 262 outlet~;
#X obj -25 286 outlet~;
#X text -106 323 Obtain the correction factor from Fig. B-3. This accounts
for the rotational speed of the propeller (M \, = tip Mach number)
as well as the distance from a radial reference point to the propeller
disc.;
#X connect 0 0 1 0;
#X connect 0 0 9 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 7 0 14 0;
#X connect 7 0 20 0;
#X connect 7 0 29 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 9 0 13 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 19 0;
#X connect 16 0 17 1;
#X connect 17 0 19 1;
#X connect 18 0 17 0;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 24 0;
#X connect 22 0 28 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 26 0 0 0;
#X connect 27 0 1 1;
#X restore 361 285 pd step3;
#N canvas 277 294 356 296 step4 0;
#X obj 107 37 *~;
#X obj 107 59 *~ -0.0053;
#X obj 122 123 *~ 1.19;
#X obj 107 145 +~;
#X obj 107 167 -~ 62.32;
#X obj 37 167 r myMet;
#X obj 37 187 snapshot~;
#X floatatom 37 206 0 0 0 0 - - -;
#X obj 202 81 r myMet;
#X obj 202 101 snapshot~;
#X floatatom 202 120 0 0 0 0 - - -;
#X obj 107 189 max~ -20;
#X obj 107 210 outlet~;
#X text 6 236 Obtain the correction factor from Fig. B-8. This accounts
for the directional characteristics of sound propagation from a propeller.
;
#X obj 107 15 r~ planeAzim;
#X obj 122 80 r~ planeAzim;
#X obj 122 101 abs~;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 0 11 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 14 0 0 1;
#X connect 14 0 0 0;
#X connect 15 0 9 0;
#X connect 15 0 16 0;
#X connect 16 0 2 0;
#X restore 372 305 pd step4;
#N canvas 135 113 216 232 step5 0;
#X obj 102 23 r~ dist;
#X obj 102 44 *~ 3.375;
#X obj 102 65 -~ 1;
#X obj 123 85 sig~ 10;
#X obj 102 106 log~;
#X obj 102 129 *~ 20;
#X obj 102 150 outlet~;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X restore 383 324 pd step5;
#N canvas 1078 90 239 351 step6 0;
#X obj 32 77 +~;
#X obj 32 120 +~;
#X obj 32 160 +~;
#X obj 32 204 -~;
#X obj 32 38 inlet~;
#X obj 47 58 inlet~;
#X obj 50 98 inlet~;
#X obj 66 137 inlet~;
#X obj 79 174 inlet~;
#X obj 32 231 outlet~;
#X obj 119 205 r myMet;
#X obj 119 225 snapshot~;
#X floatatom 119 244 0 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 9 0;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X connect 6 0 1 1;
#X connect 7 0 2 1;
#X connect 8 0 3 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X restore 338 346 pd step6;
#N canvas 26 45 855 455 step7 0;
#X obj 29 33 *~ -0.7;
#X obj 29 54 +~ 0.79;
#X obj 144 13 sig~ 1;
#X obj 144 34 *~ -1;
#X obj 144 75 *~;
#X obj 144 96 exp~;
#X obj 144 117 *~ 26;
#X obj 144 139 -~ 22;
#X obj 144 162 s~ dec1;
#X obj 270 36 *~ -1;
#X obj 270 77 *~;
#X obj 270 98 exp~;
#X obj 270 119 *~ 26;
#X obj 270 141 -~ 22;
#X obj 392 36 *~ -1;
#X obj 392 77 *~;
#X obj 392 98 exp~;
#X obj 392 119 *~ 26;
#X obj 392 141 -~ 22;
#X obj 518 38 *~ -1;
#X obj 518 79 *~;
#X obj 518 100 exp~;
#X obj 518 121 *~ 26;
#X obj 518 143 -~ 22;
#X obj 644 37 *~ -1;
#X obj 644 78 *~;
#X obj 644 99 exp~;
#X obj 644 120 *~ 26;
#X obj 644 142 -~ 22;
#X obj 144 219 *~ -1;
#X obj 144 260 *~;
#X obj 144 281 exp~;
#X obj 144 302 *~ 26;
#X obj 144 324 -~ 22;
#X obj 270 221 *~ -1;
#X obj 270 262 *~;
#X obj 270 283 exp~;
#X obj 270 304 *~ 26;
#X obj 270 326 -~ 22;
#X obj 392 221 *~ -1;
#X obj 392 262 *~;
#X obj 392 283 exp~;
#X obj 392 304 *~ 26;
#X obj 392 326 -~ 22;
#X obj 518 223 *~ -1;
#X obj 518 264 *~;
#X obj 518 285 exp~;
#X obj 518 306 *~ 26;
#X obj 518 328 -~ 22;
#X obj 644 222 *~ -1;
#X obj 644 263 *~;
#X obj 644 284 exp~;
#X obj 644 305 *~ 26;
#X obj 644 327 -~ 22;
#X obj 270 15 sig~ 2;
#X obj 270 164 s~ dec2;
#X obj 392 15 sig~ 3;
#X obj 392 164 s~ dec3;
#X obj 518 17 sig~ 4;
#X obj 518 166 s~ dec4;
#X obj 644 16 sig~ 5;
#X obj 644 165 s~ dec5;
#X obj 144 198 sig~ 6;
#X obj 144 347 s~ dec6;
#X obj 270 200 sig~ 7;
#X obj 270 349 s~ dec7;
#X obj 392 200 sig~ 8;
#X obj 392 349 s~ dec8;
#X obj 518 202 sig~ 9;
#X obj 518 351 s~ dec9;
#X obj 644 201 sig~ 10;
#X obj 644 350 s~ dec10;
#X obj 29 12 inlet~;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 1 0 10 1;
#X connect 1 0 15 1;
#X connect 1 0 20 1;
#X connect 1 0 25 1;
#X connect 1 0 50 1;
#X connect 1 0 45 1;
#X connect 1 0 40 1;
#X connect 1 0 35 1;
#X connect 1 0 30 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 55 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 57 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 59 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 61 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 63 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 65 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 67 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 69 0;
#X connect 49 0 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 53 0 71 0;
#X connect 54 0 9 0;
#X connect 56 0 14 0;
#X connect 58 0 19 0;
#X connect 60 0 24 0;
#X connect 62 0 29 0;
#X connect 64 0 34 0;
#X connect 66 0 39 0;
#X connect 68 0 44 0;
#X connect 70 0 49 0;
#X connect 72 0 0 0;
#X restore 397 374 pd step7;
#X obj 92 -67 r~ harm1G;
#X obj 34 46 *~ 1;
#X obj 34 -19 r~ \$0-fundFreq;
#X obj 55 3 loadbang;
#X msg 55 24 2;
#X obj 91 46 r~ harm2G;
#X obj 34 162 *~ 1;
#X obj 34 97 r~ \$0-fundFreq;
#X obj 55 119 loadbang;
#X obj 32 275 *~ 1;
#X obj 32 210 r~ \$0-fundFreq;
#X obj 53 232 loadbang;
#X msg 55 140 3;
#X obj 91 162 r~ harm3G;
#X msg 53 253 4;
#X obj 89 275 r~ harm4G;
#X obj 30 388 *~ 1;
#X obj 30 323 r~ \$0-fundFreq;
#X obj 51 345 loadbang;
#X msg 51 366 5;
#X obj 87 388 r~ harm5G;
#X obj 172 -70 *~ 1;
#X obj 172 -135 r~ \$0-fundFreq;
#X obj 193 -113 loadbang;
#X obj 170 44 *~ 1;
#X obj 170 -21 r~ \$0-fundFreq;
#X obj 191 1 loadbang;
#X obj 170 164 *~ 1;
#X obj 170 99 r~ \$0-fundFreq;
#X obj 191 121 loadbang;
#X obj 167 275 *~ 1;
#X obj 167 210 r~ \$0-fundFreq;
#X obj 188 232 loadbang;
#X obj 162 386 *~ 1;
#X obj 162 321 r~ \$0-fundFreq;
#X obj 183 343 loadbang;
#X msg 193 -92 6;
#X obj 229 -69 r~ harm6G;
#X msg 191 22 7;
#X obj 227 43 r~ harm7G;
#X msg 191 142 8;
#X obj 227 164 r~ harm8G;
#X msg 188 253 9;
#X obj 224 276 r~ harm9G;
#X msg 183 364 10;
#X obj 219 385 r~ harm10G;
#X obj 489 -140 r~ RPM;
#N canvas 305 129 260 284 doppler 0;
#X obj 91 27 inlet~;
#X obj 91 207 outlet~;
#X obj 121 47 sig~ 323.56;
#X obj 121 131 +~;
#X obj 106 153 /~;
#X obj 91 175 *~;
#X obj 136 69 r~ dist;
#X obj 136 90 delta~;
#X obj 136 111 *~ 44100;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 3 1;
#X restore 489 -57 pd doppler;
#X obj 404 -78 r myMet;
#X obj 404 -58 snapshot~;
#X floatatom 404 -39 0 0 0 0 - - -;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 172 -48 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X obj 963 333 r myMet;
#X floatatom 1003 374 0 0 0 0 - - -;
#X obj 963 354 snapshot~;
#X obj 620 412 r myMet;
#X floatatom 660 453 0 0 0 0 - - -;
#X obj 620 433 snapshot~;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 42 0 61 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 46 0 64 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X connect 59 0 61 0;
#X connect 61 0 60 0;
#X connect 62 0 64 0;
#X connect 64 0 63 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 11 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 10 0 2 1;
#X connect 11 0 2 0;
#X connect 12 0 11 1;
#X restore 34 66 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 171 66 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 32 183 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 169 183 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 32 297 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 169 297 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 30 411 pd rotPeak;
#N canvas 307 242 656 482 rotPeak 0;
#X obj 141 332 throw~ l;
#X obj 168 309 throw~ r;
#X obj 141 288 fcpan;
#X obj 141 131 *~;
#X obj 141 41 r~ myNoise;
#X obj 196 104 inlet~;
#X obj 74 58 inlet~;
#X obj 141 83 vcf~ 150;
#X obj 141 104 vcf~ 150;
#X obj 141 194 *~;
#N canvas 38 38 1337 513 step9 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 74 127 pd step9;
#X obj 168 268 r centrePan;
#X obj 141 244 *~ 0.1;
#X obj 169 222 r rotBoost;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 3 0 9 0;
#X connect 4 0 7 0;
#X connect 5 0 3 1;
#X connect 6 0 7 1;
#X connect 6 0 8 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 11 0 2 1;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X restore 167 411 pd rotPeak;
#N canvas 137 149 1252 322 s_t_e_p_9 0;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 181 134 pd step9calc;
#X obj 181 112 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 268 133 pd step9calc;
#X obj 268 111 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 353 133 pd step9calc;
#X obj 353 111 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 435 129 pd step9calc;
#X obj 435 107 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 522 130 pd step9calc;
#X obj 522 108 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 606 128 pd step9calc;
#X obj 606 106 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 691 129 pd step9calc;
#X obj 691 107 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 773 129 pd step9calc;
#X obj 773 107 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 853 129 pd step9calc;
#X obj 853 107 inlet~;
#N canvas 38 38 1337 513 step9calc 0;
#X obj 269 26 inlet~;
#X obj 318 27 r myMet;
#X obj -223 191 spigot;
#X obj -177 164 spigot;
#X obj -115 193 spigot;
#X obj -69 166 spigot;
#X obj -6 193 spigot;
#X obj 40 166 spigot;
#X floatatom 438 64 0 0 0 0 - - -;
#X obj 101 191 spigot;
#X obj 147 164 spigot;
#X obj 207 193 spigot;
#X obj 253 166 spigot;
#X obj 315 192 spigot;
#X obj 361 165 spigot;
#X obj 318 48 snapshot~;
#X obj 423 194 spigot;
#X obj 469 167 spigot;
#X obj 772 330 r~ dist;
#X obj -144 139 < 90;
#X obj -36 141 < 180;
#X obj 73 142 < 355;
#X obj 180 140 < 710;
#X obj 286 143 < 1400;
#X obj 394 141 < 2800;
#X obj 514 142 < 5600;
#X obj 539 195 spigot;
#X obj 585 168 spigot;
#X obj 630 143 < 11200;
#X obj 653 194 spigot;
#X obj 699 167 spigot;
#X obj 744 142 < 22400;
#X msg -223 214 0;
#X msg -115 216 0.2;
#X msg -6 216 0.6;
#X msg 101 216 1;
#X msg 206 215 1.8;
#X msg 315 217 3.3;
#X msg 423 219 6;
#X msg 539 220 11.4;
#X msg 653 219 20;
#X text 679 219 Estimate;
#X obj 772 355 *~ 3.28084;
#X text 847 357 Convert to feet;
#X obj 772 379 /~ 1000;
#X text 833 381 Attenuation per 1000 feet;
#X obj 773 420 *~ 1;
#X obj 686 142 >= 11200;
#X obj 572 143 >= 5600;
#X obj 456 142 >= 2800;
#X obj 348 142 >= 1400;
#X obj 240 143 >= 710;
#X obj 134 140 >= 355;
#X obj 27 141 >= 180;
#X obj -82 142 >= 90;
#X obj -190 137 >= 0;
#X obj 773 445 outlet~;
#X text 831 442 Attenuation factor for this freq;
#X text 80 466 Values represent atmospheric attenuation for each frequnecy
band as published in Marte & Kurtz 1970;
#X connect 0 0 15 0;
#X connect 1 0 15 0;
#X connect 2 0 32 0;
#X connect 3 0 2 0;
#X connect 4 0 33 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 7 0 6 0;
#X connect 9 0 35 0;
#X connect 10 0 9 0;
#X connect 11 0 36 0;
#X connect 12 0 11 0;
#X connect 13 0 37 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 15 0 19 0;
#X connect 15 0 20 0;
#X connect 15 0 21 0;
#X connect 15 0 22 0;
#X connect 15 0 23 0;
#X connect 15 0 24 0;
#X connect 15 0 25 0;
#X connect 15 0 28 0;
#X connect 15 0 31 0;
#X connect 15 0 47 0;
#X connect 15 0 48 0;
#X connect 15 0 49 0;
#X connect 15 0 50 0;
#X connect 15 0 51 0;
#X connect 15 0 52 0;
#X connect 15 0 53 0;
#X connect 15 0 54 0;
#X connect 15 0 55 0;
#X connect 16 0 38 0;
#X connect 17 0 16 0;
#X connect 18 0 42 0;
#X connect 19 0 3 1;
#X connect 20 0 5 1;
#X connect 21 0 7 1;
#X connect 22 0 10 1;
#X connect 23 0 12 1;
#X connect 24 0 14 1;
#X connect 25 0 17 1;
#X connect 26 0 39 0;
#X connect 27 0 26 0;
#X connect 28 0 27 1;
#X connect 29 0 40 0;
#X connect 30 0 29 0;
#X connect 31 0 30 1;
#X connect 32 0 46 1;
#X connect 33 0 46 1;
#X connect 34 0 46 1;
#X connect 35 0 46 1;
#X connect 36 0 46 1;
#X connect 37 0 46 1;
#X connect 38 0 46 1;
#X connect 39 0 46 1;
#X connect 40 0 46 1;
#X connect 42 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 56 0;
#X connect 47 0 30 0;
#X connect 47 0 29 1;
#X connect 48 0 27 0;
#X connect 48 0 26 1;
#X connect 49 0 17 0;
#X connect 49 0 16 1;
#X connect 50 0 13 1;
#X connect 50 0 14 0;
#X connect 51 0 11 1;
#X connect 51 0 12 0;
#X connect 52 0 9 1;
#X connect 52 0 10 0;
#X connect 53 0 6 1;
#X connect 53 0 7 0;
#X connect 54 0 5 0;
#X connect 54 0 4 1;
#X connect 55 0 2 1;
#X connect 55 0 3 0;
#X restore 936 130 pd step9calc;
#X obj 936 108 inlet~;
#X obj 181 161 outlet~;
#X obj 267 161 outlet~;
#X obj 351 163 outlet~;
#X obj 437 163 outlet~;
#X obj 518 161 outlet~;
#X obj 604 161 outlet~;
#X obj 688 163 outlet~;
#X obj 774 163 outlet~;
#X obj 851 163 outlet~;
#X obj 937 163 outlet~;
#X connect 0 0 20 0;
#X connect 1 0 0 0;
#X connect 2 0 21 0;
#X connect 3 0 2 0;
#X connect 4 0 22 0;
#X connect 5 0 4 0;
#X connect 6 0 23 0;
#X connect 7 0 6 0;
#X connect 8 0 24 0;
#X connect 9 0 8 0;
#X connect 10 0 25 0;
#X connect 11 0 10 0;
#X connect 12 0 26 0;
#X connect 13 0 12 0;
#X connect 14 0 27 0;
#X connect 15 0 14 0;
#X connect 16 0 28 0;
#X connect 17 0 16 0;
#X connect 18 0 29 0;
#X connect 19 0 18 0;
#X restore 93 532 pd s_t_e_p_9;
#N canvas 0 142 1440 469 s_t_e_p_8 0;
#X obj 64 99 r~ dec1;
#X obj 49 166 /~ 20;
#X obj 28 79 sig~ 10;
#X obj 28 211 *~ 2e-05;
#X obj 28 190 pow~;
#X obj 49 121 +~;
#X obj 185 168 /~ 20;
#X obj 164 81 sig~ 10;
#X obj 164 213 *~ 2e-05;
#X obj 164 192 pow~;
#X obj 185 121 +~;
#X obj 200 99 r~ dec2;
#X obj 329 166 /~ 20;
#X obj 308 79 sig~ 10;
#X obj 308 211 *~ 2e-05;
#X obj 308 190 pow~;
#X obj 328 118 +~;
#X obj 465 168 /~ 20;
#X obj 444 81 sig~ 10;
#X obj 444 213 *~ 2e-05;
#X obj 444 192 pow~;
#X obj 464 121 +~;
#X obj 604 170 /~ 20;
#X obj 583 83 sig~ 10;
#X obj 583 215 *~ 2e-05;
#X obj 583 194 pow~;
#X obj 604 126 +~;
#X obj 806 165 /~ 20;
#X obj 785 78 sig~ 10;
#X obj 785 210 *~ 2e-05;
#X obj 785 189 pow~;
#X obj 806 118 +~;
#X obj 942 167 /~ 20;
#X obj 921 80 sig~ 10;
#X obj 921 212 *~ 2e-05;
#X obj 921 191 pow~;
#X obj 942 120 +~;
#X obj 1086 165 /~ 20;
#X obj 1065 78 sig~ 10;
#X obj 1065 210 *~ 2e-05;
#X obj 1065 189 pow~;
#X obj 1085 117 +~;
#X obj 1222 167 /~ 20;
#X obj 1201 80 sig~ 10;
#X obj 1201 212 *~ 2e-05;
#X obj 1201 191 pow~;
#X obj 1221 113 +~;
#X obj 1361 169 /~ 20;
#X obj 1340 82 sig~ 10;
#X obj 1340 214 *~ 2e-05;
#X obj 1340 193 pow~;
#X obj 1361 117 +~;
#X obj 343 96 r~ dec3;
#X obj 479 99 r~ dec4;
#X obj 619 104 r~ dec5;
#X obj 821 96 r~ dec6;
#X obj 957 98 r~ dec7;
#X obj 1100 95 r~ dec8;
#X obj 1236 91 r~ dec9;
#X obj 1376 95 r~ dec10;
#X obj 28 234 s~ harm1G;
#X obj 583 237 s~ harm5G;
#X obj 444 235 s~ harm4G;
#X obj 308 232 s~ harm3G;
#X obj 164 235 s~ harm2G;
#X obj 921 234 s~ harm7G;
#X obj 785 232 s~ harm6G;
#X obj 1065 232 s~ harm8G;
#X obj 1201 233 s~ harm9G;
#X obj 1340 235 s~ harm10G;
#X obj 765 305 inlet~;
#X obj 85 38 inlet~;
#X obj 232 41 inlet~;
#X obj 386 44 inlet~;
#X obj 533 47 inlet~;
#X obj 671 39 inlet~;
#X obj 818 42 inlet~;
#X obj 972 45 inlet~;
#X obj 1119 48 inlet~;
#X obj 1266 55 inlet~;
#X obj 1413 58 inlet~;
#X obj 49 144 -~;
#X obj 184 144 -~;
#X obj 328 143 -~;
#X obj 464 143 -~;
#X obj 603 148 -~;
#X obj 806 142 -~;
#X obj 941 143 -~;
#X obj 1084 139 -~;
#X obj 1222 140 -~;
#X obj 1361 143 -~;
#X connect 0 0 5 1;
#X connect 1 0 4 1;
#X connect 2 0 4 0;
#X connect 3 0 60 0;
#X connect 4 0 3 0;
#X connect 5 0 81 0;
#X connect 6 0 9 1;
#X connect 7 0 9 0;
#X connect 8 0 64 0;
#X connect 9 0 8 0;
#X connect 10 0 82 0;
#X connect 11 0 10 1;
#X connect 12 0 15 1;
#X connect 13 0 15 0;
#X connect 14 0 63 0;
#X connect 15 0 14 0;
#X connect 16 0 83 0;
#X connect 17 0 20 1;
#X connect 18 0 20 0;
#X connect 19 0 62 0;
#X connect 20 0 19 0;
#X connect 21 0 84 0;
#X connect 22 0 25 1;
#X connect 23 0 25 0;
#X connect 24 0 61 0;
#X connect 25 0 24 0;
#X connect 26 0 85 0;
#X connect 27 0 30 1;
#X connect 28 0 30 0;
#X connect 29 0 66 0;
#X connect 30 0 29 0;
#X connect 31 0 86 0;
#X connect 32 0 35 1;
#X connect 33 0 35 0;
#X connect 34 0 65 0;
#X connect 35 0 34 0;
#X connect 36 0 87 0;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 67 0;
#X connect 40 0 39 0;
#X connect 41 0 88 0;
#X connect 42 0 45 1;
#X connect 43 0 45 0;
#X connect 44 0 68 0;
#X connect 45 0 44 0;
#X connect 46 0 89 0;
#X connect 47 0 50 1;
#X connect 48 0 50 0;
#X connect 49 0 69 0;
#X connect 50 0 49 0;
#X connect 51 0 90 0;
#X connect 52 0 16 1;
#X connect 53 0 21 1;
#X connect 54 0 26 1;
#X connect 55 0 31 1;
#X connect 56 0 36 1;
#X connect 57 0 41 1;
#X connect 58 0 46 1;
#X connect 59 0 51 1;
#X connect 70 0 26 0;
#X connect 70 0 51 0;
#X connect 70 0 21 0;
#X connect 70 0 46 0;
#X connect 70 0 16 0;
#X connect 70 0 41 0;
#X connect 70 0 10 0;
#X connect 70 0 36 0;
#X connect 70 0 5 0;
#X connect 70 0 31 0;
#X connect 71 0 81 1;
#X connect 72 0 82 1;
#X connect 73 0 83 1;
#X connect 74 0 84 1;
#X connect 75 0 85 1;
#X connect 76 0 86 1;
#X connect 77 0 87 1;
#X connect 78 0 88 1;
#X connect 79 0 89 1;
#X connect 80 0 90 1;
#X connect 81 0 1 0;
#X connect 82 0 6 0;
#X connect 83 0 12 0;
#X connect 84 0 17 0;
#X connect 85 0 22 0;
#X connect 86 0 27 0;
#X connect 87 0 32 0;
#X connect 88 0 37 0;
#X connect 89 0 42 0;
#X connect 90 0 47 0;
#X restore 87 591 pd s_t_e_p_8;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 68 0;
#X connect 4 0 3 1;
#X connect 6 0 5 0;
#X connect 6 0 81 0;
#X connect 8 0 6 0;
#X connect 9 0 13 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 13 0 6 1;
#X connect 14 0 19 0;
#X connect 15 0 19 1;
#X connect 16 0 20 0;
#X connect 16 1 19 2;
#X connect 17 0 19 3;
#X connect 18 0 19 4;
#X connect 19 0 82 5;
#X connect 21 0 5 1;
#X connect 22 0 73 0;
#X connect 22 0 81 1;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 22 1;
#X connect 26 0 73 1;
#X connect 27 0 75 0;
#X connect 27 0 81 2;
#X connect 28 0 27 0;
#X connect 29 0 33 0;
#X connect 30 0 77 0;
#X connect 30 0 81 3;
#X connect 31 0 30 0;
#X connect 32 0 35 0;
#X connect 33 0 27 1;
#X connect 34 0 75 1;
#X connect 35 0 30 1;
#X connect 36 0 77 1;
#X connect 37 0 79 0;
#X connect 37 0 81 4;
#X connect 38 0 37 0;
#X connect 39 0 40 0;
#X connect 40 0 37 1;
#X connect 41 0 79 1;
#X connect 42 0 72 0;
#X connect 42 0 81 5;
#X connect 43 0 42 0;
#X connect 44 0 57 0;
#X connect 45 0 74 0;
#X connect 45 0 81 6;
#X connect 46 0 45 0;
#X connect 47 0 59 0;
#X connect 48 0 76 0;
#X connect 48 0 81 7;
#X connect 49 0 48 0;
#X connect 50 0 61 0;
#X connect 51 0 78 0;
#X connect 51 0 81 8;
#X connect 52 0 51 0;
#X connect 53 0 63 0;
#X connect 54 0 80 0;
#X connect 54 0 81 9;
#X connect 55 0 54 0;
#X connect 56 0 65 0;
#X connect 57 0 42 1;
#X connect 58 0 72 1;
#X connect 59 0 45 1;
#X connect 60 0 74 1;
#X connect 61 0 48 1;
#X connect 62 0 76 1;
#X connect 63 0 51 1;
#X connect 64 0 78 1;
#X connect 65 0 54 1;
#X connect 66 0 80 1;
#X connect 67 0 2 0;
#X connect 68 0 7 0;
#X connect 68 0 70 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 81 0 82 0;
#X connect 81 1 82 1;
#X connect 81 2 82 2;
#X connect 81 3 82 3;
#X connect 81 4 82 4;
#X connect 81 5 82 6;
#X connect 81 6 82 7;
#X connect 81 7 82 8;
#X connect 81 8 82 9;
#X connect 81 9 82 10;
#X restore 129 290 pd rotNoise1;
#X obj 576 422 r centrePan;
#X floatatom 576 444 5 0 0 0 - - -;
#X msg 538 166 312;
#N canvas 451 65 1138 732 PropAzim 1;
#X obj 361 297 pack;
#X obj 409 296 pack;
#X obj 361 320 line~;
#X obj 409 318 line~;
#X obj 371 341 r myMet;
#X obj 371 361 snapshot~;
#X floatatom 371 384 0 0 0 0 - - -;
#X obj 433 340 r myMet;
#X obj 433 360 snapshot~;
#X floatatom 433 383 0 0 0 0 - - -;
#X obj 802 99 hsl 128 15 -500 500 0 0 empty empty x -2 -8 0 10 -262144
-1 -1 9398 1;
#X obj 793 141 hsl 128 15 -500 500 0 0 empty empty y -2 -8 0 10 -262144
-1 -1 1270 1;
#X obj 143 271 unpack;
#X obj 361 273 unpack f f f;
#X obj 128 394 <;
#X floatatom 127 418 0 0 0 0 - - -;
#X obj 161 394 <;
#X floatatom 160 418 0 0 0 0 - - -;
#X msg 314 215 -100 -250 20000;
#X msg 647 196 \$1 30;
#X obj 647 218 line~;
#X msg 733 194 \$1 30;
#X obj 733 216 line~;
#X msg 691 195 \$1 30;
#X obj 691 217 line~;
#X msg 772 194 \$1 30;
#X obj 772 216 line~;
#X obj 646 248 -~;
#X obj 733 237 -~;
#X obj 631 331 /~;
#X obj 824 322 r myMet;
#X obj 824 342 snapshot~;
#X floatatom 824 365 0 0 0 0 - - -;
#X obj 513 423 +~ 180;
#X obj 584 444 -~;
#X obj 513 492 spigot~;
#X obj 513 517 spigot~;
#X obj 584 493 spigot~;
#X obj 584 518 spigot~;
#X obj 654 494 spigot~;
#X obj 654 518 spigot~;
#X obj 725 495 spigot~;
#X obj 725 518 spigot~;
#X obj 569 542 +~;
#X obj 678 541 +~;
#X obj 710 542 +~;
#X obj 753 573 r myMet;
#X obj 753 593 snapshot~;
#X floatatom 753 616 0 0 0 0 - - -;
#X msg 102 184 30 200;
#X msg 131 227 450 -300;
#X msg 143 249 -250 -20;
#X floatatom 794 166 0 0 0 0 - - -;
#X floatatom 810 118 0 0 0 0 - - -;
#X msg 234 142 240 -400 12000;
#X msg 284 191 -450 -100 20000;
#X msg 93 72 1;
#X msg 128 72 2;
#X msg 160 73 3;
#X msg 195 73 4;
#X obj 93 99 select 1 2 3 4;
#X obj 132 146 delay 10;
#X obj 93 42 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 127 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 165 46 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 199 47 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 166 168 delay 10;
#X obj 186 191 delay 10;
#X obj 220 213 delay 10;
#X obj 631 351 arccos~;
#X obj 646 269 *~;
#X obj 733 258 *~;
#X obj 646 291 +~;
#X obj 646 310 sqrt~;
#X obj 648 584 r myMet;
#X obj 648 604 snapshot~;
#X floatatom 648 627 0 0 0 0 - - -;
#X obj 549 579 r myMet;
#X obj 549 599 snapshot~;
#X floatatom 549 622 0 0 0 0 - - -;
#X obj 584 421 sig~ 180;
#X obj 654 444 sig~ 360;
#X obj 654 468 -~;
#X obj 616 311 abs~;
#X obj 878 611 outlet;
#X obj 416 410 outlet;
#X obj 359 408 outlet;
#X obj 93 19 r p1;
#X obj 127 19 r p2;
#X obj 165 22 r p3;
#X obj 199 23 r p4;
#X msg 264 166 10 0 30000;
#X msg 114 206 10 200;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 8 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 10 0;
#X connect 5 0 86 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 8 0 85 0;
#X connect 10 0 53 0;
#X connect 11 0 52 0;
#X connect 12 0 10 0;
#X connect 12 0 2 0;
#X connect 12 0 14 1;
#X connect 12 0 19 0;
#X connect 12 1 11 0;
#X connect 12 1 3 0;
#X connect 12 1 16 1;
#X connect 12 1 21 0;
#X connect 13 0 0 0;
#X connect 13 0 14 0;
#X connect 13 0 23 0;
#X connect 13 1 1 0;
#X connect 13 1 16 0;
#X connect 13 1 25 0;
#X connect 13 2 0 1;
#X connect 13 2 1 1;
#X connect 14 0 15 0;
#X connect 14 0 35 1;
#X connect 14 0 37 1;
#X connect 14 0 39 1;
#X connect 14 0 41 1;
#X connect 16 0 17 0;
#X connect 16 0 36 1;
#X connect 16 0 38 1;
#X connect 16 0 40 1;
#X connect 16 0 42 1;
#X connect 18 0 13 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 21 0 22 0;
#X connect 22 0 28 0;
#X connect 23 0 24 0;
#X connect 24 0 27 1;
#X connect 25 0 26 0;
#X connect 26 0 28 1;
#X connect 27 0 70 0;
#X connect 27 0 70 1;
#X connect 27 0 83 0;
#X connect 28 0 71 1;
#X connect 28 0 71 0;
#X connect 29 0 69 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 33 0 35 0;
#X connect 34 0 37 0;
#X connect 34 0 78 0;
#X connect 35 1 36 0;
#X connect 36 1 43 0;
#X connect 37 1 38 0;
#X connect 38 0 43 1;
#X connect 39 0 40 0;
#X connect 40 1 44 1;
#X connect 41 0 42 0;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 0 84 0;
#X connect 49 0 12 0;
#X connect 50 0 12 0;
#X connect 51 0 12 0;
#X connect 54 0 13 0;
#X connect 55 0 13 0;
#X connect 56 0 60 0;
#X connect 57 0 60 0;
#X connect 58 0 60 0;
#X connect 59 0 60 0;
#X connect 60 0 49 0;
#X connect 60 0 61 0;
#X connect 60 1 66 0;
#X connect 60 1 92 0;
#X connect 60 2 67 0;
#X connect 60 2 50 0;
#X connect 60 3 68 0;
#X connect 60 3 51 0;
#X connect 61 0 54 0;
#X connect 62 0 56 0;
#X connect 63 0 57 0;
#X connect 64 0 58 0;
#X connect 65 0 59 0;
#X connect 66 0 91 0;
#X connect 67 0 55 0;
#X connect 68 0 18 0;
#X connect 69 0 41 0;
#X connect 69 0 34 1;
#X connect 69 0 33 0;
#X connect 69 0 82 1;
#X connect 69 0 31 0;
#X connect 70 0 72 0;
#X connect 71 0 72 1;
#X connect 72 0 73 0;
#X connect 73 0 29 1;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 34 0;
#X connect 81 0 82 0;
#X connect 82 0 39 0;
#X connect 82 0 75 0;
#X connect 83 0 29 0;
#X connect 87 0 62 0;
#X connect 88 0 63 0;
#X connect 89 0 64 0;
#X connect 90 0 65 0;
#X connect 91 0 13 0;
#X connect 92 0 12 0;
#X restore 506 69 pd PropAzim;
#X obj 336 607 bng 25 250 50 0 empty empty 1 11 11 0 10 -262130 -1
-1;
#X obj 373 607 bng 25 250 50 0 empty empty 2 11 11 0 10 -262130 -1
-1;
#X obj 410 607 bng 25 250 50 0 empty empty 3 11 11 0 10 -262130 -1
-1;
#X obj 447 607 bng 25 250 50 0 empty empty 4 11 11 0 10 -262130 -1
-1;
#X obj 563 653 s p1;
#X obj 563 671 s p2;
#X obj 563 690 s p3;
#X obj 563 708 s p4;
#X floatatom 576 400 0 0 0 0 - - -;
#X msg 744 688 0.001;
#X msg 684 42 0;
#X msg -284 528 1;
#X msg 660 232 0;
#X msg 449 215 -120;
#X msg 550 214 190;
#X msg 436 120 100;
#X msg 441 275 \$1 30;
#X msg 756 248 250;
#X msg 755 286 -250 30000;
#X msg 852 285 -250 30000;
#X msg 853 247 -50;
#X obj 904 249 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 297 125 r~ Yaw;
#X obj 329 146 r~ Pitch;
#X obj 198 233 r centrePan;
#X obj 657 549 s motBoost;
#X obj 582 591 s broBoost;
#X msg 499 219 50;
#X obj 608 514 s rotBoost;
#X msg 85 375 1;
#X obj 405 57 metro 10;
#X msg 583 115 90;
#X msg 641 108 0;
#X msg 657 58 90;
#N canvas 397 343 1002 525 sourcesD2 0;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X obj 29 -70 inlet~;
#N canvas 42 58 1237 427 sourceEESpeed 0;
#X obj 26 343 outlet~;
#X text 12 369 Source Speed;
#X obj 382 66 cos~;
#X obj 453 69 sin~;
#X text 96 283 2 PI;
#X text 93 304 Radius of source;
#X obj 368 286 outlet~;
#X obj 445 286 outlet~;
#X text 424 306 y position of source;
#X text 597 262 z position of source;
#X text 8 104 diameter;
#X obj 382 16 inlet~;
#X obj 598 -8 r~ length;
#X obj 26 234 r~ RPM;
#X obj 26 258 /~ 60;
#X obj 26 283 *~ 6.28319;
#X obj 26 310 *~;
#X obj 382 104 *~;
#X obj 453 104 *~;
#X obj 27 81 outlet~;
#X obj 633 168 cos~;
#X obj 633 148 /~ 360;
#X obj 687 168 cos~;
#X obj 687 148 /~ 360;
#X obj 549 283 outlet~;
#X obj 816 169 sin~;
#X obj 752 166 sin~;
#X obj 337 210 *~;
#X obj 548 236 *~;
#X obj 337 238 *~;
#X obj 383 239 *~;
#X obj 368 262 -~;
#X obj 445 237 *~;
#X obj 491 238 *~;
#X obj 445 261 +~;
#X text 283 306 x position of source;
#X obj 986 158 cos~;
#X obj 1057 161 sin~;
#X obj 986 196 *~;
#X obj 1057 196 *~;
#X obj 946 242 *~;
#X obj 1144 268 *~;
#X obj 946 270 *~;
#X obj 979 271 *~;
#X obj 964 294 -~;
#X obj 1041 269 *~;
#X obj 1087 270 *~;
#X obj 1041 293 +~;
#X obj 978 318 outlet~;
#X obj 1055 318 outlet~;
#X obj 1159 315 outlet~;
#X text 386 351 Source Position bit;
#X text 954 359 Vector perpendicular to the source bit;
#X obj 987 132 +~ 0.25;
#X text 604 43 Radius;
#X obj 598 17 *~ 0.7486;
#X obj 27 59 sig~ 0.2367;
#X obj 633 127 inlet~;
#X obj 687 127 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 758 103 pd sourceEESpeed;
#N canvas 64 82 704 620 sourceFFSpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 271 43 *~ 0.8807;
#X obj 28 61 sig~ 0.2123;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X connect 2 0 28 0;
#X connect 2 0 30 0;
#X connect 2 0 47 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 9 1;
#X connect 12 0 27 0;
#X connect 12 0 30 1;
#X connect 12 0 45 1;
#X connect 13 0 10 0;
#X connect 14 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 17 0 42 1;
#X connect 18 0 20 0;
#X connect 18 0 29 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 22 0 43 1;
#X connect 22 0 48 1;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 18 1;
#X connect 30 0 34 1;
#X connect 31 0 34 0;
#X connect 32 0 42 0;
#X connect 33 0 37 0;
#X connect 34 0 36 1;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X restore 345 220 pd sourceFFSpeed;
#N canvas 867 34 652 586 sourceGGSpeed 1;
#X obj -112 286 outlet~;
#X text -126 312 Source Speed;
#X obj 94 -1 cos~;
#X text -42 226 2 PI;
#X text -130 47 diameter;
#X obj 94 -22 inlet~;
#X obj 108 48 r~ length;
#X obj -112 177 r~ RPM;
#X obj -112 201 /~ 60;
#X obj -112 226 *~ 6.28319;
#X obj -112 253 *~;
#X obj -111 24 outlet~;
#X text 62 73 Radius;
#X obj 108 73 *~ 0.9468;
#X obj -111 2 sig~ 0.1885;
#X obj 129 95 inlet;
#X obj 129 117 / 360;
#X obj 129 138 * 6.28319;
#X obj 129 160 sin;
#X obj 108 182 *~ 1;
#X obj 43 205 r~ dist;
#X obj 78 228 +~;
#X obj 15 237 r myMet;
#X obj 15 257 snapshot~;
#X floatatom 15 277 0 0 0 0 - - -;
#X obj 93 204 *~;
#X obj 78 250 outlet~;
#X floatatom 147 196 0 0 0 0 - - -;
#X obj 290 90 r~ PropZ;
#X obj 347 275 r~ PropX;
#X obj 275 45 r~ PropY;
#X obj 228 101 *~;
#X obj 290 129 +~;
#X obj 275 172 atan~;
#X obj 275 150 /~;
#X obj 275 70 abs~;
#X obj 275 194 *~ 360;
#X obj 275 215 /~ 6.28319;
#X obj 275 241 outlet~;
#X obj 347 316 arccos~;
#X obj 347 296 /~;
#X obj 347 338 -~ 1;
#X obj 347 383 cos~;
#X obj 347 406 *~;
#X obj 347 361 /~ 360;
#X obj -6 70 r myMet;
#X obj -6 90 snapshot~;
#X floatatom -6 110 0 0 0 0 - - -;
#X obj 347 427 *~;
#X obj 348 452 +~ 1;
#X obj 348 476 outlet~;
#X connect 2 0 25 0;
#X connect 2 0 31 0;
#X connect 2 0 48 1;
#X connect 5 0 2 0;
#X connect 6 0 13 0;
#X connect 6 0 46 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 13 0 10 1;
#X connect 13 0 19 0;
#X connect 13 0 31 1;
#X connect 13 0 43 1;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 15 0 41 1;
#X connect 15 0 49 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 18 0 27 0;
#X connect 19 0 25 1;
#X connect 20 0 21 0;
#X connect 20 0 40 1;
#X connect 21 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 21 1;
#X connect 28 0 32 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 31 0 32 1;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 48 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X restore 605 232 pd sourceGGSpeed;
#X obj 609 -20 r centrePan;
#X obj 375 -47 inlet~;
#X obj 419 -47 inlet~;
#X text 374 -66 Yaw;
#X text 420 -66 Pitch;
#N canvas 62 25 1219 804 sourcePositionsD2 0;
#X obj -236 122 *~;
#X obj -152 129 *~;
#X obj -26 126 *~;
#X obj -167 163 +~;
#X obj -167 195 +~;
#X obj -167 222 sqrt~;
#X obj -167 247 outlet~;
#X text -203 282 source distance from Observer;
#X text -10 8 Calculates position of the source.;
#X obj -137 60 inlet~;
#X obj -26 62 inlet~;
#X obj -221 75 r~ PropX;
#X obj -122 80 r~ PropY;
#X obj -11 83 r~ PropZ;
#X obj -236 98 +~;
#X obj -137 102 +~;
#X obj -26 102 +~;
#X obj -236 53 inlet~;
#X text -236 32 Prop X;
#X text -133 42 Prop Y;
#X text -24 42 Prop Z;
#X obj 611 92 inlet~;
#X obj 665 93 inlet~;
#X obj 561 94 inlet~;
#X text 561 73 X';
#X text 615 74 Y';
#X text 667 73 Z';
#X text 697 245 Temp projection Y coordinate;
#N canvas 61 69 1378 751 Projection1Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 619 189 r myMet;
#X obj 619 209 snapshot~;
#X floatatom 619 230 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 777 172 Elevation down to XY plane;
#X text 436 174 Azimuth in the XY plane;
#X obj 650 283 sin~;
#X obj 665 303 cos~;
#X obj 650 323 /~;
#X obj 707 197 /~ 360;
#X obj 635 346 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 328 403 sig~ 180;
#X obj 328 424 -~;
#X obj 328 445 /~ 2;
#X obj 313 383 sig~ 90;
#X obj 313 467 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 482 663 Y coordinate in the XY plane;
#X text 215 679 X coordinate in the XY plane;
#X obj 621 389 -~;
#X obj 306 660 outlet~;
#X obj 470 644 outlet~;
#X obj 399 95 r myMet;
#X obj 399 115 snapshot~;
#X floatatom 399 136 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X obj 360 591 < 0;
#X obj 675 591 r myMet;
#X obj 675 611 snapshot~;
#X floatatom 675 631 0 0 0 0 - - -;
#X floatatom 373 612 0 0 0 0 - - -;
#X floatatom 538 601 0 0 0 0 - - -;
#X obj 510 327 r myMet;
#X obj 510 347 snapshot~;
#X floatatom 510 367 0 0 0 0 - - -;
#X obj 1022 361 r myMet;
#X obj 1022 381 snapshot~;
#X floatatom 1022 402 0 0 0 0 - - -;
#X obj 883 359 r myMet;
#X obj 883 379 snapshot~;
#X floatatom 883 400 0 0 0 0 - - -;
#X obj 650 97 *~;
#X obj 759 95 *~;
#X obj 1019 164 +~;
#X obj 1019 186 sqrt~;
#X obj 1186 91 *~;
#X obj 1171 117 +~;
#X obj 1171 139 sqrt~;
#X text 1057 186 Hyp in elev;
#X text 1219 138 Hyp in az;
#X obj 1004 209 /~;
#X obj 1156 162 /~;
#X obj 1155 183 arccos~;
#X obj 1004 231 arccos~;
#N canvas 421 208 451 214 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -32 21 sig~ 360;
#X obj -13 75 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -59 41 sig~ 360;
#X obj -45 68 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 843 297 pd angleSortOut;
#N canvas 421 208 779 411 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -13 75 -~;
#X obj -32 21 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -45 68 -~;
#X obj -59 41 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 964 312 pd angleSortOut;
#X obj 1218 252 r myMet;
#X obj 1218 272 snapshot~;
#X floatatom 1218 293 0 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 0 0 84 1;
#X connect 0 0 84 0;
#X connect 0 0 96 2;
#X connect 1 0 3 0;
#X connect 1 0 87 1;
#X connect 1 0 87 0;
#X connect 1 0 97 2;
#X connect 2 0 3 1;
#X connect 2 0 53 0;
#X connect 2 0 9 1;
#X connect 2 0 83 0;
#X connect 2 0 83 1;
#X connect 2 0 92 0;
#X connect 2 0 93 0;
#X connect 2 0 96 1;
#X connect 2 0 97 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 65 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 34 0;
#X connect 13 0 75 0;
#X connect 17 0 29 0;
#X connect 18 0 66 0;
#X connect 18 0 67 0;
#X connect 19 0 49 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 29 1;
#X connect 28 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 35 0;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 0 39 1;
#X connect 35 0 32 1;
#X connect 36 0 45 1;
#X connect 36 0 46 1;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 42 1;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 60 0;
#X connect 44 0 61 0;
#X connect 45 0 58 1;
#X connect 45 0 59 1;
#X connect 46 0 66 1;
#X connect 46 0 67 1;
#X connect 49 0 58 0;
#X connect 49 0 59 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 53 0 68 0;
#X connect 55 1 57 0;
#X connect 56 0 57 1;
#X connect 57 0 51 0;
#X connect 58 0 55 0;
#X connect 58 0 70 0;
#X connect 59 0 56 0;
#X connect 60 0 45 0;
#X connect 61 0 46 0;
#X connect 62 1 64 0;
#X connect 63 0 64 1;
#X connect 64 0 50 0;
#X connect 65 0 73 0;
#X connect 65 0 56 1;
#X connect 66 0 63 0;
#X connect 67 0 62 0;
#X connect 68 0 72 0;
#X connect 68 0 63 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 85 0;
#X connect 83 0 88 0;
#X connect 84 0 85 1;
#X connect 85 0 86 0;
#X connect 86 0 92 1;
#X connect 87 0 88 1;
#X connect 88 0 89 0;
#X connect 89 0 93 1;
#X connect 92 0 95 0;
#X connect 93 0 94 0;
#X connect 94 0 97 0;
#X connect 95 0 96 0;
#X connect 96 0 81 0;
#X connect 97 0 78 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X restore 537 172 pd Projection1Angles;
#X text 366 198 Temp projection X coordinate;
#X obj 327 383 -~;
#X obj 327 404 *~;
#X obj 363 384 -~;
#X obj 363 405 *~;
#X obj 327 477 sqrt~;
#X obj 394 404 *~;
#X obj 327 449 +~;
#X obj 363 429 +~;
#X obj 487 380 *~;
#X obj 514 381 *~;
#X obj 497 432 sqrt~;
#X obj 497 404 +~;
#X obj 546 578 +~;
#X obj 546 600 -~;
#X obj 546 623 /~;
#X obj 580 576 *~ 2;
#X obj 580 597 *~;
#X obj 546 647 arccos~;
#X text 232 508 Length between the projection point and the source
;
#X text 530 412 Length between the projection point and the origin
;
#X text 416 692 Elevation angle for goldsteins gain equation;
#N canvas 47 46 1193 713 Projection2Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 646 195 r myMet;
#X obj 646 215 snapshot~;
#X floatatom 646 236 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 32 189 P'1 is directly below the source on the XY plane;
#X text 782 173 Elevation down to XY plane;
#X text 425 176 Azimuth in the XY plane;
#X obj 821 278 sin~;
#X obj 836 298 cos~;
#X obj 821 318 /~;
#X obj 707 197 /~ 360;
#X obj 806 341 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 109 448 sig~ 180;
#X obj 109 469 -~;
#X obj 109 490 /~ 2;
#X obj 94 428 sig~ 90;
#X obj 94 512 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 526 655 Y coordinate in the XY plane;
#X text 133 661 X coordinate in the XY plane;
#X obj 792 384 -~;
#X obj 306 658 outlet~;
#X obj 470 644 outlet~;
#X obj 462 75 r myMet;
#X obj 462 95 snapshot~;
#X floatatom 462 116 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X floatatom 380 614 0 0 0 0 - - -;
#X obj 360 591 < 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 54 0;
#X connect 2 0 9 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 66 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 29 0;
#X connect 12 0 5 0;
#X connect 13 0 35 0;
#X connect 17 0 30 0;
#X connect 18 0 67 0;
#X connect 18 0 68 0;
#X connect 19 0 50 0;
#X connect 26 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 30 1;
#X connect 29 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 36 0;
#X connect 30 0 50 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 46 1;
#X connect 37 0 47 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 62 0;
#X connect 46 0 59 1;
#X connect 46 0 60 1;
#X connect 47 0 67 1;
#X connect 47 0 68 1;
#X connect 50 0 59 0;
#X connect 50 0 60 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 70 0;
#X connect 56 1 58 0;
#X connect 57 0 58 1;
#X connect 58 0 52 0;
#X connect 59 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 46 0;
#X connect 62 0 47 0;
#X connect 63 1 65 0;
#X connect 64 0 65 1;
#X connect 65 0 51 0;
#X connect 66 0 57 1;
#X connect 67 0 64 0;
#X connect 68 0 63 0;
#X connect 70 0 69 0;
#X connect 70 0 64 1;
#X restore -46 395 pd Projection2Angles;
#X obj -233 453 -~;
#X obj -233 474 *~;
#X obj -197 454 -~;
#X obj -197 475 *~;
#X obj -233 547 sqrt~;
#X obj -166 474 *~;
#X obj -233 519 +~;
#X obj -197 499 +~;
#X obj -73 450 *~;
#X obj -46 451 *~;
#X obj -63 502 sqrt~;
#X obj -63 474 +~;
#X obj -12 614 +~;
#X obj -12 636 -~;
#X obj -12 659 /~;
#X obj 22 612 *~ 2;
#X obj 22 633 *~;
#X obj -12 683 arccos~;
#X text -328 578 Length between the projection point and the source
;
#X text -30 482 Length between the projection point and the origin
;
#X text -93 773 Azimuth angle for goldsteins gain equation;
#X obj -27 704 sig~ 90;
#X obj -27 724 -~;
#X obj -27 748 outlet~;
#X obj 546 668 outlet~;
#X obj 345 648 r myMet;
#X obj 345 668 snapshot~;
#X floatatom 345 688 0 0 0 0 - - -;
#X obj 805 677 r myMet;
#X obj 805 697 snapshot~;
#X floatatom 805 717 0 0 0 0 - - -;
#X obj 176 672 r myMet;
#X obj 176 692 snapshot~;
#X floatatom 176 712 0 0 0 0 - - -;
#X obj 640 649 sig~ 90;
#X obj 58 733 sig~ 0;
#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 42 0;
#X connect 4 0 64 0;
#X connect 5 0 6 0;
#X connect 5 0 46 1;
#X connect 5 0 68 1;
#X connect 9 0 15 0;
#X connect 9 0 51 4;
#X connect 10 0 16 0;
#X connect 10 0 51 5;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 0 0;
#X connect 14 0 0 1;
#X connect 14 0 28 0;
#X connect 14 0 30 0;
#X connect 14 0 51 0;
#X connect 14 0 52 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 0 28 1;
#X connect 15 0 32 0;
#X connect 15 0 51 1;
#X connect 15 0 54 0;
#X connect 16 0 2 0;
#X connect 16 0 2 1;
#X connect 16 0 28 2;
#X connect 16 0 35 0;
#X connect 16 0 35 1;
#X connect 16 0 51 2;
#X connect 16 0 57 0;
#X connect 16 0 57 1;
#X connect 17 0 14 0;
#X connect 17 0 51 3;
#X connect 21 0 28 4;
#X connect 22 0 28 5;
#X connect 23 0 28 3;
#X connect 28 0 30 1;
#X connect 28 0 38 0;
#X connect 28 0 38 1;
#X connect 28 1 32 1;
#X connect 28 1 39 0;
#X connect 28 1 39 1;
#X connect 30 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 32 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 45 0;
#X connect 35 0 37 1;
#X connect 36 0 34 0;
#X connect 36 0 42 1;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 41 1;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 44 1;
#X connect 47 0 76 0;
#X connect 47 0 81 0;
#X connect 51 0 60 1;
#X connect 51 0 60 0;
#X connect 51 0 52 1;
#X connect 51 1 61 1;
#X connect 51 1 61 0;
#X connect 51 1 54 1;
#X connect 52 0 53 1;
#X connect 52 0 53 0;
#X connect 53 0 58 0;
#X connect 54 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 59 0;
#X connect 56 0 67 0;
#X connect 57 0 59 1;
#X connect 58 0 56 0;
#X connect 58 0 64 1;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 63 0 62 0;
#X connect 63 0 65 1;
#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 74 1;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 74 0 84 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X restore 768 38 pd sourcePositionsD2;
#X obj 287 -41 inlet;
#X obj 617 281 freqCalcCyl7HiFi;
#X obj 359 269 freqCalcCyl7HiFi;
#N canvas 303 319 704 620 sourceEESpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X obj 271 43 *~ 0.7486;
#X obj 25 27 sig~ 0.2367;
#X connect 2 0 26 0;
#X connect 2 0 28 0;
#X connect 2 0 45 1;
#X connect 5 0 48 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 2 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 40 1;
#X connect 16 0 18 0;
#X connect 16 0 27 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 20 0 41 1;
#X connect 20 0 46 1;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 16 1;
#X connect 28 0 32 1;
#X connect 29 0 32 0;
#X connect 30 0 40 0;
#X connect 31 0 35 0;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 9 1;
#X connect 48 0 25 0;
#X connect 48 0 28 1;
#X connect 48 0 43 1;
#X connect 49 0 10 0;
#X restore 149 223 pd sourceEESpeed;
#X obj 147 265 freqCalcCyl7HiFi;
#X connect 1 0 4 0;
#X connect 1 0 3 0;
#X connect 1 0 14 0;
#X connect 3 0 13 0;
#X connect 3 1 13 1;
#X connect 3 2 13 2;
#X connect 3 3 13 3;
#X connect 3 4 13 4;
#X connect 4 0 12 0;
#X connect 4 1 12 1;
#X connect 4 2 12 2;
#X connect 4 3 12 3;
#X connect 4 4 12 4;
#X connect 5 0 12 5;
#X connect 5 0 13 5;
#X connect 5 0 15 5;
#X connect 11 0 3 1;
#X connect 11 0 4 1;
#X connect 11 0 14 1;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 14 2 15 2;
#X connect 14 3 15 3;
#X connect 14 4 15 4;
#X restore 276 196 pd sourcesD2;
#N canvas 397 343 1002 525 sourcesD2 0;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X obj 29 -70 inlet~;
#N canvas 42 58 1237 427 sourceEESpeed 0;
#X obj 26 343 outlet~;
#X text 12 369 Source Speed;
#X obj 382 66 cos~;
#X obj 453 69 sin~;
#X text 96 283 2 PI;
#X text 93 304 Radius of source;
#X obj 368 286 outlet~;
#X obj 445 286 outlet~;
#X text 424 306 y position of source;
#X text 597 262 z position of source;
#X text 8 104 diameter;
#X obj 382 16 inlet~;
#X obj 598 -8 r~ length;
#X obj 26 234 r~ RPM;
#X obj 26 258 /~ 60;
#X obj 26 283 *~ 6.28319;
#X obj 26 310 *~;
#X obj 382 104 *~;
#X obj 453 104 *~;
#X obj 27 81 outlet~;
#X obj 633 168 cos~;
#X obj 633 148 /~ 360;
#X obj 687 168 cos~;
#X obj 687 148 /~ 360;
#X obj 549 283 outlet~;
#X obj 816 169 sin~;
#X obj 752 166 sin~;
#X obj 337 210 *~;
#X obj 548 236 *~;
#X obj 337 238 *~;
#X obj 383 239 *~;
#X obj 368 262 -~;
#X obj 445 237 *~;
#X obj 491 238 *~;
#X obj 445 261 +~;
#X text 283 306 x position of source;
#X obj 986 158 cos~;
#X obj 1057 161 sin~;
#X obj 986 196 *~;
#X obj 1057 196 *~;
#X obj 946 242 *~;
#X obj 1144 268 *~;
#X obj 946 270 *~;
#X obj 979 271 *~;
#X obj 964 294 -~;
#X obj 1041 269 *~;
#X obj 1087 270 *~;
#X obj 1041 293 +~;
#X obj 978 318 outlet~;
#X obj 1055 318 outlet~;
#X obj 1159 315 outlet~;
#X text 386 351 Source Position bit;
#X text 954 359 Vector perpendicular to the source bit;
#X obj 987 132 +~ 0.25;
#X text 604 43 Radius;
#X obj 598 17 *~ 0.7486;
#X obj 27 59 sig~ 0.2367;
#X obj 633 127 inlet~;
#X obj 687 127 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 758 103 pd sourceEESpeed;
#N canvas 64 82 704 620 sourceFFSpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 271 43 *~ 0.8807;
#X obj 28 61 sig~ 0.2123;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X connect 2 0 28 0;
#X connect 2 0 30 0;
#X connect 2 0 47 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 9 1;
#X connect 12 0 27 0;
#X connect 12 0 30 1;
#X connect 12 0 45 1;
#X connect 13 0 10 0;
#X connect 14 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 17 0 42 1;
#X connect 18 0 20 0;
#X connect 18 0 29 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 22 0 43 1;
#X connect 22 0 48 1;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 18 1;
#X connect 30 0 34 1;
#X connect 31 0 34 0;
#X connect 32 0 42 0;
#X connect 33 0 37 0;
#X connect 34 0 36 1;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X restore 345 220 pd sourceFFSpeed;
#N canvas 867 34 652 586 sourceGGSpeed 0;
#X obj -112 286 outlet~;
#X text -126 312 Source Speed;
#X obj 94 -1 cos~;
#X text -42 226 2 PI;
#X text -130 47 diameter;
#X obj 94 -22 inlet~;
#X obj 108 48 r~ length;
#X obj -112 177 r~ RPM;
#X obj -112 201 /~ 60;
#X obj -112 226 *~ 6.28319;
#X obj -112 253 *~;
#X obj -111 24 outlet~;
#X text 62 73 Radius;
#X obj 108 73 *~ 0.9468;
#X obj -111 2 sig~ 0.1885;
#X obj 129 95 inlet;
#X obj 129 117 / 360;
#X obj 129 138 * 6.28319;
#X obj 129 160 sin;
#X obj 108 182 *~ 1;
#X obj 43 205 r~ dist;
#X obj 78 228 +~;
#X obj 15 237 r myMet;
#X obj 15 257 snapshot~;
#X floatatom 15 277 0 0 0 0 - - -;
#X obj 93 204 *~;
#X obj 78 250 outlet~;
#X floatatom 147 196 0 0 0 0 - - -;
#X obj 290 90 r~ PropZ;
#X obj 347 275 r~ PropX;
#X obj 275 45 r~ PropY;
#X obj 228 101 *~;
#X obj 290 129 +~;
#X obj 275 172 atan~;
#X obj 275 150 /~;
#X obj 275 70 abs~;
#X obj 275 194 *~ 360;
#X obj 275 215 /~ 6.28319;
#X obj 275 241 outlet~;
#X obj 347 316 arccos~;
#X obj 347 296 /~;
#X obj 347 338 -~ 1;
#X obj 347 383 cos~;
#X obj 347 406 *~;
#X obj 347 361 /~ 360;
#X obj -6 70 r myMet;
#X obj -6 90 snapshot~;
#X floatatom -6 110 0 0 0 0 - - -;
#X obj 347 427 *~;
#X obj 348 452 +~ 1;
#X obj 348 476 outlet~;
#X connect 2 0 25 0;
#X connect 2 0 31 0;
#X connect 2 0 48 1;
#X connect 5 0 2 0;
#X connect 6 0 13 0;
#X connect 6 0 46 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 13 0 10 1;
#X connect 13 0 19 0;
#X connect 13 0 31 1;
#X connect 13 0 43 1;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 15 0 41 1;
#X connect 15 0 49 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 18 0 27 0;
#X connect 19 0 25 1;
#X connect 20 0 21 0;
#X connect 20 0 40 1;
#X connect 21 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 21 1;
#X connect 28 0 32 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 31 0 32 1;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 48 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X restore 605 232 pd sourceGGSpeed;
#X obj 609 -20 r centrePan;
#X obj 375 -47 inlet~;
#X obj 419 -47 inlet~;
#X text 374 -66 Yaw;
#X text 420 -66 Pitch;
#N canvas 62 25 1219 804 sourcePositionsD2 0;
#X obj -236 122 *~;
#X obj -152 129 *~;
#X obj -26 126 *~;
#X obj -167 163 +~;
#X obj -167 195 +~;
#X obj -167 222 sqrt~;
#X obj -167 247 outlet~;
#X text -203 282 source distance from Observer;
#X text -10 8 Calculates position of the source.;
#X obj -137 60 inlet~;
#X obj -26 62 inlet~;
#X obj -221 75 r~ PropX;
#X obj -122 80 r~ PropY;
#X obj -11 83 r~ PropZ;
#X obj -236 98 +~;
#X obj -137 102 +~;
#X obj -26 102 +~;
#X obj -236 53 inlet~;
#X text -236 32 Prop X;
#X text -133 42 Prop Y;
#X text -24 42 Prop Z;
#X obj 611 92 inlet~;
#X obj 665 93 inlet~;
#X obj 561 94 inlet~;
#X text 561 73 X';
#X text 615 74 Y';
#X text 667 73 Z';
#X text 697 245 Temp projection Y coordinate;
#N canvas 61 69 1378 751 Projection1Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 619 189 r myMet;
#X obj 619 209 snapshot~;
#X floatatom 619 230 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 777 172 Elevation down to XY plane;
#X text 436 174 Azimuth in the XY plane;
#X obj 650 283 sin~;
#X obj 665 303 cos~;
#X obj 650 323 /~;
#X obj 707 197 /~ 360;
#X obj 635 346 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 328 403 sig~ 180;
#X obj 328 424 -~;
#X obj 328 445 /~ 2;
#X obj 313 383 sig~ 90;
#X obj 313 467 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 482 663 Y coordinate in the XY plane;
#X text 215 679 X coordinate in the XY plane;
#X obj 621 389 -~;
#X obj 306 660 outlet~;
#X obj 470 644 outlet~;
#X obj 399 95 r myMet;
#X obj 399 115 snapshot~;
#X floatatom 399 136 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X obj 360 591 < 0;
#X obj 675 591 r myMet;
#X obj 675 611 snapshot~;
#X floatatom 675 631 0 0 0 0 - - -;
#X floatatom 373 612 0 0 0 0 - - -;
#X floatatom 538 601 0 0 0 0 - - -;
#X obj 510 327 r myMet;
#X obj 510 347 snapshot~;
#X floatatom 510 367 0 0 0 0 - - -;
#X obj 1022 361 r myMet;
#X obj 1022 381 snapshot~;
#X floatatom 1022 402 0 0 0 0 - - -;
#X obj 883 359 r myMet;
#X obj 883 379 snapshot~;
#X floatatom 883 400 0 0 0 0 - - -;
#X obj 650 97 *~;
#X obj 759 95 *~;
#X obj 1019 164 +~;
#X obj 1019 186 sqrt~;
#X obj 1186 91 *~;
#X obj 1171 117 +~;
#X obj 1171 139 sqrt~;
#X text 1057 186 Hyp in elev;
#X text 1219 138 Hyp in az;
#X obj 1004 209 /~;
#X obj 1156 162 /~;
#X obj 1155 183 arccos~;
#X obj 1004 231 arccos~;
#N canvas 421 208 451 214 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -32 21 sig~ 360;
#X obj -13 75 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -59 41 sig~ 360;
#X obj -45 68 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 843 297 pd angleSortOut;
#N canvas 421 208 779 411 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -13 75 -~;
#X obj -32 21 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -45 68 -~;
#X obj -59 41 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 964 312 pd angleSortOut;
#X obj 1218 252 r myMet;
#X obj 1218 272 snapshot~;
#X floatatom 1218 293 0 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 0 0 84 1;
#X connect 0 0 84 0;
#X connect 0 0 96 2;
#X connect 1 0 3 0;
#X connect 1 0 87 1;
#X connect 1 0 87 0;
#X connect 1 0 97 2;
#X connect 2 0 3 1;
#X connect 2 0 53 0;
#X connect 2 0 9 1;
#X connect 2 0 83 0;
#X connect 2 0 83 1;
#X connect 2 0 92 0;
#X connect 2 0 93 0;
#X connect 2 0 96 1;
#X connect 2 0 97 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 65 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 34 0;
#X connect 13 0 75 0;
#X connect 17 0 29 0;
#X connect 18 0 66 0;
#X connect 18 0 67 0;
#X connect 19 0 49 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 29 1;
#X connect 28 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 35 0;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 0 39 1;
#X connect 35 0 32 1;
#X connect 36 0 45 1;
#X connect 36 0 46 1;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 42 1;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 60 0;
#X connect 44 0 61 0;
#X connect 45 0 58 1;
#X connect 45 0 59 1;
#X connect 46 0 66 1;
#X connect 46 0 67 1;
#X connect 49 0 58 0;
#X connect 49 0 59 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 53 0 68 0;
#X connect 55 1 57 0;
#X connect 56 0 57 1;
#X connect 57 0 51 0;
#X connect 58 0 55 0;
#X connect 58 0 70 0;
#X connect 59 0 56 0;
#X connect 60 0 45 0;
#X connect 61 0 46 0;
#X connect 62 1 64 0;
#X connect 63 0 64 1;
#X connect 64 0 50 0;
#X connect 65 0 73 0;
#X connect 65 0 56 1;
#X connect 66 0 63 0;
#X connect 67 0 62 0;
#X connect 68 0 72 0;
#X connect 68 0 63 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 85 0;
#X connect 83 0 88 0;
#X connect 84 0 85 1;
#X connect 85 0 86 0;
#X connect 86 0 92 1;
#X connect 87 0 88 1;
#X connect 88 0 89 0;
#X connect 89 0 93 1;
#X connect 92 0 95 0;
#X connect 93 0 94 0;
#X connect 94 0 97 0;
#X connect 95 0 96 0;
#X connect 96 0 81 0;
#X connect 97 0 78 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X restore 537 172 pd Projection1Angles;
#X text 366 198 Temp projection X coordinate;
#X obj 327 383 -~;
#X obj 327 404 *~;
#X obj 363 384 -~;
#X obj 363 405 *~;
#X obj 327 477 sqrt~;
#X obj 394 404 *~;
#X obj 327 449 +~;
#X obj 363 429 +~;
#X obj 487 380 *~;
#X obj 514 381 *~;
#X obj 497 432 sqrt~;
#X obj 497 404 +~;
#X obj 546 578 +~;
#X obj 546 600 -~;
#X obj 546 623 /~;
#X obj 580 576 *~ 2;
#X obj 580 597 *~;
#X obj 546 647 arccos~;
#X text 232 508 Length between the projection point and the source
;
#X text 530 412 Length between the projection point and the origin
;
#X text 416 692 Elevation angle for goldsteins gain equation;
#N canvas 47 46 1193 713 Projection2Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 646 195 r myMet;
#X obj 646 215 snapshot~;
#X floatatom 646 236 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 32 189 P'1 is directly below the source on the XY plane;
#X text 782 173 Elevation down to XY plane;
#X text 425 176 Azimuth in the XY plane;
#X obj 821 278 sin~;
#X obj 836 298 cos~;
#X obj 821 318 /~;
#X obj 707 197 /~ 360;
#X obj 806 341 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 109 448 sig~ 180;
#X obj 109 469 -~;
#X obj 109 490 /~ 2;
#X obj 94 428 sig~ 90;
#X obj 94 512 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 526 655 Y coordinate in the XY plane;
#X text 133 661 X coordinate in the XY plane;
#X obj 792 384 -~;
#X obj 306 658 outlet~;
#X obj 470 644 outlet~;
#X obj 462 75 r myMet;
#X obj 462 95 snapshot~;
#X floatatom 462 116 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X floatatom 380 614 0 0 0 0 - - -;
#X obj 360 591 < 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 54 0;
#X connect 2 0 9 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 66 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 29 0;
#X connect 12 0 5 0;
#X connect 13 0 35 0;
#X connect 17 0 30 0;
#X connect 18 0 67 0;
#X connect 18 0 68 0;
#X connect 19 0 50 0;
#X connect 26 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 30 1;
#X connect 29 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 36 0;
#X connect 30 0 50 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 46 1;
#X connect 37 0 47 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 62 0;
#X connect 46 0 59 1;
#X connect 46 0 60 1;
#X connect 47 0 67 1;
#X connect 47 0 68 1;
#X connect 50 0 59 0;
#X connect 50 0 60 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 70 0;
#X connect 56 1 58 0;
#X connect 57 0 58 1;
#X connect 58 0 52 0;
#X connect 59 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 46 0;
#X connect 62 0 47 0;
#X connect 63 1 65 0;
#X connect 64 0 65 1;
#X connect 65 0 51 0;
#X connect 66 0 57 1;
#X connect 67 0 64 0;
#X connect 68 0 63 0;
#X connect 70 0 69 0;
#X connect 70 0 64 1;
#X restore -46 395 pd Projection2Angles;
#X obj -233 453 -~;
#X obj -233 474 *~;
#X obj -197 454 -~;
#X obj -197 475 *~;
#X obj -233 547 sqrt~;
#X obj -166 474 *~;
#X obj -233 519 +~;
#X obj -197 499 +~;
#X obj -73 450 *~;
#X obj -46 451 *~;
#X obj -63 502 sqrt~;
#X obj -63 474 +~;
#X obj -12 614 +~;
#X obj -12 636 -~;
#X obj -12 659 /~;
#X obj 22 612 *~ 2;
#X obj 22 633 *~;
#X obj -12 683 arccos~;
#X text -328 578 Length between the projection point and the source
;
#X text -30 482 Length between the projection point and the origin
;
#X text -93 773 Azimuth angle for goldsteins gain equation;
#X obj -27 704 sig~ 90;
#X obj -27 724 -~;
#X obj -27 748 outlet~;
#X obj 546 668 outlet~;
#X obj 345 648 r myMet;
#X obj 345 668 snapshot~;
#X floatatom 345 688 0 0 0 0 - - -;
#X obj 805 677 r myMet;
#X obj 805 697 snapshot~;
#X floatatom 805 717 0 0 0 0 - - -;
#X obj 176 672 r myMet;
#X obj 176 692 snapshot~;
#X floatatom 176 712 0 0 0 0 - - -;
#X obj 640 649 sig~ 90;
#X obj 58 733 sig~ 0;
#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 42 0;
#X connect 4 0 64 0;
#X connect 5 0 6 0;
#X connect 5 0 46 1;
#X connect 5 0 68 1;
#X connect 9 0 15 0;
#X connect 9 0 51 4;
#X connect 10 0 16 0;
#X connect 10 0 51 5;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 0 0;
#X connect 14 0 0 1;
#X connect 14 0 28 0;
#X connect 14 0 30 0;
#X connect 14 0 51 0;
#X connect 14 0 52 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 0 28 1;
#X connect 15 0 32 0;
#X connect 15 0 51 1;
#X connect 15 0 54 0;
#X connect 16 0 2 0;
#X connect 16 0 2 1;
#X connect 16 0 28 2;
#X connect 16 0 35 0;
#X connect 16 0 35 1;
#X connect 16 0 51 2;
#X connect 16 0 57 0;
#X connect 16 0 57 1;
#X connect 17 0 14 0;
#X connect 17 0 51 3;
#X connect 21 0 28 4;
#X connect 22 0 28 5;
#X connect 23 0 28 3;
#X connect 28 0 30 1;
#X connect 28 0 38 0;
#X connect 28 0 38 1;
#X connect 28 1 32 1;
#X connect 28 1 39 0;
#X connect 28 1 39 1;
#X connect 30 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 32 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 45 0;
#X connect 35 0 37 1;
#X connect 36 0 34 0;
#X connect 36 0 42 1;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 41 1;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 44 1;
#X connect 47 0 76 0;
#X connect 47 0 81 0;
#X connect 51 0 60 1;
#X connect 51 0 60 0;
#X connect 51 0 52 1;
#X connect 51 1 61 1;
#X connect 51 1 61 0;
#X connect 51 1 54 1;
#X connect 52 0 53 1;
#X connect 52 0 53 0;
#X connect 53 0 58 0;
#X connect 54 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 59 0;
#X connect 56 0 67 0;
#X connect 57 0 59 1;
#X connect 58 0 56 0;
#X connect 58 0 64 1;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 63 0 62 0;
#X connect 63 0 65 1;
#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 74 1;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 74 0 84 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X restore 768 38 pd sourcePositionsD2;
#X obj 287 -41 inlet;
#X obj 617 281 freqCalcCyl7HiFi;
#X obj 359 269 freqCalcCyl7HiFi;
#N canvas 303 319 704 620 sourceEESpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X obj 271 43 *~ 0.7486;
#X obj 25 27 sig~ 0.2367;
#X connect 2 0 26 0;
#X connect 2 0 28 0;
#X connect 2 0 45 1;
#X connect 5 0 48 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 2 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 40 1;
#X connect 16 0 18 0;
#X connect 16 0 27 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 20 0 41 1;
#X connect 20 0 46 1;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 16 1;
#X connect 28 0 32 1;
#X connect 29 0 32 0;
#X connect 30 0 40 0;
#X connect 31 0 35 0;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 9 1;
#X connect 48 0 25 0;
#X connect 48 0 28 1;
#X connect 48 0 43 1;
#X connect 49 0 10 0;
#X restore 149 223 pd sourceEESpeed;
#X obj 147 265 freqCalcCyl7HiFi;
#X connect 1 0 4 0;
#X connect 1 0 3 0;
#X connect 1 0 14 0;
#X connect 3 0 13 0;
#X connect 3 1 13 1;
#X connect 3 2 13 2;
#X connect 3 3 13 3;
#X connect 3 4 13 4;
#X connect 4 0 12 0;
#X connect 4 1 12 1;
#X connect 4 2 12 2;
#X connect 4 3 12 3;
#X connect 4 4 12 4;
#X connect 5 0 12 5;
#X connect 5 0 13 5;
#X connect 5 0 15 5;
#X connect 11 0 3 1;
#X connect 11 0 4 1;
#X connect 11 0 14 1;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 14 2 15 2;
#X connect 14 3 15 3;
#X connect 14 4 15 4;
#X restore 157 195 pd sourcesD2;
#N canvas 397 343 1002 525 sourcesD2 0;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X obj 29 -70 inlet~;
#N canvas 42 58 1237 427 sourceEESpeed 0;
#X obj 26 343 outlet~;
#X text 12 369 Source Speed;
#X obj 382 66 cos~;
#X obj 453 69 sin~;
#X text 96 283 2 PI;
#X text 93 304 Radius of source;
#X obj 368 286 outlet~;
#X obj 445 286 outlet~;
#X text 424 306 y position of source;
#X text 597 262 z position of source;
#X text 8 104 diameter;
#X obj 382 16 inlet~;
#X obj 598 -8 r~ length;
#X obj 26 234 r~ RPM;
#X obj 26 258 /~ 60;
#X obj 26 283 *~ 6.28319;
#X obj 26 310 *~;
#X obj 382 104 *~;
#X obj 453 104 *~;
#X obj 27 81 outlet~;
#X obj 633 168 cos~;
#X obj 633 148 /~ 360;
#X obj 687 168 cos~;
#X obj 687 148 /~ 360;
#X obj 549 283 outlet~;
#X obj 816 169 sin~;
#X obj 752 166 sin~;
#X obj 337 210 *~;
#X obj 548 236 *~;
#X obj 337 238 *~;
#X obj 383 239 *~;
#X obj 368 262 -~;
#X obj 445 237 *~;
#X obj 491 238 *~;
#X obj 445 261 +~;
#X text 283 306 x position of source;
#X obj 986 158 cos~;
#X obj 1057 161 sin~;
#X obj 986 196 *~;
#X obj 1057 196 *~;
#X obj 946 242 *~;
#X obj 1144 268 *~;
#X obj 946 270 *~;
#X obj 979 271 *~;
#X obj 964 294 -~;
#X obj 1041 269 *~;
#X obj 1087 270 *~;
#X obj 1041 293 +~;
#X obj 978 318 outlet~;
#X obj 1055 318 outlet~;
#X obj 1159 315 outlet~;
#X text 386 351 Source Position bit;
#X text 954 359 Vector perpendicular to the source bit;
#X obj 987 132 +~ 0.25;
#X text 604 43 Radius;
#X obj 598 17 *~ 0.7486;
#X obj 27 59 sig~ 0.2367;
#X obj 633 127 inlet~;
#X obj 687 127 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 758 103 pd sourceEESpeed;
#N canvas 64 82 704 620 sourceFFSpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 271 43 *~ 0.8807;
#X obj 28 61 sig~ 0.2123;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X connect 2 0 28 0;
#X connect 2 0 30 0;
#X connect 2 0 47 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 9 1;
#X connect 12 0 27 0;
#X connect 12 0 30 1;
#X connect 12 0 45 1;
#X connect 13 0 10 0;
#X connect 14 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 17 0 42 1;
#X connect 18 0 20 0;
#X connect 18 0 29 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 22 0 43 1;
#X connect 22 0 48 1;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 18 1;
#X connect 30 0 34 1;
#X connect 31 0 34 0;
#X connect 32 0 42 0;
#X connect 33 0 37 0;
#X connect 34 0 36 1;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X restore 345 220 pd sourceFFSpeed;
#N canvas 867 34 652 586 sourceGGSpeed 0;
#X obj -112 286 outlet~;
#X text -126 312 Source Speed;
#X obj 94 -1 cos~;
#X text -42 226 2 PI;
#X text -130 47 diameter;
#X obj 94 -22 inlet~;
#X obj 108 48 r~ length;
#X obj -112 177 r~ RPM;
#X obj -112 201 /~ 60;
#X obj -112 226 *~ 6.28319;
#X obj -112 253 *~;
#X obj -111 24 outlet~;
#X text 62 73 Radius;
#X obj 108 73 *~ 0.9468;
#X obj -111 2 sig~ 0.1885;
#X obj 129 95 inlet;
#X obj 129 117 / 360;
#X obj 129 138 * 6.28319;
#X obj 129 160 sin;
#X obj 108 182 *~ 1;
#X obj 43 205 r~ dist;
#X obj 78 228 +~;
#X obj 15 237 r myMet;
#X obj 15 257 snapshot~;
#X floatatom 15 277 0 0 0 0 - - -;
#X obj 93 204 *~;
#X obj 78 250 outlet~;
#X floatatom 147 196 0 0 0 0 - - -;
#X obj 290 90 r~ PropZ;
#X obj 347 275 r~ PropX;
#X obj 275 45 r~ PropY;
#X obj 228 101 *~;
#X obj 290 129 +~;
#X obj 275 172 atan~;
#X obj 275 150 /~;
#X obj 275 70 abs~;
#X obj 275 194 *~ 360;
#X obj 275 215 /~ 6.28319;
#X obj 275 241 outlet~;
#X obj 347 316 arccos~;
#X obj 347 296 /~;
#X obj 347 338 -~ 1;
#X obj 347 383 cos~;
#X obj 347 406 *~;
#X obj 347 361 /~ 360;
#X obj -6 70 r myMet;
#X obj -6 90 snapshot~;
#X floatatom -6 110 0 0 0 0 - - -;
#X obj 347 427 *~;
#X obj 348 452 +~ 1;
#X obj 348 476 outlet~;
#X connect 2 0 25 0;
#X connect 2 0 31 0;
#X connect 2 0 48 1;
#X connect 5 0 2 0;
#X connect 6 0 13 0;
#X connect 6 0 46 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 13 0 10 1;
#X connect 13 0 19 0;
#X connect 13 0 31 1;
#X connect 13 0 43 1;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 15 0 41 1;
#X connect 15 0 49 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 18 0 27 0;
#X connect 19 0 25 1;
#X connect 20 0 21 0;
#X connect 20 0 40 1;
#X connect 21 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 21 1;
#X connect 28 0 32 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 31 0 32 1;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 48 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X restore 605 232 pd sourceGGSpeed;
#X obj 609 -20 r centrePan;
#X obj 375 -47 inlet~;
#X obj 419 -47 inlet~;
#X text 374 -66 Yaw;
#X text 420 -66 Pitch;
#N canvas 62 25 1219 804 sourcePositionsD2 0;
#X obj -236 122 *~;
#X obj -152 129 *~;
#X obj -26 126 *~;
#X obj -167 163 +~;
#X obj -167 195 +~;
#X obj -167 222 sqrt~;
#X obj -167 247 outlet~;
#X text -203 282 source distance from Observer;
#X text -10 8 Calculates position of the source.;
#X obj -137 60 inlet~;
#X obj -26 62 inlet~;
#X obj -221 75 r~ PropX;
#X obj -122 80 r~ PropY;
#X obj -11 83 r~ PropZ;
#X obj -236 98 +~;
#X obj -137 102 +~;
#X obj -26 102 +~;
#X obj -236 53 inlet~;
#X text -236 32 Prop X;
#X text -133 42 Prop Y;
#X text -24 42 Prop Z;
#X obj 611 92 inlet~;
#X obj 665 93 inlet~;
#X obj 561 94 inlet~;
#X text 561 73 X';
#X text 615 74 Y';
#X text 667 73 Z';
#X text 697 245 Temp projection Y coordinate;
#N canvas 61 69 1378 751 Projection1Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 619 189 r myMet;
#X obj 619 209 snapshot~;
#X floatatom 619 230 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 777 172 Elevation down to XY plane;
#X text 436 174 Azimuth in the XY plane;
#X obj 650 283 sin~;
#X obj 665 303 cos~;
#X obj 650 323 /~;
#X obj 707 197 /~ 360;
#X obj 635 346 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 328 403 sig~ 180;
#X obj 328 424 -~;
#X obj 328 445 /~ 2;
#X obj 313 383 sig~ 90;
#X obj 313 467 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 482 663 Y coordinate in the XY plane;
#X text 215 679 X coordinate in the XY plane;
#X obj 621 389 -~;
#X obj 306 660 outlet~;
#X obj 470 644 outlet~;
#X obj 399 95 r myMet;
#X obj 399 115 snapshot~;
#X floatatom 399 136 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X obj 360 591 < 0;
#X obj 675 591 r myMet;
#X obj 675 611 snapshot~;
#X floatatom 675 631 0 0 0 0 - - -;
#X floatatom 373 612 0 0 0 0 - - -;
#X floatatom 538 601 0 0 0 0 - - -;
#X obj 510 327 r myMet;
#X obj 510 347 snapshot~;
#X floatatom 510 367 0 0 0 0 - - -;
#X obj 1022 361 r myMet;
#X obj 1022 381 snapshot~;
#X floatatom 1022 402 0 0 0 0 - - -;
#X obj 883 359 r myMet;
#X obj 883 379 snapshot~;
#X floatatom 883 400 0 0 0 0 - - -;
#X obj 650 97 *~;
#X obj 759 95 *~;
#X obj 1019 164 +~;
#X obj 1019 186 sqrt~;
#X obj 1186 91 *~;
#X obj 1171 117 +~;
#X obj 1171 139 sqrt~;
#X text 1057 186 Hyp in elev;
#X text 1219 138 Hyp in az;
#X obj 1004 209 /~;
#X obj 1156 162 /~;
#X obj 1155 183 arccos~;
#X obj 1004 231 arccos~;
#N canvas 421 208 451 214 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -32 21 sig~ 360;
#X obj -13 75 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -59 41 sig~ 360;
#X obj -45 68 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 843 297 pd angleSortOut;
#N canvas 421 208 779 411 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -13 75 -~;
#X obj -32 21 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -45 68 -~;
#X obj -59 41 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 964 312 pd angleSortOut;
#X obj 1218 252 r myMet;
#X obj 1218 272 snapshot~;
#X floatatom 1218 293 0 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 0 0 84 1;
#X connect 0 0 84 0;
#X connect 0 0 96 2;
#X connect 1 0 3 0;
#X connect 1 0 87 1;
#X connect 1 0 87 0;
#X connect 1 0 97 2;
#X connect 2 0 3 1;
#X connect 2 0 53 0;
#X connect 2 0 9 1;
#X connect 2 0 83 0;
#X connect 2 0 83 1;
#X connect 2 0 92 0;
#X connect 2 0 93 0;
#X connect 2 0 96 1;
#X connect 2 0 97 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 65 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 34 0;
#X connect 13 0 75 0;
#X connect 17 0 29 0;
#X connect 18 0 66 0;
#X connect 18 0 67 0;
#X connect 19 0 49 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 29 1;
#X connect 28 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 35 0;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 0 39 1;
#X connect 35 0 32 1;
#X connect 36 0 45 1;
#X connect 36 0 46 1;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 42 1;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 60 0;
#X connect 44 0 61 0;
#X connect 45 0 58 1;
#X connect 45 0 59 1;
#X connect 46 0 66 1;
#X connect 46 0 67 1;
#X connect 49 0 58 0;
#X connect 49 0 59 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 53 0 68 0;
#X connect 55 1 57 0;
#X connect 56 0 57 1;
#X connect 57 0 51 0;
#X connect 58 0 55 0;
#X connect 58 0 70 0;
#X connect 59 0 56 0;
#X connect 60 0 45 0;
#X connect 61 0 46 0;
#X connect 62 1 64 0;
#X connect 63 0 64 1;
#X connect 64 0 50 0;
#X connect 65 0 73 0;
#X connect 65 0 56 1;
#X connect 66 0 63 0;
#X connect 67 0 62 0;
#X connect 68 0 72 0;
#X connect 68 0 63 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 85 0;
#X connect 83 0 88 0;
#X connect 84 0 85 1;
#X connect 85 0 86 0;
#X connect 86 0 92 1;
#X connect 87 0 88 1;
#X connect 88 0 89 0;
#X connect 89 0 93 1;
#X connect 92 0 95 0;
#X connect 93 0 94 0;
#X connect 94 0 97 0;
#X connect 95 0 96 0;
#X connect 96 0 81 0;
#X connect 97 0 78 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X restore 537 172 pd Projection1Angles;
#X text 366 198 Temp projection X coordinate;
#X obj 327 383 -~;
#X obj 327 404 *~;
#X obj 363 384 -~;
#X obj 363 405 *~;
#X obj 327 477 sqrt~;
#X obj 394 404 *~;
#X obj 327 449 +~;
#X obj 363 429 +~;
#X obj 487 380 *~;
#X obj 514 381 *~;
#X obj 497 432 sqrt~;
#X obj 497 404 +~;
#X obj 546 578 +~;
#X obj 546 600 -~;
#X obj 546 623 /~;
#X obj 580 576 *~ 2;
#X obj 580 597 *~;
#X obj 546 647 arccos~;
#X text 232 508 Length between the projection point and the source
;
#X text 530 412 Length between the projection point and the origin
;
#X text 416 692 Elevation angle for goldsteins gain equation;
#N canvas 47 46 1193 713 Projection2Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 646 195 r myMet;
#X obj 646 215 snapshot~;
#X floatatom 646 236 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 32 189 P'1 is directly below the source on the XY plane;
#X text 782 173 Elevation down to XY plane;
#X text 425 176 Azimuth in the XY plane;
#X obj 821 278 sin~;
#X obj 836 298 cos~;
#X obj 821 318 /~;
#X obj 707 197 /~ 360;
#X obj 806 341 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 109 448 sig~ 180;
#X obj 109 469 -~;
#X obj 109 490 /~ 2;
#X obj 94 428 sig~ 90;
#X obj 94 512 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 526 655 Y coordinate in the XY plane;
#X text 133 661 X coordinate in the XY plane;
#X obj 792 384 -~;
#X obj 306 658 outlet~;
#X obj 470 644 outlet~;
#X obj 462 75 r myMet;
#X obj 462 95 snapshot~;
#X floatatom 462 116 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X floatatom 380 614 0 0 0 0 - - -;
#X obj 360 591 < 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 54 0;
#X connect 2 0 9 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 66 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 29 0;
#X connect 12 0 5 0;
#X connect 13 0 35 0;
#X connect 17 0 30 0;
#X connect 18 0 67 0;
#X connect 18 0 68 0;
#X connect 19 0 50 0;
#X connect 26 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 30 1;
#X connect 29 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 36 0;
#X connect 30 0 50 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 46 1;
#X connect 37 0 47 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 62 0;
#X connect 46 0 59 1;
#X connect 46 0 60 1;
#X connect 47 0 67 1;
#X connect 47 0 68 1;
#X connect 50 0 59 0;
#X connect 50 0 60 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 70 0;
#X connect 56 1 58 0;
#X connect 57 0 58 1;
#X connect 58 0 52 0;
#X connect 59 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 46 0;
#X connect 62 0 47 0;
#X connect 63 1 65 0;
#X connect 64 0 65 1;
#X connect 65 0 51 0;
#X connect 66 0 57 1;
#X connect 67 0 64 0;
#X connect 68 0 63 0;
#X connect 70 0 69 0;
#X connect 70 0 64 1;
#X restore -46 395 pd Projection2Angles;
#X obj -233 453 -~;
#X obj -233 474 *~;
#X obj -197 454 -~;
#X obj -197 475 *~;
#X obj -233 547 sqrt~;
#X obj -166 474 *~;
#X obj -233 519 +~;
#X obj -197 499 +~;
#X obj -73 450 *~;
#X obj -46 451 *~;
#X obj -63 502 sqrt~;
#X obj -63 474 +~;
#X obj -12 614 +~;
#X obj -12 636 -~;
#X obj -12 659 /~;
#X obj 22 612 *~ 2;
#X obj 22 633 *~;
#X obj -12 683 arccos~;
#X text -328 578 Length between the projection point and the source
;
#X text -30 482 Length between the projection point and the origin
;
#X text -93 773 Azimuth angle for goldsteins gain equation;
#X obj -27 704 sig~ 90;
#X obj -27 724 -~;
#X obj -27 748 outlet~;
#X obj 546 668 outlet~;
#X obj 345 648 r myMet;
#X obj 345 668 snapshot~;
#X floatatom 345 688 0 0 0 0 - - -;
#X obj 805 677 r myMet;
#X obj 805 697 snapshot~;
#X floatatom 805 717 0 0 0 0 - - -;
#X obj 176 672 r myMet;
#X obj 176 692 snapshot~;
#X floatatom 176 712 0 0 0 0 - - -;
#X obj 640 649 sig~ 90;
#X obj 58 733 sig~ 0;
#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 42 0;
#X connect 4 0 64 0;
#X connect 5 0 6 0;
#X connect 5 0 46 1;
#X connect 5 0 68 1;
#X connect 9 0 15 0;
#X connect 9 0 51 4;
#X connect 10 0 16 0;
#X connect 10 0 51 5;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 0 0;
#X connect 14 0 0 1;
#X connect 14 0 28 0;
#X connect 14 0 30 0;
#X connect 14 0 51 0;
#X connect 14 0 52 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 0 28 1;
#X connect 15 0 32 0;
#X connect 15 0 51 1;
#X connect 15 0 54 0;
#X connect 16 0 2 0;
#X connect 16 0 2 1;
#X connect 16 0 28 2;
#X connect 16 0 35 0;
#X connect 16 0 35 1;
#X connect 16 0 51 2;
#X connect 16 0 57 0;
#X connect 16 0 57 1;
#X connect 17 0 14 0;
#X connect 17 0 51 3;
#X connect 21 0 28 4;
#X connect 22 0 28 5;
#X connect 23 0 28 3;
#X connect 28 0 30 1;
#X connect 28 0 38 0;
#X connect 28 0 38 1;
#X connect 28 1 32 1;
#X connect 28 1 39 0;
#X connect 28 1 39 1;
#X connect 30 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 32 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 45 0;
#X connect 35 0 37 1;
#X connect 36 0 34 0;
#X connect 36 0 42 1;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 41 1;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 44 1;
#X connect 47 0 76 0;
#X connect 47 0 81 0;
#X connect 51 0 60 1;
#X connect 51 0 60 0;
#X connect 51 0 52 1;
#X connect 51 1 61 1;
#X connect 51 1 61 0;
#X connect 51 1 54 1;
#X connect 52 0 53 1;
#X connect 52 0 53 0;
#X connect 53 0 58 0;
#X connect 54 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 59 0;
#X connect 56 0 67 0;
#X connect 57 0 59 1;
#X connect 58 0 56 0;
#X connect 58 0 64 1;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 63 0 62 0;
#X connect 63 0 65 1;
#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 74 1;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 74 0 84 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X restore 768 38 pd sourcePositionsD2;
#X obj 287 -41 inlet;
#X obj 617 281 freqCalcCyl7HiFi;
#X obj 359 269 freqCalcCyl7HiFi;
#N canvas 303 319 704 620 sourceEESpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X obj 271 43 *~ 0.7486;
#X obj 25 27 sig~ 0.2367;
#X connect 2 0 26 0;
#X connect 2 0 28 0;
#X connect 2 0 45 1;
#X connect 5 0 48 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 2 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 40 1;
#X connect 16 0 18 0;
#X connect 16 0 27 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 20 0 41 1;
#X connect 20 0 46 1;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 16 1;
#X connect 28 0 32 1;
#X connect 29 0 32 0;
#X connect 30 0 40 0;
#X connect 31 0 35 0;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 9 1;
#X connect 48 0 25 0;
#X connect 48 0 28 1;
#X connect 48 0 43 1;
#X connect 49 0 10 0;
#X restore 149 223 pd sourceEESpeed;
#X obj 147 265 freqCalcCyl7HiFi;
#X connect 1 0 4 0;
#X connect 1 0 3 0;
#X connect 1 0 14 0;
#X connect 3 0 13 0;
#X connect 3 1 13 1;
#X connect 3 2 13 2;
#X connect 3 3 13 3;
#X connect 3 4 13 4;
#X connect 4 0 12 0;
#X connect 4 1 12 1;
#X connect 4 2 12 2;
#X connect 4 3 12 3;
#X connect 4 4 12 4;
#X connect 5 0 12 5;
#X connect 5 0 13 5;
#X connect 5 0 15 5;
#X connect 11 0 3 1;
#X connect 11 0 4 1;
#X connect 11 0 14 1;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 14 2 15 2;
#X connect 14 3 15 3;
#X connect 14 4 15 4;
#X restore 47 196 pd sourcesD2;
#N canvas 397 343 1002 525 sourcesD2 0;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X obj 29 -70 inlet~;
#N canvas 42 58 1237 427 sourceEESpeed 0;
#X obj 26 343 outlet~;
#X text 12 369 Source Speed;
#X obj 382 66 cos~;
#X obj 453 69 sin~;
#X text 96 283 2 PI;
#X text 93 304 Radius of source;
#X obj 368 286 outlet~;
#X obj 445 286 outlet~;
#X text 424 306 y position of source;
#X text 597 262 z position of source;
#X text 8 104 diameter;
#X obj 382 16 inlet~;
#X obj 598 -8 r~ length;
#X obj 26 234 r~ RPM;
#X obj 26 258 /~ 60;
#X obj 26 283 *~ 6.28319;
#X obj 26 310 *~;
#X obj 382 104 *~;
#X obj 453 104 *~;
#X obj 27 81 outlet~;
#X obj 633 168 cos~;
#X obj 633 148 /~ 360;
#X obj 687 168 cos~;
#X obj 687 148 /~ 360;
#X obj 549 283 outlet~;
#X obj 816 169 sin~;
#X obj 752 166 sin~;
#X obj 337 210 *~;
#X obj 548 236 *~;
#X obj 337 238 *~;
#X obj 383 239 *~;
#X obj 368 262 -~;
#X obj 445 237 *~;
#X obj 491 238 *~;
#X obj 445 261 +~;
#X text 283 306 x position of source;
#X obj 986 158 cos~;
#X obj 1057 161 sin~;
#X obj 986 196 *~;
#X obj 1057 196 *~;
#X obj 946 242 *~;
#X obj 1144 268 *~;
#X obj 946 270 *~;
#X obj 979 271 *~;
#X obj 964 294 -~;
#X obj 1041 269 *~;
#X obj 1087 270 *~;
#X obj 1041 293 +~;
#X obj 978 318 outlet~;
#X obj 1055 318 outlet~;
#X obj 1159 315 outlet~;
#X text 386 351 Source Position bit;
#X text 954 359 Vector perpendicular to the source bit;
#X obj 987 132 +~ 0.25;
#X text 604 43 Radius;
#X obj 598 17 *~ 0.7486;
#X obj 27 59 sig~ 0.2367;
#X obj 633 127 inlet~;
#X obj 687 127 inlet~;
#X connect 2 0 17 0;
#X connect 3 0 18 0;
#X connect 11 0 2 0;
#X connect 11 0 3 0;
#X connect 11 0 53 0;
#X connect 12 0 55 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 17 0 33 0;
#X connect 18 0 27 0;
#X connect 18 0 28 0;
#X connect 20 0 29 1;
#X connect 20 0 33 1;
#X connect 20 0 42 1;
#X connect 20 0 46 1;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 28 1;
#X connect 22 0 41 1;
#X connect 23 0 22 0;
#X connect 23 0 26 0;
#X connect 25 0 30 1;
#X connect 25 0 32 1;
#X connect 25 0 43 1;
#X connect 25 0 45 1;
#X connect 26 0 27 1;
#X connect 26 0 40 1;
#X connect 27 0 29 0;
#X connect 27 0 32 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 6 0;
#X connect 32 0 34 0;
#X connect 33 0 34 1;
#X connect 34 0 7 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 43 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 40 0 45 0;
#X connect 41 0 50 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 48 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 49 0;
#X connect 53 0 36 0;
#X connect 53 0 37 0;
#X connect 55 0 18 1;
#X connect 55 0 16 1;
#X connect 55 0 17 1;
#X connect 55 0 38 1;
#X connect 55 0 39 1;
#X connect 56 0 19 0;
#X connect 57 0 21 0;
#X connect 58 0 23 0;
#X restore 758 103 pd sourceEESpeed;
#N canvas 64 82 704 620 sourceFFSpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 271 43 *~ 0.8807;
#X obj 28 61 sig~ 0.2123;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X connect 2 0 28 0;
#X connect 2 0 30 0;
#X connect 2 0 47 1;
#X connect 5 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 9 1;
#X connect 12 0 27 0;
#X connect 12 0 30 1;
#X connect 12 0 45 1;
#X connect 13 0 10 0;
#X connect 14 0 2 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 17 0 42 1;
#X connect 18 0 20 0;
#X connect 18 0 29 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 22 0 43 1;
#X connect 22 0 48 1;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 18 1;
#X connect 30 0 34 1;
#X connect 31 0 34 0;
#X connect 32 0 42 0;
#X connect 33 0 37 0;
#X connect 34 0 36 1;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X restore 345 220 pd sourceFFSpeed;
#N canvas 867 34 652 586 sourceGGSpeed 0;
#X obj -112 286 outlet~;
#X text -126 312 Source Speed;
#X obj 94 -1 cos~;
#X text -42 226 2 PI;
#X text -130 47 diameter;
#X obj 94 -22 inlet~;
#X obj 108 48 r~ length;
#X obj -112 177 r~ RPM;
#X obj -112 201 /~ 60;
#X obj -112 226 *~ 6.28319;
#X obj -112 253 *~;
#X obj -111 24 outlet~;
#X text 62 73 Radius;
#X obj 108 73 *~ 0.9468;
#X obj -111 2 sig~ 0.1885;
#X obj 129 95 inlet;
#X obj 129 117 / 360;
#X obj 129 138 * 6.28319;
#X obj 129 160 sin;
#X obj 108 182 *~ 1;
#X obj 43 205 r~ dist;
#X obj 78 228 +~;
#X obj 15 237 r myMet;
#X obj 15 257 snapshot~;
#X floatatom 15 277 0 0 0 0 - - -;
#X obj 93 204 *~;
#X obj 78 250 outlet~;
#X floatatom 147 196 0 0 0 0 - - -;
#X obj 290 90 r~ PropZ;
#X obj 347 275 r~ PropX;
#X obj 275 45 r~ PropY;
#X obj 228 101 *~;
#X obj 290 129 +~;
#X obj 275 172 atan~;
#X obj 275 150 /~;
#X obj 275 70 abs~;
#X obj 275 194 *~ 360;
#X obj 275 215 /~ 6.28319;
#X obj 275 241 outlet~;
#X obj 347 316 arccos~;
#X obj 347 296 /~;
#X obj 347 338 -~ 1;
#X obj 347 383 cos~;
#X obj 347 406 *~;
#X obj 347 361 /~ 360;
#X obj -6 70 r myMet;
#X obj -6 90 snapshot~;
#X floatatom -6 110 0 0 0 0 - - -;
#X obj 347 427 *~;
#X obj 348 452 +~ 1;
#X obj 348 476 outlet~;
#X connect 2 0 25 0;
#X connect 2 0 31 0;
#X connect 2 0 48 1;
#X connect 5 0 2 0;
#X connect 6 0 13 0;
#X connect 6 0 46 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 13 0 10 1;
#X connect 13 0 19 0;
#X connect 13 0 31 1;
#X connect 13 0 43 1;
#X connect 14 0 11 0;
#X connect 15 0 16 0;
#X connect 15 0 41 1;
#X connect 15 0 49 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 18 0 27 0;
#X connect 19 0 25 1;
#X connect 20 0 21 0;
#X connect 20 0 40 1;
#X connect 21 0 23 0;
#X connect 21 0 26 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 21 1;
#X connect 28 0 32 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 31 0 32 1;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 48 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X restore 605 232 pd sourceGGSpeed;
#X obj 609 -20 r centrePan;
#X obj 375 -47 inlet~;
#X obj 419 -47 inlet~;
#X text 374 -66 Yaw;
#X text 420 -66 Pitch;
#N canvas 62 25 1219 804 sourcePositionsD2 0;
#X obj -236 122 *~;
#X obj -152 129 *~;
#X obj -26 126 *~;
#X obj -167 163 +~;
#X obj -167 195 +~;
#X obj -167 222 sqrt~;
#X obj -167 247 outlet~;
#X text -203 282 source distance from Observer;
#X text -10 8 Calculates position of the source.;
#X obj -137 60 inlet~;
#X obj -26 62 inlet~;
#X obj -221 75 r~ PropX;
#X obj -122 80 r~ PropY;
#X obj -11 83 r~ PropZ;
#X obj -236 98 +~;
#X obj -137 102 +~;
#X obj -26 102 +~;
#X obj -236 53 inlet~;
#X text -236 32 Prop X;
#X text -133 42 Prop Y;
#X text -24 42 Prop Z;
#X obj 611 92 inlet~;
#X obj 665 93 inlet~;
#X obj 561 94 inlet~;
#X text 561 73 X';
#X text 615 74 Y';
#X text 667 73 Z';
#X text 697 245 Temp projection Y coordinate;
#N canvas 61 69 1378 751 Projection1Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 619 189 r myMet;
#X obj 619 209 snapshot~;
#X floatatom 619 230 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 777 172 Elevation down to XY plane;
#X text 436 174 Azimuth in the XY plane;
#X obj 650 283 sin~;
#X obj 665 303 cos~;
#X obj 650 323 /~;
#X obj 707 197 /~ 360;
#X obj 635 346 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 328 403 sig~ 180;
#X obj 328 424 -~;
#X obj 328 445 /~ 2;
#X obj 313 383 sig~ 90;
#X obj 313 467 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 482 663 Y coordinate in the XY plane;
#X text 215 679 X coordinate in the XY plane;
#X obj 621 389 -~;
#X obj 306 660 outlet~;
#X obj 470 644 outlet~;
#X obj 399 95 r myMet;
#X obj 399 115 snapshot~;
#X floatatom 399 136 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X obj 360 591 < 0;
#X obj 675 591 r myMet;
#X obj 675 611 snapshot~;
#X floatatom 675 631 0 0 0 0 - - -;
#X floatatom 373 612 0 0 0 0 - - -;
#X floatatom 538 601 0 0 0 0 - - -;
#X obj 510 327 r myMet;
#X obj 510 347 snapshot~;
#X floatatom 510 367 0 0 0 0 - - -;
#X obj 1022 361 r myMet;
#X obj 1022 381 snapshot~;
#X floatatom 1022 402 0 0 0 0 - - -;
#X obj 883 359 r myMet;
#X obj 883 379 snapshot~;
#X floatatom 883 400 0 0 0 0 - - -;
#X obj 650 97 *~;
#X obj 759 95 *~;
#X obj 1019 164 +~;
#X obj 1019 186 sqrt~;
#X obj 1186 91 *~;
#X obj 1171 117 +~;
#X obj 1171 139 sqrt~;
#X text 1057 186 Hyp in elev;
#X text 1219 138 Hyp in az;
#X obj 1004 209 /~;
#X obj 1156 162 /~;
#X obj 1155 183 arccos~;
#X obj 1004 231 arccos~;
#N canvas 421 208 451 214 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -32 21 sig~ 360;
#X obj -13 75 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -59 41 sig~ 360;
#X obj -45 68 -~;
#X connect 0 0 22 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 22 0;
#X connect 22 0 9 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 843 297 pd angleSortOut;
#N canvas 421 208 779 411 angleSortOut 0;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 44 40 pd QuadSelect;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -13 75 -~;
#X obj -32 21 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 142 44 pd QuadSelect;
#X obj 152 72 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X obj -45 68 -~;
#X obj -59 41 sig~ 180;
#X connect 0 0 21 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X connect 21 0 9 0;
#X connect 22 0 21 0;
#X restore 324 44 pd QuadSelect;
#X obj 271 69 +~;
#N canvas 181 143 517 300 QuadSelect 0;
#X obj 25 18 inlet~;
#X obj 126 41 r myMet;
#X obj 64 61 snapshot~;
#X floatatom 98 87 5 0 0 0 - - -;
#X obj 64 83 > 0;
#X obj 231 70 r myMet;
#X obj 169 90 snapshot~;
#X floatatom 203 116 5 0 0 0 - - -;
#X obj 169 112 > 0;
#X obj 25 104 spigot~;
#X obj -201 179 spigot~;
#X obj -100 178 spigot~;
#X obj 127 172 spigot~;
#X obj 224 172 spigot~;
#X obj -162 200 outlet~;
#X obj -100 200 outlet~;
#X obj 166 193 outlet~;
#X obj 224 193 outlet~;
#X text -82 259 Selects which quadrant the plane is flying in;
#X obj 64 40 inlet~;
#X obj 169 69 inlet~;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 9 1;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 0 10 1;
#X connect 8 0 11 1;
#X connect 8 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 12 0;
#X connect 9 0 13 0;
#X connect 9 1 10 0;
#X connect 9 1 11 0;
#X connect 10 1 14 0;
#X connect 11 0 15 0;
#X connect 12 1 16 0;
#X connect 13 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 6 0;
#X restore 236 44 pd QuadSelect;
#X obj 384 71 +~;
#X obj 101 -77 inlet~;
#X obj 168 -78 inlet~;
#X obj 238 -77 inlet~;
#X obj 383 94 outlet~;
#X connect 0 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 4 0;
#X connect 3 3 6 1;
#X connect 4 0 6 0;
#X connect 5 2 4 1;
#X connect 6 0 10 0;
#X connect 7 0 3 0;
#X connect 7 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 8 0 1 1;
#X connect 8 0 5 1;
#X connect 8 0 3 1;
#X connect 9 0 0 2;
#X connect 9 0 1 2;
#X connect 9 0 5 2;
#X connect 9 0 3 2;
#X restore 964 312 pd angleSortOut;
#X obj 1218 252 r myMet;
#X obj 1218 272 snapshot~;
#X floatatom 1218 293 0 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 0 0 84 1;
#X connect 0 0 84 0;
#X connect 0 0 96 2;
#X connect 1 0 3 0;
#X connect 1 0 87 1;
#X connect 1 0 87 0;
#X connect 1 0 97 2;
#X connect 2 0 3 1;
#X connect 2 0 53 0;
#X connect 2 0 9 1;
#X connect 2 0 83 0;
#X connect 2 0 83 1;
#X connect 2 0 92 0;
#X connect 2 0 93 0;
#X connect 2 0 96 1;
#X connect 2 0 97 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 65 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 34 0;
#X connect 13 0 75 0;
#X connect 17 0 29 0;
#X connect 18 0 66 0;
#X connect 18 0 67 0;
#X connect 19 0 49 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 29 1;
#X connect 28 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 35 0;
#X connect 29 0 49 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 36 0;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X connect 34 0 39 1;
#X connect 35 0 32 1;
#X connect 36 0 45 1;
#X connect 36 0 46 1;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 40 0 42 1;
#X connect 41 0 42 0;
#X connect 42 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 60 0;
#X connect 44 0 61 0;
#X connect 45 0 58 1;
#X connect 45 0 59 1;
#X connect 46 0 66 1;
#X connect 46 0 67 1;
#X connect 49 0 58 0;
#X connect 49 0 59 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 53 0 68 0;
#X connect 55 1 57 0;
#X connect 56 0 57 1;
#X connect 57 0 51 0;
#X connect 58 0 55 0;
#X connect 58 0 70 0;
#X connect 59 0 56 0;
#X connect 60 0 45 0;
#X connect 61 0 46 0;
#X connect 62 1 64 0;
#X connect 63 0 64 1;
#X connect 64 0 50 0;
#X connect 65 0 73 0;
#X connect 65 0 56 1;
#X connect 66 0 63 0;
#X connect 67 0 62 0;
#X connect 68 0 72 0;
#X connect 68 0 63 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 85 0;
#X connect 83 0 88 0;
#X connect 84 0 85 1;
#X connect 85 0 86 0;
#X connect 86 0 92 1;
#X connect 87 0 88 1;
#X connect 88 0 89 0;
#X connect 89 0 93 1;
#X connect 92 0 95 0;
#X connect 93 0 94 0;
#X connect 94 0 97 0;
#X connect 95 0 96 0;
#X connect 96 0 81 0;
#X connect 97 0 78 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X restore 537 172 pd Projection1Angles;
#X text 366 198 Temp projection X coordinate;
#X obj 327 383 -~;
#X obj 327 404 *~;
#X obj 363 384 -~;
#X obj 363 405 *~;
#X obj 327 477 sqrt~;
#X obj 394 404 *~;
#X obj 327 449 +~;
#X obj 363 429 +~;
#X obj 487 380 *~;
#X obj 514 381 *~;
#X obj 497 432 sqrt~;
#X obj 497 404 +~;
#X obj 546 578 +~;
#X obj 546 600 -~;
#X obj 546 623 /~;
#X obj 580 576 *~ 2;
#X obj 580 597 *~;
#X obj 546 647 arccos~;
#X text 232 508 Length between the projection point and the source
;
#X text 530 412 Length between the projection point and the origin
;
#X text 416 692 Elevation angle for goldsteins gain equation;
#N canvas 47 46 1193 713 Projection2Angles 0;
#X obj 707 71 inlet~;
#X obj 588 72 inlet~;
#X obj 650 71 inlet~;
#X obj 588 106 /~;
#X obj 646 195 r myMet;
#X obj 646 215 snapshot~;
#X floatatom 646 236 0 0 0 0 - - -;
#X obj 588 127 atan~;
#X obj 707 150 *~ 360;
#X obj 707 106 /~;
#X obj 707 127 atan~;
#X obj 588 148 *~ 360;
#X obj 707 172 /~ 6.28132;
#X obj 588 169 /~ 6.28132;
#X text 598 51 X';
#X text 667 49 Y';
#X text 720 50 Z';
#X obj 218 71 inlet~;
#X obj 99 72 inlet~;
#X obj 161 71 inlet~;
#X text 231 50 Z;
#X text 178 49 Y;
#X text 109 51 X;
#X text 32 189 P'1 is directly below the source on the XY plane;
#X text 782 173 Elevation down to XY plane;
#X text 425 176 Azimuth in the XY plane;
#X obj 821 278 sin~;
#X obj 836 298 cos~;
#X obj 821 318 /~;
#X obj 707 197 /~ 360;
#X obj 806 341 /~;
#X obj 431 384 /~ 360;
#X obj 431 404 sin~;
#X obj 520 448 *~;
#X obj 431 364 /~ 2;
#X obj 431 341 abs~;
#X obj 535 425 abs~;
#X obj 520 470 *~ 2;
#X text 48 343 Finding the projection point using azimuth swing to
create a right angled triangle on the XY plane;
#X obj 109 448 sig~ 180;
#X obj 109 469 -~;
#X obj 109 490 /~ 2;
#X obj 94 428 sig~ 90;
#X obj 94 512 -~;
#X obj 386 494 /~ 360;
#X obj 313 516 /~ 360;
#X obj 385 544 *~;
#X obj 312 560 *~;
#X text 526 655 Y coordinate in the XY plane;
#X text 133 661 X coordinate in the XY plane;
#X obj 792 384 -~;
#X obj 306 658 outlet~;
#X obj 470 644 outlet~;
#X obj 462 75 r myMet;
#X obj 462 95 snapshot~;
#X floatatom 462 116 0 0 0 0 - - -;
#X obj 431 600 spigot~;
#X obj 485 599 spigot~;
#X obj 470 622 +~;
#X obj 431 577 +~;
#X obj 485 576 -~;
#X obj 386 514 sin~;
#X obj 313 536 cos~;
#X obj 267 615 spigot~;
#X obj 321 614 spigot~;
#X obj 306 637 +~;
#X obj 524 576 > 0;
#X obj 321 591 -~;
#X obj 267 592 +~;
#X floatatom 380 614 0 0 0 0 - - -;
#X obj 360 591 < 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 54 0;
#X connect 2 0 9 1;
#X connect 3 0 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 66 0;
#X connect 7 0 11 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 13 0;
#X connect 12 0 29 0;
#X connect 12 0 5 0;
#X connect 13 0 35 0;
#X connect 17 0 30 0;
#X connect 18 0 67 0;
#X connect 18 0 68 0;
#X connect 19 0 50 0;
#X connect 26 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 30 1;
#X connect 29 0 26 0;
#X connect 29 0 27 0;
#X connect 30 0 36 0;
#X connect 30 0 50 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 46 1;
#X connect 37 0 47 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 0 44 0;
#X connect 44 0 61 0;
#X connect 45 0 62 0;
#X connect 46 0 59 1;
#X connect 46 0 60 1;
#X connect 47 0 67 1;
#X connect 47 0 68 1;
#X connect 50 0 59 0;
#X connect 50 0 60 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 54 0 70 0;
#X connect 56 1 58 0;
#X connect 57 0 58 1;
#X connect 58 0 52 0;
#X connect 59 0 56 0;
#X connect 60 0 57 0;
#X connect 61 0 46 0;
#X connect 62 0 47 0;
#X connect 63 1 65 0;
#X connect 64 0 65 1;
#X connect 65 0 51 0;
#X connect 66 0 57 1;
#X connect 67 0 64 0;
#X connect 68 0 63 0;
#X connect 70 0 69 0;
#X connect 70 0 64 1;
#X restore -46 395 pd Projection2Angles;
#X obj -233 453 -~;
#X obj -233 474 *~;
#X obj -197 454 -~;
#X obj -197 475 *~;
#X obj -233 547 sqrt~;
#X obj -166 474 *~;
#X obj -233 519 +~;
#X obj -197 499 +~;
#X obj -73 450 *~;
#X obj -46 451 *~;
#X obj -63 502 sqrt~;
#X obj -63 474 +~;
#X obj -12 614 +~;
#X obj -12 636 -~;
#X obj -12 659 /~;
#X obj 22 612 *~ 2;
#X obj 22 633 *~;
#X obj -12 683 arccos~;
#X text -328 578 Length between the projection point and the source
;
#X text -30 482 Length between the projection point and the origin
;
#X text -93 773 Azimuth angle for goldsteins gain equation;
#X obj -27 704 sig~ 90;
#X obj -27 724 -~;
#X obj -27 748 outlet~;
#X obj 546 668 outlet~;
#X obj 345 648 r myMet;
#X obj 345 668 snapshot~;
#X floatatom 345 688 0 0 0 0 - - -;
#X obj 805 677 r myMet;
#X obj 805 697 snapshot~;
#X floatatom 805 717 0 0 0 0 - - -;
#X obj 176 672 r myMet;
#X obj 176 692 snapshot~;
#X floatatom 176 712 0 0 0 0 - - -;
#X obj 640 649 sig~ 90;
#X obj 58 733 sig~ 0;
#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 42 0;
#X connect 4 0 64 0;
#X connect 5 0 6 0;
#X connect 5 0 46 1;
#X connect 5 0 68 1;
#X connect 9 0 15 0;
#X connect 9 0 51 4;
#X connect 10 0 16 0;
#X connect 10 0 51 5;
#X connect 11 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 16 1;
#X connect 14 0 0 0;
#X connect 14 0 0 1;
#X connect 14 0 28 0;
#X connect 14 0 30 0;
#X connect 14 0 51 0;
#X connect 14 0 52 0;
#X connect 15 0 1 0;
#X connect 15 0 1 1;
#X connect 15 0 28 1;
#X connect 15 0 32 0;
#X connect 15 0 51 1;
#X connect 15 0 54 0;
#X connect 16 0 2 0;
#X connect 16 0 2 1;
#X connect 16 0 28 2;
#X connect 16 0 35 0;
#X connect 16 0 35 1;
#X connect 16 0 51 2;
#X connect 16 0 57 0;
#X connect 16 0 57 1;
#X connect 17 0 14 0;
#X connect 17 0 51 3;
#X connect 21 0 28 4;
#X connect 22 0 28 5;
#X connect 23 0 28 3;
#X connect 28 0 30 1;
#X connect 28 0 38 0;
#X connect 28 0 38 1;
#X connect 28 1 32 1;
#X connect 28 1 39 0;
#X connect 28 1 39 1;
#X connect 30 0 31 1;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 32 0 33 1;
#X connect 32 0 33 0;
#X connect 33 0 37 0;
#X connect 34 0 45 0;
#X connect 35 0 37 1;
#X connect 36 0 34 0;
#X connect 36 0 42 1;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 41 1;
#X connect 41 0 40 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 46 0 44 1;
#X connect 47 0 76 0;
#X connect 47 0 81 0;
#X connect 51 0 60 1;
#X connect 51 0 60 0;
#X connect 51 0 52 1;
#X connect 51 1 61 1;
#X connect 51 1 61 0;
#X connect 51 1 54 1;
#X connect 52 0 53 1;
#X connect 52 0 53 0;
#X connect 53 0 58 0;
#X connect 54 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 59 0;
#X connect 56 0 67 0;
#X connect 57 0 59 1;
#X connect 58 0 56 0;
#X connect 58 0 64 1;
#X connect 59 0 58 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 63 0 62 0;
#X connect 63 0 65 1;
#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 74 1;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 74 0 84 0;
#X connect 77 0 78 0;
#X connect 78 0 79 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X restore 768 38 pd sourcePositionsD2;
#X obj 287 -41 inlet;
#X obj 617 281 freqCalcCyl7HiFi;
#X obj 359 269 freqCalcCyl7HiFi;
#N canvas 303 319 704 620 sourceEESpeed 0;
#X obj 27 345 outlet~;
#X text 13 371 Source Speed;
#X obj 228 109 cos~;
#X text 97 285 2 PI;
#X text 9 106 diameter;
#X obj 271 18 r~ length;
#X obj 27 236 r~ RPM;
#X obj 27 260 /~ 60;
#X obj 27 285 *~ 6.28319;
#X obj 27 312 *~;
#X obj 28 83 outlet~;
#X text 219 45 Radius;
#X obj 228 85 inlet~;
#X obj 83 -32 /~ 360;
#X obj 83 -53 sig~ 180;
#X obj 204 162 r~ dist;
#X obj 241 187 +~;
#X obj 177 212 r myMet;
#X obj 177 232 snapshot~;
#X floatatom 177 252 0 0 0 0 - - -;
#X obj 333 43 inlet;
#X obj 333 65 / 360;
#X obj 333 86 * 6.28319;
#X floatatom 369 129 0 0 0 0 - - -;
#X obj 333 108 sin;
#X obj 271 135 *~ 1;
#X obj 256 163 *~;
#X obj 241 211 outlet~;
#X obj 433 163 *~;
#X obj 484 140 r~ PropZ;
#X obj 541 325 r~ PropX;
#X obj 469 95 r~ PropY;
#X obj 484 179 +~;
#X obj 469 222 atan~;
#X obj 469 200 /~;
#X obj 469 120 abs~;
#X obj 469 244 *~ 360;
#X obj 469 265 /~ 6.28319;
#X obj 469 291 outlet~;
#X obj 541 366 arccos~;
#X obj 541 346 /~;
#X obj 541 388 -~ 1;
#X obj 541 433 cos~;
#X obj 541 456 *~;
#X obj 541 411 /~ 360;
#X obj 541 477 *~;
#X obj 542 502 +~ 1;
#X obj 542 526 outlet~;
#X obj 271 43 *~ 0.7486;
#X obj 25 27 sig~ 0.2367;
#X connect 2 0 26 0;
#X connect 2 0 28 0;
#X connect 2 0 45 1;
#X connect 5 0 48 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 12 0 2 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 40 1;
#X connect 16 0 18 0;
#X connect 16 0 27 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 20 0 41 1;
#X connect 20 0 46 1;
#X connect 21 0 22 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 16 1;
#X connect 28 0 32 1;
#X connect 29 0 32 0;
#X connect 30 0 40 0;
#X connect 31 0 35 0;
#X connect 32 0 34 1;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 41 0;
#X connect 40 0 39 0;
#X connect 41 0 44 0;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 9 1;
#X connect 48 0 25 0;
#X connect 48 0 28 1;
#X connect 48 0 43 1;
#X connect 49 0 10 0;
#X restore 149 223 pd sourceEESpeed;
#X obj 147 265 freqCalcCyl7HiFi;
#X connect 1 0 4 0;
#X connect 1 0 3 0;
#X connect 1 0 14 0;
#X connect 3 0 13 0;
#X connect 3 1 13 1;
#X connect 3 2 13 2;
#X connect 3 3 13 3;
#X connect 3 4 13 4;
#X connect 4 0 12 0;
#X connect 4 1 12 1;
#X connect 4 2 12 2;
#X connect 4 3 12 3;
#X connect 4 4 12 4;
#X connect 5 0 12 5;
#X connect 5 0 13 5;
#X connect 5 0 15 5;
#X connect 11 0 3 1;
#X connect 11 0 4 1;
#X connect 11 0 14 1;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 14 2 15 2;
#X connect 14 3 15 3;
#X connect 14 4 15 4;
#X restore -58 198 pd sourcesD2;
#X connect 0 0 1 0;
#X connect 0 0 166 0;
#X connect 0 0 188 0;
#X connect 0 0 168 0;
#X connect 0 0 183 0;
#X connect 0 0 171 0;
#X connect 0 0 141 0;
#X connect 1 0 186 0;
#X connect 3 0 41 0;
#X connect 3 0 74 0;
#X connect 9 0 185 0;
#X connect 10 0 6 0;
#X connect 10 1 7 0;
#X connect 11 0 10 0;
#X connect 11 0 20 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 13 0 44 0;
#X connect 15 0 38 0;
#X connect 16 0 17 0;
#X connect 17 0 3 0;
#X connect 18 0 65 0;
#X connect 18 0 72 0;
#X connect 18 0 64 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 0 25 0;
#X connect 22 0 149 0;
#X connect 24 0 26 0;
#X connect 25 0 24 0;
#X connect 27 0 21 0;
#X connect 28 0 29 0;
#X connect 28 0 32 0;
#X connect 28 0 184 0;
#X connect 30 0 34 0;
#X connect 31 0 33 0;
#X connect 31 0 57 0;
#X connect 32 0 31 0;
#X connect 35 0 30 0;
#X connect 36 0 46 0;
#X connect 37 0 30 0;
#X connect 38 0 13 0;
#X connect 39 0 3 0;
#X connect 40 0 42 0;
#X connect 41 0 40 0;
#X connect 43 0 45 0;
#X connect 44 0 43 0;
#X connect 47 0 49 0;
#X connect 47 0 93 0;
#X connect 47 0 95 0;
#X connect 47 0 190 0;
#X connect 48 0 191 0;
#X connect 49 0 48 0;
#X connect 50 0 51 0;
#X connect 51 0 47 0;
#X connect 52 0 53 0;
#X connect 52 0 182 0;
#X connect 55 0 66 0;
#X connect 55 0 181 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 57 0 61 0;
#X connect 63 0 71 0;
#X connect 65 0 68 0;
#X connect 67 0 88 0;
#X connect 68 0 69 0;
#X connect 68 0 3 0;
#X connect 68 0 4 0;
#X connect 70 0 68 1;
#X connect 70 1 68 0;
#X connect 71 0 70 0;
#X connect 71 0 18 0;
#X connect 72 0 54 0;
#X connect 73 0 80 0;
#X connect 74 0 73 0;
#X connect 76 0 77 0;
#X connect 78 0 79 0;
#X connect 79 0 76 0;
#X connect 80 0 75 0;
#X connect 81 0 82 0;
#X connect 82 0 83 0;
#X connect 83 0 91 0;
#X connect 84 0 85 0;
#X connect 85 0 86 0;
#X connect 88 0 18 0;
#X connect 89 0 85 0;
#X connect 90 0 87 0;
#X connect 91 0 89 0;
#X connect 92 0 102 0;
#X connect 93 0 92 0;
#X connect 94 0 103 0;
#X connect 95 0 94 0;
#X connect 96 0 104 0;
#X connect 96 0 107 0;
#X connect 96 0 108 0;
#X connect 97 0 101 0;
#X connect 97 0 106 0;
#X connect 97 0 104 0;
#X connect 97 0 109 0;
#X connect 98 0 100 0;
#X connect 98 0 105 0;
#X connect 98 0 106 0;
#X connect 98 0 110 0;
#X connect 98 0 111 0;
#X connect 100 0 49 1;
#X connect 100 0 93 1;
#X connect 100 0 95 1;
#X connect 101 0 49 1;
#X connect 102 0 192 0;
#X connect 103 0 193 0;
#X connect 104 0 103 1;
#X connect 105 0 103 1;
#X connect 105 0 102 1;
#X connect 106 0 102 1;
#X connect 107 0 102 1;
#X connect 108 0 49 1;
#X connect 109 0 93 1;
#X connect 110 0 93 1;
#X connect 111 0 95 1;
#X connect 112 0 28 0;
#X connect 112 1 52 0;
#X connect 112 2 55 0;
#X connect 112 3 30 0;
#X connect 113 0 117 0;
#X connect 113 0 172 0;
#X connect 114 0 118 0;
#X connect 114 0 124 0;
#X connect 115 0 119 0;
#X connect 115 0 122 0;
#X connect 116 0 171 0;
#X connect 116 0 189 0;
#X connect 120 0 125 0;
#X connect 121 0 126 0;
#X connect 122 0 121 0;
#X connect 123 0 127 0;
#X connect 124 0 123 0;
#X connect 128 0 164 0;
#X connect 128 0 190 1;
#X connect 128 0 191 1;
#X connect 128 0 192 1;
#X connect 128 0 193 1;
#X connect 129 0 135 0;
#X connect 129 0 134 0;
#X connect 131 0 132 0;
#X connect 131 0 139 0;
#X connect 133 0 145 0;
#X connect 134 0 133 0;
#X connect 136 0 146 0;
#X connect 137 0 136 0;
#X connect 138 0 147 0;
#X connect 139 0 138 0;
#X connect 140 0 137 0;
#X connect 140 0 130 0;
#X connect 141 0 131 0;
#X connect 142 0 136 0;
#X connect 143 0 136 0;
#X connect 144 0 136 0;
#X connect 148 0 96 0;
#X connect 148 1 97 0;
#X connect 148 2 98 0;
#X connect 150 0 148 0;
#X connect 152 0 153 0;
#X connect 154 0 133 0;
#X connect 155 0 113 0;
#X connect 155 1 114 0;
#X connect 155 2 129 0;
#X connect 156 0 160 0;
#X connect 157 0 161 0;
#X connect 158 0 162 0;
#X connect 159 0 163 0;
#X connect 166 0 140 0;
#X connect 167 0 3 0;
#X connect 168 0 114 0;
#X connect 169 0 113 0;
#X connect 170 0 114 0;
#X connect 171 0 115 0;
#X connect 172 0 120 0;
#X connect 173 0 172 0;
#X connect 174 0 172 0;
#X connect 175 0 172 0;
#X connect 176 0 124 0;
#X connect 177 0 174 0;
#X connect 177 0 175 0;
#X connect 178 0 190 2;
#X connect 180 0 54 1;
#X connect 183 0 113 0;
#X connect 185 0 11 0;
#X connect 186 0 2 0;
#X connect 187 0 129 0;
#X connect 188 0 129 0;
#X connect 189 0 140 0;
#X coords 0 -1 1 1 500 400 2 50 400;