Mercurial > hg > weather-synthesis-prototyping

changeset 223:3829344821ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Test Aeolian harp added. 6 strings with various diameters, tensions, mass and lengths. More physics to be added but not too bad a starting place. Sigmoids added for the lock in region. No hysteresis yet. No dampening factor for higher harmonics yet. Could do with an indicator on harpD1 that shows the natural freq, strouhal freq, harmonic number and if on / off.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 28 May 2016 08:11:09 +0100
parents 12bb55b6cff0
children 772c38206a3a
files .DS_Store MechAeolian/MA_Test2.pd MechAeolian/MechAeolianD1.pd MechAeolian/WindGenD1.pd MechAeolian/harpD1.pd MechAeolian/newStrou.pd
diffstat 6 files changed, 748 insertions(+), 474 deletions(-) [+]
line wrap: on
line diff
Binary file .DS_Store has changed
--- a/MechAeolian/MA_Test2.pd	Mon May 23 20:34:56 2016 +0100
+++ b/MechAeolian/MA_Test2.pd	Sat May 28 08:11:09 2016 +0100
@@ -1,13 +1,7 @@
-#N canvas 230 47 1440 823 10;
+#N canvas 321 35 1440 823 10;
 #X obj 249 -64 loadbang;
-#X obj -163 172 delwrite~ varwind 3000;
-#X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 169 1;
-#X obj -163 -2 *~ 1;
-#X obj -163 24 +~ 1;
-#X obj 35 -90 loadbang;
 #X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 1312 1;
+-262144 -1 -1 3755 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;
@@ -22,43 +16,6 @@
 -1 -1 7759 1;
 #X floatatom 339 156 5 0 0 0 - - -;
 #X text 512 303 Pan Value;
-#X obj -95 499 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
-#X obj -32 499 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
-#X text -35 408 Gain;
-#X obj -87 379 loadbang;
-#N canvas 555 179 313 396 opLevels 0;
-#X obj 79 184 dac~;
-#X obj 30 70 catch~ l;
-#X obj 128 70 catch~ r;
-#X obj 129 104 *~ 0.45;
-#X obj 30 104 *~ 0.45;
-#X obj 30 210 prvu~;
-#X obj 129 211 prvu~;
-#X obj 93 33 inlet;
-#X obj 30 239 outlet;
-#X obj 129 239 outlet;
-#X connect 1 0 4 0;
-#X connect 2 0 3 0;
-#X connect 3 0 6 0;
-#X connect 3 0 0 1;
-#X connect 4 0 5 0;
-#X connect 4 0 0 0;
-#X connect 5 0 8 0;
-#X connect 6 0 9 0;
-#X connect 7 0 4 1;
-#X connect 7 0 3 1;
-#X restore -96 456 pd opLevels;
-#X msg -87 402 5;
-#X obj -93 427 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 7615 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;
-#X obj 26 33 s~ MY_MACH;
-#X obj 26 9 /~ 343.56;
-#X connect 1 0 3 0;
-#X connect 3 0 2 0;
-#X restore 93 -33 pd machCalc;
 #X obj 422 -121 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
 -1;
 #X msg 178 167 0;
@@ -68,7 +25,6 @@
 #X obj 309 84 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 -262144
 -1 -1 407 1;
 #X floatatom 331 103 8 0 0 0 - - -;
-#X text -8 353 No Of Sources;
 #X obj 422 -63 s SET_UP;
 #X obj 294 7 r SET_UP;
 #X obj 364 62 r SET_UP;
@@ -77,11 +33,11 @@
 #X obj 432 213 r SET_UP;
 #X obj 438 271 r SET_UP;
 #X obj 382 360 hsl 128 15 1 10000 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 12382 1;
+-262144 -1 -1 12135 1;
 #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 762 1;
+-1 -1 867 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
@@ -89,80 +45,19 @@
 #X floatatom 416 494 5 0 0 0 - - -;
 #X obj 500 441 r SET_UP;
 #X msg 74 450 0;
-#X floatatom -16 -23 5 0 0 0 - - -;
 #X msg 281 -21 0;
-#X obj -262 364 s GAIN;
-#X obj -96 356 r GAIN;
-#X obj -336 529 s DIST;
-#X obj 500 101 r DIST;
-#X obj -355 571 s LEN;
-#X obj 478 49 r LEN;
-#X obj -373 610 s DIA;
-#X obj 476 -4 r DIA;
 #X obj -391 648 s SPEED;
-#X obj -57 -70 r SPEED;
-#X floatatom -153 457 8 0 0 0 - - -;
 #X msg 207 206 90;
-#X obj 496 209 r ELEV;
-#N canvas 634 290 596 443 windDirection 0;
-#X obj 183 0 inlet~;
-#X obj 280 52 inlet;
-#X obj 280 86 sig~;
-#X obj 185 251 *~;
-#X obj 185 279 outlet~;
-#X obj 246 254 outlet~;
-#X obj 200 195 cos~;
-#X obj 200 135 +~;
-#X obj 200 71 lop~ 1;
-#X obj 246 194 *~ 360;
-#X obj 200 91 lop~ 1;
-#X obj 200 30 noise~;
-#X obj 200 51 lop~ 1;
-#X obj 200 157 /~ 360;
-#X obj 200 113 *~ 800;
-#X obj 200 221 abs~;
-#X connect 0 0 3 0;
-#X connect 1 0 2 0;
-#X connect 2 0 7 1;
-#X connect 3 0 4 0;
-#X connect 6 0 15 0;
-#X connect 7 0 13 0;
-#X connect 8 0 10 0;
-#X connect 9 0 5 0;
-#X connect 10 0 14 0;
-#X connect 11 0 12 0;
-#X connect 12 0 8 0;
-#X connect 13 0 6 0;
-#X connect 13 0 9 0;
-#X connect 14 0 7 0;
-#X connect 15 0 3 1;
-#X restore -129 88 pd windDirection;
-#X obj -11 148 snapshot~;
-#X floatatom -11 175 10 0 0 0 - - -;
-#X text -14 193 Wind Speed;
-#X obj -33 63 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
 #X msg 199 110 4;
-#X obj 70 148 snapshot~;
-#X floatatom 70 175 10 0 0 0 - - -;
-#X text 67 193 Wind Direction;
-#X obj -163 -32 WindGenD1;
-#X msg -2 -69 20;
 #X obj 618 -69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X obj 618 -94 loadbang;
 #X obj 618 -23 s myMet;
-#X obj 70 125 r myMet;
-#X obj -11 125 r myMet;
 #X msg 158 222 45;
-#X obj -318 487 s ELEV;
-#X obj -115 119 TUCalc2;
 #X msg 216 250 18.435;
 #X msg 348 -33 0.019;
 #X msg 349 -52 0.0254;
 #X msg 349 -72 0.0127;
-#X obj -94 -23 * 0.5;
-#X obj -57 -23 * 0.88;
 #X obj -262 345 line \$1 50;
 #X obj -318 465 line \$1 50;
 #X obj -336 507 line \$1 50;
@@ -170,8 +65,6 @@
 #X obj -373 591 line \$1 50;
 #X obj -391 629 line \$1 50;
 #X msg 253 183 0;
-#X obj -115 143 s blust;
-#X floatatom -64 141 0 0 0 0 - - -;
 #X msg 251 101 12;
 #X obj -75 284 sig~;
 #X obj 293 524 MechAeolianD1;
@@ -190,163 +83,138 @@
 #X msg 236 11 0.003;
 #X msg 215 67 0.4;
 #X msg 93 397 50;
-#X floatatom 308 633 0 0 0 0 - - -;
-#X floatatom 338 588 0 0 0 0 - - -;
-#X floatatom 353 567 0 0 0 0 - - -;
-#X floatatom 323 611 0 0 0 0 - - -;
-#X msg 35 -70 7;
+#X floatatom 368 554 0 0 0 0 - - -;
+#X floatatom 323 621 0 0 0 0 - - -;
+#X floatatom 338 599 0 0 0 0 - - -;
+#X floatatom 308 643 0 0 0 0 - - -;
 #X msg 348 -16 0.004;
 #X obj -209 24 sig~;
 #X msg -209 3 3.689;
-#X obj 542 388 r TENS;
 #X obj -391 324 unpack f f f f f f f f;
 #X obj -299 425 line \$1 50;
 #X obj -281 384 line \$1 50;
-#X obj -281 403 s TENS;
-#X obj -299 444 s MASS;
-#X obj 542 327 r MASS;
-#X msg -365 301 2 0.0002286 0.65 6 90 7940 59.98 1e+09;
-#X msg -371 282 2 0.0002794 0.65 6 90 7820 49.5 1e+09;
-#X msg -376 262 2 0.0004064 0.65 6 90 8050 67.91 1e+09;
-#X msg -382 242 2 0.0006096 0.65 6 90 6650 70.79 1e+09;
-#X msg -389 222 2 0.0008636 0.65 6 90 6900 82.83 1e+09;
-#X msg -397 202 2 0.0010668 0.65 6 90 6640 68.23 1e+09;
 #X msg -75 260 0.473;
 #X obj -305 50 hsl 128 15 0.001 10 0 0 empty empty empty -2 -8 0 10
--262144 -1 -1 1900 1;
+-262144 -1 -1 0 1;
 #X msg -308 85 \$1 10;
 #X obj -308 106 line~;
 #X floatatom -245 80 5 0 0 0 - - -;
 #X msg -417 140 2 0.00334 1.83 6 90 2697 97.73 1e+09;
+#X floatatom 353 577 0 0 0 0 - - -;
 #X msg -403 161 2 0.0334 1.83 6 90 2697 100 1e+09;
-#X floatatom 368 547 0 0 0 0 - - -;
-#X connect 0 0 28 0;
-#X connect 2 0 49 0;
-#X connect 2 0 87 0;
-#X connect 2 0 88 0;
+#X msg -404 181 2 0.003 0.65 6 90 663 200 1e+09;
+#X msg -345 63 3.3;
+#X obj 410 604 *;
+#X floatatom 410 625 0 0 0 0 - - -;
+#X obj -389 294 inlet;
+#X obj -262 364 s \$0-GAIN;
+#X obj -281 403 s \$0-TENS;
+#X obj -299 444 s \$0-MASS;
+#X obj -318 487 s \$0-ELEV;
+#X obj -336 529 s \$0-DIST;
+#X obj -355 571 s \$0-LEN;
+#X obj -373 610 s \$0-DIA;
+#X obj 476 -4 r \$0-DIA;
+#X obj 478 49 r \$0-LEN;
+#X obj 500 101 r \$0-DIST;
+#X obj 496 209 r \$0-ELEV;
+#X obj 542 327 r \$0-MASS;
+#X obj 542 388 r \$0-TENS;
+#X connect 0 0 15 0;
+#X connect 1 0 2 0;
+#X connect 1 0 56 0;
 #X connect 3 0 4 0;
-#X connect 4 0 65 0;
-#X connect 5 0 120 0;
-#X connect 6 0 7 0;
-#X connect 6 0 100 0;
-#X connect 8 0 9 0;
-#X connect 8 0 100 5;
-#X connect 10 0 11 0;
-#X connect 10 0 100 3;
-#X connect 12 0 13 0;
-#X connect 12 0 100 4;
-#X connect 14 0 15 0;
-#X connect 14 0 100 2;
-#X connect 20 0 22 0;
-#X connect 21 0 17 0;
-#X connect 21 1 18 0;
-#X connect 22 0 23 0;
-#X connect 23 0 21 0;
-#X connect 23 0 61 0;
-#X connect 25 0 109 0;
-#X connect 26 0 10 0;
-#X connect 27 0 8 0;
-#X connect 28 0 50 0;
-#X connect 28 0 113 0;
-#X connect 28 0 69 0;
-#X connect 28 0 26 0;
-#X connect 28 0 80 0;
-#X connect 28 0 27 0;
-#X connect 28 0 114 0;
-#X connect 28 0 101 0;
-#X connect 28 0 115 0;
-#X connect 28 0 48 0;
-#X connect 29 0 30 0;
-#X connect 29 0 100 1;
-#X connect 33 0 6 0;
-#X connect 34 0 29 0;
-#X connect 35 0 14 0;
-#X connect 36 0 10 0;
-#X connect 37 0 12 0;
-#X connect 38 0 8 0;
-#X connect 39 0 40 0;
-#X connect 39 0 100 7;
-#X connect 41 0 39 0;
-#X connect 42 0 43 0;
-#X connect 42 0 100 6;
-#X connect 44 0 42 0;
-#X connect 45 0 46 0;
-#X connect 47 0 45 0;
-#X connect 48 0 45 0;
-#X connect 52 0 23 0;
-#X connect 54 0 14 0;
-#X connect 56 0 29 0;
-#X connect 58 0 6 0;
-#X connect 60 0 2 0;
-#X connect 62 0 12 0;
-#X connect 63 0 12 0;
-#X connect 64 0 82 0;
-#X connect 64 1 70 0;
-#X connect 65 0 66 0;
-#X connect 68 0 64 1;
-#X connect 69 0 14 0;
-#X connect 70 0 71 0;
-#X connect 73 0 3 0;
-#X connect 74 0 2 0;
-#X connect 75 0 110 0;
-#X connect 76 0 75 0;
-#X connect 78 0 70 0;
-#X connect 79 0 65 0;
-#X connect 80 0 12 0;
-#X connect 82 0 96 0;
-#X connect 82 0 97 0;
-#X connect 83 0 12 0;
-#X connect 84 0 6 0;
-#X connect 85 0 6 0;
-#X connect 86 0 6 0;
-#X connect 87 0 3 1;
-#X connect 88 0 4 1;
-#X connect 89 0 51 0;
-#X connect 90 0 81 0;
-#X connect 91 0 53 0;
-#X connect 92 0 55 0;
-#X connect 93 0 57 0;
-#X connect 94 0 59 0;
-#X connect 95 0 12 0;
-#X connect 98 0 14 0;
-#X connect 100 1 116 0;
-#X connect 100 2 119 0;
-#X connect 100 3 117 0;
-#X connect 100 4 118 0;
-#X connect 100 5 144 0;
-#X connect 101 0 39 0;
-#X connect 109 0 32 0;
-#X connect 110 0 77 0;
-#X connect 111 0 6 0;
-#X connect 112 0 29 0;
-#X connect 113 0 6 0;
-#X connect 114 0 29 0;
-#X connect 115 0 42 0;
-#X connect 120 0 2 0;
-#X connect 121 0 6 0;
-#X connect 123 0 122 0;
-#X connect 124 0 42 0;
-#X connect 125 0 94 0;
-#X connect 125 1 93 0;
-#X connect 125 2 92 0;
-#X connect 125 3 91 0;
-#X connect 125 4 90 0;
-#X connect 125 5 126 0;
-#X connect 125 6 127 0;
-#X connect 125 7 89 0;
-#X connect 126 0 129 0;
-#X connect 127 0 128 0;
-#X connect 130 0 39 0;
-#X connect 131 0 125 0;
-#X connect 132 0 125 0;
-#X connect 133 0 125 0;
-#X connect 134 0 125 0;
-#X connect 135 0 125 0;
-#X connect 136 0 125 0;
-#X connect 137 0 99 0;
-#X connect 138 0 139 0;
-#X connect 138 0 141 0;
-#X connect 139 0 140 0;
-#X connect 140 0 1 0;
-#X connect 142 0 125 0;
-#X connect 143 0 125 0;
+#X connect 3 0 56 5;
+#X connect 5 0 6 0;
+#X connect 5 0 56 3;
+#X connect 7 0 8 0;
+#X connect 7 0 56 4;
+#X connect 9 0 10 0;
+#X connect 9 0 56 2;
+#X connect 12 0 65 0;
+#X connect 13 0 5 0;
+#X connect 14 0 3 0;
+#X connect 15 0 35 0;
+#X connect 15 0 69 0;
+#X connect 15 0 38 0;
+#X connect 15 0 13 0;
+#X connect 15 0 42 0;
+#X connect 15 0 14 0;
+#X connect 15 0 70 0;
+#X connect 15 0 57 0;
+#X connect 15 0 71 0;
+#X connect 15 0 34 0;
+#X connect 16 0 17 0;
+#X connect 16 0 56 1;
+#X connect 19 0 1 0;
+#X connect 20 0 16 0;
+#X connect 21 0 9 0;
+#X connect 22 0 5 0;
+#X connect 23 0 7 0;
+#X connect 24 0 3 0;
+#X connect 25 0 26 0;
+#X connect 25 0 56 7;
+#X connect 27 0 25 0;
+#X connect 28 0 29 0;
+#X connect 28 0 56 6;
+#X connect 30 0 28 0;
+#X connect 31 0 32 0;
+#X connect 33 0 31 0;
+#X connect 34 0 31 0;
+#X connect 37 0 7 0;
+#X connect 38 0 9 0;
+#X connect 39 0 66 0;
+#X connect 40 0 39 0;
+#X connect 42 0 7 0;
+#X connect 43 0 7 0;
+#X connect 44 0 1 0;
+#X connect 45 0 1 0;
+#X connect 46 0 1 0;
+#X connect 47 0 95 0;
+#X connect 48 0 98 0;
+#X connect 49 0 99 0;
+#X connect 50 0 100 0;
+#X connect 51 0 101 0;
+#X connect 52 0 36 0;
+#X connect 53 0 7 0;
+#X connect 54 0 9 0;
+#X connect 56 1 75 0;
+#X connect 56 2 73 0;
+#X connect 56 3 74 0;
+#X connect 56 3 92 1;
+#X connect 56 4 88 0;
+#X connect 56 5 72 0;
+#X connect 57 0 25 0;
+#X connect 65 0 18 0;
+#X connect 66 0 41 0;
+#X connect 67 0 1 0;
+#X connect 68 0 16 0;
+#X connect 69 0 1 0;
+#X connect 70 0 16 0;
+#X connect 71 0 28 0;
+#X connect 72 0 92 0;
+#X connect 76 0 1 0;
+#X connect 78 0 77 0;
+#X connect 79 0 52 0;
+#X connect 79 1 51 0;
+#X connect 79 2 50 0;
+#X connect 79 3 49 0;
+#X connect 79 4 48 0;
+#X connect 79 5 80 0;
+#X connect 79 6 81 0;
+#X connect 79 7 47 0;
+#X connect 80 0 97 0;
+#X connect 81 0 96 0;
+#X connect 82 0 55 0;
+#X connect 83 0 84 0;
+#X connect 83 0 86 0;
+#X connect 84 0 85 0;
+#X connect 91 0 84 0;
+#X connect 92 0 93 0;
+#X connect 94 0 79 0;
+#X connect 102 0 1 0;
+#X connect 103 0 16 0;
+#X connect 104 0 9 0;
+#X connect 105 0 7 0;
+#X connect 106 0 25 0;
+#X connect 107 0 28 0;
--- a/MechAeolian/MechAeolianD1.pd	Mon May 23 20:34:56 2016 +0100
+++ b/MechAeolian/MechAeolianD1.pd	Sat May 28 08:11:09 2016 +0100
@@ -1,4 +1,4 @@
-#N canvas 31 23 1370 784 10;
+#N canvas 0 23 1370 784 10;
 #X obj 223 63 inlet;
 #X text 792 236 Reynolds Number;
 #X text 720 269 Strouhal Number;
@@ -924,21 +924,21 @@
 #X obj 1143 237 r~ \$0-myFreq;
 #X text 780 41 Mass Density;
 #X text 720 39 Tension;
-#N canvas 272 44 671 757 NatFreq 1;
+#N canvas 272 44 542 808 NatFreq 0;
 #X obj 148 86 inlet;
-#X obj 109 308 inlet;
+#X obj 109 367 inlet;
 #X text 137 62 Mass Density;
-#X text 102 290 Tension;
+#X text 55 366 Tension;
 #X obj 163 155 r \$0-diameter;
 #X floatatom 206 177 0 0 0 0 - - -;
-#X floatatom 51 357 0 0 0 0 - - -;
+#X floatatom 51 416 0 0 0 0 - - -;
 #X floatatom 191 111 0 0 0 0 - - -;
-#X obj 163 452 r \$0-leng;
-#X text 184 583 Natural Frequency;
-#X text 74 632 Patch that calcultes the natural or fundamental frequency
+#X obj 163 511 r \$0-leng;
+#X text 121 669 Natural Frequency;
+#X text 74 717 Patch that calcultes the natural or fundamental frequency
 of a string in 1 dimension. Uses f = (1/2l) * sqrt(T/u) where u is
 the linear mass density.;
-#X obj 133 587 outlet~;
+#X obj 133 646 outlet~;
 #X msg 148 111 \$1 10;
 #X obj 148 133 line~;
 #X msg 163 179 \$1 10;
@@ -946,33 +946,42 @@
 #X obj 163 224 *~ 0.5;
 #X obj 163 249 *~;
 #X obj 163 271 *~ 3.14159;
-#X obj 148 293 *~;
-#X obj 133 381 /~;
-#X msg 109 330 \$1 10;
-#X obj 109 354 line~;
-#X obj 133 408 sqrt~;
-#X msg 163 474 \$1 10;
-#X obj 163 497 line~;
-#X obj 163 518 *~ 2;
-#X obj 149 430 sig~ 1;
-#X obj 149 538 /~;
-#X obj 133 562 *~;
-#X obj 67 565 r myMet;
-#X obj 67 588 snapshot~;
-#X floatatom 67 611 0 0 0 0 - - -;
-#X obj 230 297 r myMet;
-#X obj 230 320 snapshot~;
-#X floatatom 230 343 0 0 0 0 - - -;
-#X obj 426 46 r myMet;
-#X obj 426 69 snapshot~;
-#X floatatom 426 92 0 0 0 0 - - -;
-#X obj 297 549 r myMet;
-#X obj 297 572 snapshot~;
-#X floatatom 297 595 0 0 0 0 - - -;
-#X obj 488 44 r myMet;
-#X obj 488 67 snapshot~;
-#X floatatom 488 90 0 0 0 0 - - -;
-#X text 239 277 Linear Density;
+#X obj 148 352 *~;
+#X obj 133 440 /~;
+#X msg 109 389 \$1 10;
+#X obj 109 413 line~;
+#X obj 133 467 sqrt~;
+#X msg 163 533 \$1 10;
+#X obj 163 556 line~;
+#X obj 163 577 *~ 2;
+#X obj 149 489 sig~ 1;
+#X obj 149 597 /~;
+#X obj 133 621 *~;
+#X obj 67 624 r myMet;
+#X obj 67 647 snapshot~;
+#X floatatom 67 670 0 0 0 0 - - -;
+#X obj 189 374 r myMet;
+#X obj 189 397 snapshot~;
+#X floatatom 189 420 0 0 0 0 - - -;
+#X obj 303 31 r myMet;
+#X obj 303 54 snapshot~;
+#X floatatom 303 77 0 0 0 0 - - -;
+#X obj 207 597 r myMet;
+#X obj 207 620 snapshot~;
+#X floatatom 207 643 0 0 0 0 - - -;
+#X obj 365 29 r myMet;
+#X obj 365 52 snapshot~;
+#X floatatom 365 75 0 0 0 0 - - -;
+#X text 187 441 Linear Density;
+#X obj 234 224 *~ 0.5;
+#X obj 234 249 *~;
+#X obj 234 271 *~ 3.14159;
+#X obj 234 202 sig~ 0.0266;
+#X obj 234 305 -~;
+#X obj 260 305 r myMet;
+#X obj 260 328 snapshot~;
+#X floatatom 260 351 0 0 0 0 - - -;
+#X floatatom 205 532 0 0 0 0 - - -;
 #X connect 0 0 7 0;
 #X connect 0 0 12 0;
 #X connect 1 0 6 0;
@@ -980,6 +989,7 @@
 #X connect 4 0 5 0;
 #X connect 4 0 14 0;
 #X connect 8 0 24 0;
+#X connect 8 0 54 0;
 #X connect 12 0 13 0;
 #X connect 13 0 19 0;
 #X connect 14 0 15 0;
@@ -1012,6 +1022,14 @@
 #X connect 40 0 41 0;
 #X connect 42 0 43 0;
 #X connect 43 0 44 0;
+#X connect 46 0 47 0;
+#X connect 46 0 47 1;
+#X connect 47 0 48 0;
+#X connect 48 0 50 1;
+#X connect 49 0 46 0;
+#X connect 50 0 52 0;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
 #X restore 746 88 pd NatFreq;
 #X obj 851 445 r myMet;
 #X obj 851 468 snapshot~;
@@ -1375,8 +1393,6 @@
 #X obj 299 374 r myMet;
 #X obj 299 395 snapshot~;
 #X floatatom 299 417 0 0 0 0 - - -;
-#X obj 508 705 throw~ l;
-#X obj 515 679 throw~ r;
 #X obj 372 313 osc~;
 #X obj 508 635 *~;
 #X obj 523 583 +~ 1;
@@ -1408,12 +1424,11 @@
 #X obj 431 652 r myMet;
 #X obj 431 675 snapshot~;
 #X floatatom 431 695 0 0 0 0 - - -;
-#X obj 508 657 *~ 1e-11;
 #X obj 300 305 r myMet;
 #X obj 300 328 snapshot~;
 #X floatatom 300 348 0 0 0 0 - - -;
 #X obj 594 259 hsl 300 35 1 10000 1 0 empty empty empty -2 -8 0 10
--262144 -1 -1 13400 1;
+-262144 -1 -1 0 1;
 #X obj 591 326 line~;
 #X msg 591 305 \$1 5;
 #X obj 472 441 +~;
@@ -1424,22 +1439,22 @@
 #X connect 6 0 5 0;
 #X connect 8 0 29 0;
 #X connect 9 0 35 0;
-#X connect 9 0 80 0;
-#X connect 9 1 54 0;
-#X connect 9 1 51 0;
+#X connect 9 0 77 0;
+#X connect 9 1 52 0;
+#X connect 9 1 49 0;
 #X connect 10 0 12 0;
 #X connect 11 0 12 1;
 #X connect 12 0 14 0;
 #X connect 13 0 14 0;
 #X connect 14 0 26 0;
 #X connect 14 0 27 0;
-#X connect 16 0 67 0;
+#X connect 16 0 65 0;
 #X connect 17 0 19 0;
 #X connect 17 0 21 0;
 #X connect 18 0 19 0;
 #X connect 19 0 20 0;
-#X connect 21 0 42 0;
-#X connect 21 0 75 0;
+#X connect 21 0 40 0;
+#X connect 21 0 72 0;
 #X connect 22 0 24 0;
 #X connect 23 0 24 0;
 #X connect 24 0 25 0;
@@ -1448,8 +1463,8 @@
 #X connect 28 0 17 1;
 #X connect 28 0 16 0;
 #X connect 28 0 29 1;
-#X connect 28 0 49 1;
-#X connect 28 0 49 0;
+#X connect 28 0 47 1;
+#X connect 28 0 47 0;
 #X connect 29 0 9 0;
 #X connect 30 0 21 1;
 #X connect 31 0 17 0;
@@ -1457,45 +1472,43 @@
 #X connect 35 0 36 0;
 #X connect 37 0 38 0;
 #X connect 38 0 39 0;
-#X connect 42 0 62 0;
-#X connect 42 0 38 0;
-#X connect 44 0 65 0;
-#X connect 45 0 44 0;
-#X connect 45 0 57 0;
-#X connect 46 0 69 0;
-#X connect 46 0 48 0;
-#X connect 47 0 46 1;
-#X connect 47 1 46 0;
-#X connect 49 0 47 0;
-#X connect 50 0 46 0;
-#X connect 51 0 52 0;
-#X connect 51 0 50 0;
-#X connect 51 0 68 0;
-#X connect 53 0 51 0;
+#X connect 40 0 60 0;
+#X connect 40 0 38 0;
+#X connect 42 0 63 0;
+#X connect 43 0 42 0;
+#X connect 43 0 55 0;
+#X connect 44 0 67 0;
+#X connect 44 0 46 0;
+#X connect 45 0 44 1;
+#X connect 45 1 44 0;
+#X connect 47 0 45 0;
+#X connect 48 0 44 0;
+#X connect 49 0 50 0;
+#X connect 49 0 48 0;
+#X connect 49 0 66 0;
+#X connect 51 0 49 0;
+#X connect 52 0 53 0;
+#X connect 53 0 69 0;
 #X connect 54 0 55 0;
-#X connect 55 0 71 0;
-#X connect 56 0 57 0;
-#X connect 57 0 58 0;
-#X connect 59 0 32 0;
-#X connect 59 0 43 0;
-#X connect 60 0 59 0;
-#X connect 61 0 59 1;
-#X connect 62 0 80 1;
-#X connect 63 0 66 0;
-#X connect 65 0 43 1;
-#X connect 66 0 64 0;
-#X connect 69 0 45 0;
-#X connect 70 0 71 0;
+#X connect 55 0 56 0;
+#X connect 57 0 32 0;
+#X connect 57 0 41 0;
+#X connect 58 0 57 0;
+#X connect 59 0 57 1;
+#X connect 60 0 77 1;
+#X connect 61 0 64 0;
+#X connect 63 0 41 1;
+#X connect 64 0 62 0;
+#X connect 67 0 43 0;
+#X connect 68 0 69 0;
+#X connect 69 0 70 0;
 #X connect 71 0 72 0;
-#X connect 73 0 40 0;
-#X connect 73 0 41 0;
-#X connect 74 0 75 0;
-#X connect 75 0 76 0;
-#X connect 77 0 33 0;
-#X connect 77 0 79 0;
-#X connect 78 0 62 1;
-#X connect 79 0 78 0;
-#X connect 80 0 61 0;
+#X connect 72 0 73 0;
+#X connect 74 0 33 0;
+#X connect 74 0 76 0;
+#X connect 75 0 60 1;
+#X connect 76 0 75 0;
+#X connect 77 0 59 0;
 #X restore 582 436 pd natHarmonics;
 #X obj 746 110 s~ \$0-thisNatF;
 #N canvas 740 125 706 567 natFreqSources 0;
@@ -1754,17 +1767,16 @@
 #X connect 68 0 9 1;
 #X connect 69 0 27 1;
 #X connect 70 0 21 0;
-#X restore 762 554 pd NatDipoles;
+#X restore 703 481 pd NatDipoles;
 #X obj 1052 359 fcpan;
-#X obj 496 446 r~ \$0-myFreq;
 #X obj 902 496 outlet;
 #X obj 923 156 outlet;
-#X obj 670 486 outlet;
+#X obj 1114 587 outlet;
 #X obj 658 546 r myMet;
 #X obj 658 569 snapshot~;
 #X floatatom 658 593 0 0 0 0 - - -;
 #X obj 711 610 outlet;
-#N canvas 329 50 1368 742 natHarmonics2 0;
+#N canvas 35 56 825 772 natHarmonics2 0;
 #X obj 652 26 r~ \$0-myFreq;
 #X obj 669 49 r myMet;
 #X obj 669 69 snapshot~;
@@ -1973,7 +1985,7 @@
 #X connect 71 0 72 0;
 #X connect 72 0 73 0;
 #X restore 120 15 pd NoMatch;
-#X obj 472 325 r~ \$0-thisNatF;
+#X obj 472 369 r~ \$0-thisNatF;
 #N canvas 129 146 608 638 limits 0;
 #X obj 171 116 +~;
 #X obj 135 117 -~;
@@ -2092,140 +2104,350 @@
 #X connect 40 0 11 0;
 #X connect 41 0 42 0;
 #X connect 42 0 43 0;
-#X restore 472 367 pd limits;
+#X restore 472 411 pd limits;
 #X obj 392 71 r~ \$0-myFreq;
 #X obj 407 96 r~ \$0-thisNatF;
 #X obj 392 120 /~;
 #X obj 419 121 r myMet;
 #X obj 392 143 snapshot~;
-#X floatatom 419 191 0 0 0 0 - - -;
-#X floatatom 534 233 0 0 0 0 - - -;
-#X obj 372 214 *~ 1;
-#X obj 301 235 r myMet;
-#X obj 301 258 snapshot~;
-#X floatatom 301 278 0 0 0 0 - - -;
-#X obj 372 257 -~;
+#X floatatom 487 205 0 0 0 0 - - -;
+#X floatatom 534 277 0 0 0 0 - - -;
+#X obj 372 260 *~ 1;
+#X obj 301 279 r myMet;
+#X obj 301 302 snapshot~;
+#X floatatom 301 322 0 0 0 0 - - -;
+#X obj 372 301 -~;
 #X obj 734 25 r~ \$0-thisNatF;
 #X obj 746 47 r myMet;
 #X obj 746 70 snapshot~;
 #X floatatom 746 90 0 0 0 0 - - -;
 #X floatatom 452 168 0 0 0 0 - - -;
-#X obj 393 166 i;
-#X obj 393 191 + 1;
-#X obj 472 346 *~ 1;
-#X obj 387 236 r~ \$0-myFreq;
+#X obj 472 390 *~ 1;
+#X obj 387 280 r~ \$0-myFreq;
 #X obj 372 50 r~ \$0-thisNatF;
-#X obj 491 440 r myMet;
-#X obj 491 463 snapshot~;
-#X floatatom 491 483 0 0 0 0 - - -;
-#X obj 299 374 r myMet;
-#X obj 299 395 snapshot~;
-#X floatatom 299 417 0 0 0 0 - - -;
-#X obj 1135 569 throw~ l;
-#X obj 1142 543 throw~ r;
-#X obj 372 313 osc~;
-#X obj 523 389 snapshot~;
-#X floatatom 570 412 0 0 0 0 - - -;
-#X obj 536 365 r myMet;
-#X obj 416 535 *~;
+#X obj 491 484 r myMet;
+#X obj 491 507 snapshot~;
+#X floatatom 491 527 0 0 0 0 - - -;
+#X obj 299 418 r myMet;
+#X obj 299 439 snapshot~;
+#X floatatom 299 461 0 0 0 0 - - -;
+#X obj 860 95 throw~ l;
+#X obj 867 69 throw~ r;
+#X obj 372 357 osc~;
+#X obj 523 433 snapshot~;
+#X floatatom 570 456 0 0 0 0 - - -;
+#X obj 536 409 r myMet;
+#X obj 380 532 *~;
 #X obj 119 306 +~ 1;
 #X obj 119 349 +~ 0.5;
 #X obj 119 327 *~ 0.1;
-#X obj 534 256 outlet;
-#X obj 1135 521 *~ 1e-11;
-#X obj 300 305 r myMet;
-#X obj 300 328 snapshot~;
-#X floatatom 300 348 0 0 0 0 - - -;
-#X obj 477 664 throw~ l;
-#X obj 484 638 throw~ r;
-#X obj 477 616 *~ 1e-11;
-#X obj 442 426 osc~;
-#X obj 235 516 r~ \$0-myFreq;
-#X obj 249 542 -~ 1;
-#X obj 249 563 *~ -1;
+#X obj 534 300 outlet;
+#X obj 860 47 *~ 1e-11;
+#X obj 300 349 r myMet;
+#X obj 300 372 snapshot~;
+#X floatatom 300 392 0 0 0 0 - - -;
+#X obj 477 708 throw~ l;
+#X obj 484 682 throw~ r;
+#X obj 477 660 *~ 1e-11;
+#X obj 442 470 osc~;
+#X obj 235 560 r~ \$0-myFreq;
+#X obj 249 586 -~ 1;
+#X obj 249 607 *~ -1;
 #X obj 235 584 *~;
-#X obj 235 606 outlet~;
+#X obj 235 650 outlet~;
+#X obj 612 397 *;
+#X obj 436 617 *~ 1;
+#X obj 621 479 swap 1;
+#X obj 626 518 /;
+#X obj 393 168 + 0.5;
+#X obj 393 193 i;
 #X connect 0 0 2 0;
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
 #X connect 4 0 6 0;
 #X connect 6 0 5 0;
-#X connect 8 0 29 0;
-#X connect 9 0 33 0;
-#X connect 9 0 56 0;
-#X connect 9 1 41 0;
-#X connect 9 1 58 0;
+#X connect 8 0 27 0;
+#X connect 9 0 31 0;
+#X connect 9 0 54 0;
+#X connect 9 1 39 0;
+#X connect 9 1 56 0;
 #X connect 10 0 12 0;
 #X connect 11 0 12 1;
 #X connect 12 0 14 0;
 #X connect 13 0 14 0;
 #X connect 14 0 26 0;
-#X connect 14 0 27 0;
-#X connect 16 0 48 0;
+#X connect 14 0 64 0;
+#X connect 16 0 46 0;
 #X connect 17 0 19 0;
 #X connect 17 0 21 0;
 #X connect 18 0 19 0;
 #X connect 19 0 20 0;
-#X connect 21 0 51 0;
+#X connect 21 0 49 0;
+#X connect 21 0 38 0;
 #X connect 22 0 24 0;
 #X connect 23 0 24 0;
 #X connect 24 0 25 0;
-#X connect 27 0 15 0;
-#X connect 27 0 28 0;
-#X connect 28 0 17 1;
-#X connect 28 0 16 0;
-#X connect 28 0 29 1;
-#X connect 29 0 9 0;
-#X connect 30 0 21 1;
-#X connect 31 0 17 0;
-#X connect 32 0 33 0;
+#X connect 27 0 9 0;
+#X connect 28 0 21 1;
+#X connect 29 0 17 0;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
 #X connect 33 0 34 0;
-#X connect 35 0 36 0;
-#X connect 36 0 37 0;
-#X connect 40 0 44 0;
-#X connect 40 0 36 0;
-#X connect 41 0 42 0;
-#X connect 43 0 41 0;
-#X connect 44 0 55 0;
-#X connect 45 0 47 0;
-#X connect 47 0 46 0;
-#X connect 49 0 38 0;
-#X connect 49 0 39 0;
-#X connect 50 0 51 0;
-#X connect 51 0 52 0;
-#X connect 55 0 53 0;
-#X connect 55 0 54 0;
-#X connect 56 0 44 1;
-#X connect 57 0 60 0;
+#X connect 34 0 35 0;
+#X connect 38 0 42 0;
+#X connect 38 0 34 0;
+#X connect 39 0 40 0;
+#X connect 41 0 39 0;
+#X connect 43 0 45 0;
+#X connect 45 0 44 0;
+#X connect 47 0 36 0;
+#X connect 47 0 37 0;
+#X connect 48 0 49 0;
+#X connect 49 0 50 0;
+#X connect 53 0 51 0;
+#X connect 53 0 52 0;
+#X connect 54 0 61 0;
+#X connect 55 0 58 0;
+#X connect 56 0 57 0;
+#X connect 57 0 58 1;
 #X connect 58 0 59 0;
-#X connect 59 0 60 1;
-#X connect 60 0 61 0;
+#X connect 60 0 62 0;
+#X connect 62 0 63 0;
+#X connect 62 1 63 1;
+#X connect 63 0 61 1;
+#X connect 64 0 65 0;
+#X connect 65 0 17 1;
+#X connect 65 0 27 1;
+#X connect 65 0 60 1;
+#X connect 65 0 60 0;
+#X connect 65 0 15 0;
+#X connect 65 0 16 0;
 #X restore 999 535 pd natHarmonics2;
-#N canvas 990 479 450 300 UCalc 1;
-#X obj 200 116 r~ \$0-thisNatF;
-#X obj 185 31 r \$0-diameter;
-#X obj 185 73 line~;
-#X msg 185 51 \$1 10;
-#X obj 185 95 *~ 6.28319;
-#X obj 185 136 *~;
-#X obj 170 10 r~ \$0-windSpeed;
-#X obj 170 158 /~;
-#X obj 93 161 r myMet;
-#X obj 93 184 snapshot~;
-#X floatatom 93 208 0 0 0 0 - - -;
-#X floatatom 249 57 0 0 0 0 - - -;
-#X connect 0 0 5 1;
+#N canvas 175 27 619 443 UCalc 0;
+#X obj 260 272 r~ \$0-thisNatF;
+#X obj 245 187 r \$0-diameter;
+#X obj 245 229 line~;
+#X msg 245 207 \$1 10;
+#X obj 245 251 *~ 6.28319;
+#X obj 230 166 r~ \$0-windSpeed;
+#X obj 203 362 /~;
+#X floatatom 309 213 0 0 0 0 - - -;
+#X text 85 192 U = V/(2pi.f.D);
+#X obj 203 387 outlet~;
+#X obj 230 304 /~;
+#X obj 260 302 *~ 1;
+#X obj 152 328 s~ \$0-uCal;
+#X obj 426 169 r~ \$0-thisNatF;
+#X obj 411 148 r~ \$0-uCal;
+#X obj 411 200 /~;
+#X obj 465 231 r myMet;
+#X obj 465 254 snapshot~;
+#X floatatom 465 297 0 0 0 0 - - -;
+#X obj 411 221 +~ 0.5;
+#X obj 465 275 i;
+#X obj 341 337 r~ \$0-myFreq;
+#X obj 341 364 /~;
+#X obj 341 390 outlet~;
+#X obj 261 386 outlet~;
+#X connect 0 0 11 0;
 #X connect 1 0 3 0;
-#X connect 1 0 11 0;
+#X connect 1 0 7 0;
 #X connect 2 0 4 0;
 #X connect 3 0 2 0;
+#X connect 4 0 10 1;
+#X connect 5 0 10 0;
+#X connect 6 0 9 0;
+#X connect 10 0 6 0;
+#X connect 10 0 12 0;
+#X connect 11 0 6 1;
+#X connect 11 0 22 1;
+#X connect 11 0 24 0;
+#X connect 13 0 15 1;
+#X connect 14 0 15 0;
+#X connect 15 0 19 0;
+#X connect 16 0 17 0;
+#X connect 17 0 20 0;
+#X connect 19 0 17 0;
+#X connect 20 0 18 0;
+#X connect 20 0 11 1;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X restore 870 621 pd UCalc;
+#X obj 37 37 outlet~;
+#X obj 998 649 r myMet;
+#X obj 998 672 snapshot~;
+#X floatatom 998 696 0 0 0 0 - - -;
+#X obj 930 700 outlet;
+#N canvas 223 26 1174 711 lockIn 0;
+#X obj 152 302 < 0.88;
+#X obj 113 328 spigot~;
+#X obj 355 326 spigot~;
+#X floatatom 167 330 5 0 0 0 - - -;
+#X obj 168 539 r myMet;
+#X obj 168 562 snapshot~;
+#X floatatom 168 586 0 0 0 0 - - -;
+#X obj 105 538 r myMet;
+#X obj 105 561 snapshot~;
+#X floatatom 105 585 0 0 0 0 - - -;
+#X floatatom 410 325 5 0 0 0 - - -;
+#X obj 293 539 r myMet;
+#X obj 293 562 snapshot~;
+#X floatatom 293 586 0 0 0 0 - - -;
+#X obj 230 538 r myMet;
+#X obj 230 561 snapshot~;
+#X floatatom 230 585 0 0 0 0 - - -;
+#X obj 847 339 r myMet;
+#X obj 847 362 snapshot~;
+#X floatatom 847 386 0 0 0 0 - - -;
+#X obj 815 461 r myMet;
+#X obj 815 484 snapshot~;
+#X floatatom 815 508 0 0 0 0 - - -;
+#X obj 394 302 < 1.2;
+#X obj 266 43 inlet~;
+#X obj 269 68 snapshot~;
+#X obj 317 44 r myMet;
+#X obj 470 40 r myMet;
+#X obj 470 63 snapshot~;
+#X floatatom 470 130 0 0 0 0 - - -;
+#X obj 470 103 i;
+#X floatatom 510 82 0 0 0 0 - - -;
+#X obj 470 82 + 0.5;
+#X obj 439 131 -;
+#X floatatom 465 154 0 0 0 0 - - -;
+#X obj 424 40 inlet~;
+#X floatatom 205 90 0 0 0 0 - - -;
+#X text 271 24 U;
+#X obj 270 196 spigot~;
+#X obj 439 154 abs;
+#X text 419 18 Nat Ratio;
+#X obj 437 249 < 0.3;
+#X obj 270 176 *~ 1;
+#X obj 152 378 spigot~;
+#X obj 394 371 spigot~;
+#X floatatom 206 379 5 0 0 0 - - -;
+#X floatatom 448 373 5 0 0 0 - - -;
+#X obj 433 345 >= 0.88;
+#X obj 191 352 >= 0.78;
+#X obj 309 395 osc~;
+#X obj 410 569 throw~ l;
+#X obj 427 551 throw~ r;
+#X obj 270 152 inlet~;
+#X obj 794 197 sig~ 1;
+#X obj 823 241 exp~;
+#X obj 793 287 /~;
+#X floatatom 885 157 5 0 0 0 - - -;
+#X obj 808 262 +~;
+#X obj 719 306 -~ 1;
+#X obj 719 326 *~ -1;
+#X obj 655 343 r myMet;
+#X obj 655 366 snapshot~;
+#X floatatom 655 390 0 0 0 0 - - -;
+#X obj 825 164 -~ 1.2;
+#X obj 720 195 sig~ 1;
+#X obj 749 239 exp~;
+#X obj 719 285 /~;
+#X obj 734 260 +~;
+#X obj 749 172 -~ 0.88;
+#X obj 823 218 *~ 50;
+#X obj 749 216 *~ 50;
+#X obj 763 439 *~;
+#X obj 400 478 *~;
+#X obj 526 212 - 0.3;
+#X obj 526 233 * 50;
+#X obj 526 255 exp;
+#X obj 526 278 swap 1;
+#X obj 526 300 +;
+#X obj 526 322 swap 1;
+#X obj 526 344 /;
+#X floatatom 526 368 0 0 0 0 - - -;
+#X obj 400 452 *~ 1;
+#X connect 0 0 1 1;
+#X connect 0 0 3 0;
+#X connect 1 1 43 0;
+#X connect 2 1 44 0;
 #X connect 4 0 5 0;
-#X connect 5 0 7 1;
-#X connect 6 0 7 0;
-#X connect 7 0 9 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
 #X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X restore 869 660 pd UCalc;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 23 0 2 1;
+#X connect 23 0 10 0;
+#X connect 24 0 25 0;
+#X connect 24 0 63 0;
+#X connect 24 0 68 0;
+#X connect 25 0 0 0;
+#X connect 25 0 23 0;
+#X connect 25 0 36 0;
+#X connect 25 0 47 0;
+#X connect 25 0 48 1;
+#X connect 26 0 25 0;
+#X connect 27 0 28 0;
+#X connect 28 0 31 0;
+#X connect 28 0 32 0;
+#X connect 28 0 33 0;
+#X connect 30 0 29 0;
+#X connect 30 0 33 1;
+#X connect 30 0 42 1;
+#X connect 32 0 30 0;
+#X connect 33 0 34 0;
+#X connect 33 0 39 0;
+#X connect 35 0 28 0;
+#X connect 38 1 1 0;
+#X connect 38 1 2 0;
+#X connect 38 1 49 0;
+#X connect 39 0 41 0;
+#X connect 39 0 73 0;
+#X connect 41 0 38 1;
+#X connect 42 0 38 0;
+#X connect 47 0 44 1;
+#X connect 47 0 46 0;
+#X connect 48 0 43 1;
+#X connect 48 0 45 0;
+#X connect 49 0 81 0;
+#X connect 52 0 42 0;
+#X connect 53 0 55 0;
+#X connect 53 0 57 0;
+#X connect 54 0 57 1;
+#X connect 55 0 18 0;
+#X connect 55 0 71 1;
+#X connect 57 0 55 1;
+#X connect 58 0 59 0;
+#X connect 59 0 61 0;
+#X connect 59 0 71 0;
+#X connect 60 0 61 0;
+#X connect 61 0 62 0;
+#X connect 63 0 69 0;
+#X connect 64 0 66 0;
+#X connect 64 0 67 0;
+#X connect 65 0 67 1;
+#X connect 66 0 58 0;
+#X connect 67 0 66 1;
+#X connect 68 0 70 0;
+#X connect 69 0 54 0;
+#X connect 70 0 65 0;
+#X connect 71 0 21 0;
+#X connect 71 0 72 1;
+#X connect 72 0 51 0;
+#X connect 72 0 50 0;
+#X connect 73 0 74 0;
+#X connect 74 0 75 0;
+#X connect 75 0 76 0;
+#X connect 76 0 77 0;
+#X connect 76 1 77 1;
+#X connect 77 0 78 0;
+#X connect 78 0 79 0;
+#X connect 78 1 79 1;
+#X connect 79 0 80 0;
+#X connect 79 0 81 1;
+#X connect 81 0 72 0;
+#X restore 873 667 pd lockIn;
 #X connect 0 0 4 0;
 #X connect 0 0 32 0;
 #X connect 3 0 19 0;
@@ -2281,13 +2503,11 @@
 #X connect 86 0 94 0;
 #X connect 87 0 88 0;
 #X connect 88 0 89 0;
-#X connect 88 0 107 0;
-#X connect 90 0 111 0;
-#X connect 90 1 109 0;
+#X connect 88 0 106 0;
 #X connect 90 2 66 1;
 #X connect 93 0 94 0;
 #X connect 94 0 95 0;
-#X connect 94 0 108 0;
+#X connect 94 0 107 0;
 #X connect 96 0 7 0;
 #X connect 96 0 88 0;
 #X connect 96 1 43 0;
@@ -2301,7 +2521,16 @@
 #X connect 102 0 103 0;
 #X connect 105 0 33 0;
 #X connect 105 1 34 0;
+#X connect 109 0 110 0;
 #X connect 110 0 111 0;
-#X connect 111 0 112 0;
-#X connect 111 0 113 0;
-#X connect 114 0 74 0;
+#X connect 110 0 112 0;
+#X connect 113 0 74 0;
+#X connect 113 0 110 0;
+#X connect 113 1 108 0;
+#X connect 114 0 117 0;
+#X connect 114 0 120 0;
+#X connect 114 1 120 1;
+#X connect 114 2 120 2;
+#X connect 116 0 117 0;
+#X connect 117 0 118 0;
+#X connect 117 0 119 0;
--- a/MechAeolian/WindGenD1.pd	Mon May 23 20:34:56 2016 +0100
+++ b/MechAeolian/WindGenD1.pd	Sat May 28 08:11:09 2016 +0100
@@ -1,9 +1,9 @@
-#N canvas 371 89 460 675 10;
+#N canvas 241 101 460 675 10;
 #X obj 172 219 +~ 1;
 #X obj 172 314 +~;
 #X obj 172 241 *~ 0.25;
 #X obj 188 291 +~;
-#N canvas 939 160 373 400 squall 0;
+#N canvas 883 265 373 400 squall 0;
 #X obj 113 208 noise~;
 #X obj 113 271 hip~ 0;
 #X obj 113 229 lop~ 3;
@@ -14,17 +14,8 @@
 #X obj 113 292 *~ 20;
 #X obj 50 188 inlet~;
 #X obj 72 342 outlet~;
-#X obj 50 208 max~ 0.42;
-#X obj 50 230 -~ 0.42;
-#X obj 39 107 noise~;
-#X obj 101 182 Snapshot~;
-#X obj 101 133 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1;
-#X floatatom 166 206 5 0 0 0 - - -;
-#X obj 39 128 lop~ 100;
-#X obj 100 106 loadbang;
-#X obj 101 156 metro 1000;
-#X obj 39 150 +~ 0.4;
+#X obj 50 208 max~ 0.4;
+#X obj 50 230 -~ 0.4;
 #X connect 0 0 2 0;
 #X connect 1 0 7 0;
 #X connect 2 0 3 0;
@@ -37,26 +28,20 @@
 #X connect 8 0 10 0;
 #X connect 10 0 11 0;
 #X connect 11 0 6 0;
-#X connect 12 0 16 0;
-#X connect 13 0 15 0;
-#X connect 14 0 18 0;
-#X connect 16 0 19 0;
-#X connect 17 0 14 0;
-#X connect 18 0 13 0;
-#X connect 19 0 13 0;
 #X restore 246 266 pd squall;
 #N canvas 706 412 202 229 gust 0;
 #X obj 0 0 noise~;
-#X obj 0 63 hip~ 0;
-#X obj 0 106 *~;
+#X obj 0 83 hip~ 0;
+#X obj 0 126 *~;
 #X obj 67 44 *~;
 #X obj 67 21 +~ 0.5;
 #X obj 67 67 -~ 0.125;
 #X obj 67 0 inlet~;
-#X obj 0 131 outlet~;
+#X obj 0 151 outlet~;
 #X obj 0 42 lop~ 1;
 #X obj 0 21 lop~ 1;
-#X obj 0 84 *~ 30;
+#X obj 0 104 *~ 30;
+#X obj 0 63 lop~ 1;
 #X connect 0 0 9 0;
 #X connect 1 0 10 0;
 #X connect 2 0 7 0;
@@ -65,9 +50,10 @@
 #X connect 4 0 3 1;
 #X connect 5 0 2 1;
 #X connect 6 0 4 0;
-#X connect 8 0 1 0;
+#X connect 8 0 11 0;
 #X connect 9 0 8 0;
 #X connect 10 0 2 0;
+#X connect 11 0 1 0;
 #X restore 187 267 pd gust;
 #X obj 172 381 outlet~;
 #X obj 172 197 osc~ 0.01;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MechAeolian/harpD1.pd	Sat May 28 08:11:09 2016 +0100
@@ -0,0 +1,191 @@
+#N canvas 0 22 1060 572 10;
+#X obj -193 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj -130 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X text -133 194 Gain;
+#X obj -185 165 loadbang;
+#N canvas 555 179 313 396 opLevels 0;
+#X obj 79 184 dac~;
+#X obj 30 70 catch~ l;
+#X obj 128 70 catch~ r;
+#X obj 129 104 *~ 0.45;
+#X obj 30 104 *~ 0.45;
+#X obj 30 210 prvu~;
+#X obj 129 211 prvu~;
+#X obj 93 33 inlet;
+#X obj 30 239 outlet;
+#X obj 129 239 outlet;
+#X connect 1 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 0 0 1;
+#X connect 4 0 5 0;
+#X connect 4 0 0 0;
+#X connect 5 0 8 0;
+#X connect 6 0 9 0;
+#X connect 7 0 4 1;
+#X connect 7 0 3 1;
+#X restore -194 242 pd opLevels;
+#X msg -185 188 5;
+#X obj -191 213 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0
+10 -262144 -1 -1 0 1;
+#X text -106 139 No Of Sources;
+#X obj -194 142 r GAIN;
+#X floatatom -251 243 8 0 0 0 - - -;
+#X obj 409 254 delwrite~ varwind 3000;
+#X obj 518 36 hsl 128 15 0 15 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 931 1;
+#X obj 409 80 *~ 1;
+#X obj 409 106 +~ 1;
+#X obj 607 -8 loadbang;
+#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;
+#X obj 26 33 s~ MY_MACH;
+#X obj 26 9 /~ 343.56;
+#X connect 1 0 3 0;
+#X connect 3 0 2 0;
+#X restore 665 49 pd machCalc;
+#X floatatom 556 59 5 0 0 0 - - -;
+#X obj 515 12 r SPEED;
+#N canvas 634 290 596 443 windDirection 0;
+#X obj 183 0 inlet~;
+#X obj 280 52 inlet;
+#X obj 280 86 sig~;
+#X obj 185 251 *~;
+#X obj 185 279 outlet~;
+#X obj 246 254 outlet~;
+#X obj 200 195 cos~;
+#X obj 200 135 +~;
+#X obj 200 71 lop~ 1;
+#X obj 246 194 *~ 360;
+#X obj 200 91 lop~ 1;
+#X obj 200 30 noise~;
+#X obj 200 51 lop~ 1;
+#X obj 200 157 /~ 360;
+#X obj 200 113 *~ 800;
+#X obj 200 221 abs~;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 7 1;
+#X connect 3 0 4 0;
+#X connect 6 0 15 0;
+#X connect 7 0 13 0;
+#X connect 8 0 10 0;
+#X connect 9 0 5 0;
+#X connect 10 0 14 0;
+#X connect 11 0 12 0;
+#X connect 12 0 8 0;
+#X connect 13 0 6 0;
+#X connect 13 0 9 0;
+#X connect 14 0 7 0;
+#X connect 15 0 3 1;
+#X restore 443 170 pd windDirection;
+#X obj 561 230 snapshot~;
+#X floatatom 561 257 10 0 0 0 - - -;
+#X text 558 275 Wind Speed;
+#X obj 539 145 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X obj 642 230 snapshot~;
+#X floatatom 642 257 10 0 0 0 - - -;
+#X text 639 275 Wind Direction;
+#X obj 409 50 WindGenD1;
+#X msg 570 13 20;
+#X obj 642 207 r myMet;
+#X obj 561 207 r myMet;
+#X obj 457 201 TUCalc2;
+#X obj 478 59 * 0.5;
+#X obj 515 59 * 0.88;
+#X obj 457 225 s blust;
+#X floatatom 508 223 0 0 0 0 - - -;
+#X msg 607 12 7;
+#X obj 9 49 MA_Test2;
+#X obj 481 432 MA_Test2;
+#X obj -38 435 MA_Test2;
+#X obj 182 306 MA_Test2;
+#X obj 78 172 MA_Test2;
+#X obj 219 430 MA_Test2;
+#X msg 61 110 1.1 0.001 0.95 6 90 6700 87 20;
+#X msg -56 366 1.1 0.0009 0.85 6 90 3000 50 20;
+#X msg 451 364 1.1 0.0009 0.85 6 90 6000 80 20;
+#X msg -19 -13 1.1 0.00075 0.95 6 90 5000 68.23 20;
+#X msg 155 243 1.1 0.0006 0.95 6 90 5000 50 20;
+#X msg 203 365 1.1 0.0007 1 6 90 6300 78 20;
+#X msg 481 411 0.9 0.0002286 0.65 6 90 7940 59.98 20;
+#X msg 219 409 0.9 0.0002794 0.65 6 90 7820 49.5 20;
+#X msg -38 415 0.9 0.0004064 0.65 6 90 8050 67.91 20;
+#X msg 182 285 0.9 0.0006096 0.65 6 90 6650 70.79 20;
+#X msg 78 151 0.9 0.0008636 0.65 6 90 6900 82.83 20;
+#X msg 9 29 0.9 0.0010668 0.65 6 90 6640 68.23 20;
+#X obj -216 0 s guitar;
+#X obj 9 9 r guitar;
+#X obj 78 132 r guitar;
+#X obj 182 266 r guitar;
+#X obj -38 394 r guitar;
+#X obj 219 390 r guitar;
+#X obj 481 390 r guitar;
+#X obj -216 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj -156 -1 s rand1;
+#X obj -19 -36 r rand1;
+#X obj 61 87 r rand1;
+#X obj 155 223 r rand1;
+#X obj -56 345 r rand1;
+#X obj 202 345 r rand1;
+#X obj 452 343 r rand1;
+#X obj -156 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X connect 3 0 5 0;
+#X connect 4 0 0 0;
+#X connect 4 1 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 6 0 9 0;
+#X connect 8 0 6 0;
+#X connect 11 0 16 0;
+#X connect 11 0 31 0;
+#X connect 11 0 32 0;
+#X connect 12 0 13 0;
+#X connect 13 0 19 0;
+#X connect 13 0 10 0;
+#X connect 14 0 35 0;
+#X connect 17 0 11 0;
+#X connect 18 0 30 0;
+#X connect 18 1 23 0;
+#X connect 19 0 20 0;
+#X connect 22 0 18 1;
+#X connect 23 0 24 0;
+#X connect 26 0 12 0;
+#X connect 27 0 11 0;
+#X connect 28 0 23 0;
+#X connect 29 0 19 0;
+#X connect 30 0 33 0;
+#X connect 30 0 34 0;
+#X connect 31 0 12 1;
+#X connect 32 0 13 1;
+#X connect 35 0 11 0;
+#X connect 42 0 40 0;
+#X connect 43 0 38 0;
+#X connect 44 0 37 0;
+#X connect 45 0 36 0;
+#X connect 46 0 39 0;
+#X connect 47 0 41 0;
+#X connect 48 0 37 0;
+#X connect 49 0 41 0;
+#X connect 50 0 38 0;
+#X connect 51 0 39 0;
+#X connect 52 0 40 0;
+#X connect 53 0 36 0;
+#X connect 55 0 53 0;
+#X connect 56 0 52 0;
+#X connect 57 0 51 0;
+#X connect 58 0 50 0;
+#X connect 59 0 49 0;
+#X connect 60 0 48 0;
+#X connect 61 0 54 0;
+#X connect 63 0 45 0;
+#X connect 64 0 42 0;
+#X connect 65 0 46 0;
+#X connect 66 0 43 0;
+#X connect 67 0 47 0;
+#X connect 68 0 44 0;
+#X connect 69 0 62 0;
--- a/MechAeolian/newStrou.pd	Mon May 23 20:34:56 2016 +0100
+++ b/MechAeolian/newStrou.pd	Sat May 28 08:11:09 2016 +0100
@@ -1,4 +1,4 @@
-#N canvas 74 48 718 433 10;
+#N canvas 179 322 718 433 10;
 #X obj 203 48 inlet~;
 #X obj 273 202 outlet~;
 #X text 101 20 Reynolds number coming in;