Mercurial > hg > weather-synthesis-prototyping

#N canvas 111 23 1070 736 10;
#X obj 315 22 loadbang;
#X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 315 85 s myMet;
#X obj -221 455 s topSpeed;
#X obj -273 429 hsl 100 20 0 70 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 7850 1;
#X floatatom -276 455 8 0 0 0 - - -;
#X text -165 346 Blade Length;
#X text -9 37 Arm Length;
#X text -165 433 Top Speed;
#X obj 21 251 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1075 1;
#X floatatom 18 280 8 0 0 0 - - -;
#X obj -279 516 hsl 100 20 0 0.05 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 350 1;
#X obj -280 601 hsl 100 20 0.0001 0.05 0 0 empty empty empty -2 -8
0 10 -262144 -1 -1 240 1;
#X floatatom -282 546 8 0 0 0 - - -;
#X floatatom -283 629 8 0 0 0 - - -;
#X obj -225 628 s tipThick;
#X text -165 518 Hilt Thickness;
#X text -173 602 Tip Thickness;
#X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 143 126 s GO;
#X obj 143 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 143 46 metro 200;
#X obj 197 22 hsl 100 20 500 30 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 83 150 s setUp;
#X obj -329 403 r setUp;
#X obj -40 228 r setUp;
#X obj -333 493 r setUp;
#X obj -334 581 r setUp;
#X obj -43 17 loadbang;
#X obj -276 403 r thisTS;
#X obj -282 493 r thisHT;
#X obj -283 581 r thisTT;
#X obj -92 15 r setUp;
#X obj 83 21 loadbang;
#X obj 83 45 delay 13;
#X obj 19 326 hsl 100 20 180 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 9350 1;
#X floatatom 16 358 8 0 0 0 - - -;
#X obj -42 306 r setUp;
#X obj 14 439 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3300 1;
#X floatatom 11 471 8 0 0 0 - - -;
#X obj -47 419 r setUp;
#X obj 12 517 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6600 1;
#X floatatom 9 549 8 0 0 0 - - -;
#X obj -49 497 r setUp;
#X obj 66 470 s presweepElev;
#X obj 90 547 s postsweepElev;
#X text 125 440 pre-sweep elevation;
#X text 123 517 post-sweep elevation;
#X text 132 249 pre-sweep azimuth;
#X text 130 327 post-sweep azimuth;
#X obj 73 279 s presweepAzim;
#X obj 85 358 s postsweepAzim;
#X obj -43 59 s start_armLength;
#X msg -43 38 0.35;
#X obj -275 52 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4950 1;
#X obj -276 146 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 4950 1;
#X obj -276 237 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 4999 1;
#X obj -278 75 s Xobs;
#X obj -279 170 s Yobs;
#X obj -279 264 s Zobs;
#X floatatom -318 75 5 0 0 0 - - -;
#X floatatom -318 167 5 0 0 0 - - -;
#X floatatom -319 259 5 0 0 0 - - -;
#X msg -270 28 0;
#X msg -270 211 0;
#X obj -323 26 r setUp;
#X obj -328 123 r setUp;
#X obj -332 214 r setUp;
#X msg -220 121 0;
#X msg 136 221 90;
#X msg -228 211 4;
#X msg -231 29 4;
#X msg -208 400 0.5;
#X msg -189 24 0.2;
#X msg -141 404 35;
#X obj -278 7 r thisXobs;
#X obj -279 99 r thisYobs;
#X obj -279 192 r thisZobs;
#X obj 18 227 r thisPrA;
#X obj 16 305 r thisPoA;
#X obj 11 418 r thisPrE;
#X obj 9 496 r thisPoE;
#X msg 175 222 10;
#X obj 428 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 491 145 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 488 54 Gain;
#X obj 436 25 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 83 210 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore 427 102 pd opLevels;
#X obj 430 73 hsl 100 25 0.1 1e+07 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 7927 1;
#X obj 427 2 r GAIN;
#X floatatom 370 103 8 0 0 0 - - -;
#X obj -227 545 s hiltThick;
#X obj 315 63 metro 25;
#X msg 206 221 100;
#X msg 79 494 120;
#X msg 126 416 60;
#X msg 89 307 270;
#X msg 170 416 90;
#X msg -171 120 1;
#N canvas 262 135 928 460 sources 0;
#X obj 117 -98 sweepTime;
#N canvas 452 68 1135 756 arcDist 0;
#X obj 118 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 118 112 s GO;
#X obj 58 59 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 58 112 s setUp;
#X obj 96 175 * 0.01745;
#X obj 111 246 * 0.01745;
#X obj 96 198 cos;
#X obj 111 267 cos;
#X obj 96 317 *;
#X obj 111 291 t f b;
#X obj 225 178 * 0.01745;
#X obj 225 153 r presweepElev;
#X obj 320 151 * 0.01745;
#X obj 320 126 r postsweepElev;
#X obj 320 172 sin;
#X obj 320 194 t f b;
#X obj 225 202 sin;
#X obj 225 226 *;
#X obj 240 276 * 0.01745;
#X obj 339 261 * 0.01745;
#X obj 240 307 -;
#X obj 240 332 cos;
#X obj 240 352 t f b;
#X obj 225 377 *;
#X obj 339 284 t f b;
#X obj 210 426 +;
#X obj 225 401 t f b;
#X obj 210 449 acos;
#X obj 210 472 *;
#X obj 244 446 r length;
#X obj 96 150 r presweepElev;
#X obj 111 221 r postsweepElev;
#X obj 428 483 -;
#X obj 428 528 select 1;
#X obj 195 600 +;
#X obj 210 515 t f b;
#X obj 508 525 select 0;
#X msg 508 549 0;
#X obj 508 617 -;
#X obj 508 640 * 2;
#X obj 428 410 r postsweepAzim;
#X obj 443 432 r presweepAzim;
#X obj 443 454 t f b;
#X floatatom 194 630 0 0 0 0 - - -;
#X obj 361 573 spigot;
#X floatatom 380 710 0 0 0 0 - - -;
#X obj 394 529 * -1;
#X obj 394 550 + 1;
#X obj 332 531 spigot;
#X obj 240 251 r postsweepAzim;
#X obj 339 236 r presweepAzim;
#X obj 428 506 >= 180;
#X obj 332 686 abs;
#X obj 332 712 outlet;
#X text 327 27 Calculates the length of the arc based on the length
of the great circle. Always presumed the centre of the arc is a stationary
origin.;
#X obj 515 120 r start_armLength;
#X obj 530 140 r bladeLen;
#X obj 515 161 +;
#X obj 552 183 s length;
#X obj 443 547 r length;
#X obj 428 589 f;
#X obj 523 589 t f b;
#X obj 443 567 * 3.14159;
#X text 25 695 Calculate the length of the great circle;
#X text 371 373 Add in the length of half the circumference if angles
are greater than 180 degrees.;
#X obj 481 209 /;
#X obj 503 185 t f b;
#X obj 481 233 s blarm;
#X obj 738 170 r hiltThick;
#X obj 753 192 r tipThick;
#X obj 738 215 -;
#X obj 738 240 s dThick;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 25 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 16 0;
#X connect 11 0 10 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 15 0 17 1;
#X connect 15 1 17 0;
#X connect 16 0 17 0;
#X connect 17 0 23 0;
#X connect 18 0 20 0;
#X connect 19 0 24 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 1;
#X connect 22 1 23 0;
#X connect 23 0 26 0;
#X connect 24 0 20 1;
#X connect 24 1 20 0;
#X connect 25 0 27 0;
#X connect 26 0 25 1;
#X connect 26 1 25 0;
#X connect 27 0 28 0;
#X connect 28 0 35 0;
#X connect 28 0 44 0;
#X connect 29 0 28 1;
#X connect 30 0 4 0;
#X connect 31 0 5 0;
#X connect 32 0 51 0;
#X connect 33 0 60 0;
#X connect 34 0 43 0;
#X connect 34 0 48 0;
#X connect 35 0 34 1;
#X connect 35 0 61 0;
#X connect 35 1 34 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 34 0;
#X connect 40 0 32 0;
#X connect 41 0 42 0;
#X connect 42 0 32 1;
#X connect 42 1 32 0;
#X connect 44 0 52 0;
#X connect 46 0 47 0;
#X connect 47 0 44 1;
#X connect 48 0 52 0;
#X connect 49 0 18 0;
#X connect 50 0 19 0;
#X connect 51 0 33 0;
#X connect 51 0 36 0;
#X connect 51 0 46 0;
#X connect 51 0 48 1;
#X connect 52 0 45 0;
#X connect 52 0 53 0;
#X connect 55 0 57 0;
#X connect 55 0 65 0;
#X connect 56 0 57 1;
#X connect 57 0 58 0;
#X connect 57 0 66 0;
#X connect 59 0 62 0;
#X connect 60 0 38 0;
#X connect 61 0 38 1;
#X connect 61 1 38 0;
#X connect 62 0 60 1;
#X connect 65 0 67 0;
#X connect 66 0 65 1;
#X connect 66 1 65 0;
#X connect 68 0 70 0;
#X connect 69 0 70 1;
#X connect 70 0 71 0;
#X restore 117 -121 pd arcDist;
#X obj 187 -121 centreAngles;
#N canvas 656 32 742 749 tipRe 0;
#X text -122 17 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X msg -249 393 \$1 \$2;
#X obj -249 368 pack;
#X msg -79 425 0;
#X obj -250 345 f;
#X obj -271 301 r GO;
#X msg 60 427 0 \$1;
#X obj 59 350 t f b;
#X obj 60 378 delay;
#X obj -79 404 r setUp;
#X text -96 385 Start at 0 speed;
#X text 102 438 \$1 = time to reach speed of 0;
#X obj 74 303 r preswingTime;
#X text 12 263 Trigger once full speed;
#X text -312 424 \$1 = source speed;
#X text -312 440 \$2 = time to reach source speed;
#X obj -224 344 r preswingTime;
#X text -162 302 Top Speed for this source;
#X obj 117 367 r postswingTime;
#X obj 59 283 r GO;
#X obj 59 325 f;
#X obj 60 405 f;
#X obj -79 457 vline~;
#X text -13 68 Speed is always maximum when at the X Z plane therefore
the elevation angle is not considered.;
#X obj 122 548 r myMet;
#X obj 122 571 snapshot~;
#X floatatom 122 594 0 0 0 0 - - -;
#X obj -235 303 r topSpeed;
#X obj -79 480 *~ 66687.7;
#X obj -58 502 r tipThick;
#X obj -79 524 *~ 1;
#X obj -79 558 s~ tipRe;
#X text -5 477 Kinematic Viscosity;
#X obj -158 480 s~ tipSpeed;
#X connect 1 0 22 0;
#X connect 2 0 1 0;
#X connect 3 0 22 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 22 0;
#X connect 7 0 8 1;
#X connect 7 1 8 0;
#X connect 8 0 21 0;
#X connect 9 0 3 0;
#X connect 12 0 20 1;
#X connect 16 0 2 1;
#X connect 18 0 21 1;
#X connect 19 0 20 0;
#X connect 20 0 7 0;
#X connect 21 0 6 0;
#X connect 22 0 28 0;
#X connect 22 0 33 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 27 0 4 1;
#X connect 28 0 30 0;
#X connect 29 0 30 1;
#X connect 30 0 25 0;
#X connect 30 0 31 0;
#X restore 34 -121 pd tipRe;
#N canvas 250 351 1052 473 HiltPositions 0;
#X text -8592 93 z coordinate of tip;
#X text -8908 239 x coordinate of tip;
#X text -8680 51 y coordinate of tip;
#X obj -8779 53 sig~ 180;
#X obj -8779 97 -~;
#X obj -8779 117 *~ 0.002778;
#X obj -8695 115 *~ 0.002778;
#X obj -8609 138 *~ 0.002778;
#X obj -8779 141 cos~;
#X obj -8695 139 sin~;
#X obj -8764 163 sin~;
#X obj -8680 163 sin~;
#X obj -8609 165 cos~;
#X obj -8764 208 *~ 1;
#X obj -8680 208 *~ 1;
#X obj -8609 212 *~ 1;
#X obj -8779 236 *~;
#X obj -8695 239 *~;
#X obj -8764 74 inlet~;
#X obj -8609 116 inlet~;
#X obj -8375 119 *~ 0.002778;
#X obj -8291 117 *~ 0.002778;
#X obj -8205 140 *~ 0.002778;
#X obj -8375 143 cos~;
#X obj -8291 141 sin~;
#X obj -8360 165 sin~;
#X obj -8276 165 sin~;
#X obj -8205 167 cos~;
#X obj -8360 210 *~ 1;
#X obj -8276 210 *~ 1;
#X obj -8205 214 *~ 1;
#X obj -8375 238 *~;
#X obj -8291 241 *~;
#X obj -8256 187 r start_armLength;
#X obj -8375 262 s~ hiltX;
#X obj -8291 263 s~ hiltY;
#X obj -8205 236 s~ hiltZ;
#X obj -8660 185 r length;
#X text -8276 53 y coordinate of hilt;
#X text -8188 95 z coordinate of hilt;
#X text -8504 241 x coordinate of hilt;
#X obj -8609 234 s~ tipZ;
#X obj -8695 261 s~ tipY;
#X obj -8779 260 s~ tipX;
#X obj -8081 322 r myMet;
#X obj -8081 343 snapshot~;
#X floatatom -8081 364 0 0 0 0 - - -;
#X obj -8179 321 r myMet;
#X obj -8179 342 snapshot~;
#X floatatom -8179 363 0 0 0 0 - - -;
#X obj -8291 324 r myMet;
#X obj -8291 345 snapshot~;
#X floatatom -8291 366 0 0 0 0 - - -;
#X obj -8605 302 r myMet;
#X obj -8605 323 snapshot~;
#X floatatom -8605 344 0 0 0 0 - - -;
#X obj -8685 318 r myMet;
#X obj -8685 339 snapshot~;
#X floatatom -8685 360 0 0 0 0 - - -;
#X obj -8797 304 r myMet;
#X obj -8797 325 snapshot~;
#X floatatom -8797 346 0 0 0 0 - - -;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 4 0 21 0;
#X connect 4 0 20 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 10 0;
#X connect 7 0 11 0;
#X connect 7 0 12 0;
#X connect 8 0 16 0;
#X connect 9 0 17 0;
#X connect 10 0 13 0;
#X connect 11 0 14 0;
#X connect 12 0 15 0;
#X connect 13 0 16 1;
#X connect 14 0 17 1;
#X connect 15 0 41 0;
#X connect 15 0 54 0;
#X connect 16 0 43 0;
#X connect 16 0 60 0;
#X connect 17 0 42 0;
#X connect 17 0 57 0;
#X connect 18 0 4 1;
#X connect 19 0 7 0;
#X connect 19 0 22 0;
#X connect 20 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 25 0;
#X connect 22 0 26 0;
#X connect 22 0 27 0;
#X connect 23 0 31 0;
#X connect 24 0 32 0;
#X connect 25 0 28 0;
#X connect 26 0 29 0;
#X connect 27 0 30 0;
#X connect 28 0 31 1;
#X connect 29 0 32 1;
#X connect 30 0 36 0;
#X connect 30 0 45 0;
#X connect 31 0 34 0;
#X connect 31 0 51 0;
#X connect 32 0 35 0;
#X connect 32 0 48 0;
#X connect 33 0 29 1;
#X connect 33 0 30 1;
#X connect 33 0 28 1;
#X connect 37 0 14 1;
#X connect 37 0 15 1;
#X connect 37 0 13 1;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 59 0 60 0;
#X connect 60 0 61 0;
#X restore 187 -99 pd HiltPositions;
#X obj 29 40 freqCalcCyl4HiFi;
#N canvas 500 151 410 255 sourceHiltSpeed 0;
#X obj 84 38 r~ tipSpeed;
#X obj 84 136 *~ 1;
#X obj 84 158 outlet~;
#X text 70 184 Source Speed;
#X obj 120 83 r length;
#X obj 105 62 r start_armLength;
#X obj 105 111 /;
#X obj 291 74 r hiltThick;
#X obj 291 148 outlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 8 0;
#X restore 29 -19 pd sourceHiltSpeed;
#N canvas 500 151 660 718 sourceTipSpeed 0;
#X obj 67 232 r~ tipSpeed;
#X obj 67 330 *~ 1;
#X obj 67 352 outlet~;
#X text 53 378 Source Speed;
#X obj 103 277 r length;
#X obj 88 305 /;
#X floatatom 103 330 0 0 0 0 - - -;
#X obj 272 294 r tipThick;
#X obj 272 328 outlet;
#X obj 88 256 r length;
#X obj 189 367 outlet;
#X obj 189 321 *;
#X obj 204 299 t f b;
#X floatatom 222 345 0 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 5 0 1 1;
#X connect 5 0 11 0;
#X connect 7 0 8 0;
#X connect 9 0 5 0;
#X connect 11 0 13 0;
#X connect 11 0 10 0;
#X connect 12 0 11 1;
#X connect 12 1 11 0;
#X restore 745 174 pd sourceTipSpeed;
#N canvas 144 122 1130 580 sourceTipPositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 525 438 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X floatatom 899 391 0 0 0 0 - - -;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X text 171 33 Calculates position of the tip source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 391 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 30 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 30 1;
#X connect 5 0 35 0;
#X connect 5 0 39 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 40 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 38 0;
#X connect 33 0 37 1;
#X connect 34 1 28 0;
#X connect 35 0 43 0;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X connect 38 1 28 0;
#X connect 39 0 45 0;
#X connect 42 0 43 0;
#X connect 43 0 34 1;
#X connect 44 0 45 0;
#X connect 45 0 38 1;
#X connect 46 0 18 0;
#X connect 47 0 19 0;
#X connect 48 0 20 0;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 759 207 pd sourceTipPositions;
#N canvas 144 122 1130 580 sourceHiltPositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#N canvas 273 52 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 392 pd SourceAngles;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X text 171 33 Calculates position of the hilt source.;
#X obj 86 136 r~ hiltX;
#X obj 170 145 r~ hiltY;
#X obj 256 150 r~ hiltZ;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 30 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 30 1;
#X connect 5 0 35 0;
#X connect 5 0 39 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 24 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 23 0;
#X connect 18 1 22 0;
#X connect 19 0 3 0;
#X connect 19 0 18 0;
#X connect 20 0 5 0;
#X connect 20 0 18 1;
#X connect 21 0 7 0;
#X connect 21 0 18 2;
#X connect 28 0 29 0;
#X connect 29 0 40 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 38 0;
#X connect 33 0 37 1;
#X connect 34 1 29 0;
#X connect 35 0 43 0;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X connect 38 1 29 0;
#X connect 39 0 45 0;
#X connect 42 0 43 0;
#X connect 43 0 34 1;
#X connect 44 0 45 0;
#X connect 45 0 38 1;
#X connect 47 0 19 0;
#X connect 48 0 20 0;
#X connect 49 0 21 0;
#X restore 41 13 pd sourceHiltPositions;
#N canvas 647 139 633 561 sourceSpeed 0;
#X obj 23 182 r~ tipSpeed;
#X obj 36 280 *~ 1;
#X obj 36 302 outlet~;
#X text 21 325 Source Speed;
#X obj 72 203 r length;
#X obj 57 255 /;
#X obj 405 379 outlet;
#X obj 420 97 inlet;
#X obj 405 236 *;
#X obj 420 213 t f b;
#X obj 405 308 +;
#X obj 420 285 t f b;
#X obj 420 119 * 7;
#X obj 405 165 -;
#X obj 420 141 t f b;
#X obj 420 186 r bladeGrad;
#X obj 420 259 r bladeConst;
#X obj 193 426 outlet;
#X obj 405 76 inlet;
#X obj 353 279 outlet;
#X text 384 58 Previous Source Position;
#X text 457 97 Previous Source Diameter;
#X text 452 378 Current Source Diameter;
#X text 261 303 Current Source Position;
#X text 97 459 Current source speed as a fraction of tip speed;
#X text 451 118 Averaged correlation length;
#X obj 192 201 r start_armLength;
#X obj 177 223 -;
#X obj 177 247 <= 0;
#X obj 150 188 t f f;
#X obj 23 231 spigot~;
#X floatatom 188 285 5 0 0 0 - - -;
#X connect 0 0 30 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 17 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 6 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 13 0 29 0;
#X connect 14 0 13 1;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 18 0 13 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 28 0 31 0;
#X connect 29 0 5 0;
#X connect 29 1 27 0;
#X connect 30 0 1 0;
#X restore 315 177 pd sourceSpeed;
#N canvas 144 122 1130 580 sourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 392 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 29 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 29 1;
#X connect 5 0 34 0;
#X connect 5 0 38 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 39 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 32 0 36 1;
#X connect 33 1 28 0;
#X connect 34 0 42 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 37 1 28 0;
#X connect 38 0 44 0;
#X connect 41 0 42 0;
#X connect 42 0 33 1;
#X connect 43 0 44 0;
#X connect 44 0 37 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 47 0 20 0;
#X connect 48 0 20 1;
#X connect 48 0 19 1;
#X connect 48 0 18 1;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 335 210 pd sourcePositions;
#N canvas 521 89 616 521 halfSourceSpeed 0;
#X obj 23 188 r~ tipSpeed;
#X obj 36 286 *~ 1;
#X obj 36 308 outlet~;
#X text 21 331 Source Speed;
#X obj 72 209 r length;
#X obj 57 261 /;
#X obj 309 372 outlet;
#X obj 309 229 *;
#X obj 324 206 t f b;
#X obj 309 301 +;
#X obj 324 278 t f b;
#X obj 324 179 r bladeGrad;
#X obj 324 252 r bladeConst;
#X obj 193 426 outlet;
#X obj 324 68 inlet;
#X text 303 50 Previous Source Position;
#X text 356 371 Current Source Diameter;
#X text 97 459 Current source speed as a fraction of tip speed;
#X obj 192 68 r start_armLength;
#X obj 177 192 -;
#X obj 177 216 <= 0;
#X obj 150 157 t f f;
#X obj 23 237 spigot~;
#X obj 309 112 +;
#X obj 309 133 * 0.5;
#X floatatom 189 271 0 0 0 0 - - -;
#X connect 0 0 22 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 13 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 10 0 9 1;
#X connect 10 1 9 0;
#X connect 11 0 8 0;
#X connect 12 0 10 0;
#X connect 14 0 23 1;
#X connect 18 0 19 1;
#X connect 18 0 23 0;
#X connect 19 0 20 0;
#X connect 20 0 22 1;
#X connect 20 0 25 0;
#X connect 21 0 5 0;
#X connect 21 1 19 0;
#X connect 22 0 1 0;
#X connect 23 0 24 0;
#X connect 24 0 21 0;
#X connect 24 0 7 0;
#X restore 27 75 pd halfSourceSpeed;
#N canvas 140 383 1130 580 halfSourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X floatatom 899 391 0 0 0 0 - - -;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 389 pd SourceAngles;
#X floatatom 601 418 0 0 0 0 - - -;
#X obj 601 369 r myMet;
#X obj 601 394 snapshot~;
#X floatatom 333 424 0 0 0 0 - - -;
#X obj 333 375 r myMet;
#X obj 333 400 snapshot~;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 30 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 30 1;
#X connect 5 0 35 0;
#X connect 5 0 39 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 51 0;
#X connect 19 0 5 0;
#X connect 19 0 51 1;
#X connect 20 0 7 0;
#X connect 20 0 51 2;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 40 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 38 0;
#X connect 33 0 37 1;
#X connect 34 1 28 0;
#X connect 35 0 43 0;
#X connect 36 0 37 0;
#X connect 37 0 34 0;
#X connect 38 1 28 0;
#X connect 39 0 45 0;
#X connect 42 0 43 0;
#X connect 43 0 34 1;
#X connect 44 0 45 0;
#X connect 45 0 38 1;
#X connect 46 0 18 0;
#X connect 47 0 19 0;
#X connect 48 0 20 0;
#X connect 49 0 20 1;
#X connect 49 0 19 1;
#X connect 49 0 18 1;
#X connect 51 0 22 0;
#X connect 51 0 57 0;
#X connect 51 1 21 0;
#X connect 51 1 54 0;
#X connect 53 0 54 0;
#X connect 54 0 52 0;
#X connect 56 0 57 0;
#X connect 57 0 55 0;
#X restore 39 107 pd halfSourcePositions;
#X obj 745 233 freqCalcCyl4HiFi;
#X obj 315 236 freqCalcCyl4HiFi;
#X obj 27 134 freqCalcCyl4HiFi;
#N canvas 647 139 633 561 sourceSpeed 0;
#X obj 23 182 r~ tipSpeed;
#X obj 36 280 *~ 1;
#X obj 36 302 outlet~;
#X text 21 325 Source Speed;
#X obj 72 203 r length;
#X obj 57 255 /;
#X obj 405 379 outlet;
#X obj 420 97 inlet;
#X obj 405 236 *;
#X obj 420 213 t f b;
#X obj 405 308 +;
#X obj 420 285 t f b;
#X obj 420 119 * 7;
#X obj 405 165 -;
#X obj 420 141 t f b;
#X obj 420 186 r bladeGrad;
#X obj 420 259 r bladeConst;
#X obj 193 426 outlet;
#X obj 405 76 inlet;
#X obj 353 279 outlet;
#X text 384 58 Previous Source Position;
#X text 457 97 Previous Source Diameter;
#X text 452 378 Current Source Diameter;
#X text 261 303 Current Source Position;
#X text 97 459 Current source speed as a fraction of tip speed;
#X text 451 118 Averaged correlation length;
#X obj 192 201 r start_armLength;
#X obj 177 223 -;
#X obj 177 247 <= 0;
#X obj 150 188 t f f;
#X obj 23 231 spigot~;
#X connect 0 0 30 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 17 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 6 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 13 0 29 0;
#X connect 14 0 13 1;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 18 0 13 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 29 0 5 0;
#X connect 29 1 27 0;
#X connect 30 0 1 0;
#X restore 594 174 pd sourceSpeed;
#N canvas 144 122 1130 580 sourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 554 577 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 392 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 29 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 29 1;
#X connect 5 0 34 0;
#X connect 5 0 38 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 39 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 32 0 36 1;
#X connect 33 1 28 0;
#X connect 34 0 42 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 37 1 28 0;
#X connect 38 0 44 0;
#X connect 41 0 42 0;
#X connect 42 0 33 1;
#X connect 43 0 44 0;
#X connect 44 0 37 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 47 0 20 0;
#X connect 48 0 20 1;
#X connect 48 0 19 1;
#X connect 48 0 18 1;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 614 207 pd sourcePositions;
#X obj 594 233 freqCalcCyl4HiFi;
#N canvas 647 139 633 561 sourceSpeed 0;
#X obj 23 182 r~ tipSpeed;
#X obj 36 280 *~ 1;
#X obj 36 302 outlet~;
#X text 21 325 Source Speed;
#X obj 72 203 r length;
#X obj 57 255 /;
#X obj 405 379 outlet;
#X obj 420 97 inlet;
#X obj 405 236 *;
#X obj 420 213 t f b;
#X obj 405 308 +;
#X obj 420 285 t f b;
#X obj 420 119 * 7;
#X obj 405 165 -;
#X obj 420 141 t f b;
#X obj 420 186 r bladeGrad;
#X obj 420 259 r bladeConst;
#X obj 193 426 outlet;
#X obj 405 76 inlet;
#X obj 353 279 outlet;
#X text 384 58 Previous Source Position;
#X text 457 97 Previous Source Diameter;
#X text 452 378 Current Source Diameter;
#X text 261 303 Current Source Position;
#X text 97 459 Current source speed as a fraction of tip speed;
#X text 451 118 Averaged correlation length;
#X obj 192 201 r start_armLength;
#X obj 177 223 -;
#X obj 177 247 <= 0;
#X obj 150 188 t f f;
#X obj 23 231 spigot~;
#X connect 0 0 30 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 17 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 6 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 13 0 29 0;
#X connect 14 0 13 1;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 18 0 13 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 29 0 5 0;
#X connect 29 1 27 0;
#X connect 30 0 1 0;
#X restore 458 173 pd sourceSpeed;
#N canvas 144 122 1130 580 sourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 391 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 29 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 29 1;
#X connect 5 0 34 0;
#X connect 5 0 38 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 39 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 32 0 36 1;
#X connect 33 1 28 0;
#X connect 34 0 42 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 37 1 28 0;
#X connect 38 0 44 0;
#X connect 41 0 42 0;
#X connect 42 0 33 1;
#X connect 43 0 44 0;
#X connect 44 0 37 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 47 0 20 0;
#X connect 48 0 20 1;
#X connect 48 0 19 1;
#X connect 48 0 18 1;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 478 206 pd sourcePositions;
#X obj 458 232 freqCalcCyl4HiFi;
#N canvas 42 225 549 568 sourceQuantity 0;
#X obj 93 81 t f b;
#X obj 78 104 -;
#X obj 108 167 t f b;
#X obj 93 190 -;
#X obj 93 126 r length;
#X obj 108 146 r start_armLength;
#X obj 78 237 /;
#X obj 93 212 t f b;
#X obj 78 40 r tipThick;
#X obj 93 60 r hiltThick;
#X obj 224 308 *;
#X obj 224 238 r length;
#X obj 239 284 t f b;
#X floatatom 297 328 0 0 0 0 - - -;
#X obj 224 394 +;
#X obj 239 370 t f b;
#X obj 239 348 r tipThick;
#X floatatom 274 412 0 0 0 0 - - -;
#X obj 224 262 * -1;
#X obj 78 270 s bladeGrad;
#X obj 224 432 s bladeConst;
#X connect 0 0 1 1;
#X connect 0 1 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 1;
#X connect 2 1 3 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 6 0 12 0;
#X connect 6 0 19 0;
#X connect 7 0 6 1;
#X connect 8 0 1 0;
#X connect 9 0 0 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 18 0;
#X connect 12 0 10 1;
#X connect 12 1 10 0;
#X connect 14 0 17 0;
#X connect 14 0 20 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 15 0;
#X connect 18 0 10 0;
#X restore 311 -99 pd sourceQuantity;
#N canvas 332 130 768 537 contPlaneFind 0;
#N canvas 300 23 1010 851 baseFind 0;
#X obj -8813 28 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -8813 81 s GO;
#X obj -8873 28 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -8873 81 s setUp;
#X text -8303 44 Calculate where the mid point of the swing should
be in order that the max speed is in the xz plane;
#X text -8738 -1 The start position of the sword and the mid point
are then vectors that describe plane of the sword. From this we can
project to a point that is the closest point to the observer and calculate
the elevation and azimuth between source and observer.;
#X text -8750 112 a11;
#X text -8692 111 a21;
#X text -8588 108 a31;
#X text -8071 98 a32;
#X text -8151 87 a22;
#X text -8233 96 a12;
#X text -8737 222 b11;
#X text -8478 308 b12 & b21;
#X text -8203 213 b22;
#X text -8103 413 Determinant;
#X text -8527 354 -b12 & -b21;
#X text -8849 290 Martix a is original;
#X text -8849 320 Martix c is inverse b;
#X text -8849 305 Martix b is a' * a;
#X text -8086 478 c11;
#X text -8498 528 c12 & c21;
#X text -8750 513 c22;
#X text -8778 668 d11;
#X text -8645 669 d21;
#X text -8521 681 d31;
#X text -8385 690 d12;
#X text -8256 689 d22;
#X text -8126 700 d32;
#N canvas 478 224 632 467 ProjectionPoint 0;
#X obj 108 56 r Xobs;
#X obj 183 99 r Zobs;
#X obj 147 76 r Yobs;
#X obj -106 63 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -106 116 s GO;
#X obj -166 63 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -166 116 s setUp;
#X text -50 346 x' \, y' & z' relates to the point in the plane of
the sword when the observer position is projected on;
#X text 1 269 x';
#X text 144 274 y';
#X text 288 277 z';
#X obj 93 143 inlet;
#X obj 132 165 inlet;
#X obj 168 187 inlet;
#X obj 241 146 inlet;
#X obj 280 166 inlet;
#X obj 316 187 inlet;
#X obj 316 216 *;
#X obj 280 215 *;
#X obj 241 215 *;
#X obj 265 248 +;
#X obj 265 279 +;
#X obj 265 304 outlet;
#X obj 168 216 *;
#X obj 132 214 *;
#X obj 93 214 *;
#X obj 117 244 +;
#X obj 117 272 +;
#X obj 117 297 outlet;
#X obj -26 291 outlet;
#X obj -26 267 +;
#X obj -26 242 +;
#X obj 25 218 *;
#X obj -11 217 *;
#X obj -50 217 *;
#X obj -50 144 inlet;
#X obj -11 165 inlet;
#X obj 25 185 inlet;
#X connect 0 0 34 1;
#X connect 0 0 25 1;
#X connect 0 0 19 1;
#X connect 1 0 32 1;
#X connect 1 0 23 1;
#X connect 1 0 17 1;
#X connect 2 0 33 1;
#X connect 2 0 24 1;
#X connect 2 0 18 1;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 11 0 25 0;
#X connect 12 0 24 0;
#X connect 13 0 23 0;
#X connect 14 0 19 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 21 1;
#X connect 18 0 20 1;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 27 1;
#X connect 24 0 26 1;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 32 0 30 1;
#X connect 33 0 31 1;
#X connect 34 0 31 0;
#X connect 35 0 34 0;
#X connect 36 0 33 0;
#X connect 37 0 32 0;
#X restore -8320 786 pd ProjectionPoint;
#X floatatom -8587 86 0 0 0 0 - - -;
#X floatatom -8530 86 0 0 0 0 - - -;
#X floatatom -8666 86 0 0 0 0 - - -;
#X obj -8749 129 inlet;
#X obj -8695 129 inlet;
#X obj -8589 126 inlet;
#X obj -8749 170 *;
#X obj -8695 168 *;
#X obj -8589 167 *;
#X obj -8695 198 +;
#X obj -8710 222 +;
#X obj -8725 525 *;
#X obj -8749 620 *;
#X obj -8734 645 *;
#X obj -8749 670 +;
#X obj -8421 265 *;
#X obj -8390 266 *;
#X obj -8360 267 *;
#X obj -8390 292 +;
#X obj -8405 316 +;
#X obj -8404 351 *;
#X obj -8464 367 * -1;
#X obj -8464 498 *;
#X obj -8619 622 *;
#X obj -8604 647 *;
#X obj -8619 672 +;
#X obj -8479 657 *;
#X obj -8494 682 +;
#X obj -8494 632 *;
#X obj -8244 115 inlet;
#X obj -8144 109 inlet;
#X obj -8071 119 inlet;
#X obj -8074 159 *;
#X obj -8160 159 *;
#X obj -8244 153 *;
#X obj -8160 191 +;
#X obj -8175 216 +;
#X obj -8131 385 *;
#X obj -8131 411 -;
#X obj -8131 459 /;
#X obj -8146 488 *;
#X obj -8359 641 *;
#X obj -8344 666 *;
#X obj -8359 688 +;
#X obj -8229 643 *;
#X obj -8214 668 *;
#X obj -8229 693 +;
#X obj -8104 653 *;
#X obj -8089 678 *;
#X obj -8104 703 +;
#N canvas 165 174 1128 600 ProjectionMatrix 0;
#X obj -385 72 inlet;
#X obj -297 70 inlet;
#X obj -213 70 inlet;
#X obj -129 70 inlet;
#X obj -48 70 inlet;
#X obj 37 70 inlet;
#X obj 125 71 inlet;
#X obj 208 70 inlet;
#X obj 314 71 inlet;
#X obj 399 69 inlet;
#X obj 483 70 inlet;
#X obj 572 70 inlet;
#X text -128 460 p13;
#X text -257 459 p12;
#X text -375 460 p11;
#X text 231 452 p23;
#X text 100 457 p22;
#X text -18 461 p21;
#X text 591 468 p33;
#X text 463 465 p32;
#X text 349 460 p31;
#X obj -400 385 *;
#X obj -385 410 *;
#X obj -400 460 +;
#X obj -385 437 t f b;
#X obj -370 388 t f b;
#X obj -385 365 t f b;
#X obj -284 383 *;
#X obj -269 408 *;
#X obj -284 458 +;
#X obj -269 435 t f b;
#X obj -254 386 t f b;
#X obj -269 363 t f b;
#X obj -153 383 *;
#X obj -138 408 *;
#X obj -153 458 +;
#X obj -138 435 t f b;
#X obj -123 386 t f b;
#X obj -138 363 t f b;
#X obj -46 386 *;
#X obj -31 411 *;
#X obj -46 461 +;
#X obj -31 438 t f b;
#X obj -16 389 t f b;
#X obj -31 366 t f b;
#X obj 76 382 *;
#X obj 91 407 *;
#X obj 76 457 +;
#X obj 91 434 t f b;
#X obj 106 385 t f b;
#X obj 91 362 t f b;
#X obj 206 379 *;
#X obj 221 404 *;
#X obj 206 454 +;
#X obj 221 431 t f b;
#X obj 236 382 t f b;
#X obj 221 359 t f b;
#X obj 316 384 *;
#X obj 331 409 *;
#X obj 316 459 +;
#X obj 331 436 t f b;
#X obj 346 387 t f b;
#X obj 331 364 t f b;
#X obj 430 387 *;
#X obj 445 412 *;
#X obj 430 462 +;
#X obj 445 439 t f b;
#X obj 460 390 t f b;
#X obj 445 367 t f b;
#X obj 557 392 *;
#X obj 572 417 *;
#X obj 557 467 +;
#X obj 572 444 t f b;
#X obj 587 395 t f b;
#X obj 572 372 t f b;
#X obj -400 487 outlet;
#X obj -153 482 outlet;
#X obj -284 486 outlet;
#X obj 206 480 outlet;
#X obj 76 482 outlet;
#X obj -46 487 outlet;
#X obj 557 491 outlet;
#X obj 430 488 outlet;
#X obj 316 482 outlet;
#X text -380 50 a11;
#X text -300 52 a21;
#X text -217 52 a31;
#X text -126 43 a12;
#X text -45 51 a22;
#X text 43 51 a32;
#X text 144 45 d11;
#X text 219 51 d21;
#X text 318 49 d31;
#X text 405 49 d12;
#X text 485 48 d22;
#X text 574 47 d32;
#X floatatom -200 526 0 0 0 0 - - -;
#X floatatom -200 546 0 0 0 0 - - -;
#X floatatom -198 567 0 0 0 0 - - -;
#X floatatom 73 524 0 0 0 0 - - -;
#X floatatom 74 546 0 0 0 0 - - -;
#X floatatom 76 568 0 0 0 0 - - -;
#X floatatom 422 517 0 0 0 0 - - -;
#X floatatom 423 538 0 0 0 0 - - -;
#X floatatom 425 561 0 0 0 0 - - -;
#X connect 0 0 26 0;
#X connect 0 0 44 0;
#X connect 0 0 62 0;
#X connect 1 0 32 0;
#X connect 1 0 50 0;
#X connect 1 0 68 0;
#X connect 2 0 38 0;
#X connect 2 0 56 0;
#X connect 2 0 74 0;
#X connect 3 0 25 0;
#X connect 3 0 43 0;
#X connect 3 0 61 0;
#X connect 4 0 31 0;
#X connect 4 0 49 0;
#X connect 4 0 67 0;
#X connect 5 0 37 0;
#X connect 5 0 55 0;
#X connect 5 0 73 0;
#X connect 6 0 21 0;
#X connect 6 0 27 0;
#X connect 6 0 33 0;
#X connect 7 0 39 0;
#X connect 7 0 45 0;
#X connect 7 0 51 0;
#X connect 8 0 57 0;
#X connect 8 0 63 0;
#X connect 8 0 69 0;
#X connect 9 0 22 0;
#X connect 9 0 28 0;
#X connect 9 0 34 0;
#X connect 10 0 40 0;
#X connect 10 0 46 0;
#X connect 10 0 52 0;
#X connect 11 0 58 0;
#X connect 11 0 64 0;
#X connect 11 0 70 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 75 0;
#X connect 23 0 96 0;
#X connect 24 0 23 1;
#X connect 24 1 23 0;
#X connect 25 0 22 1;
#X connect 25 1 22 0;
#X connect 26 0 21 1;
#X connect 26 1 21 0;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 29 0 77 0;
#X connect 29 0 97 0;
#X connect 30 0 29 1;
#X connect 30 1 29 0;
#X connect 31 0 28 1;
#X connect 31 1 28 0;
#X connect 32 0 27 1;
#X connect 32 1 27 0;
#X connect 33 0 35 0;
#X connect 34 0 36 0;
#X connect 35 0 76 0;
#X connect 35 0 98 0;
#X connect 36 0 35 1;
#X connect 36 1 35 0;
#X connect 37 0 34 1;
#X connect 37 1 34 0;
#X connect 38 0 33 1;
#X connect 38 1 33 0;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 41 0 80 0;
#X connect 41 0 99 0;
#X connect 42 0 41 1;
#X connect 42 1 41 0;
#X connect 43 0 40 1;
#X connect 43 1 40 0;
#X connect 44 0 39 1;
#X connect 44 1 39 0;
#X connect 45 0 47 0;
#X connect 46 0 48 0;
#X connect 47 0 79 0;
#X connect 47 0 100 0;
#X connect 48 0 47 1;
#X connect 48 1 47 0;
#X connect 49 0 46 1;
#X connect 49 1 46 0;
#X connect 50 0 45 1;
#X connect 50 1 45 0;
#X connect 51 0 53 0;
#X connect 52 0 54 0;
#X connect 53 0 78 0;
#X connect 53 0 101 0;
#X connect 54 0 53 1;
#X connect 54 1 53 0;
#X connect 55 0 52 1;
#X connect 55 1 52 0;
#X connect 56 0 51 1;
#X connect 56 1 51 0;
#X connect 57 0 59 0;
#X connect 58 0 60 0;
#X connect 59 0 83 0;
#X connect 59 0 102 0;
#X connect 60 0 59 1;
#X connect 60 1 59 0;
#X connect 61 0 58 1;
#X connect 61 1 58 0;
#X connect 62 0 57 1;
#X connect 62 1 57 0;
#X connect 63 0 65 0;
#X connect 64 0 66 0;
#X connect 65 0 82 0;
#X connect 65 0 103 0;
#X connect 66 0 65 1;
#X connect 66 1 65 0;
#X connect 67 0 64 1;
#X connect 67 1 64 0;
#X connect 68 0 63 1;
#X connect 68 1 63 0;
#X connect 69 0 71 0;
#X connect 70 0 72 0;
#X connect 71 0 81 0;
#X connect 71 0 104 0;
#X connect 72 0 71 1;
#X connect 72 1 71 0;
#X connect 73 0 70 1;
#X connect 73 1 70 0;
#X connect 74 0 69 1;
#X connect 74 1 69 0;
#X restore -8323 762 pd ProjectionMatrix;
#X obj -8131 435 swap 1;
#X floatatom -8345 85 0 0 0 0 - - -;
#X floatatom -8288 83 0 0 0 0 - - -;
#X floatatom -8417 86 0 0 0 0 - - -;
#X obj -8320 808 outlet;
#X obj -8268 808 outlet;
#X obj -8215 809 outlet;
#X floatatom -8787 251 0 0 0 0 - - -;
#X floatatom -8048 242 0 0 0 0 - - -;
#X floatatom -8375 335 0 0 0 0 - - -;
#X floatatom -8728 556 0 0 0 0 - - -;
#X floatatom -8403 506 0 0 0 0 - - -;
#X floatatom -8129 534 0 0 0 0 - - -;
#X text -8851 334 Matrix d is a * c;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 29 0 85 0;
#X connect 29 1 86 0;
#X connect 29 2 87 0;
#X connect 33 0 36 0;
#X connect 33 0 36 1;
#X connect 33 0 42 0;
#X connect 33 0 45 0;
#X connect 33 0 71 0;
#X connect 33 0 80 0;
#X connect 33 0 32 0;
#X connect 34 0 37 0;
#X connect 34 0 37 1;
#X connect 34 0 46 0;
#X connect 34 0 53 0;
#X connect 34 0 74 0;
#X connect 34 0 80 1;
#X connect 34 0 30 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 47 0;
#X connect 35 0 58 0;
#X connect 35 0 77 0;
#X connect 35 0 80 2;
#X connect 35 0 31 0;
#X connect 36 0 40 0;
#X connect 37 0 39 0;
#X connect 38 0 39 1;
#X connect 39 0 40 1;
#X connect 40 0 41 1;
#X connect 40 0 67 0;
#X connect 40 0 88 0;
#X connect 41 0 72 0;
#X connect 41 0 75 0;
#X connect 41 0 78 0;
#X connect 41 0 91 0;
#X connect 42 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 80 6;
#X connect 45 0 49 0;
#X connect 46 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 49 1;
#X connect 49 0 50 0;
#X connect 49 0 50 1;
#X connect 49 0 51 0;
#X connect 49 0 90 0;
#X connect 50 0 68 1;
#X connect 51 0 52 0;
#X connect 52 0 43 1;
#X connect 52 0 54 1;
#X connect 52 0 56 1;
#X connect 52 0 71 1;
#X connect 52 0 74 1;
#X connect 52 0 77 1;
#X connect 52 0 92 0;
#X connect 53 0 55 0;
#X connect 54 0 55 1;
#X connect 55 0 80 7;
#X connect 56 0 57 1;
#X connect 57 0 80 8;
#X connect 58 0 57 0;
#X connect 59 0 43 0;
#X connect 59 0 45 1;
#X connect 59 0 64 0;
#X connect 59 0 64 1;
#X connect 59 0 72 1;
#X connect 59 0 80 3;
#X connect 59 0 84 0;
#X connect 60 0 46 1;
#X connect 60 0 54 0;
#X connect 60 0 63 0;
#X connect 60 0 63 1;
#X connect 60 0 75 1;
#X connect 60 0 80 4;
#X connect 60 0 82 0;
#X connect 61 0 47 1;
#X connect 61 0 56 0;
#X connect 61 0 62 1;
#X connect 61 0 62 0;
#X connect 61 0 78 1;
#X connect 61 0 80 5;
#X connect 61 0 83 0;
#X connect 62 0 65 1;
#X connect 63 0 65 0;
#X connect 64 0 66 0;
#X connect 65 0 66 1;
#X connect 66 0 67 1;
#X connect 66 0 70 0;
#X connect 66 0 89 0;
#X connect 67 0 68 0;
#X connect 68 0 81 0;
#X connect 69 0 41 0;
#X connect 69 0 52 1;
#X connect 69 0 70 1;
#X connect 70 0 42 1;
#X connect 70 0 53 1;
#X connect 70 0 58 1;
#X connect 70 0 93 0;
#X connect 71 0 73 0;
#X connect 72 0 73 1;
#X connect 73 0 80 9;
#X connect 74 0 76 0;
#X connect 75 0 76 1;
#X connect 76 0 80 10;
#X connect 77 0 79 0;
#X connect 78 0 79 1;
#X connect 79 0 80 11;
#X connect 80 0 29 0;
#X connect 80 1 29 1;
#X connect 80 2 29 2;
#X connect 80 3 29 3;
#X connect 80 4 29 4;
#X connect 80 5 29 5;
#X connect 80 6 29 6;
#X connect 80 7 29 7;
#X connect 80 8 29 8;
#X connect 81 0 69 0;
#X connect 81 1 69 1;
#X restore -7940 388 pd baseFind;
#X text -7844 442 XYZ of the projection point;
#X obj -8124 39 r presweepAzim;
#X obj -8124 60 swap 180;
#X obj -8124 82 -;
#X obj -8124 126 cos;
#X obj -8124 104 * 0.0174;
#X obj -8040 161 sin;
#X obj -8109 148 sin;
#X obj -7931 43 r presweepElev;
#X obj -7931 64 * 0.0174;
#X obj -7931 88 cos;
#X obj -8109 211 *;
#X obj -7977 156 r length;
#X obj -8124 258 *;
#X obj -8109 233 t f b;
#X obj -8025 185 sin;
#X obj -8025 213 *;
#X obj -8040 260 *;
#X obj -8025 235 t f b;
#X obj -7932 209 *;
#X floatatom -8152 289 0 0 0 0 - - -;
#X floatatom -8060 287 0 0 0 0 - - -;
#X floatatom -7967 283 0 0 0 0 - - -;
#X obj -7728 147 r midElev;
#X obj -7728 169 * 0.0174;
#X obj -7728 193 cos;
#X text -7694 235 a32;
#X text -7754 242 a22;
#X text -7822 238 a12;
#X obj -7798 198 sin;
#X obj -7798 222 *;
#X obj -7728 220 *;
#X obj -7977 177 t f b f b f b f b f b;
#X msg -7765 227 0;
#X floatatom -7854 280 0 0 0 0 - - -;
#X floatatom -7762 278 0 0 0 0 - - -;
#X floatatom -7669 274 0 0 0 0 - - -;
#X floatatom -7652 171 0 0 0 0 - - -;
#X text -8082 258 a11;
#X text -8014 262 a21;
#X text -7954 255 a31;
#X obj -7877 410 s conProZ;
#X obj -7909 430 s conProY;
#X obj -7940 451 s conProX;
#X connect 0 0 44 0;
#X connect 0 1 43 0;
#X connect 0 2 42 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 4 1;
#X connect 4 0 6 0;
#X connect 5 0 14 0;
#X connect 6 0 5 0;
#X connect 6 0 7 0;
#X connect 7 0 18 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 8 0;
#X connect 10 0 16 0;
#X connect 11 0 20 0;
#X connect 12 0 15 0;
#X connect 13 0 33 0;
#X connect 14 0 21 0;
#X connect 14 0 0 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 18 0 0 1;
#X connect 19 0 18 1;
#X connect 19 1 18 0;
#X connect 20 0 23 0;
#X connect 20 0 0 2;
#X connect 24 0 25 0;
#X connect 24 0 38 0;
#X connect 25 0 26 0;
#X connect 25 0 30 0;
#X connect 26 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 35 0;
#X connect 31 0 0 3;
#X connect 32 0 37 0;
#X connect 32 0 0 5;
#X connect 33 0 12 1;
#X connect 33 1 12 0;
#X connect 33 2 17 1;
#X connect 33 3 17 0;
#X connect 33 4 20 1;
#X connect 33 5 20 0;
#X connect 33 6 31 1;
#X connect 33 7 31 0;
#X connect 33 8 32 1;
#X connect 33 9 32 0;
#X connect 33 9 34 0;
#X connect 34 0 36 0;
#X connect 34 0 0 4;
#X restore 311 -120 pd contPlaneFind;
#N canvas 647 139 633 561 sourceSpeed 0;
#X obj 23 182 r~ tipSpeed;
#X obj 36 280 *~ 1;
#X obj 36 302 outlet~;
#X text 21 325 Source Speed;
#X obj 72 203 r length;
#X obj 57 255 /;
#X obj 405 379 outlet;
#X obj 420 97 inlet;
#X obj 405 236 *;
#X obj 420 213 t f b;
#X obj 405 308 +;
#X obj 420 285 t f b;
#X obj 420 119 * 7;
#X obj 405 165 -;
#X obj 420 141 t f b;
#X obj 420 186 r bladeGrad;
#X obj 420 259 r bladeConst;
#X obj 193 426 outlet;
#X obj 405 76 inlet;
#X obj 353 279 outlet;
#X text 384 58 Previous Source Position;
#X text 457 97 Previous Source Diameter;
#X text 452 378 Current Source Diameter;
#X text 261 303 Current Source Position;
#X text 97 459 Current source speed as a fraction of tip speed;
#X text 451 118 Averaged correlation length;
#X obj 192 201 r start_armLength;
#X obj 177 223 -;
#X obj 177 247 <= 0;
#X obj 150 188 t f f;
#X obj 23 231 spigot~;
#X floatatom 188 285 5 0 0 0 - - -;
#X connect 0 0 30 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 17 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 6 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 13 0 29 0;
#X connect 14 0 13 1;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 18 0 13 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 28 0 31 0;
#X connect 29 0 5 0;
#X connect 29 1 27 0;
#X connect 30 0 1 0;
#X restore 170 176 pd sourceSpeed;
#N canvas 144 122 1130 580 sourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 392 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 29 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 29 1;
#X connect 5 0 34 0;
#X connect 5 0 38 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 39 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 32 0 36 1;
#X connect 33 1 28 0;
#X connect 34 0 42 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 37 1 28 0;
#X connect 38 0 44 0;
#X connect 41 0 42 0;
#X connect 42 0 33 1;
#X connect 43 0 44 0;
#X connect 44 0 37 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 47 0 20 0;
#X connect 48 0 20 1;
#X connect 48 0 19 1;
#X connect 48 0 18 1;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 190 209 pd sourcePositions;
#X obj 170 235 freqCalcCyl4HiFi;
#N canvas 647 139 633 561 sourceSpeed 0;
#X obj 23 182 r~ tipSpeed;
#X obj 36 280 *~ 1;
#X obj 36 302 outlet~;
#X text 21 325 Source Speed;
#X obj 72 203 r length;
#X obj 57 255 /;
#X obj 405 379 outlet;
#X obj 420 97 inlet;
#X obj 405 236 *;
#X obj 420 213 t f b;
#X obj 405 308 +;
#X obj 420 285 t f b;
#X obj 420 119 * 7;
#X obj 405 165 -;
#X obj 420 141 t f b;
#X obj 420 186 r bladeGrad;
#X obj 420 259 r bladeConst;
#X obj 193 426 outlet;
#X obj 405 76 inlet;
#X obj 353 279 outlet;
#X text 384 58 Previous Source Position;
#X text 457 97 Previous Source Diameter;
#X text 452 378 Current Source Diameter;
#X text 261 303 Current Source Position;
#X text 97 459 Current source speed as a fraction of tip speed;
#X text 451 118 Averaged correlation length;
#X obj 192 201 r start_armLength;
#X obj 177 223 -;
#X obj 177 247 <= 0;
#X obj 150 188 t f f;
#X obj 23 231 spigot~;
#X floatatom 188 285 5 0 0 0 - - -;
#X connect 0 0 30 0;
#X connect 1 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 1 1;
#X connect 5 0 17 0;
#X connect 7 0 12 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 9 1 8 0;
#X connect 10 0 6 0;
#X connect 11 0 10 1;
#X connect 11 1 10 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 13 0 19 0;
#X connect 13 0 29 0;
#X connect 14 0 13 1;
#X connect 14 1 13 0;
#X connect 15 0 9 0;
#X connect 16 0 11 0;
#X connect 18 0 13 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 28 0 31 0;
#X connect 29 0 5 0;
#X connect 29 1 27 0;
#X connect 30 0 1 0;
#X restore 29 177 pd sourceSpeed;
#N canvas 144 122 1130 580 sourcePositions 0;
#X obj 271 193 r Zobs;
#X obj 185 191 r Yobs;
#X obj 101 183 r Xobs;
#X obj 86 252 -~;
#X obj 86 276 *~;
#X obj 170 254 -~;
#X obj 170 283 *~;
#X obj 256 254 -~;
#X obj 256 278 *~;
#X obj 155 317 +~;
#X obj 155 349 +~;
#X obj 155 376 sqrt~;
#X obj 271 235 line~;
#X msg 271 213 \$1 5;
#X obj 185 233 line~;
#X msg 185 212 \$1 5;
#X obj 101 229 line~;
#X msg 101 207 \$1 5;
#X obj 86 163 *~ 1;
#X obj 170 169 *~ 1;
#X obj 256 173 *~ 1;
#X obj 521 414 outlet~;
#X obj 434 414 outlet~;
#X obj 155 401 outlet~;
#X text 150 439 source distance from Observer;
#X text 360 440 source - Obs Elevation;
#X text 515 441 source - Obs Azimuth;
#X obj 831 345 r myMet;
#X obj 830 370 snapshot~;
#X obj 738 149 /~;
#X obj 738 172 atan~;
#X obj 738 195 /~ 3.14159;
#X obj 738 219 abs~;
#X obj 723 285 spigot~;
#X obj 762 242 >~ 0;
#X obj 690 230 sig~ 1;
#X obj 723 262 -~;
#X obj 858 309 spigot~;
#X obj 897 265 <~ 0;
#X obj 830 396 outlet;
#X text 822 423 Pan Value;
#X obj 797 242 r myMet;
#X obj 762 263 snapshot~;
#X obj 930 264 r myMet;
#X obj 897 287 snapshot~;
#X obj 86 136 r~ tipX;
#X obj 170 145 r~ tipY;
#X obj 256 150 r~ tipZ;
#X obj 191 107 inlet;
#X text 171 33 Calculates position of the source.;
#N canvas 413 572 1003 782 SourceAngles 0;
#X obj -8305 185 *~;
#X obj -8274 186 *~;
#X obj -8245 185 *~;
#X obj -8289 220 +~;
#X obj -8289 252 +~;
#X obj -8289 279 sqrt~;
#X obj -8571 236 -~;
#X obj -8571 260 *~;
#X obj -8535 235 -~;
#X obj -8535 264 *~;
#X obj -8499 235 -~;
#X obj -8499 259 *~;
#X obj -8550 298 +~;
#X obj -8550 330 +~;
#X obj -8550 357 sqrt~;
#X obj -8569 47 inlet~;
#X obj -8522 48 inlet~;
#X obj -8475 49 inlet~;
#X obj -8132 43 r Xobs;
#X obj -8132 83 line~;
#X msg -8132 64 \$1 5;
#X obj -8088 84 line~;
#X msg -8088 65 \$1 5;
#X obj -8041 84 line~;
#X msg -8041 65 \$1 5;
#X obj -8088 44 r Yobs;
#X obj -8041 44 r Zobs;
#X text -8567 24 a;
#X text -8517 29 b;
#X text -8471 26 c;
#X obj -8134 214 -~;
#X obj -8134 238 *~;
#X obj -8098 213 -~;
#X obj -8098 242 *~;
#X obj -8062 213 -~;
#X obj -8062 237 *~;
#X obj -8113 276 +~;
#X obj -8113 304 +~;
#X obj -8113 335 sqrt~;
#X obj -7937 219 -~;
#X obj -7937 243 *~;
#X obj -7901 218 -~;
#X obj -7901 247 *~;
#X obj -7865 218 -~;
#X obj -7865 242 *~;
#X obj -7916 281 +~;
#X obj -7916 313 +~;
#X obj -7916 340 sqrt~;
#X text -8578 360 U;
#X text -8309 279 W;
#X text -8130 337 d;
#X obj -8722 229 *~;
#X obj -8691 230 *~;
#X obj -8662 229 *~;
#X obj -8706 264 +~;
#X obj -8706 296 +~;
#X obj -8706 323 sqrt~;
#X text -8726 323 l;
#X obj -8517 559 arccos~;
#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -7909 83 s GO;
#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -7969 83 s setUp;
#X text -7936 341 m;
#X obj -8517 606 outlet~;
#X obj -8096 655 outlet~;
#X text -8574 642 Tip - Obs Elevation;
#X text -8145 680 Tip - Obs Azimuth;
#X obj -8517 445 +~;
#X obj -8517 474 -~;
#X obj -8487 481 *~ 2;
#X obj -8502 504 *~;
#X obj -8517 534 /~;
#X obj -8096 606 arccos~;
#X obj -8096 465 +~;
#X obj -8096 494 -~;
#X obj -8066 501 *~ 2;
#X obj -8081 524 *~;
#X obj -8096 554 /~;
#X text -8520 626 comment;
#X obj -8096 629 +~ 90;
#X obj -8417 592 snapshot~;
#X floatatom -8417 616 0 0 0 0 - - -;
#X obj -8417 569 r myMet;
#X obj -8344 31 r conProX;
#X obj -8274 34 r conProY;
#X obj -8208 36 r conProZ;
#X obj -8344 72 line~;
#X msg -8344 53 \$1 5;
#X obj -8274 73 line~;
#X msg -8274 54 \$1 5;
#X obj -8208 76 line~;
#X msg -8208 57 \$1 5;
#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 75 1;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 12 1;
#X connect 10 0 11 0;
#X connect 10 0 11 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 68 1;
#X connect 13 0 74 1;
#X connect 14 0 71 0;
#X connect 14 0 77 0;
#X connect 15 0 6 1;
#X connect 15 0 30 1;
#X connect 15 0 51 0;
#X connect 15 0 51 1;
#X connect 16 0 8 1;
#X connect 16 0 32 1;
#X connect 16 0 52 0;
#X connect 16 0 52 1;
#X connect 17 0 10 1;
#X connect 17 0 34 1;
#X connect 17 0 53 0;
#X connect 17 0 53 1;
#X connect 18 0 20 0;
#X connect 19 0 30 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 21 0 32 0;
#X connect 21 0 41 0;
#X connect 22 0 21 0;
#X connect 23 0 34 0;
#X connect 23 0 43 0;
#X connect 24 0 23 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 30 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 36 1;
#X connect 34 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 37 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 37 0 68 0;
#X connect 38 0 70 0;
#X connect 39 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 45 0;
#X connect 41 0 42 0;
#X connect 41 0 42 1;
#X connect 42 0 45 1;
#X connect 43 0 44 0;
#X connect 43 0 44 1;
#X connect 44 0 46 1;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 46 0 69 1;
#X connect 51 0 54 0;
#X connect 52 0 54 1;
#X connect 53 0 55 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 55 0 74 0;
#X connect 56 0 76 0;
#X connect 58 0 64 0;
#X connect 59 0 60 0;
#X connect 61 0 62 0;
#X connect 68 0 69 0;
#X connect 69 0 72 0;
#X connect 70 0 71 1;
#X connect 71 0 72 1;
#X connect 72 0 58 0;
#X connect 73 0 80 0;
#X connect 74 0 75 0;
#X connect 75 0 78 0;
#X connect 76 0 77 1;
#X connect 77 0 78 1;
#X connect 78 0 73 0;
#X connect 80 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 88 0;
#X connect 85 0 90 0;
#X connect 86 0 92 0;
#X connect 87 0 6 0;
#X connect 87 0 0 0;
#X connect 87 0 0 1;
#X connect 87 0 39 1;
#X connect 88 0 87 0;
#X connect 89 0 1 0;
#X connect 89 0 1 1;
#X connect 89 0 41 1;
#X connect 89 0 8 0;
#X connect 90 0 89 0;
#X connect 91 0 10 0;
#X connect 91 0 2 0;
#X connect 91 0 2 1;
#X connect 91 0 43 1;
#X connect 92 0 91 0;
#X restore 434 392 pd SourceAngles;
#X connect 0 0 13 0;
#X connect 1 0 15 0;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 29 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 0 6 1;
#X connect 5 0 29 1;
#X connect 5 0 34 0;
#X connect 5 0 38 0;
#X connect 6 0 9 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 23 0;
#X connect 12 0 7 1;
#X connect 13 0 12 0;
#X connect 14 0 5 1;
#X connect 15 0 14 0;
#X connect 16 0 3 1;
#X connect 17 0 16 0;
#X connect 18 0 3 0;
#X connect 18 0 50 0;
#X connect 19 0 5 0;
#X connect 19 0 50 1;
#X connect 20 0 7 0;
#X connect 20 0 50 2;
#X connect 27 0 28 0;
#X connect 28 0 39 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 37 0;
#X connect 32 0 36 1;
#X connect 33 1 28 0;
#X connect 34 0 42 0;
#X connect 35 0 36 0;
#X connect 36 0 33 0;
#X connect 37 1 28 0;
#X connect 38 0 44 0;
#X connect 41 0 42 0;
#X connect 42 0 33 1;
#X connect 43 0 44 0;
#X connect 44 0 37 1;
#X connect 45 0 18 0;
#X connect 46 0 19 0;
#X connect 47 0 20 0;
#X connect 48 0 20 1;
#X connect 48 0 19 1;
#X connect 48 0 18 1;
#X connect 50 0 22 0;
#X connect 50 1 21 0;
#X restore 49 210 pd sourcePositions;
#X obj 29 236 freqCalcCyl4HiFi;
#X text 480 -91 Patch that holds all the sources that are used to produce
the basic aeolian tone.;
#X connect 1 0 0 0;
#X connect 2 0 4 0;
#X connect 2 1 4 1;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 14 0;
#X connect 7 1 17 0;
#X connect 7 2 14 1;
#X connect 7 2 17 1;
#X connect 8 0 14 2;
#X connect 8 1 14 3;
#X connect 8 2 14 4;
#X connect 8 3 14 5;
#X connect 9 0 5 2;
#X connect 9 1 5 3;
#X connect 9 2 5 4;
#X connect 9 3 5 5;
#X connect 10 0 15 0;
#X connect 10 1 11 0;
#X connect 10 2 25 0;
#X connect 10 3 15 1;
#X connect 10 3 25 1;
#X connect 11 0 15 2;
#X connect 11 1 15 3;
#X connect 11 2 15 4;
#X connect 11 3 15 5;
#X connect 12 0 16 0;
#X connect 12 1 13 0;
#X connect 12 2 16 1;
#X connect 13 0 16 2;
#X connect 13 1 16 3;
#X connect 13 2 16 4;
#X connect 13 3 16 5;
#X connect 17 0 19 0;
#X connect 17 1 18 0;
#X connect 17 2 20 0;
#X connect 17 3 19 1;
#X connect 17 3 20 1;
#X connect 18 0 19 2;
#X connect 18 1 19 3;
#X connect 18 2 19 4;
#X connect 18 3 19 5;
#X connect 20 0 22 0;
#X connect 20 1 21 0;
#X connect 20 2 10 0;
#X connect 20 3 22 1;
#X connect 20 3 10 1;
#X connect 21 0 22 2;
#X connect 21 1 22 3;
#X connect 21 2 22 4;
#X connect 21 3 22 5;
#X connect 25 0 27 0;
#X connect 25 1 26 0;
#X connect 25 2 28 0;
#X connect 25 3 27 1;
#X connect 25 3 28 1;
#X connect 26 0 27 2;
#X connect 26 1 27 3;
#X connect 26 2 27 4;
#X connect 26 3 27 5;
#X connect 28 0 30 0;
#X connect 28 1 29 0;
#X connect 28 2 12 0;
#X connect 28 3 30 1;
#X connect 29 0 30 2;
#X connect 29 1 30 3;
#X connect 29 2 30 4;
#X connect 29 3 30 5;
#X restore 219 144 pd sources;
#X floatatom 227 52 5 0 0 0 - - -;
#X obj -276 345 hsl 100 20 0.1 3 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3072 1;
#X floatatom -319 368 5 0 0 0 - - -;
#X obj -324 319 r setUp;
#X obj -279 300 r thisLength;
#X obj -279 368 s bladeLen;
#X text -160 56 X Position;
#X text -166 149 Y Position;
#X text -168 239 Z Position;
#X msg -271 321 0.2;
#X msg -232 322 1;
#X msg -190 317 2;
#X obj 83 126 Uzi 20;
#X msg 79 416 45;
#X msg 109 492 135;
#X obj 564 426 s thisPoE;
#X obj 548 445 s thisPrE;
#X obj 533 464 s thisPoA;
#X obj 517 484 s thisPrA;
#X obj 407 627 s thisXobs;
#X obj 501 504 s thisTT;
#X obj 485 525 s thisHT;
#X obj 470 546 s thisTS;
#X obj 454 567 s thisLength;
#X obj 438 588 s thisZobs;
#X obj 422 607 s thisYobs;
#X obj 580 407 s GAIN;
#X obj 62 0 r preswing;
#X obj 407 368 unpack f f f f f f f f f f f f s;
#X obj 596 388 s preswing;
#X msg -131 561 0.025;
#X msg -78 119 -3;
#X obj -170 100 loadbang;
#X obj -158 25 loadbang;
#X obj -196 189 loadbang;
#X obj -189 292 loadbang;
#X obj -141 384 loadbang;
#X obj -153 487 loadbang;
#X obj 136 200 loadbang;
#X obj 169 394 loadbang;
#X msg -196 210 0.5;
#X floatatom -82 63 0 0 0 0 - - -;
#X msg -128 120 0.35;
#X msg 87 225 135;
#X msg 238 222 179;
#X msg -204 491 0.01;
#X msg 436 48 5e+06;
#X msg -272 122 0.07;
#X msg -210 575 0.007;
#X msg -135 212 2;
#X connect 0 0 1 0;
#X connect 1 0 93 0;
#X connect 4 0 3 0;
#X connect 4 0 5 0;
#X connect 9 0 10 0;
#X connect 9 0 51 0;
#X connect 11 0 13 0;
#X connect 11 0 92 0;
#X connect 12 0 14 0;
#X connect 12 0 15 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 18 0;
#X connect 22 0 21 1;
#X connect 22 0 101 0;
#X connect 23 0 113 0;
#X connect 25 0 4 0;
#X connect 26 0 9 0;
#X connect 27 0 11 0;
#X connect 28 0 12 0;
#X connect 29 0 54 0;
#X connect 30 0 4 0;
#X connect 31 0 11 0;
#X connect 32 0 12 0;
#X connect 33 0 54 0;
#X connect 34 0 35 0;
#X connect 35 0 23 0;
#X connect 36 0 37 0;
#X connect 36 0 52 0;
#X connect 38 0 36 0;
#X connect 39 0 40 0;
#X connect 39 0 45 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 42 0 46 0;
#X connect 44 0 42 0;
#X connect 54 0 53 0;
#X connect 54 0 142 0;
#X connect 55 0 58 0;
#X connect 55 0 61 0;
#X connect 56 0 62 0;
#X connect 56 0 59 0;
#X connect 57 0 60 0;
#X connect 57 0 63 0;
#X connect 64 0 55 0;
#X connect 65 0 57 0;
#X connect 66 0 55 0;
#X connect 67 0 56 0;
#X connect 68 0 57 0;
#X connect 69 0 56 0;
#X connect 70 0 9 0;
#X connect 71 0 57 0;
#X connect 72 0 55 0;
#X connect 73 0 4 0;
#X connect 74 0 55 0;
#X connect 75 0 4 0;
#X connect 76 0 55 0;
#X connect 77 0 56 0;
#X connect 78 0 57 0;
#X connect 79 0 9 0;
#X connect 80 0 36 0;
#X connect 81 0 39 0;
#X connect 82 0 42 0;
#X connect 83 0 9 0;
#X connect 87 0 147 0;
#X connect 88 0 84 0;
#X connect 88 1 85 0;
#X connect 89 0 88 0;
#X connect 89 0 91 0;
#X connect 90 0 89 0;
#X connect 93 0 2 0;
#X connect 94 0 9 0;
#X connect 95 0 42 0;
#X connect 96 0 39 0;
#X connect 97 0 36 0;
#X connect 98 0 39 0;
#X connect 98 0 42 0;
#X connect 99 0 56 0;
#X connect 102 0 103 0;
#X connect 102 0 106 0;
#X connect 104 0 102 0;
#X connect 105 0 102 0;
#X connect 110 0 102 0;
#X connect 111 0 102 0;
#X connect 112 0 102 0;
#X connect 113 0 24 0;
#X connect 114 0 39 0;
#X connect 115 0 42 0;
#X connect 128 0 23 0;
#X connect 129 0 120 0;
#X connect 129 1 126 0;
#X connect 129 2 125 0;
#X connect 129 3 124 0;
#X connect 129 4 123 0;
#X connect 129 5 122 0;
#X connect 129 6 121 0;
#X connect 129 7 119 0;
#X connect 129 8 118 0;
#X connect 129 9 117 0;
#X connect 129 10 116 0;
#X connect 129 11 127 0;
#X connect 129 12 130 0;
#X connect 131 0 11 0;
#X connect 131 0 12 0;
#X connect 132 0 56 0;
#X connect 133 0 99 0;
#X connect 134 0 72 0;
#X connect 135 0 141 0;
#X connect 136 0 111 0;
#X connect 137 0 75 0;
#X connect 138 0 146 0;
#X connect 138 0 149 0;
#X connect 139 0 70 0;
#X connect 139 0 97 0;
#X connect 140 0 98 0;
#X connect 141 0 57 0;
#X connect 143 0 56 0;
#X connect 144 0 9 0;
#X connect 145 0 9 0;
#X connect 146 0 11 0;
#X connect 147 0 89 0;
#X connect 148 0 56 0;
#X connect 149 0 12 0;
#X connect 150 0 57 0;
author	Rod Selfridge <r.selfridge@qmul.ac.uk>
date	Fri, 11 Mar 2016 20:51:21 +0000
parents	a6185e86c2eb
children	413bf41037d0