changeset 211:bf12c520e599

diameter and speed added for 7 sources
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 29 Mar 2016 20:37:47 +0100
parents e72a4b012328
children 962accce4b3f
files MechAeolian/MA_Test.pd Propellor/Propellor.pd Propellor/freqCalcCyl4HiFi.pd SwordCorInterpWii/SwordCorInterpWii.pd scene demo/testBedD4.pd
diffstat 5 files changed, 503 insertions(+), 2562 deletions(-) [+]
line wrap: on
line diff
--- a/MechAeolian/MA_Test.pd	Mon Mar 28 21:01:59 2016 +0100
+++ b/MechAeolian/MA_Test.pd	Tue Mar 29 20:37:47 2016 +0100
@@ -1,14 +1,14 @@
-#N canvas 119 58 1139 792 10;
+#N canvas 22 56 1139 792 10;
 #X obj 249 -64 loadbang;
 #X obj -164 205 delwrite~ varwind 3000;
 #X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 432 1;
+-1 -1 423 1;
 #X obj -163 -2 *~ 1;
 #X obj -163 24 +~ 1;
 #X obj 35 -90 loadbang;
 #X msg 35 -70 5;
 #X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 2032 1;
+-262144 -1 -1 2118 1;
 #X floatatom 303 52 8 0 0 0 - - -;
 #X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 6350 1;
@@ -17,10 +17,10 @@
 -1 -1 6350 1;
 #X floatatom 365 213 5 0 0 0 - - -;
 #X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 9066 1;
+-262144 -1 -1 7937 1;
 #X floatatom 380 268 5 0 0 0 - - -;
 #X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
--1 -1 7759 1;
+-1 -1 8877 1;
 #X floatatom 339 156 5 0 0 0 - - -;
 #X text 512 303 Pan Value;
 #X obj -189 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
@@ -51,7 +51,7 @@
 #X restore -190 400 pd opLevels;
 #X msg -181 346 5;
 #X obj -187 371 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0
-10 -262144 -1 -1 9792 1;
+10 -262144 -1 -1 1294 1;
 #N canvas 20 383 344 123 machCalc 0;
 #X text 107 15 Speed of Sound (dry air 20 Degs C);
 #X obj 26 -14 vd~ varwind;
@@ -67,7 +67,7 @@
 #X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 309 84 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 299 1;
+-1 -1 405 1;
 #X floatatom 331 103 8 0 0 0 - - -;
 #X text -8 353 No Of Sources;
 #X obj 422 -63 s SET_UP;
@@ -82,7 +82,7 @@
 #X floatatom 415 389 5 0 0 0 - - -;
 #X obj 460 334 r SET_UP;
 #X obj 391 420 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 582 1;
+-1 -1 1100 1;
 #X floatatom 410 447 5 0 0 0 - - -;
 #X obj 484 388 r SET_UP;
 #X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
@@ -199,14 +199,15 @@
 #X text 489 240 Obs Elevation (degs);
 #X text 526 361 Mass Desnity (kg / m^3);
 #X text 541 415 Tension (N);
-#X msg 416 52 0.48;
 #X msg 93 397 4052;
 #X obj 422 -84 uzi 20;
-#X msg 411 -27 0.00036;
 #X msg 601 386 30.085;
 #X msg 552 386 418;
-#X msg -75 260 2;
 #X obj 618 -47 metro 10;
+#X msg 411 -27 0.00038;
+#X msg 416 52 0.6477;
+#X msg 629 429 86.3;
+#X msg -75 260 9.7;
 #X connect 0 0 29 0;
 #X connect 2 0 50 0;
 #X connect 2 0 91 0;
@@ -232,7 +233,7 @@
 #X connect 23 0 24 0;
 #X connect 24 0 22 0;
 #X connect 24 0 63 0;
-#X connect 26 0 126 0;
+#X connect 26 0 125 0;
 #X connect 27 0 11 0;
 #X connect 28 0 9 0;
 #X connect 29 0 51 0;
@@ -243,7 +244,7 @@
 #X connect 29 0 28 0;
 #X connect 29 0 116 0;
 #X connect 29 0 115 0;
-#X connect 29 0 125 0;
+#X connect 29 0 124 0;
 #X connect 29 0 49 0;
 #X connect 30 0 31 0;
 #X connect 30 0 114 1;
@@ -277,7 +278,6 @@
 #X connect 65 0 13 0;
 #X connect 67 0 86 0;
 #X connect 67 0 68 0;
-#X connect 67 0 1 0;
 #X connect 67 1 73 0;
 #X connect 68 0 69 0;
 #X connect 71 0 67 1;
@@ -285,7 +285,7 @@
 #X connect 73 0 74 0;
 #X connect 76 0 3 0;
 #X connect 77 0 2 0;
-#X connect 78 0 131 0;
+#X connect 78 0 128 0;
 #X connect 79 0 78 0;
 #X connect 81 0 73 0;
 #X connect 82 0 68 0;
@@ -314,13 +314,15 @@
 #X connect 110 0 52 0;
 #X connect 111 0 52 0;
 #X connect 112 0 7 0;
+#X connect 113 0 1 0;
 #X connect 115 0 40 0;
 #X connect 116 0 30 0;
-#X connect 124 0 30 0;
-#X connect 125 0 43 0;
-#X connect 126 0 33 0;
-#X connect 127 0 7 0;
-#X connect 128 0 43 0;
-#X connect 129 0 43 0;
-#X connect 130 0 113 0;
-#X connect 131 0 80 0;
+#X connect 124 0 43 0;
+#X connect 125 0 33 0;
+#X connect 126 0 43 0;
+#X connect 127 0 43 0;
+#X connect 128 0 80 0;
+#X connect 129 0 7 0;
+#X connect 130 0 30 0;
+#X connect 131 0 114 6;
+#X connect 132 0 113 0;
--- a/Propellor/Propellor.pd	Mon Mar 28 21:01:59 2016 +0100
+++ b/Propellor/Propellor.pd	Tue Mar 29 20:37:47 2016 +0100
@@ -4,7 +4,7 @@
 1;
 #X obj 315 85 s myMet;
 #X obj -273 429 hsl 100 20 0 700 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 1 1;
+-1 -1 295 1;
 #X floatatom -276 455 8 0 0 0 - - -;
 #X text -165 346 Blade Length;
 #X text -9 37 Arm Length;
@@ -91,7 +91,7 @@
 #X connect 7 0 3 1;
 #X restore 427 102 pd opLevels;
 #X obj 430 73 hsl 100 25 0.1 1e+07 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 9527 1;
+-262144 -1 -1 2627 1;
 #X obj 427 2 r GAIN;
 #X floatatom 370 103 8 0 0 0 - - -;
 #X obj -227 545 s hiltThick;
@@ -451,389 +451,6 @@
 #X connect 59 0 60 0;
 #X connect 60 0 61 0;
 #X restore 187 -99 pd HiltPositions;
-#N canvas 500 151 660 718 sourceTipSpeed 0;
-#X obj 67 232 r~ tipSpeed;
-#X obj 67 330 *~ 1;
-#X obj 67 352 outlet~;
-#X text 53 378 Source Speed;
-#X obj 103 277 r length;
-#X obj 88 305 /;
-#X floatatom 103 330 0 0 0 0 - - -;
-#X obj 88 256 r length;
-#X obj 189 367 outlet;
-#X obj 189 321 *;
-#X obj 204 299 t f b;
-#X floatatom 222 345 0 0 0 0 - - -;
-#X obj 312 258 r tipThick;
-#X obj 312 292 outlet;
-#X obj 381 351 outlet;
-#X obj 381 323 spigot;
-#X obj 336 322 spigot;
-#X floatatom 335 361 5 0 0 0 - - -;
-#X msg 384 257 1;
-#X msg 413 258 0;
-#X obj 420 217 r PGA;
-#X msg 351 232 1;
-#X msg 380 233 0;
-#X obj 358 185 r SWD1;
-#X obj 401 187 r SWD2;
-#X obj 378 205 r MLB;
-#X obj 408 238 t b b;
-#X msg 381 299 0.05;
-#X connect 0 0 1 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 4 0 10 0;
-#X connect 5 0 6 0;
-#X connect 5 0 1 1;
-#X connect 5 0 9 0;
-#X connect 7 0 5 0;
-#X connect 9 0 11 0;
-#X connect 9 0 8 0;
-#X connect 10 0 9 1;
-#X connect 10 1 9 0;
-#X connect 12 0 13 0;
-#X connect 12 0 16 0;
-#X connect 15 0 17 0;
-#X connect 15 0 14 0;
-#X connect 16 0 17 0;
-#X connect 16 0 14 0;
-#X connect 18 0 15 1;
-#X connect 19 0 16 1;
-#X connect 20 0 26 0;
-#X connect 21 0 16 1;
-#X connect 22 0 15 1;
-#X connect 23 0 21 0;
-#X connect 24 0 21 0;
-#X connect 25 0 22 0;
-#X connect 25 0 21 0;
-#X connect 26 0 19 0;
-#X connect 26 0 18 0;
-#X connect 26 1 27 0;
-#X connect 27 0 15 0;
-#X restore 745 174 pd sourceTipSpeed;
-#N canvas 144 122 1130 580 sourceTipPositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 525 438 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X floatatom 899 391 0 0 0 0 - - -;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X text 171 33 Calculates position of the tip source.;
-#N canvas 380 110 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X obj -8665 568 snapshot~;
-#X floatatom -8665 592 0 0 0 0 - - -;
-#X obj -8665 545 r myMet;
-#X obj -8096 629 -~ 90;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 58 0 92 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 95 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 81 0;
-#X connect 82 0 80 0;
-#X connect 83 0 87 0;
-#X connect 84 0 89 0;
-#X connect 85 0 91 0;
-#X connect 86 0 6 0;
-#X connect 86 0 0 0;
-#X connect 86 0 0 1;
-#X connect 86 0 39 1;
-#X connect 87 0 86 0;
-#X connect 88 0 1 0;
-#X connect 88 0 1 1;
-#X connect 88 0 41 1;
-#X connect 88 0 8 0;
-#X connect 89 0 88 0;
-#X connect 90 0 10 0;
-#X connect 90 0 2 0;
-#X connect 90 0 2 1;
-#X connect 90 0 43 1;
-#X connect 91 0 90 0;
-#X connect 92 0 93 0;
-#X connect 94 0 92 0;
-#X connect 95 0 65 0;
-#X connect 95 0 80 0;
-#X restore 434 391 pd SourceAngles;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 30 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 30 1;
-#X connect 5 0 35 0;
-#X connect 5 0 39 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 50 0;
-#X connect 19 0 5 0;
-#X connect 19 0 50 1;
-#X connect 20 0 7 0;
-#X connect 20 0 50 2;
-#X connect 27 0 28 0;
-#X connect 28 0 29 0;
-#X connect 28 0 40 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 33 0;
-#X connect 33 0 38 0;
-#X connect 33 0 37 1;
-#X connect 34 1 28 0;
-#X connect 35 0 43 0;
-#X connect 36 0 37 0;
-#X connect 37 0 34 0;
-#X connect 38 1 28 0;
-#X connect 39 0 45 0;
-#X connect 42 0 43 0;
-#X connect 43 0 34 1;
-#X connect 44 0 45 0;
-#X connect 45 0 38 1;
-#X connect 46 0 18 0;
-#X connect 47 0 19 0;
-#X connect 48 0 20 0;
-#X connect 50 0 22 0;
-#X connect 50 1 21 0;
-#X restore 759 207 pd sourceTipPositions;
 #N canvas 144 122 1130 580 sourceHiltPositions 0;
 #X obj 271 193 r Zobs;
 #X obj 185 191 r Yobs;
@@ -1160,833 +777,6 @@
 #X connect 48 0 13 0;
 #X connect 49 0 12 0;
 #X restore 384 23 pd sourceHiltPositions;
-#N canvas 647 139 633 561 sourceSpeed 0;
-#X obj 23 182 r~ tipSpeed;
-#X obj 36 280 *~ 1;
-#X obj 36 302 outlet~;
-#X text 21 325 Source Speed;
-#X obj 72 203 r length;
-#X obj 57 255 /;
-#X obj 405 379 outlet;
-#X obj 420 97 inlet;
-#X obj 405 236 *;
-#X obj 420 213 t f b;
-#X obj 405 308 +;
-#X obj 420 285 t f b;
-#X obj 420 119 * 7;
-#X obj 405 165 -;
-#X obj 420 141 t f b;
-#X obj 420 186 r bladeGrad;
-#X obj 420 259 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 405 76 inlet;
-#X obj 353 279 outlet;
-#X text 384 58 Previous Source Position;
-#X text 457 97 Previous Source Diameter;
-#X text 452 378 Current Source Diameter;
-#X text 261 303 Current Source Position;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X text 451 118 Averaged correlation length;
-#X obj 192 201 r start_armLength;
-#X obj 177 223 -;
-#X obj 177 247 <= 0;
-#X obj 150 188 t f f;
-#X obj 23 231 spigot~;
-#X floatatom 188 285 5 0 0 0 - - -;
-#X connect 0 0 30 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 17 0;
-#X connect 7 0 12 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 9 1 8 0;
-#X connect 10 0 6 0;
-#X connect 11 0 10 1;
-#X connect 11 1 10 0;
-#X connect 12 0 14 0;
-#X connect 13 0 8 0;
-#X connect 13 0 19 0;
-#X connect 13 0 29 0;
-#X connect 14 0 13 1;
-#X connect 14 1 13 0;
-#X connect 15 0 9 0;
-#X connect 16 0 11 0;
-#X connect 18 0 13 0;
-#X connect 26 0 27 1;
-#X connect 27 0 28 0;
-#X connect 28 0 30 1;
-#X connect 28 0 31 0;
-#X connect 29 0 5 0;
-#X connect 29 1 27 0;
-#X connect 30 0 1 0;
-#X restore 315 177 pd sourceSpeed;
-#N canvas 144 122 1130 580 sourcePositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 515 441 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X obj 191 107 inlet;
-#X text 171 33 Calculates position of the source.;
-#N canvas 413 572 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8096 629 +~ 90;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 80 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 65 0;
-#X connect 80 0 81 0;
-#X connect 81 0 82 0;
-#X connect 83 0 81 0;
-#X connect 84 0 88 0;
-#X connect 85 0 90 0;
-#X connect 86 0 92 0;
-#X connect 87 0 6 0;
-#X connect 87 0 0 0;
-#X connect 87 0 0 1;
-#X connect 87 0 39 1;
-#X connect 88 0 87 0;
-#X connect 89 0 1 0;
-#X connect 89 0 1 1;
-#X connect 89 0 41 1;
-#X connect 89 0 8 0;
-#X connect 90 0 89 0;
-#X connect 91 0 10 0;
-#X connect 91 0 2 0;
-#X connect 91 0 2 1;
-#X connect 91 0 43 1;
-#X connect 92 0 91 0;
-#X restore 434 392 pd SourceAngles;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 29 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 29 1;
-#X connect 5 0 34 0;
-#X connect 5 0 38 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 50 0;
-#X connect 19 0 5 0;
-#X connect 19 0 50 1;
-#X connect 20 0 7 0;
-#X connect 20 0 50 2;
-#X connect 27 0 28 0;
-#X connect 28 0 39 0;
-#X connect 29 0 30 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 37 0;
-#X connect 32 0 36 1;
-#X connect 33 1 28 0;
-#X connect 34 0 42 0;
-#X connect 35 0 36 0;
-#X connect 36 0 33 0;
-#X connect 37 1 28 0;
-#X connect 38 0 44 0;
-#X connect 41 0 42 0;
-#X connect 42 0 33 1;
-#X connect 43 0 44 0;
-#X connect 44 0 37 1;
-#X connect 45 0 18 0;
-#X connect 46 0 19 0;
-#X connect 47 0 20 0;
-#X connect 48 0 20 1;
-#X connect 48 0 19 1;
-#X connect 48 0 18 1;
-#X connect 50 0 22 0;
-#X connect 50 1 21 0;
-#X restore 335 210 pd sourcePositions;
-#N canvas 521 89 616 521 halfSourceSpeed 0;
-#X obj 23 188 r~ tipSpeed;
-#X obj 36 286 *~ 1;
-#X obj 36 308 outlet~;
-#X text 21 331 Source Speed;
-#X obj 72 209 r length;
-#X obj 57 261 /;
-#X obj 309 372 outlet;
-#X obj 309 229 *;
-#X obj 324 206 t f b;
-#X obj 309 301 +;
-#X obj 324 278 t f b;
-#X obj 324 179 r bladeGrad;
-#X obj 324 252 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 324 68 inlet;
-#X text 303 50 Previous Source Position;
-#X text 356 371 Current Source Diameter;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X obj 192 68 r start_armLength;
-#X obj 177 192 -;
-#X obj 177 216 <= 0;
-#X obj 150 157 t f f;
-#X obj 23 237 spigot~;
-#X obj 309 112 +;
-#X obj 309 133 * 0.5;
-#X floatatom 189 271 0 0 0 0 - - -;
-#X connect 0 0 22 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 13 0;
-#X connect 7 0 9 0;
-#X connect 8 0 7 1;
-#X connect 8 1 7 0;
-#X connect 9 0 6 0;
-#X connect 10 0 9 1;
-#X connect 10 1 9 0;
-#X connect 11 0 8 0;
-#X connect 12 0 10 0;
-#X connect 14 0 23 1;
-#X connect 18 0 19 1;
-#X connect 18 0 23 0;
-#X connect 19 0 20 0;
-#X connect 19 0 25 0;
-#X connect 20 0 22 1;
-#X connect 21 0 5 0;
-#X connect 21 1 19 0;
-#X connect 22 0 1 0;
-#X connect 23 0 24 0;
-#X connect 24 0 21 0;
-#X connect 24 0 7 0;
-#X restore 27 75 pd halfSourceSpeed;
-#N canvas 140 383 1130 580 halfSourcePositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 515 441 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X floatatom 899 391 0 0 0 0 - - -;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X obj 191 107 inlet;
-#X text 171 33 Calculates position of the source.;
-#N canvas 413 572 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8096 629 +~ 90;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 80 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 65 0;
-#X connect 80 0 81 0;
-#X connect 81 0 82 0;
-#X connect 83 0 81 0;
-#X connect 84 0 88 0;
-#X connect 85 0 90 0;
-#X connect 86 0 92 0;
-#X connect 87 0 6 0;
-#X connect 87 0 0 0;
-#X connect 87 0 0 1;
-#X connect 87 0 39 1;
-#X connect 88 0 87 0;
-#X connect 89 0 1 0;
-#X connect 89 0 1 1;
-#X connect 89 0 41 1;
-#X connect 89 0 8 0;
-#X connect 90 0 89 0;
-#X connect 91 0 10 0;
-#X connect 91 0 2 0;
-#X connect 91 0 2 1;
-#X connect 91 0 43 1;
-#X connect 92 0 91 0;
-#X restore 434 389 pd SourceAngles;
-#X floatatom 601 418 0 0 0 0 - - -;
-#X obj 601 369 r myMet;
-#X obj 601 394 snapshot~;
-#X floatatom 333 424 0 0 0 0 - - -;
-#X obj 333 375 r myMet;
-#X obj 333 400 snapshot~;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 30 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 30 1;
-#X connect 5 0 35 0;
-#X connect 5 0 39 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 51 0;
-#X connect 19 0 5 0;
-#X connect 19 0 51 1;
-#X connect 20 0 7 0;
-#X connect 20 0 51 2;
-#X connect 27 0 28 0;
-#X connect 28 0 29 0;
-#X connect 28 0 40 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 33 0;
-#X connect 33 0 38 0;
-#X connect 33 0 37 1;
-#X connect 34 1 28 0;
-#X connect 35 0 43 0;
-#X connect 36 0 37 0;
-#X connect 37 0 34 0;
-#X connect 38 1 28 0;
-#X connect 39 0 45 0;
-#X connect 42 0 43 0;
-#X connect 43 0 34 1;
-#X connect 44 0 45 0;
-#X connect 45 0 38 1;
-#X connect 46 0 18 0;
-#X connect 47 0 19 0;
-#X connect 48 0 20 0;
-#X connect 49 0 20 1;
-#X connect 49 0 19 1;
-#X connect 49 0 18 1;
-#X connect 51 0 22 0;
-#X connect 51 0 57 0;
-#X connect 51 1 21 0;
-#X connect 51 1 54 0;
-#X connect 53 0 54 0;
-#X connect 54 0 52 0;
-#X connect 56 0 57 0;
-#X connect 57 0 55 0;
-#X restore 39 107 pd halfSourcePositions;
-#N canvas 647 139 633 561 sourceSpeed 0;
-#X obj 23 182 r~ tipSpeed;
-#X obj 36 280 *~ 1;
-#X obj 36 302 outlet~;
-#X text 21 325 Source Speed;
-#X obj 72 203 r length;
-#X obj 57 255 /;
-#X obj 405 379 outlet;
-#X obj 420 97 inlet;
-#X obj 405 236 *;
-#X obj 420 213 t f b;
-#X obj 405 308 +;
-#X obj 420 285 t f b;
-#X obj 420 119 * 7;
-#X obj 405 165 -;
-#X obj 420 141 t f b;
-#X obj 420 186 r bladeGrad;
-#X obj 420 259 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 405 76 inlet;
-#X obj 353 279 outlet;
-#X text 384 58 Previous Source Position;
-#X text 457 97 Previous Source Diameter;
-#X text 452 378 Current Source Diameter;
-#X text 261 303 Current Source Position;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X text 451 118 Averaged correlation length;
-#X obj 192 201 r start_armLength;
-#X obj 177 223 -;
-#X obj 177 247 <= 0;
-#X obj 150 188 t f f;
-#X obj 23 231 spigot~;
-#X floatatom 341 376 0 0 0 0 - - -;
-#X connect 0 0 30 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 17 0;
-#X connect 7 0 12 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 9 1 8 0;
-#X connect 10 0 6 0;
-#X connect 10 0 31 0;
-#X connect 11 0 10 1;
-#X connect 11 1 10 0;
-#X connect 12 0 14 0;
-#X connect 13 0 8 0;
-#X connect 13 0 19 0;
-#X connect 13 0 29 0;
-#X connect 14 0 13 1;
-#X connect 14 1 13 0;
-#X connect 15 0 9 0;
-#X connect 16 0 11 0;
-#X connect 18 0 13 0;
-#X connect 26 0 27 1;
-#X connect 27 0 28 0;
-#X connect 28 0 30 1;
-#X connect 29 0 5 0;
-#X connect 29 1 27 0;
-#X connect 30 0 1 0;
-#X restore 594 174 pd sourceSpeed;
 #N canvas 144 122 1130 580 sourcePositions 0;
 #X obj 271 193 r Zobs;
 #X obj 185 191 r Yobs;
@@ -2304,387 +1094,7 @@
 #X connect 48 0 18 1;
 #X connect 50 0 22 0;
 #X connect 50 1 21 0;
-#X restore 614 207 pd sourcePositions;
-#N canvas 647 139 633 561 sourceSpeed 0;
-#X obj 23 182 r~ tipSpeed;
-#X obj 36 280 *~ 1;
-#X obj 36 302 outlet~;
-#X text 21 325 Source Speed;
-#X obj 72 203 r length;
-#X obj 57 255 /;
-#X obj 405 379 outlet;
-#X obj 420 97 inlet;
-#X obj 405 236 *;
-#X obj 420 213 t f b;
-#X obj 405 308 +;
-#X obj 420 285 t f b;
-#X obj 420 119 * 7;
-#X obj 405 165 -;
-#X obj 420 141 t f b;
-#X obj 420 186 r bladeGrad;
-#X obj 420 259 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 405 76 inlet;
-#X obj 353 279 outlet;
-#X text 384 58 Previous Source Position;
-#X text 457 97 Previous Source Diameter;
-#X text 452 378 Current Source Diameter;
-#X text 261 303 Current Source Position;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X text 451 118 Averaged correlation length;
-#X obj 192 201 r start_armLength;
-#X obj 177 223 -;
-#X obj 177 247 <= 0;
-#X obj 150 188 t f f;
-#X obj 23 231 spigot~;
-#X floatatom 182 289 5 0 0 0 - - -;
-#X connect 0 0 30 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 17 0;
-#X connect 7 0 12 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 9 1 8 0;
-#X connect 10 0 6 0;
-#X connect 11 0 10 1;
-#X connect 11 1 10 0;
-#X connect 12 0 14 0;
-#X connect 13 0 8 0;
-#X connect 13 0 19 0;
-#X connect 13 0 29 0;
-#X connect 14 0 13 1;
-#X connect 14 1 13 0;
-#X connect 15 0 9 0;
-#X connect 16 0 11 0;
-#X connect 18 0 13 0;
-#X connect 26 0 27 1;
-#X connect 27 0 28 0;
-#X connect 27 0 31 0;
-#X connect 28 0 30 1;
-#X connect 29 0 5 0;
-#X connect 29 1 27 0;
-#X connect 30 0 1 0;
-#X restore 458 173 pd sourceSpeed;
-#N canvas 144 122 1130 580 sourcePositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 515 441 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X obj 191 107 inlet;
-#X text 171 33 Calculates position of the source.;
-#N canvas 413 572 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8096 629 +~ 90;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 80 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 65 0;
-#X connect 80 0 81 0;
-#X connect 81 0 82 0;
-#X connect 83 0 81 0;
-#X connect 84 0 88 0;
-#X connect 85 0 90 0;
-#X connect 86 0 92 0;
-#X connect 87 0 6 0;
-#X connect 87 0 0 0;
-#X connect 87 0 0 1;
-#X connect 87 0 39 1;
-#X connect 88 0 87 0;
-#X connect 89 0 1 0;
-#X connect 89 0 1 1;
-#X connect 89 0 41 1;
-#X connect 89 0 8 0;
-#X connect 90 0 89 0;
-#X connect 91 0 10 0;
-#X connect 91 0 2 0;
-#X connect 91 0 2 1;
-#X connect 91 0 43 1;
-#X connect 92 0 91 0;
-#X restore 434 391 pd SourceAngles;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 29 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 29 1;
-#X connect 5 0 34 0;
-#X connect 5 0 38 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 50 0;
-#X connect 19 0 5 0;
-#X connect 19 0 50 1;
-#X connect 20 0 7 0;
-#X connect 20 0 50 2;
-#X connect 27 0 28 0;
-#X connect 28 0 39 0;
-#X connect 29 0 30 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 37 0;
-#X connect 32 0 36 1;
-#X connect 33 1 28 0;
-#X connect 34 0 42 0;
-#X connect 35 0 36 0;
-#X connect 36 0 33 0;
-#X connect 37 1 28 0;
-#X connect 38 0 44 0;
-#X connect 41 0 42 0;
-#X connect 42 0 33 1;
-#X connect 43 0 44 0;
-#X connect 44 0 37 1;
-#X connect 45 0 18 0;
-#X connect 46 0 19 0;
-#X connect 47 0 20 0;
-#X connect 48 0 20 1;
-#X connect 48 0 19 1;
-#X connect 48 0 18 1;
-#X connect 50 0 22 0;
-#X connect 50 1 21 0;
-#X restore 478 206 pd sourcePositions;
+#X restore 698 30 pd sourcePositions;
 #N canvas 42 225 549 568 sourceQuantity 0;
 #X obj 93 81 t f b;
 #X obj 78 104 -;
@@ -3364,776 +1774,8 @@
 #X connect 34 0 36 0;
 #X connect 34 0 0 4;
 #X restore 311 -120 pd contPlaneFind;
-#N canvas 647 139 633 561 sourceSpeed 0;
-#X obj 23 182 r~ tipSpeed;
-#X obj 36 280 *~ 1;
-#X obj 36 302 outlet~;
-#X text 21 325 Source Speed;
-#X obj 72 203 r length;
-#X obj 57 255 /;
-#X obj 405 379 outlet;
-#X obj 420 97 inlet;
-#X obj 405 236 *;
-#X obj 420 213 t f b;
-#X obj 405 308 +;
-#X obj 420 285 t f b;
-#X obj 420 119 * 7;
-#X obj 405 165 -;
-#X obj 420 141 t f b;
-#X obj 420 186 r bladeGrad;
-#X obj 420 259 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 405 76 inlet;
-#X obj 353 279 outlet;
-#X text 384 58 Previous Source Position;
-#X text 457 97 Previous Source Diameter;
-#X text 452 378 Current Source Diameter;
-#X text 261 303 Current Source Position;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X text 451 118 Averaged correlation length;
-#X obj 192 201 r start_armLength;
-#X obj 177 223 -;
-#X obj 177 247 <= 0;
-#X obj 150 188 t f f;
-#X obj 23 231 spigot~;
-#X floatatom 188 285 5 0 0 0 - - -;
-#X connect 0 0 30 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 17 0;
-#X connect 7 0 12 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 9 1 8 0;
-#X connect 10 0 6 0;
-#X connect 11 0 10 1;
-#X connect 11 1 10 0;
-#X connect 12 0 14 0;
-#X connect 13 0 8 0;
-#X connect 13 0 19 0;
-#X connect 13 0 29 0;
-#X connect 14 0 13 1;
-#X connect 14 1 13 0;
-#X connect 15 0 9 0;
-#X connect 16 0 11 0;
-#X connect 18 0 13 0;
-#X connect 26 0 27 1;
-#X connect 27 0 28 0;
-#X connect 28 0 30 1;
-#X connect 28 0 31 0;
-#X connect 29 0 5 0;
-#X connect 29 1 27 0;
-#X connect 30 0 1 0;
-#X restore 170 176 pd sourceSpeed;
-#N canvas 144 122 1130 580 sourcePositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 515 441 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X obj 191 107 inlet;
-#X text 171 33 Calculates position of the source.;
-#N canvas 413 572 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8096 629 +~ 90;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 80 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 65 0;
-#X connect 80 0 81 0;
-#X connect 81 0 82 0;
-#X connect 83 0 81 0;
-#X connect 84 0 88 0;
-#X connect 85 0 90 0;
-#X connect 86 0 92 0;
-#X connect 87 0 6 0;
-#X connect 87 0 0 0;
-#X connect 87 0 0 1;
-#X connect 87 0 39 1;
-#X connect 88 0 87 0;
-#X connect 89 0 1 0;
-#X connect 89 0 1 1;
-#X connect 89 0 41 1;
-#X connect 89 0 8 0;
-#X connect 90 0 89 0;
-#X connect 91 0 10 0;
-#X connect 91 0 2 0;
-#X connect 91 0 2 1;
-#X connect 91 0 43 1;
-#X connect 92 0 91 0;
-#X restore 434 392 pd SourceAngles;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 29 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 29 1;
-#X connect 5 0 34 0;
-#X connect 5 0 38 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 50 0;
-#X connect 19 0 5 0;
-#X connect 19 0 50 1;
-#X connect 20 0 7 0;
-#X connect 20 0 50 2;
-#X connect 27 0 28 0;
-#X connect 28 0 39 0;
-#X connect 29 0 30 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 37 0;
-#X connect 32 0 36 1;
-#X connect 33 1 28 0;
-#X connect 34 0 42 0;
-#X connect 35 0 36 0;
-#X connect 36 0 33 0;
-#X connect 37 1 28 0;
-#X connect 38 0 44 0;
-#X connect 41 0 42 0;
-#X connect 42 0 33 1;
-#X connect 43 0 44 0;
-#X connect 44 0 37 1;
-#X connect 45 0 18 0;
-#X connect 46 0 19 0;
-#X connect 47 0 20 0;
-#X connect 48 0 20 1;
-#X connect 48 0 19 1;
-#X connect 48 0 18 1;
-#X connect 50 0 22 0;
-#X connect 50 1 21 0;
-#X restore 190 209 pd sourcePositions;
-#N canvas 647 139 633 561 sourceSpeed 0;
-#X obj 23 182 r~ tipSpeed;
-#X obj 36 280 *~ 1;
-#X obj 36 302 outlet~;
-#X text 21 325 Source Speed;
-#X obj 72 203 r length;
-#X obj 57 255 /;
-#X obj 405 379 outlet;
-#X obj 420 97 inlet;
-#X obj 405 236 *;
-#X obj 420 213 t f b;
-#X obj 405 308 +;
-#X obj 420 285 t f b;
-#X obj 420 119 * 7;
-#X obj 405 165 -;
-#X obj 420 141 t f b;
-#X obj 420 186 r bladeGrad;
-#X obj 420 259 r bladeConst;
-#X obj 193 426 outlet;
-#X obj 405 76 inlet;
-#X obj 353 279 outlet;
-#X text 384 58 Previous Source Position;
-#X text 457 97 Previous Source Diameter;
-#X text 452 378 Current Source Diameter;
-#X text 261 303 Current Source Position;
-#X text 97 459 Current source speed as a fraction of tip speed;
-#X text 451 118 Averaged correlation length;
-#X obj 192 201 r start_armLength;
-#X obj 177 223 -;
-#X obj 177 247 <= 0;
-#X obj 150 188 t f f;
-#X obj 23 231 spigot~;
-#X floatatom 188 285 5 0 0 0 - - -;
-#X connect 0 0 30 0;
-#X connect 1 0 2 0;
-#X connect 4 0 5 1;
-#X connect 5 0 1 1;
-#X connect 5 0 17 0;
-#X connect 7 0 12 0;
-#X connect 8 0 10 0;
-#X connect 9 0 8 1;
-#X connect 9 1 8 0;
-#X connect 10 0 6 0;
-#X connect 11 0 10 1;
-#X connect 11 1 10 0;
-#X connect 12 0 14 0;
-#X connect 13 0 8 0;
-#X connect 13 0 19 0;
-#X connect 13 0 29 0;
-#X connect 14 0 13 1;
-#X connect 14 1 13 0;
-#X connect 15 0 9 0;
-#X connect 16 0 11 0;
-#X connect 18 0 13 0;
-#X connect 26 0 27 1;
-#X connect 27 0 28 0;
-#X connect 28 0 30 1;
-#X connect 28 0 31 0;
-#X connect 29 0 5 0;
-#X connect 29 1 27 0;
-#X connect 30 0 1 0;
-#X restore 29 177 pd sourceSpeed;
-#N canvas 144 122 1130 580 sourcePositions 0;
-#X obj 271 193 r Zobs;
-#X obj 185 191 r Yobs;
-#X obj 101 183 r Xobs;
-#X obj 86 252 -~;
-#X obj 86 276 *~;
-#X obj 170 254 -~;
-#X obj 170 283 *~;
-#X obj 256 254 -~;
-#X obj 256 278 *~;
-#X obj 155 317 +~;
-#X obj 155 349 +~;
-#X obj 155 376 sqrt~;
-#X obj 271 235 line~;
-#X msg 271 213 \$1 5;
-#X obj 185 233 line~;
-#X msg 185 212 \$1 5;
-#X obj 101 229 line~;
-#X msg 101 207 \$1 5;
-#X obj 86 163 *~ 1;
-#X obj 170 169 *~ 1;
-#X obj 256 173 *~ 1;
-#X obj 521 414 outlet~;
-#X obj 434 414 outlet~;
-#X obj 155 401 outlet~;
-#X text 150 439 source distance from Observer;
-#X text 360 440 source - Obs Elevation;
-#X text 515 441 source - Obs Azimuth;
-#X obj 831 345 r myMet;
-#X obj 830 370 snapshot~;
-#X obj 738 149 /~;
-#X obj 738 172 atan~;
-#X obj 738 195 /~ 3.14159;
-#X obj 738 219 abs~;
-#X obj 723 285 spigot~;
-#X obj 762 242 >~ 0;
-#X obj 690 230 sig~ 1;
-#X obj 723 262 -~;
-#X obj 858 309 spigot~;
-#X obj 897 265 <~ 0;
-#X obj 830 396 outlet;
-#X text 822 423 Pan Value;
-#X obj 797 242 r myMet;
-#X obj 762 263 snapshot~;
-#X obj 930 264 r myMet;
-#X obj 897 287 snapshot~;
-#X obj 86 136 r~ tipX;
-#X obj 170 145 r~ tipY;
-#X obj 256 150 r~ tipZ;
-#X obj 191 107 inlet;
-#X text 171 33 Calculates position of the source.;
-#N canvas 413 572 1003 782 SourceAngles 0;
-#X obj -8305 185 *~;
-#X obj -8274 186 *~;
-#X obj -8245 185 *~;
-#X obj -8289 220 +~;
-#X obj -8289 252 +~;
-#X obj -8289 279 sqrt~;
-#X obj -8571 236 -~;
-#X obj -8571 260 *~;
-#X obj -8535 235 -~;
-#X obj -8535 264 *~;
-#X obj -8499 235 -~;
-#X obj -8499 259 *~;
-#X obj -8550 298 +~;
-#X obj -8550 330 +~;
-#X obj -8550 357 sqrt~;
-#X obj -8569 47 inlet~;
-#X obj -8522 48 inlet~;
-#X obj -8475 49 inlet~;
-#X obj -8132 43 r Xobs;
-#X obj -8132 83 line~;
-#X msg -8132 64 \$1 5;
-#X obj -8088 84 line~;
-#X msg -8088 65 \$1 5;
-#X obj -8041 84 line~;
-#X msg -8041 65 \$1 5;
-#X obj -8088 44 r Yobs;
-#X obj -8041 44 r Zobs;
-#X text -8567 24 a;
-#X text -8517 29 b;
-#X text -8471 26 c;
-#X obj -8134 214 -~;
-#X obj -8134 238 *~;
-#X obj -8098 213 -~;
-#X obj -8098 242 *~;
-#X obj -8062 213 -~;
-#X obj -8062 237 *~;
-#X obj -8113 276 +~;
-#X obj -8113 304 +~;
-#X obj -8113 335 sqrt~;
-#X obj -7937 219 -~;
-#X obj -7937 243 *~;
-#X obj -7901 218 -~;
-#X obj -7901 247 *~;
-#X obj -7865 218 -~;
-#X obj -7865 242 *~;
-#X obj -7916 281 +~;
-#X obj -7916 313 +~;
-#X obj -7916 340 sqrt~;
-#X text -8578 360 U;
-#X text -8309 279 W;
-#X text -8130 337 d;
-#X obj -8722 229 *~;
-#X obj -8691 230 *~;
-#X obj -8662 229 *~;
-#X obj -8706 264 +~;
-#X obj -8706 296 +~;
-#X obj -8706 323 sqrt~;
-#X text -8726 323 l;
-#X obj -8517 559 arccos~;
-#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
--1;
-#X obj -7909 83 s GO;
-#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
--1 -1;
-#X obj -7969 83 s setUp;
-#X text -7936 341 m;
-#X obj -8517 606 outlet~;
-#X obj -8096 655 outlet~;
-#X text -8574 642 Tip - Obs Elevation;
-#X text -8145 680 Tip - Obs Azimuth;
-#X obj -8517 445 +~;
-#X obj -8517 474 -~;
-#X obj -8487 481 *~ 2;
-#X obj -8502 504 *~;
-#X obj -8517 534 /~;
-#X obj -8096 606 arccos~;
-#X obj -8096 465 +~;
-#X obj -8096 494 -~;
-#X obj -8066 501 *~ 2;
-#X obj -8081 524 *~;
-#X obj -8096 554 /~;
-#X text -8520 626 comment;
-#X obj -8096 629 +~ 90;
-#X obj -8417 592 snapshot~;
-#X floatatom -8417 616 0 0 0 0 - - -;
-#X obj -8417 569 r myMet;
-#X obj -8344 31 r conProX;
-#X obj -8274 34 r conProY;
-#X obj -8208 36 r conProZ;
-#X obj -8344 72 line~;
-#X msg -8344 53 \$1 5;
-#X obj -8274 73 line~;
-#X msg -8274 54 \$1 5;
-#X obj -8208 76 line~;
-#X msg -8208 57 \$1 5;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 4 1;
-#X connect 3 0 4 0;
-#X connect 4 0 5 0;
-#X connect 4 0 75 1;
-#X connect 6 0 7 0;
-#X connect 6 0 7 1;
-#X connect 7 0 12 0;
-#X connect 8 0 9 0;
-#X connect 8 0 9 1;
-#X connect 9 0 12 1;
-#X connect 10 0 11 0;
-#X connect 10 0 11 1;
-#X connect 11 0 13 1;
-#X connect 12 0 13 0;
-#X connect 13 0 14 0;
-#X connect 13 0 68 1;
-#X connect 13 0 74 1;
-#X connect 14 0 71 0;
-#X connect 14 0 77 0;
-#X connect 15 0 6 1;
-#X connect 15 0 30 1;
-#X connect 15 0 51 0;
-#X connect 15 0 51 1;
-#X connect 16 0 8 1;
-#X connect 16 0 32 1;
-#X connect 16 0 52 0;
-#X connect 16 0 52 1;
-#X connect 17 0 10 1;
-#X connect 17 0 34 1;
-#X connect 17 0 53 0;
-#X connect 17 0 53 1;
-#X connect 18 0 20 0;
-#X connect 19 0 30 0;
-#X connect 19 0 39 0;
-#X connect 20 0 19 0;
-#X connect 21 0 32 0;
-#X connect 21 0 41 0;
-#X connect 22 0 21 0;
-#X connect 23 0 34 0;
-#X connect 23 0 43 0;
-#X connect 24 0 23 0;
-#X connect 25 0 22 0;
-#X connect 26 0 24 0;
-#X connect 30 0 31 0;
-#X connect 30 0 31 1;
-#X connect 31 0 36 0;
-#X connect 32 0 33 0;
-#X connect 32 0 33 1;
-#X connect 33 0 36 1;
-#X connect 34 0 35 0;
-#X connect 34 0 35 1;
-#X connect 35 0 37 1;
-#X connect 36 0 37 0;
-#X connect 37 0 38 0;
-#X connect 37 0 68 0;
-#X connect 38 0 70 0;
-#X connect 39 0 40 0;
-#X connect 39 0 40 1;
-#X connect 40 0 45 0;
-#X connect 41 0 42 0;
-#X connect 41 0 42 1;
-#X connect 42 0 45 1;
-#X connect 43 0 44 0;
-#X connect 43 0 44 1;
-#X connect 44 0 46 1;
-#X connect 45 0 46 0;
-#X connect 46 0 47 0;
-#X connect 46 0 69 1;
-#X connect 51 0 54 0;
-#X connect 52 0 54 1;
-#X connect 53 0 55 1;
-#X connect 54 0 55 0;
-#X connect 55 0 56 0;
-#X connect 55 0 74 0;
-#X connect 56 0 76 0;
-#X connect 58 0 64 0;
-#X connect 59 0 60 0;
-#X connect 61 0 62 0;
-#X connect 68 0 69 0;
-#X connect 69 0 72 0;
-#X connect 70 0 71 1;
-#X connect 71 0 72 1;
-#X connect 72 0 58 0;
-#X connect 73 0 80 0;
-#X connect 74 0 75 0;
-#X connect 75 0 78 0;
-#X connect 76 0 77 1;
-#X connect 77 0 78 1;
-#X connect 78 0 73 0;
-#X connect 80 0 65 0;
-#X connect 80 0 81 0;
-#X connect 81 0 82 0;
-#X connect 83 0 81 0;
-#X connect 84 0 88 0;
-#X connect 85 0 90 0;
-#X connect 86 0 92 0;
-#X connect 87 0 6 0;
-#X connect 87 0 0 0;
-#X connect 87 0 0 1;
-#X connect 87 0 39 1;
-#X connect 88 0 87 0;
-#X connect 89 0 1 0;
-#X connect 89 0 1 1;
-#X connect 89 0 41 1;
-#X connect 89 0 8 0;
-#X connect 90 0 89 0;
-#X connect 91 0 10 0;
-#X connect 91 0 2 0;
-#X connect 91 0 2 1;
-#X connect 91 0 43 1;
-#X connect 92 0 91 0;
-#X restore 434 392 pd SourceAngles;
-#X connect 0 0 13 0;
-#X connect 1 0 15 0;
-#X connect 2 0 17 0;
-#X connect 3 0 4 0;
-#X connect 3 0 4 1;
-#X connect 3 0 29 0;
-#X connect 4 0 9 0;
-#X connect 5 0 6 0;
-#X connect 5 0 6 1;
-#X connect 5 0 29 1;
-#X connect 5 0 34 0;
-#X connect 5 0 38 0;
-#X connect 6 0 9 1;
-#X connect 7 0 8 0;
-#X connect 7 0 8 1;
-#X connect 8 0 10 1;
-#X connect 9 0 10 0;
-#X connect 10 0 11 0;
-#X connect 11 0 23 0;
-#X connect 12 0 7 1;
-#X connect 13 0 12 0;
-#X connect 14 0 5 1;
-#X connect 15 0 14 0;
-#X connect 16 0 3 1;
-#X connect 17 0 16 0;
-#X connect 18 0 3 0;
-#X connect 18 0 50 0;
-#X connect 19 0 5 0;
-#X connect 19 0 50 1;
-#X connect 20 0 7 0;
-#X connect 20 0 50 2;
-#X connect 27 0 28 0;
-#X connect 28 0 39 0;
-#X connect 29 0 30 0;
-#X connect 30 0 31 0;
-#X connect 31 0 32 0;
-#X connect 32 0 37 0;
-#X connect 32 0 36 1;
-#X connect 33 1 28 0;
-#X connect 34 0 42 0;
-#X connect 35 0 36 0;
-#X connect 36 0 33 0;
-#X connect 37 1 28 0;
-#X connect 38 0 44 0;
-#X connect 41 0 42 0;
-#X connect 42 0 33 1;
-#X connect 43 0 44 0;
-#X connect 44 0 37 1;
-#X connect 45 0 18 0;
-#X connect 46 0 19 0;
-#X connect 47 0 20 0;
-#X connect 48 0 20 1;
-#X connect 48 0 19 1;
-#X connect 48 0 18 1;
-#X connect 50 0 22 0;
-#X connect 50 1 21 0;
-#X restore 49 210 pd sourcePositions;
 #X text 480 -91 Patch that holds all the sources that are used to produce
 the basic aeolian tone.;
-#X obj 745 233 freqCalcCyl4HiFi;
-#X obj 458 232 freqCalcCyl4HiFi;
-#X obj 29 40 freqCalcCyl4HiFi;
-#X obj 315 236 freqCalcCyl4HiFi;
-#X obj 27 134 freqCalcCyl4HiFi;
-#X obj 594 233 freqCalcCyl4HiFi;
-#X obj 170 235 freqCalcCyl4HiFi;
-#X obj 29 236 freqCalcCyl4HiFi;
 #N canvas 70 65 1019 293 sourceAASpeed 0;
 #X obj 471 150 outlet~;
 #X text 457 176 Source Speed;
@@ -4160,6 +1802,8 @@
 #X obj 471 77 * 0.21336;
 #X obj 471 123 line~;
 #X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
 #X connect 3 0 17 0;
 #X connect 4 0 5 0;
 #X connect 5 0 6 0;
@@ -4181,79 +1825,372 @@
 #X connect 23 0 5 0;
 #X connect 23 0 0 0;
 #X connect 24 0 23 0;
-#X restore 29 -12 pd sourceAASpeed;
+#X restore 31 92 pd sourceAASpeed;
+#N canvas 70 65 1019 293 sourceBBSpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 0.42672;
+#X msg 758 97 0.127899;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 217 94 pd sourceBBSpeed;
+#N canvas 70 65 1019 293 sourceCCSpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 0.6096;
+#X msg 758 97 0.127608;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 426 93 pd sourceCCSpeed;
+#N canvas 70 65 1019 293 sourceDDSpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 0.82296;
+#X msg 758 97 0.114935;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 662 93 pd sourceDDSpeed;
+#N canvas 70 65 1019 293 sourceEESpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 1.03632;
+#X msg 758 97 0.093257;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 125 238 pd sourceEESpeed;
+#N canvas 70 65 1019 293 sourceFFSpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 1.2192;
+#X msg 758 97 0.07018;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 344 234 pd sourceFFSpeed;
+#N canvas 70 65 1019 293 sourceGGSpeed 0;
+#X obj 471 150 outlet~;
+#X text 457 176 Source Speed;
+#X obj 758 119 outlet;
+#X obj 85 15 r RPM;
+#X obj 267 23 r myMet;
+#X obj 267 45 snapshot~;
+#X floatatom 267 68 0 0 0 0 - - -;
+#X obj 758 76 loadbang;
+#X obj 85 114 *~ 0.21336;
+#X obj 16 152 r myMet;
+#X obj 16 174 snapshot~;
+#X floatatom 16 196 0 0 0 0 - - -;
+#X obj 85 92 cos~;
+#X obj 189 147 r myMet;
+#X obj 189 169 snapshot~;
+#X floatatom 189 192 0 0 0 0 - - -;
+#X obj 85 36 phasor~;
+#X obj 155 114 *~ 0.21336;
+#X obj 155 92 sin~;
+#X obj 471 31 r RPM;
+#X obj 471 53 * 6.28319;
+#X obj 471 123 line~;
+#X msg 471 100 \$1 20;
+#X text 541 53 2 PI;
+#X text 538 74 Radius of source;
+#X obj 471 77 * 1.31064;
+#X msg 758 97 0.055417;
+#X connect 3 0 16 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 0;
+#X connect 7 0 26 0;
+#X connect 8 0 10 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 12 0 8 0;
+#X connect 13 0 14 0;
+#X connect 14 0 15 0;
+#X connect 16 0 12 0;
+#X connect 16 0 18 0;
+#X connect 17 0 14 0;
+#X connect 18 0 17 0;
+#X connect 19 0 20 0;
+#X connect 20 0 25 0;
+#X connect 21 0 5 0;
+#X connect 21 0 0 0;
+#X connect 22 0 21 0;
+#X connect 25 0 22 0;
+#X connect 26 0 2 0;
+#X restore 576 231 pd sourceGGSpeed;
+#X msg 273 -51 0.5;
+#X obj 273 -72 loadbang;
+#X obj 426 145 freqCalcCyl5HiFi;
+#X obj 125 290 freqCalcCyl5HiFi;
+#X obj 31 144 freqCalcCyl5HiFi;
+#X obj 217 146 freqCalcCyl5HiFi;
+#X obj 662 145 freqCalcCyl5HiFi;
+#X obj 576 283 freqCalcCyl5HiFi;
+#X obj 344 286 freqCalcCyl5HiFi;
+#X obj 149 0 sig~ 20;
+#X obj 367 -31 sig~ 90;
+#X obj 604 -34 sig~ 0;
 #X connect 1 0 0 0;
 #X connect 2 0 4 0;
 #X connect 2 1 4 1;
-#X connect 5 0 23 0;
-#X connect 5 1 12 0;
-#X connect 5 2 12 1;
-#X connect 5 3 23 1;
-#X connect 6 0 23 2;
-#X connect 6 1 23 3;
-#X connect 6 2 23 4;
-#X connect 6 3 23 5;
-#X connect 8 0 26 0;
-#X connect 8 1 9 0;
-#X connect 8 2 18 0;
-#X connect 8 3 18 1;
-#X connect 8 3 26 1;
-#X connect 9 0 26 2;
-#X connect 9 1 26 3;
-#X connect 9 2 26 4;
-#X connect 9 3 26 5;
-#X connect 10 0 27 0;
-#X connect 10 1 11 0;
-#X connect 10 2 27 1;
-#X connect 11 0 27 2;
-#X connect 11 1 27 3;
-#X connect 11 2 27 4;
-#X connect 11 3 27 5;
-#X connect 12 0 28 0;
-#X connect 12 1 13 0;
-#X connect 12 2 14 0;
-#X connect 12 3 14 1;
-#X connect 12 3 28 1;
-#X connect 13 0 28 2;
-#X connect 13 1 28 3;
-#X connect 13 2 28 4;
-#X connect 13 3 28 5;
-#X connect 14 0 24 0;
-#X connect 14 1 15 0;
-#X connect 14 2 8 0;
-#X connect 14 3 8 1;
-#X connect 14 3 24 1;
-#X connect 15 0 24 2;
-#X connect 15 1 24 3;
-#X connect 15 2 24 4;
-#X connect 15 3 24 5;
-#X connect 18 0 29 0;
-#X connect 18 1 19 0;
-#X connect 18 2 20 0;
-#X connect 18 3 20 1;
-#X connect 18 3 29 1;
-#X connect 19 0 29 2;
-#X connect 19 1 29 3;
-#X connect 19 2 29 4;
-#X connect 19 3 29 5;
-#X connect 20 0 30 0;
-#X connect 20 1 21 0;
-#X connect 20 2 10 0;
-#X connect 20 3 30 1;
-#X connect 21 0 30 2;
-#X connect 21 1 30 3;
-#X connect 21 2 30 4;
-#X connect 21 3 30 5;
-#X connect 31 0 25 0;
-#X connect 31 1 25 1;
+#X connect 10 0 21 0;
+#X connect 10 1 21 1;
+#X connect 11 0 22 0;
+#X connect 11 1 22 1;
+#X connect 12 0 19 0;
+#X connect 12 1 19 1;
+#X connect 13 0 23 0;
+#X connect 13 1 23 1;
+#X connect 14 0 20 0;
+#X connect 14 1 20 1;
+#X connect 15 0 25 0;
+#X connect 15 1 25 1;
+#X connect 16 0 24 0;
+#X connect 16 1 24 1;
+#X connect 17 0 19 5;
+#X connect 17 0 20 5;
+#X connect 17 0 21 5;
+#X connect 17 0 22 5;
+#X connect 17 0 23 5;
+#X connect 17 0 24 5;
+#X connect 17 0 25 5;
+#X connect 18 0 17 0;
+#X connect 26 0 19 2;
+#X connect 26 0 20 2;
+#X connect 26 0 21 2;
+#X connect 26 0 22 2;
+#X connect 26 0 23 2;
+#X connect 26 0 24 2;
+#X connect 26 0 25 2;
+#X connect 27 0 19 3;
+#X connect 27 0 20 3;
+#X connect 27 0 21 3;
+#X connect 27 0 22 3;
+#X connect 27 0 23 3;
+#X connect 27 0 24 3;
+#X connect 27 0 25 3;
+#X connect 28 0 19 4;
+#X connect 28 0 20 4;
+#X connect 28 0 21 4;
+#X connect 28 0 22 4;
+#X connect 28 0 23 4;
+#X connect 28 0 24 4;
+#X connect 28 0 25 4;
 #X restore 219 144 pd sources;
 #X floatatom 227 52 5 0 0 0 - - -;
 #X obj -276 345 hsl 100 20 0.1 3 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 3072 1;
+-1 -1 4384 1;
 #X floatatom -319 368 5 0 0 0 - - -;
 #X obj -324 319 r setUp;
 #X obj -279 300 r thisLength;
-#X obj -279 368 s bladeLen;
 #X text -160 56 X Position;
 #X text -166 149 Y Position;
 #X text -168 239 Z Position;
@@ -4290,7 +2227,6 @@
 #X msg -272 122 0.07;
 #X msg -210 575 0.007;
 #X msg -135 212 2;
-#X msg -150 320 0.781;
 #X obj 584 32 bng 25 250 50 0 empty empty empty 17 7 0 10 -261234 -1
 -1;
 #X obj 584 80 s MLB;
@@ -4330,10 +2266,13 @@
 #X text -165 433 RPM;
 #X obj -221 455 s RPM;
 #X msg -208 400 0.1;
+#X msg -181 383 10;
+#X obj -279 368 s length;
+#X msg -150 320 1.3843;
 #X connect 0 0 1 0;
 #X connect 1 0 63 0;
 #X connect 3 0 4 0;
-#X connect 3 0 133 0;
+#X connect 3 0 131 0;
 #X connect 7 0 9 0;
 #X connect 7 0 62 0;
 #X connect 8 0 10 0;
@@ -4343,7 +2282,7 @@
 #X connect 17 0 14 0;
 #X connect 18 0 17 1;
 #X connect 18 0 66 0;
-#X connect 19 0 78 0;
+#X connect 19 0 77 0;
 #X connect 21 0 3 0;
 #X connect 22 0 7 0;
 #X connect 23 0 8 0;
@@ -4355,7 +2294,7 @@
 #X connect 29 0 30 0;
 #X connect 30 0 19 0;
 #X connect 32 0 31 0;
-#X connect 32 0 102 0;
+#X connect 32 0 101 0;
 #X connect 33 0 36 0;
 #X connect 33 0 39 0;
 #X connect 34 0 40 0;
@@ -4374,7 +2313,7 @@
 #X connect 51 0 33 0;
 #X connect 52 0 34 0;
 #X connect 53 0 35 0;
-#X connect 57 0 104 0;
+#X connect 57 0 103 0;
 #X connect 58 0 54 0;
 #X connect 58 1 55 0;
 #X connect 59 0 58 0;
@@ -4383,60 +2322,61 @@
 #X connect 63 0 2 0;
 #X connect 64 0 34 0;
 #X connect 67 0 68 0;
-#X connect 67 0 71 0;
+#X connect 67 0 134 0;
 #X connect 69 0 67 0;
 #X connect 70 0 67 0;
+#X connect 74 0 67 0;
 #X connect 75 0 67 0;
 #X connect 76 0 67 0;
-#X connect 77 0 67 0;
-#X connect 78 0 20 0;
-#X connect 91 0 19 0;
-#X connect 93 0 7 0;
-#X connect 93 0 8 0;
-#X connect 94 0 34 0;
-#X connect 95 0 64 0;
-#X connect 96 0 48 0;
-#X connect 97 0 101 0;
-#X connect 98 0 76 0;
-#X connect 99 0 50 0;
-#X connect 100 0 103 0;
-#X connect 100 0 106 0;
-#X connect 101 0 35 0;
-#X connect 103 0 7 0;
-#X connect 104 0 59 0;
-#X connect 105 0 34 0;
-#X connect 106 0 8 0;
-#X connect 107 0 35 0;
-#X connect 108 0 67 0;
-#X connect 109 0 114 0;
-#X connect 111 0 35 0;
-#X connect 112 0 115 0;
-#X connect 114 0 110 0;
-#X connect 115 0 113 0;
-#X connect 116 0 117 0;
-#X connect 117 0 118 0;
-#X connect 119 0 131 0;
-#X connect 120 0 128 0;
-#X connect 121 0 130 0;
-#X connect 122 0 129 0;
-#X connect 123 0 83 0;
-#X connect 123 1 89 0;
-#X connect 123 2 88 0;
-#X connect 123 3 87 0;
-#X connect 123 4 86 0;
-#X connect 123 5 85 0;
-#X connect 123 6 84 0;
-#X connect 123 7 82 0;
-#X connect 123 8 81 0;
-#X connect 123 9 80 0;
-#X connect 123 10 79 0;
-#X connect 123 11 90 0;
-#X connect 123 12 92 0;
-#X connect 124 0 125 0;
-#X connect 125 0 126 0;
-#X connect 127 0 34 0;
-#X connect 128 0 123 0;
-#X connect 129 0 123 0;
-#X connect 130 0 123 0;
-#X connect 131 0 123 0;
-#X connect 134 0 3 0;
+#X connect 77 0 20 0;
+#X connect 90 0 19 0;
+#X connect 92 0 7 0;
+#X connect 92 0 8 0;
+#X connect 93 0 34 0;
+#X connect 94 0 64 0;
+#X connect 95 0 48 0;
+#X connect 96 0 100 0;
+#X connect 97 0 135 0;
+#X connect 98 0 50 0;
+#X connect 99 0 102 0;
+#X connect 99 0 105 0;
+#X connect 100 0 35 0;
+#X connect 102 0 7 0;
+#X connect 103 0 59 0;
+#X connect 104 0 34 0;
+#X connect 105 0 8 0;
+#X connect 106 0 35 0;
+#X connect 107 0 112 0;
+#X connect 109 0 35 0;
+#X connect 110 0 113 0;
+#X connect 112 0 108 0;
+#X connect 113 0 111 0;
+#X connect 114 0 115 0;
+#X connect 115 0 116 0;
+#X connect 117 0 129 0;
+#X connect 118 0 126 0;
+#X connect 119 0 128 0;
+#X connect 120 0 127 0;
+#X connect 121 0 82 0;
+#X connect 121 1 88 0;
+#X connect 121 2 87 0;
+#X connect 121 3 86 0;
+#X connect 121 4 85 0;
+#X connect 121 5 84 0;
+#X connect 121 6 83 0;
+#X connect 121 7 81 0;
+#X connect 121 8 80 0;
+#X connect 121 9 79 0;
+#X connect 121 10 78 0;
+#X connect 121 11 89 0;
+#X connect 121 12 91 0;
+#X connect 122 0 123 0;
+#X connect 123 0 124 0;
+#X connect 125 0 34 0;
+#X connect 126 0 121 0;
+#X connect 127 0 121 0;
+#X connect 128 0 121 0;
+#X connect 129 0 121 0;
+#X connect 132 0 3 0;
+#X connect 133 0 3 0;
+#X connect 135 0 67 0;
--- a/Propellor/freqCalcCyl4HiFi.pd	Mon Mar 28 21:01:59 2016 +0100
+++ b/Propellor/freqCalcCyl4HiFi.pd	Tue Mar 29 20:37:47 2016 +0100
@@ -21,10 +21,10 @@
 #X text 674 472 based on the physics of;
 #X obj 354 469 r \$0-diameter;
 #X text 294 352 Calculates the gain of the dipole source;
-#X text 530 40 Azimuth;
+#X text 490 30 Azimuth;
 #X text 641 39 Pan;
-#X text 453 39 Elevation;
-#X text 384 42 Distance;
+#X text 413 29 Elevation;
+#X text 344 32 Distance;
 #X text 218 42 Diameter;
 #X obj 709 319 newStrou;
 #X floatatom 223 107 0 0 0 0 - - -;
@@ -63,9 +63,9 @@
 #X connect 4 0 2 1;
 #X connect 9 0 1 0;
 #X connect 10 0 2 0;
-#X restore 761 65 pd corrLen Calc;
-#X obj 761 42 r~ \$0-myRey;
-#X obj 761 89 s~ \$0-myCor;
+#X restore 708 61 pd corrLen Calc;
+#X obj 708 38 r~ \$0-myRey;
+#X obj 708 85 s~ \$0-myCor;
 #X obj 371 224 r~ \$0-myCor;
 #X obj 1067 309 hip~;
 #X obj 335 448 r~ \$0-myCor;
@@ -217,8 +217,8 @@
 #X connect 68 0 62 0;
 #X connect 69 0 63 0;
 #X restore 649 549 pd Dipoles;
-#X obj 893 49 noise~;
-#X obj 893 72 s~ \$0-thisNoise;
+#X obj 813 37 noise~;
+#X obj 813 60 s~ \$0-thisNoise;
 #X obj 1067 214 r~ \$0-thisNoise;
 #X text 674 485 the object and environment;
 #N canvas 308 58 1027 635 StBandwidth 0;
@@ -282,19 +282,19 @@
 #X connect 24 0 3 0;
 #X connect 25 0 13 1;
 #X connect 26 0 9 1;
-#X restore 994 71 pd StBandwidth;
-#X obj 994 94 s \$0-Qval;
+#X restore 914 59 pd StBandwidth;
+#X obj 914 82 s \$0-Qval;
 #X obj 1153 257 r myMet;
 #X obj 1143 278 snapshot~;
 #X obj 1143 237 r~ \$0-myFreq;
-#X text 133 41 Source Speed;
-#X obj 388 61 inlet~;
-#X obj 460 60 inlet~;
-#X obj 534 59 inlet~;
-#X obj 393 84 s~ \$0-dist;
-#X obj 120 65 inlet~;
-#X obj 52 88 /~ 343.56;
-#X obj 52 111 s~ \$0-MY_MACH;
+#X text 130 41 Source Speed;
+#X obj 348 51 inlet~;
+#X obj 420 50 inlet~;
+#X obj 494 49 inlet~;
+#X obj 348 72 s~ \$0-dist;
+#X obj 117 65 inlet~;
+#X obj 49 88 /~ 343.56;
+#X obj 49 111 s~ \$0-MY_MACH;
 #X obj 391 245 r~ \$0-dist;
 #X obj 410 266 r~ \$0-elev;
 #X obj 430 285 r~ \$0-azim;
@@ -729,7 +729,7 @@
 #X obj 396 510 r~ \$0-azim;
 #X obj 376 490 r~ \$0-dist;
 #X obj 332 184 r~ \$0-sourceSpeed;
-#X obj 120 85 s~ \$0-sourceSpeed;
+#X obj 117 85 s~ \$0-sourceSpeed;
 #X obj 709 151 r~ \$0-sourceSpeed;
 #X obj 314 426 r~ \$0-sourceSpeed;
 #X obj 776 330 r~ \$0-sourceSpeed;
@@ -795,8 +795,8 @@
 #X connect 26 0 8 0;
 #X connect 27 0 8 1;
 #X restore 709 410 pd doppler;
-#X obj 467 82 s~ \$0-elev;
-#X obj 542 82 s~ \$0-azim;
+#X obj 420 72 s~ \$0-elev;
+#X obj 494 72 s~ \$0-azim;
 #X connect 1 0 3 0;
 #X connect 2 0 15 0;
 #X connect 2 0 27 0;
--- a/SwordCorInterpWii/SwordCorInterpWii.pd	Mon Mar 28 21:01:59 2016 +0100
+++ b/SwordCorInterpWii/SwordCorInterpWii.pd	Tue Mar 29 20:37:47 2016 +0100
@@ -7,12 +7,12 @@
 #X text -165 346 Blade Length;
 #X text -9 37 Arm Length;
 #X obj 21 251 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 4938 1;
+-1 -1 9900 1;
 #X floatatom 18 280 0 0 0 0 - - -;
 #X obj -270 444 hsl 100 20 0 0.1 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 2484 1;
+-1 -1 2891 1;
 #X obj -271 529 hsl 100 20 0.0001 0.1 0 0 empty empty empty -2 -8 0
-10 -262144 -1 -1 2478 1;
+10 -262144 -1 -1 1313 1;
 #X floatatom -273 474 8 0 0 0 - - -;
 #X floatatom -274 557 8 0 0 0 - - -;
 #X obj -216 556 s tipThick;
@@ -39,7 +39,7 @@
 #X obj 83 21 loadbang;
 #X obj 83 45 delay 13;
 #X obj 15 336 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 2732 1;
+-1 -1 2072 1;
 #X floatatom 12 368 0 0 0 0 - - -;
 #X obj -46 316 r setUp;
 #X obj -43 59 s start_armLength;
@@ -114,7 +114,7 @@
 #X restore 427 102 pd opLevels;
 #X msg 436 48 5;
 #X obj 430 73 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 6230 1;
+-262144 -1 -1 6279 1;
 #X obj 427 2 r GAIN;
 #X floatatom 370 103 8 0 0 0 - - -;
 #X obj -218 473 s hiltThick;
@@ -122,7 +122,7 @@
 #X msg -171 120 1;
 #X floatatom 227 52 5 0 0 0 - - -;
 #X obj -276 345 hsl 100 20 0.1 10 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 2500 1;
+-262144 -1 -1 950 1;
 #X floatatom -319 368 5 0 0 0 - - -;
 #X obj -324 319 r setUp;
 #X obj -279 300 r thisLength;
--- a/scene demo/testBedD4.pd	Mon Mar 28 21:01:59 2016 +0100
+++ b/scene demo/testBedD4.pd	Tue Mar 29 20:37:47 2016 +0100
@@ -10,8 +10,8 @@
 #X text -249 95 Wind Speed;
 #X obj 35 -90 loadbang;
 #X msg 35 -70 5;
-#X obj 296 26 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 5659 1;
+#X obj 296 26 hsl 128 15 1e-05 1 1 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4013 1;
 #X floatatom 303 52 8 0 0 0 - - -;
 #X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
 -262144 -1 -1 6350 1;
@@ -21,7 +21,7 @@
 -1 -1 6350 1;
 #X floatatom 365 213 5 0 0 0 - - -;
 #X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 7937 1;
+-262144 -1 -1 9525 1;
 #X floatatom 380 268 5 0 0 0 - - -;
 #X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
 -1 -1 8877 1;
@@ -206,7 +206,6 @@
 #X obj -358 401 line \$1 50;
 #X obj -379 442 line \$1 50;
 #X obj -400 480 line \$1 50;
-#X obj 293 577 freqCalcCyl3No_D3Mach;
 #X obj -305 78 s WSPEED;
 #X obj 618 -47 metro 100;
 #X msg 253 183 0;
@@ -224,30 +223,31 @@
 #X msg -391 154 24 0.01 15 6 77 7e+08;
 #X msg -379 182 17 0.0015 10 3 -100 7e+08;
 #X msg -372 215 28 0.04 7 6 35 7e+08;
-#X msg 411 -27 0.001;
-#X msg -209 118 68.58;
+#X obj 293 577 freqCalcCyl4No_D4Mach;
+#X msg -209 118 10;
+#X msg 411 -27 0.00038;
 #X connect 0 0 33 0;
 #X connect 2 0 64 0;
 #X connect 2 0 110 0;
 #X connect 2 0 111 0;
 #X connect 3 0 4 0;
-#X connect 3 0 119 0;
+#X connect 3 0 118 0;
 #X connect 5 0 6 0;
 #X connect 6 0 3 0;
 #X connect 6 0 84 0;
 #X connect 8 0 9 0;
 #X connect 9 0 2 0;
 #X connect 10 0 11 0;
-#X connect 10 0 118 0;
+#X connect 10 0 134 0;
 #X connect 12 0 13 0;
-#X connect 12 0 118 5;
+#X connect 12 0 134 5;
 #X connect 15 0 16 0;
-#X connect 15 0 118 3;
+#X connect 15 0 134 3;
 #X connect 17 0 18 0;
 #X connect 17 0 83 0;
-#X connect 17 0 118 4;
+#X connect 17 0 134 4;
 #X connect 19 0 20 0;
-#X connect 19 0 118 2;
+#X connect 19 0 134 2;
 #X connect 25 0 27 0;
 #X connect 26 0 22 0;
 #X connect 26 1 23 0;
@@ -268,7 +268,7 @@
 #X connect 33 0 59 0;
 #X connect 33 0 60 0;
 #X connect 34 0 35 0;
-#X connect 34 0 118 1;
+#X connect 34 0 134 1;
 #X connect 36 0 34 0;
 #X connect 37 0 26 1;
 #X connect 38 0 77 0;
@@ -279,13 +279,13 @@
 #X connect 46 0 17 0;
 #X connect 47 0 12 0;
 #X connect 49 0 50 0;
-#X connect 49 0 118 6;
+#X connect 49 0 134 6;
 #X connect 51 0 49 0;
 #X connect 52 0 53 0;
-#X connect 52 0 118 7;
+#X connect 52 0 134 7;
 #X connect 54 0 52 0;
 #X connect 55 0 56 0;
-#X connect 55 0 118 8;
+#X connect 55 0 134 8;
 #X connect 57 0 55 0;
 #X connect 58 0 49 0;
 #X connect 59 0 52 0;
@@ -314,15 +314,15 @@
 #X connect 91 0 92 0;
 #X connect 94 0 5 0;
 #X connect 95 0 2 0;
-#X connect 96 0 120 0;
+#X connect 96 0 119 0;
 #X connect 97 0 96 0;
 #X connect 99 0 91 0;
 #X connect 100 0 85 0;
 #X connect 101 0 3 0;
 #X connect 102 0 17 0;
 #X connect 103 0 10 0;
-#X connect 105 0 122 0;
-#X connect 105 0 124 0;
+#X connect 105 0 121 0;
+#X connect 105 0 123 0;
 #X connect 106 0 17 0;
 #X connect 107 0 10 0;
 #X connect 108 0 10 0;
@@ -335,16 +335,15 @@
 #X connect 115 0 71 0;
 #X connect 116 0 73 0;
 #X connect 117 0 75 0;
-#X connect 120 0 98 0;
-#X connect 121 0 17 0;
-#X connect 123 0 125 0;
-#X connect 125 0 126 0;
-#X connect 125 0 118 9;
-#X connect 128 0 10 0;
-#X connect 130 0 19 0;
+#X connect 119 0 98 0;
+#X connect 120 0 17 0;
+#X connect 122 0 124 0;
+#X connect 124 0 125 0;
+#X connect 127 0 10 0;
+#X connect 129 0 19 0;
+#X connect 130 0 66 0;
 #X connect 131 0 66 0;
 #X connect 132 0 66 0;
 #X connect 133 0 66 0;
-#X connect 134 0 66 0;
-#X connect 135 0 10 0;
-#X connect 136 0 63 0;
+#X connect 135 0 63 0;
+#X connect 136 0 10 0;