r@201: #N canvas 169 58 1119 756 10;
r@201: #X obj -154 215 delwrite~ varwind 3000;
r@201: #X obj -44 -36 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 1693 1;
r@201: #X obj -153 8 *~ 1;
r@201: #X obj -153 34 +~ 1;
r@201: #X obj 45 -80 loadbang;
r@201: #X msg 45 -60 5;
r@201: #X obj -179 453 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201: #X obj -116 453 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201: #X text -119 362 Gain;
r@201: #X obj -171 333 loadbang;
r@201: #N canvas 555 179 313 396 opLevels 0;
r@201: #X obj 79 184 dac~;
r@201: #X obj 30 70 catch~ l;
r@201: #X obj 128 70 catch~ r;
r@201: #X obj 129 104 *~ 0.45;
r@201: #X obj 30 104 *~ 0.45;
r@201: #X obj 30 210 prvu~;
r@201: #X obj 129 211 prvu~;
r@201: #X obj 93 33 inlet;
r@201: #X obj 30 239 outlet;
r@201: #X obj 129 239 outlet;
r@201: #X connect 1 0 4 0;
r@201: #X connect 2 0 3 0;
r@201: #X connect 3 0 6 0;
r@201: #X connect 3 0 0 1;
r@201: #X connect 4 0 5 0;
r@201: #X connect 4 0 0 0;
r@201: #X connect 5 0 8 0;
r@201: #X connect 6 0 9 0;
r@201: #X connect 7 0 4 1;
r@201: #X connect 7 0 3 1;
r@201: #X restore -180 410 pd opLevels;
r@201: #X msg -171 356 5;
r@201: #X obj -177 381 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
r@201: 10 -262144 -1 -1 7900 1;
r@201: #N canvas 20 383 344 123 machCalc 0;
r@201: #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@201: #X obj 26 -14 vd~ varwind;
r@201: #X obj 26 33 s~ MY_MACH;
r@201: #X obj 26 9 /~ 343.56;
r@201: #X connect 1 0 3 0;
r@201: #X connect 3 0 2 0;
r@201: #X restore -264 -79 pd machCalc;
r@201: #X obj 140 -114 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
r@201: -1;
r@201: #X obj 140 -47 s SET_UP;
r@201: #X floatatom -6 -13 5 0 0 0 - - -;
r@201: #X obj -390 258 unpack f f f f f f;
r@201: #X obj -285 304 s GAIN;
r@201: #X obj -180 310 r GAIN;
r@201: #X obj -327 390 s DIST;
r@201: #X obj -348 432 s LEN;
r@201: #X obj -369 471 s DIA;
r@201: #X obj -390 509 s SPEED;
r@201: #X obj -47 -60 r SPEED;
r@201: #X floatatom -237 411 8 0 0 0 - - -;
r@201: #N canvas 634 290 596 443 windDirection 0;
r@201: #X obj 183 0 inlet~;
r@201: #X obj 280 52 inlet;
r@201: #X obj 280 86 sig~;
r@201: #X obj 185 251 *~;
r@201: #X obj 185 279 outlet~;
r@201: #X obj 246 254 outlet~;
r@201: #X obj 200 195 cos~;
r@201: #X obj 200 135 +~;
r@201: #X obj 200 71 lop~ 1;
r@201: #X obj 246 194 *~ 360;
r@201: #X obj 200 91 lop~ 1;
r@201: #X obj 200 30 noise~;
r@201: #X obj 200 51 lop~ 1;
r@201: #X obj 200 157 /~ 360;
r@201: #X obj 200 113 *~ 800;
r@201: #X obj 200 221 abs~;
r@201: #X connect 0 0 3 0;
r@201: #X connect 1 0 2 0;
r@201: #X connect 2 0 7 1;
r@201: #X connect 3 0 4 0;
r@201: #X connect 6 0 15 0;
r@201: #X connect 7 0 13 0;
r@201: #X connect 8 0 10 0;
r@201: #X connect 9 0 5 0;
r@201: #X connect 10 0 14 0;
r@201: #X connect 11 0 12 0;
r@201: #X connect 12 0 8 0;
r@201: #X connect 13 0 6 0;
r@201: #X connect 13 0 9 0;
r@201: #X connect 14 0 7 0;
r@201: #X connect 15 0 3 1;
r@201: #X restore -154 113 pd windDirection;
r@201: #X obj -335 -13 snapshot~;
r@201: #X floatatom -335 14 10 0 0 0 - - -;
r@201: #X text -338 32 Wind Speed;
r@201: #X obj -58 88 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 0 1;
r@201: #X obj -254 -13 snapshot~;
r@201: #X floatatom -254 14 10 0 0 0 - - -;
r@201: #X text -257 32 Wind Direction;
r@201: #X obj -153 -22 WindGenD1;
r@201: #X msg 8 -59 20;
r@201: #X obj -135 -125 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@201: 1 1;
r@201: #X obj -135 -150 loadbang;
r@201: #X obj -135 -79 s myMet;
r@201: #X obj -254 -36 r myMet;
r@201: #X obj -335 -36 r myMet;
r@201: #X obj -306 348 s ELEV;
r@201: #X obj -140 144 TUCalc2;
r@201: #X obj -84 -13 * 0.5;
r@201: #X obj -47 -13 * 0.88;
r@201: #X obj -285 285 line \$1 50;
r@201: #X obj -306 326 line \$1 50;
r@201: #X obj -327 368 line \$1 50;
r@201: #X obj -348 411 line \$1 50;
r@201: #X obj -369 452 line \$1 50;
r@201: #X obj -390 490 line \$1 50;
r@201: #X obj -135 -103 metro 100;
r@201: #X obj -140 168 s blust;
r@201: #X floatatom -89 166 0 0 0 0 - - -;
r@201: #X obj -140 273 sig~;
r@201: #X msg -104 257 16.6;
r@201: #X msg -390 140 23 0.006 5 4 85 1e+07;
r@201: #X msg -381 164 24 0.01 15 6 77 1e+07;
r@201: #X msg -369 192 17 0.0015 10 2 -15 1e+07;
r@201: #X msg -362 225 28 0.04 7 6 35 1e+07;
r@201: #X obj 60 291 unpack f f f f f f;
r@201: #X obj 165 337 s GAIN;
r@201: #X obj 59 545 s SPEED;
r@201: #X obj 165 318 line \$1 50;
r@201: #X obj 144 359 line \$1 50;
r@201: #X obj 122 404 line \$1 50;
r@201: #X obj 101 447 line \$1 50;
r@201: #X obj 80 488 line \$1 50;
r@201: #X obj 59 526 line \$1 50;
r@201: #X msg 60 173 23 0.006 5 4 85 1e+07;
r@201: #X msg 69 197 24 0.01 15 6 77 1e+07;
r@201: #X msg 81 225 17 0.0015 10 2 -15 1e+07;
r@201: #X msg 88 258 28 0.04 7 6 35 1e+07;
r@201: #X obj 144 381 s ELEV2;
r@201: #X obj 122 426 s DIST2;
r@201: #X obj 101 468 s LEN2;
r@201: #X obj 80 507 s DIA2;
r@201: #X obj 140 -72 uzi 20;
r@201: #X msg 250 -110 0.009 2 4 45 0 0.2 200;
r@201: #N canvas 437 135 988 799 oneTone 0;
r@201: #X obj 266 -14 loadbang;
r@201: #X obj 313 76 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 8214 1;
r@201: #X floatatom 320 102 8 0 0 0 - - -;
r@201: #X obj 381 352 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 10238 1;
r@201: #X floatatom 411 381 5 0 0 0 - - -;
r@201: #X text 451 79 Diameter;
r@201: #X obj 354 234 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 7408 1;
r@201: #X floatatom 382 263 5 0 0 0 - - -;
r@201: #X obj 367 289 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 7937 1;
r@201: #X floatatom 397 318 5 0 0 0 - - -;
r@201: #X obj 340 177 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 7759 1;
r@201: #X floatatom 356 206 5 0 0 0 - - -;
r@201: #X text 529 353 Pan Value;
r@201: #X msg 195 217 0;
r@201: #X msg 152 335 0.5;
r@201: #X obj 266 10 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
r@201: -1;
r@201: #X obj 326 134 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 4011 1;
r@201: #X floatatom 348 153 8 0 0 0 - - -;
r@201: #X msg 232 117 4;
r@201: #X text 458 118 Length;
r@201: #X obj 311 57 r SET_UP;
r@201: #X obj 381 112 r SET_UP;
r@201: #X obj 415 154 r SET_UP;
r@201: #X obj 439 203 r SET_UP;
r@201: #X obj 449 263 r SET_UP;
r@201: #X obj 455 321 r SET_UP;
r@201: #X text 478 178 Obs Distance;
r@201: #X obj 395 410 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 6350 1;
r@201: #X floatatom 432 439 5 0 0 0 - - -;
r@201: #X obj 477 384 r SET_UP;
r@201: #X obj 408 470 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 6350 1;
r@201: #X floatatom 427 497 5 0 0 0 - - -;
r@201: #X obj 501 438 r SET_UP;
r@201: #X obj 422 522 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201: -262144 -1 -1 6350 1;
r@201: #X floatatom 433 544 5 0 0 0 - - -;
r@201: #X obj 517 491 r SET_UP;
r@201: #X msg 130 393 0;
r@201: #X msg 110 447 0;
r@201: #X msg 91 500 0;
r@201: #X text 558 465 Source Rotation Y;
r@201: #X text 574 518 Source Rotation Z;
r@201: #X msg 298 29 0;
r@201: #X text 506 290 Obs Elevation;
r@201: #X text 493 234 Obs Azimuth;
r@201: #X text 536 401 Source Rotation X;
r@201: #X msg 216 160 4;
r@201: #X msg 175 272 45;
r@201: #X msg 253 61 0.005;
r@201: #X obj 433 576 r blust;
r@201: #X obj 433 599 * 100;
r@201: #X floatatom 451 628 0 0 0 0 - - -;
r@201: #X text 481 598 Free Stream Turbulence Intensity (%);
r@201: #X obj 491 556 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@201: -1 -1 0 1;
r@201: #X obj 310 627 freqCalcCyl3No_D3Mach;
r@201: #X msg 216 547 200;
r@201: #X obj 216 581 vd~ varwind;
r@201: #X obj 742 -5 inlet;
r@201: #X obj 407 42 r \$0-sourceDia;
r@201: #X obj 742 169 s \$0-sourceDia;
r@201: #X obj 761 146 s \$0-sourceLen;
r@201: #X obj 453 99 r \$0-sourceLen;
r@201: #X obj 513 259 r \$0-sourecElev;
r@201: #X obj 527 323 r \$0-sourecPan;
r@201: #X obj 470 154 r \$0-sourceDis;
r@201: #X obj 781 124 s \$0-sourceDis;
r@201: #X obj 800 103 s \$0-sourceElev;
r@201: #X obj 839 62 s \$0-sourecPan;
r@201: #X obj 506 210 r \$0-sourecAzim;
r@201: #X obj 820 82 s \$0-sourecAzim;
r@201: #X obj 119 547 r \$0-soureceDel;
r@201: #X obj 742 17 unpack f f f f f f f;
r@201: #X obj 859 40 s \$0-soureceDel;
r@201: #X floatatom 119 581 0 0 0 0 - - -;
r@201: #X connect 0 0 15 0;
r@201: #X connect 1 0 2 0;
r@201: #X connect 1 0 53 1;
r@201: #X connect 3 0 4 0;
r@201: #X connect 3 0 53 6;
r@201: #X connect 6 0 7 0;
r@201: #X connect 6 0 53 4;
r@201: #X connect 8 0 9 0;
r@201: #X connect 8 0 53 5;
r@201: #X connect 10 0 11 0;
r@201: #X connect 10 0 53 3;
r@201: #X connect 13 0 6 0;
r@201: #X connect 14 0 3 0;
r@201: #X connect 15 0 41 0;
r@201: #X connect 15 0 47 0;
r@201: #X connect 15 0 45 0;
r@201: #X connect 15 0 13 0;
r@201: #X connect 15 0 46 0;
r@201: #X connect 15 0 14 0;
r@201: #X connect 15 0 18 0;
r@201: #X connect 15 0 36 0;
r@201: #X connect 15 0 37 0;
r@201: #X connect 15 0 38 0;
r@201: #X connect 15 0 54 0;
r@201: #X connect 16 0 17 0;
r@201: #X connect 16 0 53 2;
r@201: #X connect 18 0 16 0;
r@201: #X connect 20 0 1 0;
r@201: #X connect 21 0 16 0;
r@201: #X connect 22 0 10 0;
r@201: #X connect 23 0 6 0;
r@201: #X connect 24 0 8 0;
r@201: #X connect 25 0 3 0;
r@201: #X connect 27 0 28 0;
r@201: #X connect 27 0 53 7;
r@201: #X connect 29 0 27 0;
r@201: #X connect 30 0 31 0;
r@201: #X connect 30 0 53 8;
r@201: #X connect 32 0 30 0;
r@201: #X connect 33 0 34 0;
r@201: #X connect 33 0 53 9;
r@201: #X connect 35 0 33 0;
r@201: #X connect 36 0 27 0;
r@201: #X connect 37 0 30 0;
r@201: #X connect 38 0 33 0;
r@201: #X connect 45 0 10 0;
r@201: #X connect 46 0 8 0;
r@201: #X connect 47 0 1 0;
r@201: #X connect 48 0 49 0;
r@201: #X connect 49 0 50 0;
r@201: #X connect 49 0 53 10;
r@201: #X connect 54 0 55 0;
r@201: #X connect 55 0 53 0;
r@201: #X connect 56 0 70 0;
r@201: #X connect 57 0 1 0;
r@201: #X connect 60 0 16 0;
r@201: #X connect 61 0 8 0;
r@201: #X connect 62 0 3 0;
r@201: #X connect 63 0 10 0;
r@201: #X connect 67 0 6 0;
r@201: #X connect 69 0 55 0;
r@201: #X connect 69 0 72 0;
r@201: #X connect 70 0 58 0;
r@201: #X connect 70 1 59 0;
r@201: #X connect 70 2 64 0;
r@201: #X connect 70 3 65 0;
r@201: #X connect 70 4 68 0;
r@201: #X connect 70 5 66 0;
r@201: #X connect 70 6 71 0;
r@201: #X restore 423 -50 pd oneTone;
r@201: #X msg 423 -75 0.04 7 6 35 15 0.8 1000;
r@201: #X obj 250 -85 oneTone;
r@201: #X connect 1 0 16 0;
r@201: #X connect 1 0 43 0;
r@201: #X connect 1 0 44 0;
r@201: #X connect 2 0 3 0;
r@201: #X connect 3 0 26 0;
r@201: #X connect 4 0 5 0;
r@201: #X connect 5 0 1 0;
r@201: #X connect 9 0 11 0;
r@201: #X connect 10 0 6 0;
r@201: #X connect 10 1 7 0;
r@201: #X connect 11 0 12 0;
r@201: #X connect 12 0 10 0;
r@201: #X connect 12 0 25 0;
r@201: #X connect 14 0 77 0;
r@201: #X connect 17 0 50 0;
r@201: #X connect 17 1 49 0;
r@201: #X connect 17 2 48 0;
r@201: #X connect 17 3 47 0;
r@201: #X connect 17 4 46 0;
r@201: #X connect 17 5 45 0;
r@201: #X connect 19 0 12 0;
r@201: #X connect 24 0 1 0;
r@201: #X connect 26 0 42 0;
r@201: #X connect 26 0 27 0;
r@201: #X connect 26 0 0 0;
r@201: #X connect 26 1 31 0;
r@201: #X connect 27 0 28 0;
r@201: #X connect 30 0 26 1;
r@201: #X connect 31 0 32 0;
r@201: #X connect 34 0 2 0;
r@201: #X connect 35 0 1 0;
r@201: #X connect 36 0 51 0;
r@201: #X connect 37 0 36 0;
r@201: #X connect 39 0 31 0;
r@201: #X connect 40 0 27 0;
r@201: #X connect 42 0 52 0;
r@201: #X connect 42 0 53 0;
r@201: #X connect 43 0 2 1;
r@201: #X connect 44 0 3 1;
r@201: #X connect 45 0 18 0;
r@201: #X connect 46 0 41 0;
r@201: #X connect 47 0 20 0;
r@201: #X connect 48 0 21 0;
r@201: #X connect 49 0 22 0;
r@201: #X connect 50 0 23 0;
r@201: #X connect 51 0 38 0;
r@201: #X connect 55 0 54 0;
r@201: #X connect 56 0 17 0;
r@201: #X connect 57 0 17 0;
r@201: #X connect 58 0 17 0;
r@201: #X connect 59 0 17 0;
r@201: #X connect 60 0 68 0;
r@201: #X connect 60 1 67 0;
r@201: #X connect 60 2 66 0;
r@201: #X connect 60 3 65 0;
r@201: #X connect 60 4 64 0;
r@201: #X connect 60 5 63 0;
r@201: #X connect 63 0 61 0;
r@201: #X connect 64 0 73 0;
r@201: #X connect 65 0 74 0;
r@201: #X connect 66 0 75 0;
r@201: #X connect 67 0 76 0;
r@201: #X connect 68 0 62 0;
r@201: #X connect 69 0 60 0;
r@201: #X connect 70 0 60 0;
r@201: #X connect 71 0 60 0;
r@201: #X connect 72 0 60 0;
r@201: #X connect 77 0 15 0;
r@201: #X connect 78 0 81 0;
r@201: #X connect 80 0 79 0;