view Katana/SigGrooveSwordD2/sigSword.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 469 52 834 487 10;
#X obj -159 19 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj -159 72 s GO;
#X obj -240 344 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -177 344 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -198 251 loadbang;
#N canvas 555 179 601 477 opLevels 0;
#X obj 82 257 dac~;
#X obj 128 151 *~ 0.45;
#X obj 29 151 *~ 0.45;
#X obj 29 257 prvu~;
#X obj 128 258 prvu~;
#X obj 93 33 inlet;
#X obj 29 286 outlet;
#X obj 128 286 outlet;
#X obj 143 106 catch~ ar;
#X obj 44 107 catch~ al;
#X obj 29 128 +~;
#X obj 128 129 +~;
#X obj 29 84 catch~ l;
#X obj 128 84 catch~ r;
#X connect 1 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 6 0;
#X connect 4 0 7 0;
#X connect 5 0 2 1;
#X connect 5 0 1 1;
#X connect 8 0 11 1;
#X connect 9 0 10 1;
#X connect 10 0 2 0;
#X connect 11 0 1 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X restore -241 317 pd opLevels;
#X obj -238 295 hsl 100 15 0.1 10000 1 0 empty empty Master_Gain 2
8 0 10 -203904 -1 -1 2576 1;
#X obj -241 274 r GAIN;
#X floatatom -163 316 8 0 0 0 - - -;
#X obj -239 18 loadbang;
#X obj -239 40 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj -239 81 s myMet;
#X obj -63 384 s topSpeed;
#X obj -60 323 hsl 100 15 0 70 0 0 empty empty Top_Speed 2 8 0 10 -204800
-1 -1 4243 1;
#X obj 83 199 hsl 100 15 0 0.09 0 0 empty empty Hilt_Thickness 2 8
0 10 -204786 -1 -1 3850 1;
#X obj 199 195 hsl 100 15 0.0001 0.1 0 0 empty empty Tip_thickness
2 8 0 10 -204786 -1 -1 684 1;
#X obj 196 255 s tipThick;
#X obj -63 282 r thisTS;
#X obj 80 157 r thisHT;
#X obj 196 157 r thisTT;
#X obj -59 68 hsl 100 15 -50 50 0 0 empty empty X_Position 4 8 0 10
-261234 -1 -1 5346 1;
#X obj 67 71 hsl 100 15 -50 50 0 0 empty empty Y_Position 2 8 0 10
-261234 -1 -1 5049 1;
#X obj 194 70 hsl 100 15 -50 50 0 0 empty empty Z_Position 2 8 0 10
-261234 -1 -1 5148 1;
#X obj 64 128 s Yobs;
#X obj 191 130 s Zobs;
#X floatatom -12 86 0 0 0 0 - - -;
#X msg -54 44 0;
#X msg 200 44 0;
#X msg 73 45 0;
#X msg -15 45 4;
#X obj -62 23 r thisXobs;
#X obj 64 24 r thisYobs;
#X obj 191 25 r thisZobs;
#X obj 80 259 s hiltThick;
#X msg 131 45 1;
#X obj -58 196 hsl 100 15 0.1 3 0 0 empty empty Blade_Length 2 8 0
10 -204786 -1 -1 3072 1;
#X obj -61 173 r thisLength;
#X obj -61 255 s bladeLen;
#X msg 19 176 1;
#X obj 132 25 loadbang;
#X obj 6 22 loadbang;
#X obj 259 25 loadbang;
#X obj 19 156 loadbang;
#X obj -6 282 loadbang;
#X obj 136 157 loadbang;
#X msg -6 303 30;
#X obj 314 195 hsl 100 15 0 0.45 0 0 empty empty Groove_Depth_% 2 8
0 10 -204786 -1 -1 4400 1;
#X obj 428 196 hsl 100 15 0 1.5 0 0 empty empty Groove_Length_% 2 8
0 10 -204786 -1 -1 3300 1;
#X obj 366 153 loadbang;
#X obj 311 255 s GrooveDepth;
#X obj 425 256 s Groove Length;
#X msg 366 174 0.2;
#X msg 480 175 0.5;
#X msg 259 46 2;
#X obj -61 129 s Xobs;
#X obj -61 86 r myMet;
#X obj -61 107 f;
#X floatatom 113 88 0 0 0 0 - - -;
#X obj 64 88 r myMet;
#X obj 64 109 f;
#X floatatom 240 89 0 0 0 0 - - -;
#X obj 191 89 r myMet;
#X obj 191 110 f;
#X floatatom -12 214 0 0 0 0 - - -;
#X obj -61 214 r myMet;
#X obj -61 235 f;
#X floatatom -14 342 0 0 0 0 - - -;
#X obj -63 342 r myMet;
#X obj -63 363 f;
#X msg 89 177 0.025;
#X msg 202 176 0.025;
#X floatatom 129 218 0 0 0 0 - - -;
#X obj 80 218 r myMet;
#X obj 80 239 f;
#X obj 250 157 loadbang;
#X floatatom 245 213 0 0 0 0 - - -;
#X obj 196 213 r myMet;
#X obj 196 234 f;
#X obj 311 174 r thisGD;
#X floatatom 360 213 0 0 0 0 - - -;
#X obj 311 213 r myMet;
#X obj 311 234 f;
#X obj 480 155 loadbang;
#X obj 425 176 r thisGL;
#X floatatom 474 215 0 0 0 0 - - -;
#X obj 425 215 r myMet;
#X obj 425 236 f;
#X text 351 45 Arm Length;
#X obj 317 25 loadbang;
#X obj 317 108 s start_armLength;
#X msg 317 46 0.35;
#X obj 56 323 hsl 100 15 0 180 0 0 empty empty Pre_Sweep_Azim 2 8 0
10 -204800 -1 -1 4125 1;
#X obj 166 323 hsl 100 15 180 360 0 0 empty empty Post_Sweep_Azim 2
8 0 10 -204800 -1 -1 1100 1;
#X obj 286 324 hsl 100 15 90 -90 0 0 empty empty Pre_Sweep_Elev 2 8
0 10 -204800 -1 -1 4950 1;
#X obj 407 324 hsl 100 15 90 -90 0 0 empty empty Post_Sweep_Elev 2
8 0 10 -204800 -1 -1 4950 1;
#X obj 283 383 s presweepElev;
#X obj 404 382 s postsweepElev;
#X obj 53 384 s presweepAzim;
#X obj 163 382 s postsweepAzim;
#X obj 53 304 r thisPrA;
#X obj 163 302 r thisPoA;
#X obj 283 283 r thisPrE;
#X obj 404 285 r thisPoE;
#X obj 115 283 loadbang;
#X obj 346 283 loadbang;
#X msg 470 305 0;
#X msg 346 303 0;
#X msg 294 303 10;
#X floatatom 102 342 0 0 0 0 - - -;
#X obj 53 342 r myMet;
#X obj 53 363 f;
#X obj 226 284 loadbang;
#X floatatom 212 340 0 0 0 0 - - -;
#X obj 163 340 r myMet;
#X obj 163 361 f;
#X floatatom 332 342 0 0 0 0 - - -;
#X obj 283 342 r myMet;
#X obj 283 363 f;
#X obj 470 285 loadbang;
#X floatatom 453 342 0 0 0 0 - - -;
#X obj 404 342 r myMet;
#X obj 404 363 f;
#X obj -240 104 loadbang;
#X obj -237 148 hsl 100 15 0 10 0 0 empty empty Cavity_Gain 2 8 0 10
-262130 -1 -1 495 1;
#X floatatom -189 174 0 0 0 0 - - -;
#X obj -241 212 s cavGain;
#X msg -193 128 0;
#N canvas 207 125 842 550 Sources 0;
#N canvas 218 182 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 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 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 floatatom 40 306 0 0 0 0 - - -;
#X obj 224 238 r Length;
#X obj 93 126 r Length;
#X connect 0 0 1 1;
#X connect 0 1 1 0;
#X connect 1 0 5 0;
#X connect 2 0 3 1;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 10 0;
#X connect 5 0 17 0;
#X connect 5 0 19 0;
#X connect 6 0 5 1;
#X connect 7 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 9 1;
#X connect 10 1 9 0;
#X connect 12 0 15 0;
#X connect 12 0 18 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 13 0;
#X connect 16 0 9 0;
#X connect 20 0 16 0;
#X connect 21 0 3 0;
#X restore 241 -100 pd sourceQuantity;
#N canvas 230 416 532 341 strike 0;
#X obj 107 151 line~;
#X obj 107 38 r strike;
#X obj 107 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 182 179 *~;
#X obj 182 276 throw~ l;
#X obj 233 253 throw~ r;
#X obj 182 232 fcpan;
#X msg 246 204 0.5;
#X obj 301 183 *~;
#X obj 301 280 throw~ l;
#X obj 352 257 throw~ r;
#X obj 301 236 fcpan;
#X msg 365 208 0.5;
#X obj 182 147 *~;
#X obj 301 154 *~;
#X obj 107 64 spigot;
#X msg 229 45 0;
#X msg 311 48 1;
#X obj 311 28 r PGA;
#X obj 180 26 r MLB;
#X obj 224 24 r SWD1;
#X obj 266 24 r SWD2;
#X obj 316 131 osc~ 50;
#X obj 301 109 osc~ 45;
#X msg 50 130 0 10;
#X obj 51 109 delay 10;
#X msg 107 124 0.01 10;
#X obj 197 121 osc~ 500;
#X obj 182 101 osc~ 4000;
#X obj 417 160 loadbang;
#X obj 301 208 *~ 1e-06;
#X obj 182 204 *~ 1e-06;
#X connect 0 0 3 1;
#X connect 0 0 8 1;
#X connect 1 0 15 0;
#X connect 2 0 26 0;
#X connect 2 0 25 0;
#X connect 3 0 31 0;
#X connect 6 0 4 0;
#X connect 6 1 5 0;
#X connect 7 0 6 1;
#X connect 8 0 30 0;
#X connect 11 0 9 0;
#X connect 11 1 10 0;
#X connect 12 0 11 1;
#X connect 13 0 3 0;
#X connect 14 0 8 0;
#X connect 15 0 2 0;
#X connect 16 0 15 1;
#X connect 17 0 15 1;
#X connect 18 0 17 0;
#X connect 19 0 16 0;
#X connect 20 0 16 0;
#X connect 21 0 16 0;
#X connect 22 0 14 1;
#X connect 23 0 14 0;
#X connect 24 0 0 0;
#X connect 25 0 24 0;
#X connect 26 0 0 0;
#X connect 27 0 13 1;
#X connect 28 0 13 0;
#X connect 29 0 12 0;
#X connect 29 0 7 0;
#X connect 30 0 11 0;
#X connect 31 0 6 0;
#X restore 241 -79 pd strike;
#N canvas 572 70 447 640 Haversine 0;
#X obj 62 46 r presweepAzim;
#X obj 47 8 r postsweepAzim;
#X obj 217 44 r presweepElev;
#X obj 202 2 r postsweepElev;
#X obj 47 95 -;
#X obj 47 117 / 2;
#X obj 9 117 > 0.5;
#X obj 47 159 sin;
#X obj 47 184 *;
#X obj 202 88 -;
#X obj 202 110 / 2;
#X obj 202 158 sin;
#X obj 202 183 *;
#X obj 146 156 cos;
#X obj 171 157 cos;
#X obj 156 180 *;
#X obj 187 205 *;
#X obj 172 227 +;
#X obj 172 249 sqrt;
#X obj 172 272 asin;
#X obj 187 314 r Length;
#X obj 172 335 *;
#X obj 101 305 r Length;
#X obj 172 294 * 2;
#X obj 150 526 s arcLength;
#X text 38 562 The Haversine formula for calculating the length of
the great circle from two points on sphere.;
#X obj 156 442 +~;
#X obj 101 413 spigot~;
#X obj 171 415 spigot~;
#X msg 172 356 \$1 2;
#X obj 172 377 line~;
#X msg 101 325 \$1 2;
#X obj 101 346 line~;
#X obj 101 366 *~ 6.28319;
#X obj 101 389 -~;
#X obj 171 482 snapshot~;
#X floatatom 171 502 0 0 0 0 - - -;
#X obj 171 462 r myMet;
#X obj 47 27 / 360;
#X obj 62 67 / 360;
#X obj 202 23 / 360;
#X obj 217 66 / 360;
#X obj 47 139 * 6.28319;
#X obj 202 133 * 6.28319;
#X obj 131 105 * 6.28319;
#X obj 121 85 * 6.28319;
#X connect 0 0 39 0;
#X connect 1 0 38 0;
#X connect 2 0 41 0;
#X connect 3 0 40 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 42 0;
#X connect 6 0 28 1;
#X connect 6 0 27 1;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 8 0 17 0;
#X connect 9 0 10 0;
#X connect 10 0 43 0;
#X connect 11 0 12 0;
#X connect 11 0 12 1;
#X connect 12 0 16 1;
#X connect 13 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 16 0;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 20 0 21 1;
#X connect 21 0 29 0;
#X connect 22 0 31 0;
#X connect 23 0 21 0;
#X connect 26 0 35 0;
#X connect 27 1 26 0;
#X connect 28 0 26 1;
#X connect 29 0 30 0;
#X connect 30 0 34 1;
#X connect 30 0 28 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 27 0;
#X connect 35 0 36 0;
#X connect 35 0 24 0;
#X connect 37 0 35 0;
#X connect 38 0 4 0;
#X connect 38 0 45 0;
#X connect 39 0 4 1;
#X connect 39 0 44 0;
#X connect 40 0 9 0;
#X connect 41 0 9 1;
#X connect 42 0 7 0;
#X connect 43 0 11 0;
#X connect 44 0 14 0;
#X connect 45 0 13 0;
#X restore 241 -59 pd Haversine;
#N canvas 382 23 503 659 Timings 0;
#X obj 259 98 r presweepAzim;
#X obj 179 77 r postsweepAzim;
#X obj 217 130 -;
#X obj 217 152 / 2;
#X obj 217 173 +;
#X obj 244 203 -;
#X obj 179 203 -;
#X obj 210 232 +;
#X obj 179 262 /;
#X obj 244 263 /;
#X obj 259 282 r arcLength;
#X obj 179 308 *;
#X obj 244 307 *;
#X obj 259 327 r topSpeed;
#X obj 259 349 / 2;
#X obj 179 371 /;
#X obj 244 370 /;
#X obj 179 396 * 1000;
#X obj 244 395 * 1000;
#X obj 179 437 s PostSwingTime;
#X obj 244 416 s PreSwingTime;
#X floatatom 64 531 0 0 0 0 - - -;
#X obj 200 488 +;
#X obj 185 511 f;
#X obj 185 468 r GO;
#X obj 185 537 t f b;
#X obj 185 585 delay;
#X obj 212 565 + 5;
#X obj 185 608 s myEnd;
#X obj 263 607 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X connect 0 0 2 1;
#X connect 0 0 5 1;
#X connect 0 0 4 1;
#X connect 1 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 7 1;
#X connect 5 0 9 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 7 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 10 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 14 0 16 1;
#X connect 14 0 15 1;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 19 0;
#X connect 17 0 22 0;
#X connect 18 0 20 0;
#X connect 18 0 22 1;
#X connect 22 0 23 1;
#X connect 23 0 25 0;
#X connect 24 0 23 0;
#X connect 25 0 27 0;
#X connect 25 1 26 0;
#X connect 26 0 28 0;
#X connect 26 0 29 0;
#X connect 27 0 26 1;
#X connect 27 0 21 0;
#X restore 240 -38 pd Timings;
#N canvas 607 23 417 425 tipSpeedCalc 0;
#X obj 225 142 r PostSwingTime;
#X obj 107 98 r PreSwingTime;
#X obj 188 119 r GO;
#X obj 188 142 delay;
#X obj 188 166 f;
#X obj 139 165 r myEnd;
#X msg 188 189 0 \$1;
#X msg 139 189 0;
#X obj 92 78 r GO;
#X obj 92 118 f;
#X obj 113 141 r topSpeed;
#X obj 92 162 pack;
#X msg 92 184 \$2 \$1;
#X text 30 15 Calculates the current speed of the tip by a linear ramp
up from stationary to the top speed within the pre swing time then
ramps down to rest in the post swing time.;
#X obj 143 339 s~ currentTipSpeed;
#X obj 274 227 r myMet;
#X obj 274 247 snapshot~;
#X floatatom 274 266 0 0 0 0 - - -;
#X obj 139 236 line~;
#X floatatom 37 194 0 0 0 0 - - -;
#X floatatom 49 217 0 0 0 0 - - -;
#X floatatom 262 189 0 0 0 0 - - -;
#X obj 196 231 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 81 319 line~;
#X msg 46 284 15;
#X msg 14 308 20;
#X msg 77 284 35 4000;
#X connect 0 0 4 1;
#X connect 1 0 3 1;
#X connect 1 0 9 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 4 0 21 0;
#X connect 5 0 7 0;
#X connect 5 0 22 0;
#X connect 6 0 18 0;
#X connect 7 0 18 0;
#X connect 8 0 9 0;
#X connect 9 0 11 0;
#X connect 9 0 19 0;
#X connect 10 0 11 1;
#X connect 10 0 20 0;
#X connect 11 0 12 0;
#X connect 12 0 18 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 18 0 16 0;
#X connect 18 0 14 0;
#X connect 24 0 23 0;
#X connect 25 0 23 0;
#X connect 26 0 23 0;
#X restore 351 -99 pd tipSpeedCalc;
#N canvas 602 96 732 634 CentreAngles 0;
#X obj 100 183 r presweepAzim;
#X obj 85 164 r postsweepAzim;
#X obj 584 194 r presweepElev;
#X obj 569 174 r postsweepElev;
#X obj 237 304 r PostSwingTime;
#X obj 326 325 r PreSwingTime;
#X obj 85 205 -;
#X obj 85 226 / 2;
#X obj 85 249 +;
#X obj 569 217 -;
#X obj 569 238 / 2;
#X obj 569 261 +;
#X obj 139 283 -;
#X obj 533 60 r topSpeed;
#X obj 518 80 /;
#X obj 274 8 r GO;
#X obj 225 52 r myEnd;
#X msg 225 73 0;
#X obj 274 51 f;
#X msg 274 72 \$1 \$1;
#X obj 418 43 f;
#X msg 418 64 0 \$1;
#X obj 245 326 r GO;
#X obj 299 349 delay;
#X msg 245 398 0;
#X msg 299 398 1;
#X obj 210 376 delay;
#X msg 328 72 \$1;
#X obj 289 133 r PreSwingTime;
#X obj 289 28 r PreSwingTime;
#X obj 400 18 r PostSwingTime;
#X obj 430 178 r PostSwingTime;
#X obj 633 304 -;
#X floatatom 357 52 0 0 0 0 - - -;
#X floatatom 535 110 0 0 0 0 - - -;
#X obj 206 447 spigot~;
#X obj 260 447 spigot~;
#X obj 250 491 +~;
#X obj 291 500 r myMet;
#X obj 291 520 snapshot~;
#X floatatom 291 540 0 0 0 0 - - -;
#X obj 426 449 spigot~;
#X obj 477 449 spigot~;
#X obj 482 484 +~;
#X obj 523 493 r myMet;
#X obj 523 513 snapshot~;
#X floatatom 523 533 0 0 0 0 - - -;
#X floatatom 626 226 0 0 0 0 - - -;
#X floatatom 451 43 0 0 0 0 - - -;
#X obj 518 39 snapshot~;
#X obj 579 38 r myMet;
#X obj 518 19 r~ currentTipSpeed;
#X obj 240 564 s currentAzim;
#X obj 466 560 s currentElev;
#X obj 161 572 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 161 591 s GO;
#X floatatom 25 183 0 0 0 0 - - -;
#X floatatom 26 210 0 0 0 0 - - -;
#X floatatom 71 297 0 0 0 0 - - -;
#X obj 274 95 line~;
#X obj 415 87 line~;
#X obj 415 108 *~ 1;
#X obj 274 115 *~ 1;
#X obj 274 155 /~ 1;
#X obj 415 133 *~ -1;
#X obj 415 155 +~ 1;
#X obj 415 198 /~ 1;
#X obj 118 307 *~ 1;
#X obj 118 331 +~ 1;
#X obj 33 292 *~ 1;
#X obj 33 316 +~ 1;
#X obj 507 302 *~ 1;
#X obj 507 323 +~ 1;
#X obj 612 327 *~ 1;
#X obj 612 348 +~ 1;
#X connect 0 0 6 1;
#X connect 0 0 8 1;
#X connect 0 0 57 0;
#X connect 0 0 70 1;
#X connect 1 0 6 0;
#X connect 1 0 12 0;
#X connect 1 0 56 0;
#X connect 2 0 9 1;
#X connect 2 0 11 1;
#X connect 2 0 47 0;
#X connect 2 0 72 1;
#X connect 3 0 9 0;
#X connect 3 0 32 0;
#X connect 4 0 26 1;
#X connect 5 0 23 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 69 1;
#X connect 8 0 12 1;
#X connect 8 0 58 0;
#X connect 8 0 68 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 0 71 1;
#X connect 11 0 32 1;
#X connect 11 0 74 1;
#X connect 12 0 67 1;
#X connect 13 0 14 1;
#X connect 14 0 34 0;
#X connect 14 0 61 1;
#X connect 14 0 62 1;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 59 0;
#X connect 18 0 19 0;
#X connect 18 0 27 0;
#X connect 19 0 59 0;
#X connect 20 0 21 0;
#X connect 21 0 60 0;
#X connect 22 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 26 0;
#X connect 23 0 25 0;
#X connect 23 0 20 0;
#X connect 24 0 35 1;
#X connect 24 0 36 1;
#X connect 24 0 41 1;
#X connect 24 0 42 1;
#X connect 25 0 36 1;
#X connect 25 0 35 1;
#X connect 25 0 42 1;
#X connect 25 0 41 1;
#X connect 26 0 24 0;
#X connect 27 0 60 0;
#X connect 28 0 63 1;
#X connect 29 0 18 1;
#X connect 29 0 33 0;
#X connect 30 0 20 1;
#X connect 30 0 48 0;
#X connect 30 0 65 1;
#X connect 31 0 66 1;
#X connect 32 0 73 1;
#X connect 35 0 37 0;
#X connect 36 1 37 1;
#X connect 37 0 39 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 0 52 0;
#X connect 41 0 43 0;
#X connect 42 1 43 1;
#X connect 43 0 45 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 45 0 53 0;
#X connect 49 0 14 0;
#X connect 50 0 49 0;
#X connect 51 0 49 0;
#X connect 54 0 55 0;
#X connect 59 0 62 0;
#X connect 60 0 61 0;
#X connect 61 0 64 0;
#X connect 62 0 63 0;
#X connect 63 0 69 0;
#X connect 63 0 71 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 66 0 73 0;
#X connect 67 0 68 0;
#X connect 68 0 36 0;
#X connect 69 0 70 0;
#X connect 70 0 35 0;
#X connect 71 0 72 0;
#X connect 72 0 41 0;
#X connect 73 0 74 0;
#X connect 74 0 42 0;
#X restore 351 -79 pd CentreAngles;
#N canvas 104 109 921 340 Positions 0;
#X obj 773 33 r postsweepElev;
#X obj 665 32 r postsweepAzim;
#X obj 665 54 swap 180;
#X obj 665 78 -;
#X obj 665 100 * 0.0174533;
#X obj 665 125 cos;
#X obj 725 125 sin;
#X obj 678 149 sin;
#X obj 738 149 sin;
#X obj 784 150 cos;
#X obj 773 101 * 0.0174533;
#X obj 773 55 swap 90;
#X obj 664 174 *;
#X obj 723 172 *;
#X obj 664 208 *;
#X obj 723 206 *;
#X obj 784 202 *;
#X obj 784 172 * -1;
#X obj 609 176 r Length;
#X floatatom 635 254 0 0 0 0 - - -;
#X floatatom 698 253 0 0 0 0 - - -;
#X floatatom 762 252 0 0 0 0 - - -;
#X obj 773 79 +;
#X obj 664 230 s tipXend;
#X obj 723 228 s tipYend;
#X obj 784 224 s tipZend;
#N canvas 440 62 379 376 PlanePerp 0;
#X obj 82 31 r currentAzim;
#X obj 202 76 r currentElev;
#X obj 82 53 swap 90;
#X obj 82 75 -;
#X obj 202 97 + 90;
#X obj 82 97 * 0.0174533;
#X obj 202 118 * 0.0174533;
#X obj 27 174 r Length;
#X obj 82 123 cos;
#X obj 141 123 sin;
#X obj 97 147 sin;
#X obj 156 147 sin;
#X obj 202 148 cos;
#X obj 202 170 * -1;
#X obj 141 170 *;
#X obj 82 172 *;
#X obj 82 206 *;
#X obj 141 204 *;
#X obj 202 200 *;
#X floatatom 223 254 0 0 0 0 - - -;
#X floatatom 173 273 0 0 0 0 - - -;
#X floatatom 92 299 0 0 0 0 - - -;
#X obj 202 224 s tipZPerp;
#X obj 142 244 s tipYPerp;
#X obj 82 266 s tipXPerp;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 9 0;
#X connect 5 0 8 0;
#X connect 6 0 12 0;
#X connect 6 0 11 0;
#X connect 6 0 10 0;
#X connect 7 0 16 1;
#X connect 7 0 17 1;
#X connect 7 0 18 1;
#X connect 8 0 15 0;
#X connect 9 0 14 0;
#X connect 10 0 15 1;
#X connect 11 0 14 1;
#X connect 12 0 13 0;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 24 0;
#X connect 16 0 21 0;
#X connect 17 0 23 0;
#X connect 17 0 20 0;
#X connect 18 0 22 0;
#X connect 18 0 19 0;
#X restore 299 39 pd PlanePerp;
#N canvas 422 53 345 337 PlanePerp2 0;
#X obj 73 16 r currentAzim;
#X obj 193 91 r currentElev;
#X obj 73 39 swap 180;
#X obj 73 60 -;
#X obj 73 82 * 0.0174533;
#X obj 193 112 * 0.0174533;
#X obj 18 164 r Length;
#X obj 73 113 cos;
#X obj 132 113 sin;
#X obj 87 137 sin;
#X obj 147 137 sin;
#X obj 193 138 cos;
#X obj 193 207 *;
#X obj 132 183 *;
#X obj 73 185 *;
#X obj 73 207 * -1;
#X obj 132 205 * -1;
#X obj 132 160 *;
#X obj 73 162 *;
#X floatatom 228 253 0 0 0 0 - - -;
#X floatatom 156 273 0 0 0 0 - - -;
#X floatatom 89 297 0 0 0 0 - - -;
#X obj 193 231 s tipZPerp2;
#X obj 132 252 s tipYPerp2;
#X obj 73 274 s tipXPerp2;
#X connect 0 0 2 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 9 0;
#X connect 5 0 10 0;
#X connect 5 0 11 0;
#X connect 6 0 12 1;
#X connect 6 0 13 1;
#X connect 6 0 14 1;
#X connect 7 0 18 0;
#X connect 8 0 17 0;
#X connect 9 0 18 1;
#X connect 10 0 17 1;
#X connect 11 0 12 0;
#X connect 12 0 22 0;
#X connect 12 0 19 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 15 0 24 0;
#X connect 15 0 21 0;
#X connect 16 0 23 0;
#X connect 16 0 20 0;
#X connect 17 0 13 0;
#X connect 18 0 14 0;
#X restore 300 58 pd PlanePerp2;
#X text 655 291 End position of the tip;
#X obj 404 48 swap 180;
#X obj 404 72 -;
#X obj 404 94 * 0.0174533;
#X obj 404 119 cos;
#X obj 470 119 sin;
#X obj 417 143 sin;
#X obj 483 143 sin;
#X obj 534 144 cos;
#X obj 523 95 * 0.0174533;
#X obj 523 49 swap 90;
#X obj 403 168 *;
#X obj 468 166 *;
#X obj 403 202 *;
#X obj 468 200 *;
#X obj 534 196 *;
#X obj 534 166 * -1;
#X obj 348 170 r Length;
#X floatatom 374 248 0 0 0 0 - - -;
#X floatatom 455 265 0 0 0 0 - - -;
#X floatatom 512 246 0 0 0 0 - - -;
#X obj 523 73 +;
#X obj 404 26 r presweepAzim;
#X obj 523 27 r presweepElev;
#X obj 403 223 s tipXsrt;
#X obj 468 222 s tipYsrt;
#X obj 534 218 s tipZsrt;
#X text 405 285 Start position of the tip;
#X obj 46 36 r currentAzim;
#X obj 168 59 r currentElev;
#X obj 46 58 swap 180;
#X obj 46 78 -;
#X obj 46 124 cos;
#X obj 46 101 * 0.0174533;
#X obj 168 103 * 0.0174533;
#X obj 168 81 + 90;
#X obj 118 127 sin;
#X obj 61 147 sin;
#X obj 133 151 sin;
#X obj 168 148 cos;
#X obj 46 173 *;
#X obj 118 172 *;
#X obj 168 172 * -1;
#X obj 203 176 r Length;
#X obj 46 198 *;
#X obj 118 199 *;
#X obj 168 199 *;
#X obj 170 227 s tipZ;
#X obj 109 231 s tipY;
#X obj 50 233 s tipX;
#X floatatom 223 254 0 0 0 0 - - -;
#X floatatom 124 255 0 0 0 0 - - -;
#X floatatom 31 256 0 0 0 0 - - -;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 12 0;
#X connect 6 0 13 0;
#X connect 7 0 12 1;
#X connect 8 0 13 1;
#X connect 9 0 17 0;
#X connect 10 0 9 0;
#X connect 10 0 8 0;
#X connect 10 0 7 0;
#X connect 11 0 22 0;
#X connect 11 1 22 1;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 19 0;
#X connect 14 0 23 0;
#X connect 15 0 20 0;
#X connect 15 0 24 0;
#X connect 16 0 21 0;
#X connect 16 0 25 0;
#X connect 17 0 16 0;
#X connect 18 0 14 1;
#X connect 18 0 15 1;
#X connect 18 0 16 1;
#X connect 22 0 10 0;
#X connect 29 0 30 0;
#X connect 29 1 30 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 39 0;
#X connect 33 0 40 0;
#X connect 34 0 39 1;
#X connect 35 0 40 1;
#X connect 36 0 44 0;
#X connect 37 0 36 0;
#X connect 37 0 35 0;
#X connect 37 0 34 0;
#X connect 38 0 49 0;
#X connect 38 1 49 1;
#X connect 39 0 41 0;
#X connect 40 0 42 0;
#X connect 41 0 46 0;
#X connect 41 0 52 0;
#X connect 42 0 47 0;
#X connect 42 0 53 0;
#X connect 43 0 48 0;
#X connect 43 0 54 0;
#X connect 44 0 43 0;
#X connect 45 0 41 1;
#X connect 45 0 42 1;
#X connect 45 0 43 1;
#X connect 49 0 37 0;
#X connect 50 0 29 0;
#X connect 51 0 38 0;
#X connect 56 0 58 0;
#X connect 57 0 63 0;
#X connect 58 0 59 0;
#X connect 58 1 59 1;
#X connect 59 0 61 0;
#X connect 60 0 68 0;
#X connect 61 0 60 0;
#X connect 61 0 64 0;
#X connect 62 0 67 0;
#X connect 62 0 66 0;
#X connect 62 0 65 0;
#X connect 63 0 62 0;
#X connect 64 0 69 0;
#X connect 65 0 68 1;
#X connect 66 0 69 1;
#X connect 67 0 70 0;
#X connect 68 0 72 0;
#X connect 69 0 73 0;
#X connect 70 0 74 0;
#X connect 71 0 72 1;
#X connect 71 0 73 1;
#X connect 71 0 74 1;
#X connect 72 0 77 0;
#X connect 72 0 80 0;
#X connect 73 0 76 0;
#X connect 73 0 79 0;
#X connect 74 0 75 0;
#X connect 74 0 78 0;
#X restore 351 -59 pd Positions;
#N canvas 369 136 529 519 contPlaneFind 0;
#N canvas 300 23 1002 846 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 floatatom 162 52 0 0 0 0 - - -;
#X floatatom 207 76 0 0 0 0 - - -;
#X floatatom 236 112 0 0 0 0 - - -;
#X floatatom -107 291 0 0 0 0 - - -;
#X floatatom -136 223 0 0 0 0 - - -;
#X floatatom -117 246 0 0 0 0 - - -;
#X floatatom -102 266 0 0 0 0 - - -;
#X floatatom 58 299 0 0 0 0 - - -;
#X floatatom 193 304 0 0 0 0 - - -;
#X connect 0 0 34 1;
#X connect 0 0 25 1;
#X connect 0 0 19 1;
#X connect 0 0 38 0;
#X connect 1 0 32 1;
#X connect 1 0 23 1;
#X connect 1 0 17 1;
#X connect 1 0 40 0;
#X connect 2 0 33 1;
#X connect 2 0 24 1;
#X connect 2 0 18 1;
#X connect 2 0 39 0;
#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 21 0 46 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 27 0 45 0;
#X connect 30 0 29 0;
#X connect 30 0 41 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 35 0 42 0;
#X connect 36 0 33 0;
#X connect 36 0 43 0;
#X connect 37 0 32 0;
#X connect 37 0 44 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 -7032 80 pd baseFind;
#X obj -6995 22 r tipXPerp2;
#X obj -6982 42 r tipYPerp2;
#X obj -6969 61 r tipZPerp2;
#X obj -7032 -39 r tipXPerp;
#X obj -7020 -17 r tipYPerp;
#X obj -7007 2 r tipZPerp;
#N canvas 275 23 1002 846 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 20 118 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 floatatom 162 52 0 0 0 0 - - -;
#X floatatom 207 76 0 0 0 0 - - -;
#X floatatom 236 112 0 0 0 0 - - -;
#X floatatom -107 291 0 0 0 0 - - -;
#X floatatom -136 223 0 0 0 0 - - -;
#X floatatom -117 246 0 0 0 0 - - -;
#X floatatom -102 266 0 0 0 0 - - -;
#X floatatom 58 299 0 0 0 0 - - -;
#X floatatom 193 304 0 0 0 0 - - -;
#X connect 0 0 34 1;
#X connect 0 0 25 1;
#X connect 0 0 19 1;
#X connect 0 0 38 0;
#X connect 1 0 32 1;
#X connect 1 0 23 1;
#X connect 1 0 17 1;
#X connect 1 0 40 0;
#X connect 2 0 33 1;
#X connect 2 0 24 1;
#X connect 2 0 18 1;
#X connect 2 0 39 0;
#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 21 0 46 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 27 0 45 0;
#X connect 30 0 29 0;
#X connect 30 0 41 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 35 0 42 0;
#X connect 36 0 33 0;
#X connect 36 0 43 0;
#X connect 37 0 32 0;
#X connect 37 0 44 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 83 242 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;
#N canvas 435 69 1092 605 ProjectionPoint 0;
#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 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 floatatom 182 52 0 0 0 0 - - -;
#X floatatom 228 78 0 0 0 0 - - -;
#X floatatom 257 114 0 0 0 0 - - -;
#X floatatom -107 291 0 0 0 0 - - -;
#X floatatom -136 223 0 0 0 0 - - -;
#X floatatom -117 246 0 0 0 0 - - -;
#X floatatom -102 266 0 0 0 0 - - -;
#X floatatom 58 299 0 0 0 0 - - -;
#X floatatom 193 304 0 0 0 0 - - -;
#X text 1 269 x'';
#X text 144 274 y'';
#X text 288 277 z'';
#X text -50 346 x'' \, y'' & z'' relates to the point in the plane
of the sword based on the perpendicular to the sword.;
#X obj 108 56 r obVertX;
#X obj 147 76 r obVertY;
#X obj 183 99 r obVertZ;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 4 0 18 0;
#X connect 5 0 17 0;
#X connect 6 0 16 0;
#X connect 7 0 12 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 14 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 14 0 39 0;
#X connect 16 0 20 1;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 0 38 0;
#X connect 23 0 22 0;
#X connect 23 0 34 0;
#X connect 24 0 23 0;
#X connect 25 0 23 1;
#X connect 26 0 24 1;
#X connect 27 0 24 0;
#X connect 28 0 27 0;
#X connect 28 0 35 0;
#X connect 29 0 26 0;
#X connect 29 0 36 0;
#X connect 30 0 25 0;
#X connect 30 0 37 0;
#X connect 44 0 27 1;
#X connect 44 0 18 1;
#X connect 44 0 12 1;
#X connect 44 0 31 0;
#X connect 45 0 26 1;
#X connect 45 0 17 1;
#X connect 45 0 11 1;
#X connect 45 0 32 0;
#X connect 46 0 25 1;
#X connect 46 0 16 1;
#X connect 46 0 10 1;
#X connect 46 0 33 0;
#X restore -8137 791 pd ProjectionPoint;
#X obj -8137 813 outlet;
#X obj -8085 813 outlet;
#X obj -8032 814 outlet;
#X floatatom -8804 746 0 0 0 0 - - -;
#X floatatom -8749 747 0 0 0 0 - - -;
#X floatatom -8691 748 0 0 0 0 - - -;
#X floatatom -8613 751 0 0 0 0 - - -;
#X floatatom -8558 751 0 0 0 0 - - -;
#X floatatom -8478 749 0 0 0 0 - - -;
#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 44 0 99 0;
#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 55 0 100 0;
#X connect 56 0 57 1;
#X connect 57 0 80 8;
#X connect 57 0 101 0;
#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 73 0 102 0;
#X connect 74 0 76 0;
#X connect 75 0 76 1;
#X connect 76 0 80 10;
#X connect 76 0 103 0;
#X connect 77 0 79 0;
#X connect 78 0 79 1;
#X connect 79 0 80 11;
#X connect 79 0 104 0;
#X connect 80 0 29 0;
#X connect 80 0 95 0;
#X connect 80 1 29 1;
#X connect 80 1 95 1;
#X connect 80 2 29 2;
#X connect 80 2 95 2;
#X connect 80 3 29 3;
#X connect 80 3 95 3;
#X connect 80 4 29 4;
#X connect 80 4 95 4;
#X connect 80 5 29 5;
#X connect 80 5 95 5;
#X connect 80 6 29 6;
#X connect 80 6 95 6;
#X connect 80 7 29 7;
#X connect 80 7 95 7;
#X connect 80 8 29 8;
#X connect 80 8 95 8;
#X connect 81 0 69 0;
#X connect 81 1 69 1;
#X connect 95 0 96 0;
#X connect 95 1 97 0;
#X connect 95 2 98 0;
#X restore -7336 51 pd baseFind;
#X obj -7299 -9 r tipXend;
#X obj -7286 11 r tipYend;
#X obj -7273 30 r tipZend;
#X text -7343 308 ConPerp is the projection of perpendicular onto the
plane of the sword swing;
#X text -7344 343 obPro is the projection of the point on the observer
onto the plane of the sword swing;
#X text -7343 393 obVert is the projection of the point of the observer
projected onto the perpendicular of the sword.;
#X obj -6888 172 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -6887 199 s GO;
#X obj -7336 -68 r tipXsrt;
#X obj -7324 -48 r tipYsrt;
#X obj -7311 -29 r tipZsrt;
#X obj -7309 173 s obProZ;
#X obj -7323 192 s obProY;
#X obj -7336 212 s obProX;
#X floatatom -7255 174 0 0 0 0 - - -;
#X floatatom -7268 196 0 0 0 0 - - -;
#X floatatom -7280 219 0 0 0 0 - - -;
#X floatatom -7078 160 0 0 0 0 - - -;
#X floatatom -6944 118 0 0 0 0 - - -;
#X floatatom -6975 158 0 0 0 0 - - -;
#X obj -7032 123 +;
#X obj -7001 158 +;
#X obj -6969 117 +;
#X obj -6954 97 r tipZ;
#X obj -6986 137 r tipY;
#X obj -7017 102 r tipX;
#X obj -6969 179 s obVertZ;
#X obj -7001 199 s obVertY;
#X obj -7032 221 s obVertX;
#X obj -7273 75 s obEleZ;
#X obj -7283 95 s obEleY;
#X obj -7297 113 s obEleX;
#X floatatom -7207 74 0 0 0 0 - - -;
#X floatatom -7220 96 0 0 0 0 - - -;
#X floatatom -7232 119 0 0 0 0 - - -;
#X connect 0 0 28 0;
#X connect 0 1 29 0;
#X connect 0 2 30 0;
#X connect 1 0 0 3;
#X connect 2 0 0 4;
#X connect 3 0 0 5;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X connect 6 0 0 2;
#X connect 7 0 21 0;
#X connect 7 0 24 0;
#X connect 7 1 20 0;
#X connect 7 1 23 0;
#X connect 7 2 19 0;
#X connect 7 2 22 0;
#X connect 7 3 39 0;
#X connect 7 3 42 0;
#X connect 7 4 38 0;
#X connect 7 4 41 0;
#X connect 7 5 37 0;
#X connect 7 5 40 0;
#X connect 8 0 7 3;
#X connect 9 0 7 4;
#X connect 10 0 7 5;
#X connect 14 0 15 0;
#X connect 16 0 7 0;
#X connect 17 0 7 1;
#X connect 18 0 7 2;
#X connect 28 0 25 0;
#X connect 28 0 36 0;
#X connect 29 0 27 0;
#X connect 29 0 35 0;
#X connect 30 0 26 0;
#X connect 30 0 34 0;
#X connect 31 0 30 1;
#X connect 32 0 29 1;
#X connect 33 0 28 1;
#X restore 351 -39 pd contPlaneFind;
#N canvas 511 211 763 364 sourceTipSpeed 0;
#X obj 56 107 /;
#X floatatom 71 132 0 0 0 0 - - -;
#X obj 108 153 outlet;
#X obj 108 132 *;
#X obj 123 107 t f b;
#X floatatom 152 153 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 204 119 r tipThick;
#X obj 204 153 outlet;
#X floatatom 250 154 0 0 0 0 - - -;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 56 59 r Length;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 11 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 1 14 0;
#X connect 18 0 0 0;
#X restore 499 275 pd sourceTipSpeed;
#N canvas 577 91 763 364 sourceSpeed 0;
#X obj 56 107 /;
#X floatatom 70 133 0 0 0 0 - - -;
#X obj 123 154 outlet;
#X obj 123 133 *;
#X obj 123 107 t f b;
#X floatatom 167 154 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 458 255 outlet;
#X obj 473 -27 inlet;
#X obj 458 112 *;
#X obj 473 89 t f b;
#X obj 458 184 +;
#X obj 473 161 t f b;
#X obj 473 -5 * 7;
#X obj 458 41 -;
#X obj 473 17 t f b;
#X obj 473 62 r bladeGrad;
#X obj 473 135 r bladeConst;
#X obj 458 -47 inlet;
#X obj 406 155 outlet;
#X text 437 -66 Previous Source Position;
#X text 510 -27 Previous Source Diameter;
#X text 505 254 Current Source Diameter;
#X text 314 179 Current Source Position;
#X text 504 -6 Averaged correlation length;
#X floatatom 394 252 0 0 0 0 - - -;
#X floatatom 404 89 0 0 0 0 - - -;
#X floatatom 399 -19 0 0 0 0 - - -;
#X floatatom 521 165 0 0 0 0 - - -;
#X floatatom 509 91 0 0 0 0 - - -;
#X floatatom 533 25 0 0 0 0 - - -;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 35 8 spigot~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 8 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 39 0;
#X connect 8 0 9 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 10 0;
#X connect 14 0 28 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 33 0;
#X connect 17 0 12 0;
#X connect 17 0 22 0;
#X connect 17 0 29 0;
#X connect 17 0 37 0;
#X connect 18 0 17 1;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 0 32 0;
#X connect 20 0 15 0;
#X connect 20 0 31 0;
#X connect 21 0 17 0;
#X connect 21 0 30 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 36 0 39 1;
#X connect 37 0 0 0;
#X connect 37 1 35 0;
#X connect 39 0 8 0;
#X restore 284 220 pd sourceSpeed;
#N canvas 41 104 763 364 sourceSpeed 0;
#X obj 56 107 /;
#X floatatom 70 133 0 0 0 0 - - -;
#X obj 123 154 outlet;
#X obj 123 133 *;
#X obj 123 107 t f b;
#X floatatom 167 154 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 458 255 outlet;
#X obj 473 -27 inlet;
#X obj 458 112 *;
#X obj 473 89 t f b;
#X obj 458 184 +;
#X obj 473 161 t f b;
#X obj 473 -5 * 7;
#X obj 458 41 -;
#X obj 473 17 t f b;
#X obj 473 62 r bladeGrad;
#X obj 473 135 r bladeConst;
#X obj 458 -47 inlet;
#X obj 406 155 outlet;
#X text 437 -66 Previous Source Position;
#X text 510 -27 Previous Source Diameter;
#X text 505 254 Current Source Diameter;
#X text 314 179 Current Source Position;
#X text 504 -6 Averaged correlation length;
#X floatatom 394 252 0 0 0 0 - - -;
#X floatatom 404 89 0 0 0 0 - - -;
#X floatatom 399 -19 0 0 0 0 - - -;
#X floatatom 521 165 0 0 0 0 - - -;
#X floatatom 509 91 0 0 0 0 - - -;
#X floatatom 533 25 0 0 0 0 - - -;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 35 8 spigot~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 8 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 39 0;
#X connect 8 0 9 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 10 0;
#X connect 14 0 28 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 33 0;
#X connect 17 0 12 0;
#X connect 17 0 22 0;
#X connect 17 0 29 0;
#X connect 17 0 37 0;
#X connect 18 0 17 1;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 0 32 0;
#X connect 20 0 15 0;
#X connect 20 0 31 0;
#X connect 21 0 17 0;
#X connect 21 0 30 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 36 0 39 1;
#X connect 37 0 0 0;
#X connect 37 1 35 0;
#X connect 39 0 8 0;
#X restore 44 255 pd sourceSpeed;
#N canvas 41 104 763 364 sourceSpeed 0;
#X obj 56 107 /;
#X floatatom 70 133 0 0 0 0 - - -;
#X obj 123 154 outlet;
#X obj 123 133 *;
#X obj 123 107 t f b;
#X floatatom 167 154 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 458 255 outlet;
#X obj 473 -27 inlet;
#X obj 458 112 *;
#X obj 473 89 t f b;
#X obj 458 184 +;
#X obj 473 161 t f b;
#X obj 473 -5 * 7;
#X obj 458 41 -;
#X obj 473 17 t f b;
#X obj 473 62 r bladeGrad;
#X obj 473 135 r bladeConst;
#X obj 458 -47 inlet;
#X obj 406 155 outlet;
#X text 437 -66 Previous Source Position;
#X text 510 -27 Previous Source Diameter;
#X text 505 254 Current Source Diameter;
#X text 314 179 Current Source Position;
#X text 504 -6 Averaged correlation length;
#X floatatom 394 252 0 0 0 0 - - -;
#X floatatom 404 89 0 0 0 0 - - -;
#X floatatom 399 -19 0 0 0 0 - - -;
#X floatatom 521 165 0 0 0 0 - - -;
#X floatatom 509 91 0 0 0 0 - - -;
#X floatatom 533 25 0 0 0 0 - - -;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 35 8 spigot~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 8 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 39 0;
#X connect 8 0 9 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 10 0;
#X connect 14 0 28 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 33 0;
#X connect 17 0 12 0;
#X connect 17 0 22 0;
#X connect 17 0 29 0;
#X connect 17 0 37 0;
#X connect 18 0 17 1;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 0 32 0;
#X connect 20 0 15 0;
#X connect 20 0 31 0;
#X connect 21 0 17 0;
#X connect 21 0 30 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 36 0 39 1;
#X connect 37 0 0 0;
#X connect 37 1 35 0;
#X connect 39 0 8 0;
#X restore 54 135 pd sourceSpeed;
#N canvas 41 104 763 364 sourceSpeed 0;
#X obj 56 107 /;
#X floatatom 70 133 0 0 0 0 - - -;
#X obj 123 154 outlet;
#X obj 123 133 *;
#X obj 123 107 t f b;
#X floatatom 167 154 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 458 255 outlet;
#X obj 473 -27 inlet;
#X obj 458 112 *;
#X obj 473 89 t f b;
#X obj 458 184 +;
#X obj 473 161 t f b;
#X obj 473 -5 * 7;
#X obj 458 41 -;
#X obj 473 17 t f b;
#X obj 473 62 r bladeGrad;
#X obj 473 135 r bladeConst;
#X obj 458 -47 inlet;
#X obj 406 155 outlet;
#X text 437 -66 Previous Source Position;
#X text 510 -27 Previous Source Diameter;
#X text 505 254 Current Source Diameter;
#X text 314 179 Current Source Position;
#X text 504 -6 Averaged correlation length;
#X floatatom 394 252 0 0 0 0 - - -;
#X floatatom 404 89 0 0 0 0 - - -;
#X floatatom 399 -19 0 0 0 0 - - -;
#X floatatom 521 165 0 0 0 0 - - -;
#X floatatom 509 91 0 0 0 0 - - -;
#X floatatom 533 25 0 0 0 0 - - -;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 35 8 spigot~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 8 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 39 0;
#X connect 8 0 9 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 10 0;
#X connect 14 0 28 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 33 0;
#X connect 17 0 12 0;
#X connect 17 0 22 0;
#X connect 17 0 29 0;
#X connect 17 0 37 0;
#X connect 18 0 17 1;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 0 32 0;
#X connect 20 0 15 0;
#X connect 20 0 31 0;
#X connect 21 0 17 0;
#X connect 21 0 30 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 36 0 39 1;
#X connect 37 0 0 0;
#X connect 37 1 35 0;
#X connect 39 0 8 0;
#X restore 291 132 pd sourceSpeed;
#N canvas 579 98 763 364 sourceSpeed 0;
#X obj 56 107 /;
#X floatatom 70 133 0 0 0 0 - - -;
#X obj 123 154 outlet;
#X obj 123 133 *;
#X obj 123 107 t f b;
#X floatatom 167 154 0 0 0 0 - - -;
#X obj 71 79 r Length;
#X obj 35 -26 r~ currentTipSpeed;
#X obj 35 132 *~ 1;
#X obj 35 155 outlet~;
#X obj 458 255 outlet;
#X obj 473 -27 inlet;
#X obj 458 112 *;
#X obj 473 89 t f b;
#X obj 458 184 +;
#X obj 473 161 t f b;
#X obj 473 -5 * 7;
#X obj 458 41 -;
#X obj 473 17 t f b;
#X obj 473 62 r bladeGrad;
#X obj 473 135 r bladeConst;
#X obj 458 -47 inlet;
#X obj 406 155 outlet;
#X text 437 -66 Previous Source Position;
#X text 510 -27 Previous Source Diameter;
#X text 505 254 Current Source Diameter;
#X text 314 179 Current Source Position;
#X text 504 -6 Averaged correlation length;
#X floatatom 394 252 0 0 0 0 - - -;
#X floatatom 404 89 0 0 0 0 - - -;
#X floatatom 399 -19 0 0 0 0 - - -;
#X floatatom 521 165 0 0 0 0 - - -;
#X floatatom 509 91 0 0 0 0 - - -;
#X floatatom 533 25 0 0 0 0 - - -;
#X obj 224 -20 r start_armLength;
#X obj 209 2 -;
#X obj 209 26 <= 0;
#X obj 182 -33 t f f;
#X floatatom 214 92 5 0 0 0 - - -;
#X obj 35 8 spigot~;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 8 1;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 3 1;
#X connect 4 1 3 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 39 0;
#X connect 8 0 9 0;
#X connect 11 0 16 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 13 1 12 0;
#X connect 14 0 10 0;
#X connect 14 0 28 0;
#X connect 15 0 14 1;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 33 0;
#X connect 17 0 12 0;
#X connect 17 0 22 0;
#X connect 17 0 29 0;
#X connect 17 0 37 0;
#X connect 18 0 17 1;
#X connect 18 1 17 0;
#X connect 19 0 13 0;
#X connect 19 0 32 0;
#X connect 20 0 15 0;
#X connect 20 0 31 0;
#X connect 21 0 17 0;
#X connect 21 0 30 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 36 0 39 1;
#X connect 37 0 0 0;
#X connect 37 1 35 0;
#X connect 39 0 8 0;
#X restore 485 135 pd sourceSpeed;
#N canvas 205 107 616 521 halfSourceSpeed 0;
#X obj 36 286 *~ 1;
#X obj 36 308 outlet~;
#X text 21 331 Source Speed;
#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 floatatom 258 315 0 0 0 0 - - -;
#X floatatom 273 352 0 0 0 0 - - -;
#X obj 23 188 r~ currentTipSpeed;
#X obj 72 209 r Length;
#X connect 0 0 1 0;
#X connect 3 0 0 1;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 6 1 5 0;
#X connect 7 0 4 0;
#X connect 7 0 25 0;
#X connect 8 0 7 1;
#X connect 8 1 7 0;
#X connect 9 0 6 0;
#X connect 10 0 8 0;
#X connect 12 0 21 1;
#X connect 16 0 17 1;
#X connect 16 0 21 0;
#X connect 17 0 18 0;
#X connect 18 0 20 1;
#X connect 18 0 23 0;
#X connect 19 0 3 0;
#X connect 19 1 17 0;
#X connect 20 0 0 0;
#X connect 21 0 22 0;
#X connect 22 0 19 0;
#X connect 22 0 5 0;
#X connect 22 0 24 0;
#X connect 22 0 11 0;
#X connect 26 0 20 0;
#X connect 27 0 3 1;
#X restore 586 14 pd halfSourceSpeed;
#N canvas 874 232 410 255 sourceHiltSpeed 0;
#X obj 84 136 *~ 1;
#X obj 84 158 outlet~;
#X text 70 184 Source Speed;
#X obj 105 62 r start_armLength;
#X obj 105 111 /;
#X obj 291 74 r hiltThick;
#X obj 291 148 outlet;
#X obj 84 38 r~ currentTipSpeed;
#X obj 152 152 outlet;
#X obj 120 83 r Length;
#X connect 0 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 0 1;
#X connect 4 0 8 0;
#X connect 5 0 6 0;
#X connect 7 0 0 0;
#X connect 9 0 4 1;
#X restore 379 6 pd sourceHiltSpeed;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 368 268 pd sourcePosition;
#N canvas 466 173 844 583 sourceTipPosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 734 259 506 567 ElevationAeol 0;
#X text 81 499 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 293 416 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 226 440 line~;
#X obj 226 473 outlet~;
#X msg 226 415 \$1 2;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 49 0;
#X connect 47 0 48 0;
#X connect 49 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 14 152 358 524 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X obj 134 431 line~;
#X obj 134 452 outlet~;
#X floatatom 210 317 0 0 0 0 - - -;
#X msg 134 410 \$1 2;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 30 0 36 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 37 0;
#X connect 34 0 35 0;
#X connect 37 0 34 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -195 372 outlet~;
#X obj -63 370 outlet~;
#X obj -168 429 sig~ 90;
#X obj -97 428 sig~ 0;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 49 0;
#X connect 25 0 50 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X restore 620 263 pd sourceTipPosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 143 286 pd sourcePosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 127 163 pd sourcePosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 366 159 pd sourcePosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 581 157 pd sourcePosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 650 43 pd sourcePosition;
#N canvas 566 181 844 583 sourcePosition 0;
#X text -323 20 Distance between observer and source;
#X obj -132 105 r Zobs;
#X obj -200 103 r Yobs;
#X obj -266 103 r Xobs;
#X obj 339 271 r myMet;
#X obj 338 296 snapshot~;
#X floatatom 407 317 0 0 0 0 - - -;
#X obj 246 145 abs~;
#X obj 231 211 spigot~;
#X obj 283 168 >~ 0;
#X obj 231 10 sig~ 1;
#X obj 231 190 -~;
#X obj 366 235 spigot~;
#X obj 405 191 <~ 0;
#X obj 338 322 outlet;
#X text 330 349 Pan Value;
#X obj 318 168 r myMet;
#X obj 283 189 snapshot~;
#X obj 438 190 r myMet;
#X obj 405 213 snapshot~;
#X obj 344 93 r myMet;
#X obj 344 113 snapshot~;
#X floatatom 344 134 0 0 0 0 - - -;
#N canvas 596 261 498 528 ElevationCav 0;
#X text 86 486 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 403 334 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 404 361 s GO;
#X floatatom 101 406 0 0 0 0 - - -;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 206 121 r conPerpX;
#X obj 235 142 r conPerpY;
#X obj 260 163 r conPerpZ;
#X obj 85 76 r conPerpZ;
#X obj 56 55 r conPerpY;
#X obj 27 34 r conPerpX;
#X obj 27 98 +;
#X obj 56 99 +;
#X obj 85 99 +;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 354 104 -;
#X obj 383 105 -;
#X obj 411 104 -;
#X obj 411 127 *;
#X obj 383 128 *;
#X obj 354 128 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X obj 226 416 swap 180;
#X obj 226 437 -;
#X obj 226 396 * 57.2958;
#X obj 225 459 outlet;
#X connect 1 0 2 0;
#X connect 4 0 16 1;
#X connect 4 0 34 1;
#X connect 5 0 17 1;
#X connect 5 0 35 1;
#X connect 6 0 18 1;
#X connect 6 0 36 1;
#X connect 7 0 21 1;
#X connect 7 0 34 0;
#X connect 8 0 20 1;
#X connect 8 0 35 0;
#X connect 9 0 19 1;
#X connect 9 0 36 0;
#X connect 10 0 28 1;
#X connect 10 0 28 0;
#X connect 11 0 29 1;
#X connect 11 0 29 0;
#X connect 12 0 30 0;
#X connect 12 0 30 1;
#X connect 13 0 18 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 23 0;
#X connect 20 0 23 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 23 0 25 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 26 0 27 0;
#X connect 26 0 46 1;
#X connect 28 0 32 0;
#X connect 29 0 31 0;
#X connect 30 0 31 1;
#X connect 31 0 32 1;
#X connect 32 0 33 0;
#X connect 32 0 43 0;
#X connect 33 0 44 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 40 1;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 42 0 44 1;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 45 0 47 1;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 48 0 51 0;
#X connect 49 0 50 0;
#X connect 49 1 50 1;
#X connect 50 0 52 0;
#X connect 50 0 3 0;
#X connect 51 0 49 0;
#X restore 30 335 pd ElevationCav;
#N canvas 436 247 501 550 ElevationAeol 0;
#X text 79 503 Calculates the elevation angle between the source and
the observer with 0 degrees as the direction of travel;
#X obj 429 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 410 s GO;
#X obj 181 26 inlet;
#X obj 225 26 inlet;
#X obj 270 26 inlet;
#X obj 27 34 r obEleX;
#X obj 56 55 r obEleY;
#X obj 85 76 r obEleZ;
#X obj 355 39 r obVertX;
#X obj 383 60 r obVertY;
#X obj 411 80 r obVertZ;
#X obj 411 104 -;
#X obj 383 105 -;
#X obj 354 104 -;
#X obj 354 128 *;
#X obj 383 128 *;
#X obj 411 127 *;
#X obj 383 149 +;
#X obj 368 170 +;
#X obj 368 190 sqrt;
#X obj 263 157 -;
#X obj 235 158 -;
#X obj 206 157 -;
#X obj 206 185 *;
#X obj 235 185 *;
#X obj 260 183 *;
#X obj 235 206 +;
#X obj 220 227 +;
#X obj 220 247 sqrt;
#X obj 84 121 -;
#X obj 56 122 -;
#X obj 27 121 -;
#X obj 27 145 *;
#X obj 56 145 *;
#X obj 84 144 *;
#X obj 56 166 +;
#X obj 41 187 +;
#X obj 41 207 sqrt;
#X obj 226 304 +;
#X obj 259 304 *;
#X obj 259 329 * 2;
#X obj 226 330 -;
#X obj 226 353 /;
#X obj 226 375 acos;
#X floatatom 291 475 0 0 0 0 - - -;
#X obj 226 395 * 57.2958;
#X obj 225 450 line~;
#X msg 225 423 \$1 10;
#X obj 224 477 outlet~;
#X connect 1 0 2 0;
#X connect 3 0 14 1;
#X connect 3 0 23 1;
#X connect 4 0 13 1;
#X connect 4 0 22 1;
#X connect 5 0 12 1;
#X connect 5 0 21 1;
#X connect 6 0 23 0;
#X connect 6 0 32 0;
#X connect 7 0 22 0;
#X connect 7 0 31 0;
#X connect 8 0 21 0;
#X connect 8 0 30 0;
#X connect 9 0 14 0;
#X connect 9 0 32 1;
#X connect 10 0 13 0;
#X connect 10 0 31 1;
#X connect 11 0 12 0;
#X connect 11 0 30 1;
#X connect 12 0 17 0;
#X connect 12 0 17 1;
#X connect 13 0 16 0;
#X connect 13 0 16 1;
#X connect 14 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 19 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 20 0;
#X connect 19 0 39 1;
#X connect 20 0 40 1;
#X connect 21 0 26 0;
#X connect 21 0 26 1;
#X connect 22 0 25 1;
#X connect 22 0 25 0;
#X connect 23 0 24 1;
#X connect 23 0 24 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 40 0;
#X connect 30 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 34 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 32 0 33 1;
#X connect 33 0 37 0;
#X connect 34 0 36 0;
#X connect 35 0 36 1;
#X connect 36 0 37 1;
#X connect 37 0 38 0;
#X connect 37 0 42 1;
#X connect 39 0 42 0;
#X connect 40 0 41 0;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 48 0 47 0;
#X restore -195 337 pd ElevationAeol;
#N canvas 146 122 391 553 NewAzim 0;
#X obj 201 190 r Length;
#X obj 201 213 *;
#X obj 105 62 r obProZ;
#X obj 77 40 r obProY;
#X obj 48 18 r obProX;
#X obj 105 86 *;
#X obj 77 87 *;
#X obj 48 87 *;
#X obj 77 108 +;
#X obj 62 129 +;
#X obj 62 149 sqrt;
#X obj 169 53 inlet;
#X obj 197 72 inlet;
#X obj 225 95 inlet;
#X obj 210 117 -;
#X obj 182 118 -;
#X obj 154 117 -;
#X obj 153 141 *;
#X obj 182 141 *;
#X obj 210 140 *;
#X obj 182 162 +;
#X obj 167 183 +;
#X obj 167 203 sqrt;
#X obj 134 235 + 1;
#X obj 167 235 *;
#X obj 134 261 -;
#X obj 167 260 * 2;
#X obj 134 284 /;
#X obj 134 306 acos;
#X obj 134 346 swap 90;
#X obj 134 327 * 57.2958;
#X obj 134 368 -;
#X obj 134 389 abs;
#X floatatom 193 408 0 0 0 0 - - -;
#X msg 134 414 \$1 10;
#X obj 134 436 line~;
#X obj 134 467 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 24 1;
#X connect 1 0 23 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 14 0;
#X connect 3 0 6 0;
#X connect 3 0 6 1;
#X connect 3 0 15 0;
#X connect 4 0 7 1;
#X connect 4 0 7 0;
#X connect 4 0 16 0;
#X connect 5 0 8 1;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 0;
#X connect 9 0 25 1;
#X connect 11 0 16 1;
#X connect 12 0 15 1;
#X connect 13 0 14 1;
#X connect 14 0 19 0;
#X connect 14 0 19 1;
#X connect 15 0 18 0;
#X connect 15 0 18 1;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 31 0;
#X connect 29 1 31 1;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X restore -63 337 pd NewAzim;
#X obj 288 441 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 287 466 s GO;
#X obj -287 61 r tipX;
#X obj -221 62 r tipY;
#X obj -153 63 r tipZ;
#X obj -153 84 * 1;
#X obj -221 83 * 1;
#X obj -287 82 * 1;
#X obj -287 124 -;
#X obj -221 125 -;
#X obj -153 127 -;
#X obj -153 150 *;
#X obj -221 149 *;
#X obj -287 148 *;
#X obj -236 177 +;
#X obj -236 198 +;
#X obj -236 219 sqrt;
#X obj -236 241 outlet;
#X obj 246 33 /;
#X obj 246 121 /~ 3.14159;
#X obj 246 98 atan~;
#X obj 246 75 line~;
#X msg 246 55 \$1 5;
#X obj -88 64 inlet;
#X obj -195 360 outlet~;
#X obj -63 358 outlet~;
#X connect 1 0 36 1;
#X connect 2 0 35 1;
#X connect 3 0 34 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 14 0;
#X connect 7 0 12 0;
#X connect 7 0 11 1;
#X connect 8 1 5 0;
#X connect 9 0 17 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 1 5 0;
#X connect 13 0 19 0;
#X connect 16 0 17 0;
#X connect 17 0 8 1;
#X connect 18 0 19 0;
#X connect 19 0 12 1;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 24 0 50 0;
#X connect 25 0 51 0;
#X connect 26 0 27 0;
#X connect 28 0 33 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 36 0;
#X connect 31 0 24 2;
#X connect 31 0 25 2;
#X connect 31 0 23 2;
#X connect 32 0 35 0;
#X connect 32 0 24 1;
#X connect 32 0 25 1;
#X connect 32 0 23 1;
#X connect 33 0 34 0;
#X connect 33 0 24 0;
#X connect 33 0 25 0;
#X connect 33 0 23 0;
#X connect 34 0 39 0;
#X connect 34 0 39 1;
#X connect 34 0 44 0;
#X connect 35 0 13 0;
#X connect 35 0 9 0;
#X connect 35 0 38 0;
#X connect 35 0 38 1;
#X connect 35 0 44 1;
#X connect 36 0 37 0;
#X connect 36 0 37 1;
#X connect 37 0 41 1;
#X connect 38 0 40 1;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 7 0;
#X connect 46 0 21 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 47 0;
#X connect 49 0 31 1;
#X connect 49 0 32 1;
#X connect 49 0 33 1;
#X restore 458 37 pd sourcePosition;
#X floatatom 507 5 0 0 0 0 - - -;
#X floatatom 529 -16 0 0 0 0 - - -;
#X floatatom 183 269 0 0 0 0 - - -;
#X floatatom 211 248 0 0 0 0 - - -;
#X floatatom 393 241 0 0 0 0 - - -;
#X floatatom 442 224 0 0 0 0 - - -;
#X floatatom 560 249 0 0 0 0 - - -;
#X floatatom 632 237 0 0 0 0 - - -;
#X floatatom 180 119 0 0 0 0 - - -;
#X floatatom 208 98 0 0 0 0 - - -;
#X floatatom 399 133 0 0 0 0 - - -;
#X floatatom 427 112 0 0 0 0 - - -;
#X floatatom 602 136 0 0 0 0 - - -;
#X floatatom 630 115 0 0 0 0 - - -;
#X floatatom 707 20 0 0 0 0 - - -;
#X floatatom 729 -1 0 0 0 0 - - -;
#X obj 400 72 physicalModelSource2;
#X obj 590 311 physicalModelSource2;
#X obj 301 316 physicalModelSource2;
#X obj 81 322 physicalModelSource2;
#X obj 88 196 physicalModelSource2;
#X obj 316 191 physicalModelSource2;
#X obj 535 187 physicalModelSource2;
#X obj 594 81 physicalModelSource2;
#X connect 8 0 41 0;
#X connect 8 1 9 0;
#X connect 8 1 30 0;
#X connect 8 2 9 1;
#X connect 8 2 31 0;
#X connect 8 2 41 1;
#X connect 9 0 42 0;
#X connect 9 1 10 0;
#X connect 9 2 16 0;
#X connect 9 2 28 0;
#X connect 9 3 10 1;
#X connect 9 3 29 0;
#X connect 9 3 42 1;
#X connect 10 0 43 0;
#X connect 10 2 11 0;
#X connect 10 2 18 0;
#X connect 10 2 26 0;
#X connect 10 3 11 1;
#X connect 10 3 27 0;
#X connect 10 3 43 1;
#X connect 11 0 44 0;
#X connect 11 2 12 0;
#X connect 11 2 19 0;
#X connect 11 2 32 0;
#X connect 11 3 12 1;
#X connect 11 3 33 0;
#X connect 11 3 44 1;
#X connect 12 0 45 0;
#X connect 12 2 13 0;
#X connect 12 2 20 0;
#X connect 12 2 34 0;
#X connect 12 3 13 1;
#X connect 12 3 35 0;
#X connect 12 3 45 1;
#X connect 13 0 46 0;
#X connect 13 2 14 0;
#X connect 13 2 21 0;
#X connect 13 2 36 0;
#X connect 13 3 37 0;
#X connect 13 3 46 1;
#X connect 14 0 47 0;
#X connect 14 1 38 0;
#X connect 14 2 22 0;
#X connect 14 2 39 0;
#X connect 14 2 47 1;
#X connect 15 0 40 0;
#X connect 15 1 24 0;
#X connect 15 2 23 0;
#X connect 15 2 25 0;
#X connect 15 2 40 1;
#X connect 16 0 42 2;
#X connect 16 1 42 3;
#X connect 16 2 42 4;
#X connect 16 3 42 5;
#X connect 17 0 41 2;
#X connect 17 1 41 3;
#X connect 17 2 41 4;
#X connect 17 3 41 5;
#X connect 18 0 43 2;
#X connect 18 1 43 3;
#X connect 18 2 43 4;
#X connect 18 3 43 5;
#X connect 19 0 44 2;
#X connect 19 1 44 3;
#X connect 19 2 44 4;
#X connect 19 3 44 5;
#X connect 20 0 45 2;
#X connect 20 1 45 3;
#X connect 20 2 45 4;
#X connect 20 3 45 5;
#X connect 21 0 46 2;
#X connect 21 1 46 3;
#X connect 21 2 46 4;
#X connect 21 3 46 5;
#X connect 22 0 47 2;
#X connect 22 1 47 3;
#X connect 22 2 47 4;
#X connect 22 3 47 5;
#X connect 23 0 40 2;
#X connect 23 1 40 3;
#X connect 23 2 40 4;
#X connect 23 3 40 5;
#X restore -160 201 pd Sources;
#X obj 448 43 r start_armLength;
#X obj 433 23 r bladeLen;
#X obj 433 63 +;
#X obj 433 85 s Length;
#X msg 413 304 -10;
#X obj 317 67 r myMet;
#X obj 317 88 f;
#X obj -241 167 r myMet;
#X obj -241 188 f;
#X msg 115 304 75;
#X msg 226 303 200;
#X msg 136 179 0.035;
#X msg -56 302 1;
#X obj -239 59 metro 25;
#X msg -198 274 2;
#X msg 250 176 0.007;
#X msg -240 127 0.5;
#X connect 0 0 1 0;
#X connect 4 0 142 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 6 0 5 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 141 0;
#X connect 13 0 68 1;
#X connect 13 0 66 0;
#X connect 14 0 73 1;
#X connect 14 0 71 0;
#X connect 15 0 75 0;
#X connect 15 0 77 1;
#X connect 17 0 13 0;
#X connect 18 0 14 0;
#X connect 19 0 15 0;
#X connect 20 0 25 0;
#X connect 20 0 56 1;
#X connect 21 0 59 1;
#X connect 21 0 57 0;
#X connect 22 0 62 1;
#X connect 22 0 60 0;
#X connect 26 0 20 0;
#X connect 27 0 22 0;
#X connect 28 0 21 0;
#X connect 29 0 20 0;
#X connect 30 0 20 0;
#X connect 31 0 21 0;
#X connect 32 0 22 0;
#X connect 34 0 21 0;
#X connect 35 0 65 1;
#X connect 35 0 63 0;
#X connect 36 0 35 0;
#X connect 38 0 35 0;
#X connect 39 0 34 0;
#X connect 40 0 29 0;
#X connect 41 0 53 0;
#X connect 42 0 38 0;
#X connect 43 0 45 0;
#X connect 44 0 139 0;
#X connect 45 0 13 0;
#X connect 46 0 81 1;
#X connect 46 0 79 0;
#X connect 47 0 84 0;
#X connect 47 0 86 1;
#X connect 48 0 51 0;
#X connect 51 0 46 0;
#X connect 52 0 47 0;
#X connect 53 0 22 0;
#X connect 55 0 56 0;
#X connect 56 0 54 0;
#X connect 58 0 59 0;
#X connect 59 0 23 0;
#X connect 61 0 62 0;
#X connect 62 0 24 0;
#X connect 64 0 65 0;
#X connect 65 0 37 0;
#X connect 67 0 68 0;
#X connect 68 0 12 0;
#X connect 69 0 14 0;
#X connect 70 0 15 0;
#X connect 72 0 73 0;
#X connect 73 0 33 0;
#X connect 74 0 143 0;
#X connect 76 0 77 0;
#X connect 77 0 16 0;
#X connect 78 0 46 0;
#X connect 80 0 81 0;
#X connect 81 0 49 0;
#X connect 82 0 52 0;
#X connect 83 0 47 0;
#X connect 85 0 86 0;
#X connect 86 0 50 0;
#X connect 88 0 90 0;
#X connect 90 0 134 1;
#X connect 91 0 110 1;
#X connect 91 0 108 0;
#X connect 92 0 114 1;
#X connect 92 0 112 0;
#X connect 93 0 115 0;
#X connect 93 0 117 1;
#X connect 94 0 121 1;
#X connect 94 0 119 0;
#X connect 99 0 91 0;
#X connect 100 0 92 0;
#X connect 101 0 93 0;
#X connect 102 0 94 0;
#X connect 103 0 137 0;
#X connect 104 0 106 0;
#X connect 105 0 94 0;
#X connect 106 0 93 0;
#X connect 107 0 93 0;
#X connect 109 0 110 0;
#X connect 110 0 97 0;
#X connect 111 0 138 0;
#X connect 113 0 114 0;
#X connect 114 0 98 0;
#X connect 116 0 117 0;
#X connect 117 0 95 0;
#X connect 118 0 105 0;
#X connect 120 0 121 0;
#X connect 121 0 96 0;
#X connect 122 0 144 0;
#X connect 123 0 124 0;
#X connect 123 0 136 1;
#X connect 126 0 123 0;
#X connect 128 0 130 1;
#X connect 129 0 130 0;
#X connect 130 0 131 0;
#X connect 132 0 94 0;
#X connect 133 0 134 0;
#X connect 134 0 89 0;
#X connect 135 0 136 0;
#X connect 136 0 125 0;
#X connect 137 0 91 0;
#X connect 138 0 92 0;
#X connect 139 0 14 0;
#X connect 140 0 13 0;
#X connect 141 0 11 0;
#X connect 142 0 6 0;
#X connect 143 0 15 0;
#X connect 144 0 123 0;