r@107: #N canvas 0 23 1368 808 10;
r@105: #X text 704 -38 Mass Density of Air;
r@105: #X text 500 44 Frequency (Hz);
r@106: #X obj 811 353 throw~ l;
r@106: #X obj 838 334 throw~ r;
r@106: #X obj 826 207 osc~;
r@105: #X obj 826 -37 *~ 1.225;
r@105: #X obj 826 38 /~ 1.81e-05;
r@105: #X obj 826 -7 *~ 1;
r@106: #X obj 826 156 /~ 1;
r@105: #X floatatom 201 262 10 0 0 0 - - -;
r@106: #X obj 826 132 *~;
r@106: #X obj 826 181 clip~ 0 20000;
r@105: #X obj 212 -91 inlet;
r@106: #X text 859 82 Reynolds Number;
r@106: #X text 711 146 Strouhal Number;
r@105: #X obj 386 -97 inlet;
r@106: #X obj 826 237 *~;
r@105: #X text 856 18 Viscosity;
r@106: #X obj 611 178 *~ 2;
r@106: #X obj 611 205 osc~;
r@106: #X obj 611 227 *~;
r@106: #X obj 811 266 +~;
r@105: #X obj 212 -68 s \$0-diameter;
r@105: #X obj 887 -38 r \$0-diameter;
r@106: #X obj 894 137 r \$0-diameter;
r@105: #X obj 129 -29 s~ \$0-windSpeed;
r@105: #X obj 300 10 r~ \$0-windSpeed;
r@106: #X obj 893 114 r~ \$0-windSpeed;
r@105: #X obj 826 -65 r~ \$0-windSpeed;
r@106: #X obj 720 133 s~ \$0_str;
r@105: #X obj 291 -11 r~ \$0_str;
r@106: #X obj 644 205 r~ \$0_dragDiGain;
r@106: #X obj 747 206 s~ \$0-myFreq;
r@106: #X obj 611 151 r~ \$0-myFreq;
r@106: #X obj 864 207 r~ \$0_liftDiGain;
r@105: #X obj 129 -71 sig~;
r@105: #X obj 129 -49 vd~ varwind;
r@105: #X obj 129 -95 inlet;
r@105: #X obj 1059 12 r~ \$0-myFreq;
r@105: #X obj 1025 -38 noise~;
r@105: #X obj 1102 196 throw~ l;
r@105: #X obj 1129 175 throw~ r;
r@105: #X obj 1102 103 *~;
r@105: #X obj 123 84 snapshot~;
r@105: #X obj 123 59 metro 100;
r@106: #X obj 123 37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105: 1;
r@105: #X floatatom 123 110 10 0 0 0 - - -;
r@105: #X obj 123 11 loadbang;
r@105: #X obj 37 59 r~ \$0-myRey;
r@105: #X obj 839 62 s~ \$0-myRey;
r@105: #X obj 1240 13 snapshot~;
r@105: #X floatatom 1240 39 10 0 0 0 - - -;
r@105: #X obj 1240 -60 loadbang;
r@105: #X obj 1240 -35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@106: 1 1;
r@105: #X obj 1151 -89 r~ \$0-myRey;
r@105: #X obj 1067 364 r~ \$0-myFreq;
r@105: #X obj 1033 293 noise~;
r@105: #X obj 1110 553 throw~ l;
r@105: #X obj 1137 530 throw~ r;
r@105: #X obj 1110 461 *~;
r@105: #X obj 1248 373 snapshot~;
r@105: #X floatatom 1248 399 10 0 0 0 - - -;
r@105: #X obj 1248 300 loadbang;
r@105: #X obj 1248 325 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@106: 1 1;
r@105: #X obj 1159 271 r~ \$0-myRey;
r@105: #X obj 1067 390 *~ 2;
r@105: #X text 108 132 Reynolds Number;
r@105: #X obj 1025 55 vcf~ 1000 10;
r@105: #X obj 1033 415 vcf~ 1000 10;
r@106: #X obj 811 309 fcpan;
r@105: #X obj 1102 152 fcpan;
r@105: #X obj 1110 505 fcpan;
r@105: #X obj 1117 76 *~ 1;
r@105: #X obj 1125 436 *~ 1;
r@105: #X obj 1159 346 clip~ 2 400;
r@105: #X obj 1151 -14 clip~ 2 400;
r@105: #X obj 1159 295 *~ -0.003;
r@105: #X obj 1151 -65 *~ -0.003;
r@105: #X obj 1240 -12 metro 10;
r@105: #X obj 1248 348 metro 10;
r@105: #X obj 386 -77 s \$0_dist;
r@105: #X obj 610 -99 inlet;
r@105: #X obj 610 -30 s \$0_thisPan;
r@106: #X obj 838 280 r \$0_thisPan;
r@105: #X obj 1129 128 r \$0_thisPan;
r@105: #X obj 1137 483 r \$0_thisPan;
r@105: #X floatatom 555 -30 8 0 0 0 - - -;
r@105: #X obj 610 -75 max 0.1;
r@105: #X obj 610 -52 min 0.9;
r@105: #X text 1161 449 Drag Dipole spectrum calculation;
r@105: #X text 1156 93 Lift Dipole spectrum calculation;
r@105: #X text 547 77 Calculates the frequency;
r@105: #X text 547 90 based on the physics of;
r@105: #X text 548 103 the object and environment;
r@105: #X obj 303 292 r~ \$0-windSpeed;
r@105: #X obj 294 269 r~ \$0_str;
r@105: #X obj 1125 413 r~ \$0_dragNoiseGain;
r@105: #X obj 1117 34 r~ \$0_liftNoiseGain;
r@105: #X obj 124 406 snapshot~;
r@105: #X obj 124 381 metro 100;
r@106: #X obj 124 359 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105: 1;
r@105: #X floatatom 124 432 10 0 0 0 - - -;
r@105: #X obj 124 333 loadbang;
r@105: #X obj 38 381 r~ \$0_str;
r@105: #N canvas 75 127 654 734 noiseGain 0;
r@105: #X text -21205 129 Mass Density of Air \, squared;
r@105: #X text -20765 142 Speed of Sound to power 2;
r@105: #X obj -21070 29 *~;
r@105: #X obj -21022 70 *~;
r@105: #X obj -21022 104 *~ 1;
r@105: #X obj -21022 132 *~ 1.50063;
r@105: #X obj -20767 96 *;
r@105: #X obj -20767 119 * 118033;
r@105: #X obj -21022 259 /~ 1;
r@105: #X obj -21022 532 *~ 0.27;
r@105: #X text -20767 49 Distance;
r@105: #X obj -20847 502 cos;
r@105: #X obj -20847 457 / 360;
r@105: #X floatatom -20820 553 5 0 0 0 - - -;
r@105: #X obj -20847 526 *;
r@105: #X obj -20886 606 *~ 0.27;
r@105: #X obj -20847 479 * 6.28319;
r@105: #N canvas 409 243 688 659 angleCalc 0;
r@105: #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@106: -1 -1 9900 1;
r@105: #X text 321 40 Elevation Angle;
r@105: #X obj 270 81 / 360;
r@105: #X obj 270 103 * 6.28319;
r@105: #X floatatom 135 174 5 0 0 0 - - -;
r@105: #X obj 179 79 / 360;
r@105: #X obj 179 101 * 6.28319;
r@105: #X floatatom 64 105 5 0 0 0 - - -;
r@105: #X floatatom 338 103 5 0 0 0 - - -;
r@105: #X floatatom 232 256 5 0 0 0 - - -;
r@105: #X floatatom 360 500 8 0 0 0 - - -;
r@105: #X obj 312 502 * 360;
r@105: #X floatatom 359 553 5 0 0 0 - - -;
r@105: #X obj 312 526 / 6.28319;
r@105: #X obj 270 294 *;
r@105: #X obj 270 326 swap 1;
r@105: #X obj 270 359 -;
r@105: #X obj 270 388 sqrt;
r@105: #X obj 312 419 /;
r@105: #X obj 312 447 atan;
r@105: #X obj 312 473 * 2;
r@105: #X text 352 355 Arccos of angle;
r@105: #X obj 270 265 /;
r@105: #X obj 327 295 + 1;
r@105: #X obj 179 125 cos;
r@105: #X obj 179 151 *;
r@105: #X obj 270 134 cos;
r@105: #X obj 270 234 *;
r@105: #X obj 179 175 t f b;
r@105: #X obj 177 200 delay 9;
r@105: #X obj 312 553 outlet;
r@105: #X obj 270 53 inlet;
r@105: #X obj 180 52 inlet;
r@105: #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@105: -1 -1 0 1;
r@105: #X obj 516 57 inlet;
r@105: #X obj 516 81 s \$0_tDist;
r@105: #X obj 204 126 r \$0_tDist;
r@105: #X obj 295 234 r \$0_tDist;
r@105: #X floatatom 482 81 5 0 0 0 - - -;
r@105: #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@106: -1 -1 4950 1;
r@105: #X text 71 41 Azimuth Angle;
r@105: #X connect 0 0 8 0;
r@105: #X connect 2 0 3 0;
r@105: #X connect 3 0 26 0;
r@105: #X connect 5 0 6 0;
r@105: #X connect 6 0 24 0;
r@105: #X connect 11 0 13 0;
r@105: #X connect 13 0 12 0;
r@105: #X connect 13 0 30 0;
r@105: #X connect 14 0 15 0;
r@105: #X connect 15 0 16 0;
r@105: #X connect 15 1 16 1;
r@105: #X connect 16 0 17 0;
r@105: #X connect 17 0 18 0;
r@105: #X connect 18 0 19 0;
r@105: #X connect 19 0 20 0;
r@105: #X connect 20 0 11 0;
r@105: #X connect 20 0 10 0;
r@105: #X connect 22 0 14 0;
r@105: #X connect 22 0 14 1;
r@105: #X connect 22 0 23 0;
r@105: #X connect 23 0 18 1;
r@105: #X connect 24 0 25 0;
r@105: #X connect 25 0 4 0;
r@105: #X connect 25 0 28 0;
r@105: #X connect 26 0 27 0;
r@105: #X connect 27 0 9 0;
r@105: #X connect 27 0 22 0;
r@105: #X connect 28 0 27 1;
r@105: #X connect 28 1 29 0;
r@105: #X connect 29 0 27 0;
r@105: #X connect 31 0 2 0;
r@105: #X connect 31 0 0 0;
r@105: #X connect 32 0 5 0;
r@105: #X connect 32 0 39 0;
r@105: #X connect 34 0 35 0;
r@105: #X connect 34 0 38 0;
r@105: #X connect 36 0 25 1;
r@105: #X connect 37 0 22 1;
r@105: #X connect 39 0 7 0;
r@105: #X restore -20983 388 pd angleCalc;
r@105: #X obj -20983 451 / 90;
r@105: #X floatatom -21015 475 5 0 0 0 - - -;
r@105: #X obj -20847 429 + 90;
r@105: #X obj -20937 452 loadbang;
r@105: #X msg -20937 474 0.05;
r@105: #X obj -21022 507 *~ 0.05;
r@105: #X obj -20782 531 loadbang;
r@105: #X msg -20782 553 0.05;
r@105: #X obj -20886 582 *~ 0.05;
r@105: #X text -20812 621 Calculates Drag Dipole gain;
r@105: #X text -21198 525 Calculates Lift Dipole gain;
r@105: #N canvas 759 125 286 289 pow8 0;
r@105: #X obj 47 67 *~;
r@105: #X obj 76 67 *~;
r@105: #X obj 76 35 inlet~;
r@105: #X obj 47 170 outlet~;
r@105: #X obj 136 173 snapshot~;
r@105: #X obj 136 148 metro 100;
r@105: #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105: 1;
r@105: #X floatatom 136 200 10 0 0 0 - - -;
r@105: #X obj 136 100 loadbang;
r@105: #X obj 106 67 *~;
r@105: #X obj 47 93 *~;
r@105: #X obj 47 118 *~;
r@105: #X obj 136 67 *~;
r@105: #X obj 47 144 *~;
r@105: #X connect 0 0 10 0;
r@105: #X connect 1 0 10 1;
r@105: #X connect 2 0 0 0;
r@105: #X connect 2 0 0 1;
r@105: #X connect 2 0 1 1;
r@105: #X connect 2 0 9 0;
r@105: #X connect 2 0 9 1;
r@105: #X connect 2 0 1 0;
r@105: #X connect 2 0 12 0;
r@105: #X connect 2 0 12 1;
r@105: #X connect 4 0 7 0;
r@105: #X connect 5 0 4 0;
r@105: #X connect 6 0 5 0;
r@105: #X connect 8 0 6 0;
r@105: #X connect 9 0 11 1;
r@105: #X connect 10 0 11 0;
r@105: #X connect 11 0 13 0;
r@105: #X connect 12 0 13 1;
r@105: #X connect 13 0 3 0;
r@105: #X connect 13 0 4 0;
r@105: #X restore -21022 32 pd pow8;
r@105: #X obj -21005 288 s~ \$0-c;
r@105: #X obj -20911 556 r~ \$0-c;
r@105: #X obj -21070 7 inlet~;
r@105: #X obj -21022 7 inlet~;
r@105: #X obj -20989 55 inlet;
r@105: #X obj -20983 324 inlet;
r@105: #X obj -20949 345 inlet;
r@105: #X obj -20914 367 inlet;
r@105: #X obj -20767 70 inlet;
r@105: #X obj -21022 575 outlet~;
r@105: #X obj -20886 656 outlet~;
r@105: #X text -20949 312 Azimuth;
r@105: #X text -20914 335 Elevation;
r@105: #X text -20880 359 Distance;
r@105: #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum
r@105: ;
r@105: #X text -20981 74 Diameter;
r@105: #X obj -20991 163 inlet;
r@105: #X obj -20991 187 *;
r@105: #X obj -21022 209 *~ 1;
r@105: #X text -20950 162 Length;
r@105: #X obj -21022 554 *~ 0.02;
r@105: #X obj -20886 631 *~ 0.002;
r@105: #X connect 2 0 3 1;
r@105: #X connect 3 0 4 0;
r@105: #X connect 4 0 5 0;
r@105: #X connect 5 0 48 0;
r@105: #X connect 6 0 7 0;
r@105: #X connect 7 0 8 1;
r@105: #X connect 8 0 23 0;
r@105: #X connect 8 0 30 0;
r@105: #X connect 9 0 50 0;
r@105: #X connect 11 0 14 0;
r@105: #X connect 11 0 14 1;
r@105: #X connect 12 0 16 0;
r@105: #X connect 14 0 13 0;
r@105: #X connect 14 0 26 1;
r@105: #X connect 15 0 51 0;
r@105: #X connect 16 0 11 0;
r@105: #X connect 17 0 18 0;
r@105: #X connect 17 0 20 0;
r@105: #X connect 18 0 19 0;
r@105: #X connect 18 0 23 1;
r@105: #X connect 20 0 12 0;
r@105: #X connect 21 0 22 0;
r@105: #X connect 22 0 23 1;
r@105: #X connect 23 0 9 0;
r@105: #X connect 24 0 25 0;
r@105: #X connect 25 0 26 1;
r@105: #X connect 26 0 15 0;
r@105: #X connect 29 0 3 0;
r@105: #X connect 31 0 26 0;
r@105: #X connect 32 0 2 0;
r@105: #X connect 32 0 2 1;
r@105: #X connect 33 0 29 0;
r@105: #X connect 34 0 4 1;
r@105: #X connect 35 0 17 0;
r@105: #X connect 36 0 17 1;
r@105: #X connect 37 0 17 2;
r@105: #X connect 38 0 6 0;
r@105: #X connect 38 0 6 1;
r@105: #X connect 46 0 47 0;
r@105: #X connect 46 0 47 1;
r@105: #X connect 47 0 48 1;
r@105: #X connect 48 0 8 0;
r@105: #X connect 50 0 39 0;
r@105: #X connect 51 0 40 0;
r@105: #X restore 294 427 pd noiseGain;
r@105: #X obj 323 337 r \$0-diameter;
r@105: #X obj 363 403 r \$0_dist;
r@105: #X obj 343 382 r \$0_azim;
r@105: #X obj 333 360 r \$0_elev;
r@105: #X obj 294 472 s~ \$0_liftNoiseGain;
r@105: #X obj 363 450 s~ \$0_dragNoiseGain;
r@106: #N canvas 577 142 663 715 freqGain 0;
r@105: #X text 36 127 Mass Density of Air \, squared;
r@105: #X text 411 123 Speed of Sound to power 2;
r@105: #N canvas 759 125 286 289 pow6 0;
r@105: #X obj 47 67 *~;
r@105: #X obj 76 67 *~;
r@105: #X obj 76 35 inlet~;
r@105: #X obj 47 163 outlet~;
r@105: #X obj 136 184 snapshot~;
r@105: #X obj 136 159 metro 100;
r@105: #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105: 1;
r@105: #X floatatom 136 211 10 0 0 0 - - -;
r@105: #X obj 216 210 outlet;
r@105: #X obj 136 111 loadbang;
r@105: #X obj 106 67 *~;
r@105: #X obj 47 93 *~;
r@105: #X obj 47 118 *~;
r@105: #X connect 0 0 11 0;
r@105: #X connect 1 0 11 1;
r@105: #X connect 2 0 0 0;
r@105: #X connect 2 0 0 1;
r@105: #X connect 2 0 1 1;
r@105: #X connect 2 0 10 0;
r@105: #X connect 2 0 10 1;
r@105: #X connect 2 0 1 0;
r@105: #X connect 4 0 7 0;
r@105: #X connect 4 0 8 0;
r@105: #X connect 5 0 4 0;
r@105: #X connect 6 0 5 0;
r@105: #X connect 9 0 6 0;
r@105: #X connect 10 0 12 1;
r@105: #X connect 11 0 12 0;
r@105: #X connect 12 0 4 0;
r@105: #X connect 12 0 3 0;
r@105: #X restore 219 30 pd pow6;
r@105: #X obj 173 32 *~;
r@105: #X obj 219 68 *~;
r@105: #X obj 219 102 *~ 1;
r@105: #X obj 219 130 *~ 1.50063;
r@105: #X obj 404 71 *;
r@105: #X obj 404 96 * 118033;
r@105: #X obj 219 224 /~ 1;
r@105: #X obj 219 497 *~ 0.27;
r@105: #X text 271 275 Azimuth;
r@105: #X text 424 30 Distance;
r@105: #X obj 370 482 cos;
r@105: #X obj 370 437 / 360;
r@105: #X floatatom 397 533 5 0 0 0 - - -;
r@105: #X obj 370 506 *;
r@105: #X obj 331 586 *~ 0.27;
r@105: #X obj 236 253 s~ \$0-a;
r@105: #X obj 306 536 r~ \$0-a;
r@105: #X obj 370 459 * 6.28319;
r@105: #X floatatom 369 72 5 0 0 0 - - -;
r@105: #N canvas 713 150 688 659 angleCalc 0;
r@105: #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@106: -1 -1 4950 1;
r@105: #X text 321 40 Elevation Angle;
r@105: #X obj 270 81 / 360;
r@105: #X obj 270 103 * 6.28319;
r@105: #X floatatom 135 174 5 0 0 0 - - -;
r@105: #X obj 179 79 / 360;
r@105: #X obj 179 101 * 6.28319;
r@105: #X floatatom 64 105 5 0 0 0 - - -;
r@105: #X floatatom 338 103 5 0 0 0 - - -;
r@105: #X floatatom 232 256 5 0 0 0 - - -;
r@105: #X floatatom 360 500 8 0 0 0 - - -;
r@105: #X obj 312 502 * 360;
r@105: #X floatatom 359 553 5 0 0 0 - - -;
r@105: #X obj 312 526 / 6.28319;
r@105: #X obj 270 294 *;
r@105: #X obj 270 326 swap 1;
r@105: #X obj 270 359 -;
r@105: #X obj 270 388 sqrt;
r@105: #X obj 312 419 /;
r@105: #X obj 312 447 atan;
r@105: #X obj 312 473 * 2;
r@105: #X text 352 355 Arccos of angle;
r@105: #X obj 270 265 /;
r@105: #X obj 327 295 + 1;
r@105: #X obj 179 125 cos;
r@105: #X obj 179 151 *;
r@105: #X obj 270 134 cos;
r@105: #X obj 270 234 *;
r@105: #X obj 179 175 t f b;
r@105: #X obj 177 200 delay 9;
r@105: #X obj 312 553 outlet;
r@105: #X obj 270 53 inlet;
r@105: #X obj 180 52 inlet;
r@105: #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@105: -1 -1 0 1;
r@105: #X obj 516 57 inlet;
r@105: #X obj 516 81 s \$0_tDist;
r@105: #X obj 204 126 r \$0_tDist;
r@105: #X obj 295 234 r \$0_tDist;
r@105: #X floatatom 482 81 5 0 0 0 - - -;
r@105: #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@106: -1 -1 9900 1;
r@105: #X text 71 41 Azimuth Angle;
r@106: #X text 102 584 remove distance from this patch as makes no difference
r@106: to the end calculation and confuses things!;
r@106: #X text 386 407 Create an audio version of this patch;
r@105: #X connect 0 0 8 0;
r@105: #X connect 2 0 3 0;
r@105: #X connect 3 0 26 0;
r@105: #X connect 5 0 6 0;
r@105: #X connect 6 0 24 0;
r@105: #X connect 11 0 13 0;
r@105: #X connect 13 0 12 0;
r@105: #X connect 13 0 30 0;
r@105: #X connect 14 0 15 0;
r@105: #X connect 15 0 16 0;
r@105: #X connect 15 1 16 1;
r@105: #X connect 16 0 17 0;
r@105: #X connect 17 0 18 0;
r@105: #X connect 18 0 19 0;
r@105: #X connect 19 0 20 0;
r@105: #X connect 20 0 11 0;
r@105: #X connect 20 0 10 0;
r@105: #X connect 22 0 14 0;
r@105: #X connect 22 0 14 1;
r@105: #X connect 22 0 23 0;
r@105: #X connect 23 0 18 1;
r@105: #X connect 24 0 25 0;
r@105: #X connect 25 0 4 0;
r@105: #X connect 25 0 28 0;
r@105: #X connect 26 0 27 0;
r@105: #X connect 27 0 9 0;
r@105: #X connect 27 0 22 0;
r@105: #X connect 28 0 27 1;
r@105: #X connect 28 1 29 0;
r@105: #X connect 29 0 27 0;
r@105: #X connect 31 0 2 0;
r@105: #X connect 31 0 0 0;
r@105: #X connect 32 0 5 0;
r@105: #X connect 32 0 39 0;
r@105: #X connect 34 0 35 0;
r@105: #X connect 34 0 38 0;
r@105: #X connect 36 0 25 1;
r@105: #X connect 37 0 22 1;
r@105: #X connect 39 0 7 0;
r@105: #X restore 256 348 pd angleCalc;
r@105: #X text 307 294 Elevation;
r@105: #X obj 370 409 + 90;
r@105: #X obj 435 511 loadbang;
r@105: #X msg 435 533 0.05;
r@105: #X obj 331 562 *~ 0.05;
r@105: #X text 409 593 Calculates Drag Dipole gain;
r@105: #X text 48 504 Calculates Lift Dipole gain;
r@105: #X obj 331 611 *~ 0.1;
r@105: #X obj 173 8 inlet~;
r@105: #X obj 219 7 inlet~;
r@105: #X text 256 54 Diameter;
r@105: #X obj 250 69 inlet;
r@105: #X obj 404 46 inlet;
r@105: #X obj 325 326 inlet;
r@105: #X obj 256 290 inlet;
r@105: #X obj 290 309 inlet;
r@105: #X text 360 328 Distance;
r@105: #X obj 219 524 outlet~;
r@105: #X obj 331 636 outlet~;
r@105: #X obj 240 425 cos;
r@105: #X obj 240 380 / 360;
r@105: #X obj 240 449 *;
r@105: #X obj 240 402 * 6.28319;
r@105: #X obj 219 472 *~ 1;
r@105: #X obj 250 156 inlet;
r@105: #X obj 250 180 *;
r@105: #X text 288 151 Length;
r@105: #X obj 219 202 *~ 1;
r@106: #X text 388 225 Add in MACH deflection;
r@105: #X connect 2 0 4 0;
r@105: #X connect 3 0 4 1;
r@105: #X connect 4 0 5 0;
r@105: #X connect 5 0 6 0;
r@105: #X connect 6 0 50 0;
r@105: #X connect 7 0 8 0;
r@105: #X connect 8 0 9 1;
r@105: #X connect 9 0 18 0;
r@105: #X connect 9 0 46 0;
r@105: #X connect 10 0 40 0;
r@105: #X connect 13 0 16 0;
r@105: #X connect 13 0 16 1;
r@105: #X connect 14 0 20 0;
r@105: #X connect 16 0 15 0;
r@105: #X connect 16 0 27 1;
r@105: #X connect 17 0 30 0;
r@105: #X connect 19 0 27 0;
r@105: #X connect 20 0 13 0;
r@105: #X connect 22 0 24 0;
r@105: #X connect 22 0 43 0;
r@105: #X connect 24 0 14 0;
r@105: #X connect 25 0 26 0;
r@105: #X connect 26 0 27 1;
r@105: #X connect 27 0 17 0;
r@105: #X connect 30 0 41 0;
r@105: #X connect 31 0 3 0;
r@105: #X connect 31 0 3 1;
r@105: #X connect 32 0 2 0;
r@105: #X connect 34 0 5 1;
r@105: #X connect 35 0 7 1;
r@105: #X connect 35 0 7 0;
r@105: #X connect 35 0 21 0;
r@105: #X connect 36 0 22 2;
r@105: #X connect 37 0 22 0;
r@105: #X connect 38 0 22 1;
r@105: #X connect 42 0 44 0;
r@105: #X connect 42 0 44 1;
r@105: #X connect 43 0 45 0;
r@105: #X connect 44 0 46 1;
r@105: #X connect 45 0 42 0;
r@105: #X connect 46 0 10 0;
r@105: #X connect 47 0 48 0;
r@105: #X connect 47 0 48 1;
r@105: #X connect 48 0 50 1;
r@105: #X connect 50 0 9 0;
r@105: #X restore 291 132 pd freqGain;
r@105: #X obj 455 -97 inlet;
r@105: #X obj 455 -77 s \$0_elev;
r@105: #X obj 318 49 r \$0-diameter;
r@105: #X obj 523 -99 inlet;
r@105: #X obj 523 -77 s \$0_azim;
r@105: #X obj 354 111 r \$0_dist;
r@105: #X obj 327 69 r \$0_azim;
r@105: #X obj 336 90 r \$0_elev;
r@105: #X obj 354 156 s~ \$0_dragDiGain;
r@105: #X obj 291 176 s~ \$0_liftDiGain;
r@105: #X floatatom 386 -50 5 0 0 0 - - -;
r@105: #X floatatom 456 -51 5 0 0 0 - - -;
r@105: #X floatatom 524 -55 5 0 0 0 - - -;
r@105: #X obj 72 262 outlet;
r@105: #X obj 1025 9 hip~;
r@105: #X obj 116 235 snapshot~;
r@106: #X obj 116 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105: 1;
r@105: #X obj 116 162 loadbang;
r@105: #X obj 116 210 metro 10;
r@105: #X obj 1033 390 hip~;
r@105: #X obj 37 212 r~ \$0-myFreq;
r@105: #X obj 116 262 s \$0_contFreq;
r@105: #X obj 1046 -14 r \$0_contFreq;
r@105: #X obj 1054 314 r \$0_contFreq;
r@105: #X obj 1054 337 * 2;
r@105: #X text 123 461 Strouhal Number;
r@105: #X text 281 193 Calculates the gain of the dipole source;
r@105: #X text 285 491 Calculates the gain of the source;
r@105: #X text 515 -118 Azimuth;
r@105: #X text 615 -117 Pan;
r@105: #X text 449 -116 Elevation;
r@105: #X text 382 -116 Distance;
r@105: #X text 207 -112 Diameter;
r@105: #X text 122 -113 Wind Speed;
r@105: #X obj 312 -97 inlet;
r@105: #X floatatom 313 -53 5 0 0 0 - - -;
r@105: #X text 308 -116 Length;
r@105: #X obj 312 -75 s \$0_leng;
r@105: #X obj 309 29 r \$0_leng;
r@105: #X obj 313 313 r \$0_leng;
r@106: #X obj 1151 -40 +~ 40;
r@106: #X obj 1159 320 +~ 40;
r@106: #X obj 826 103 newStrou;
r@107: #X connect 4 0 16 0;
r@105: #X connect 5 0 7 0;
r@107: #X connect 6 0 49 0;
r@107: #X connect 6 0 154 0;
r@105: #X connect 7 0 6 0;
r@107: #X connect 8 0 11 0;
r@107: #X connect 10 0 8 0;
r@107: #X connect 11 0 4 0;
r@107: #X connect 11 0 32 0;
r@107: #X connect 12 0 22 0;
r@107: #X connect 15 0 80 0;
r@107: #X connect 15 0 122 0;
r@107: #X connect 16 0 21 1;
r@107: #X connect 18 0 19 0;
r@105: #X connect 19 0 20 0;
r@105: #X connect 20 0 21 0;
r@107: #X connect 21 0 69 0;
r@107: #X connect 23 0 7 1;
r@107: #X connect 24 0 8 1;
r@107: #X connect 26 0 111 1;
r@107: #X connect 27 0 10 1;
r@107: #X connect 28 0 5 0;
r@107: #X connect 30 0 111 0;
r@107: #X connect 31 0 20 1;
r@107: #X connect 33 0 18 0;
r@107: #X connect 34 0 16 1;
r@107: #X connect 35 0 36 0;
r@107: #X connect 36 0 25 0;
r@107: #X connect 37 0 35 0;
r@107: #X connect 38 0 67 1;
r@107: #X connect 39 0 126 0;
r@107: #X connect 42 0 70 0;
r@107: #X connect 43 0 46 0;
r@107: #X connect 44 0 43 0;
r@105: #X connect 45 0 44 0;
r@107: #X connect 47 0 45 0;
r@107: #X connect 48 0 43 0;
r@107: #X connect 50 0 51 0;
r@107: #X connect 50 0 67 2;
r@107: #X connect 52 0 53 0;
r@107: #X connect 53 0 78 0;
r@107: #X connect 54 0 77 0;
r@107: #X connect 55 0 65 0;
r@107: #X connect 56 0 131 0;
r@107: #X connect 59 0 71 0;
r@107: #X connect 60 0 61 0;
r@107: #X connect 60 0 68 2;
r@107: #X connect 62 0 63 0;
r@107: #X connect 63 0 79 0;
r@107: #X connect 64 0 76 0;
r@107: #X connect 65 0 68 1;
r@107: #X connect 67 0 42 0;
r@107: #X connect 68 0 59 0;
r@107: #X connect 69 0 2 0;
r@107: #X connect 69 1 3 0;
r@107: #X connect 70 0 40 0;
r@107: #X connect 70 1 41 0;
r@107: #X connect 71 0 57 0;
r@107: #X connect 71 1 58 0;
r@107: #X connect 72 0 42 1;
r@107: #X connect 73 0 59 1;
r@107: #X connect 74 0 60 0;
r@107: #X connect 75 0 50 0;
r@107: #X connect 76 0 153 0;
r@107: #X connect 77 0 152 0;
r@107: #X connect 78 0 50 0;
r@107: #X connect 79 0 60 0;
r@107: #X connect 81 0 87 0;
r@107: #X connect 83 0 69 1;
r@106: #X connect 84 0 70 1;
r@106: #X connect 85 0 71 1;
r@107: #X connect 87 0 88 0;
r@107: #X connect 88 0 82 0;
r@107: #X connect 88 0 86 0;
r@107: #X connect 94 0 104 1;
r@107: #X connect 95 0 104 0;
r@107: #X connect 96 0 73 0;
r@107: #X connect 97 0 72 0;
r@107: #X connect 98 0 101 0;
r@107: #X connect 99 0 98 0;
r@107: #X connect 100 0 99 0;
r@107: #X connect 102 0 100 0;
r@107: #X connect 103 0 98 0;
r@107: #X connect 104 0 109 0;
r@107: #X connect 104 1 110 0;
r@107: #X connect 105 0 104 3;
r@107: #X connect 106 0 104 6;
r@107: #X connect 106 0 104 7;
r@107: #X connect 107 0 104 5;
r@107: #X connect 108 0 104 4;
r@107: #X connect 111 0 121 0;
r@107: #X connect 111 1 120 0;
r@107: #X connect 112 0 113 0;
r@107: #X connect 112 0 123 0;
r@107: #X connect 114 0 111 3;
r@107: #X connect 115 0 116 0;
r@107: #X connect 115 0 124 0;
r@107: #X connect 117 0 111 6;
r@107: #X connect 117 0 111 7;
r@107: #X connect 118 0 111 4;
r@107: #X connect 119 0 111 5;
r@107: #X connect 126 0 67 0;
r@107: #X connect 127 0 133 0;
r@107: #X connect 127 0 125 0;
r@107: #X connect 127 0 9 0;
r@107: #X connect 128 0 130 0;
r@107: #X connect 129 0 128 0;
r@107: #X connect 130 0 127 0;
r@107: #X connect 131 0 68 0;
r@107: #X connect 132 0 127 0;
r@107: #X connect 134 0 126 1;
r@107: #X connect 135 0 136 0;
r@107: #X connect 136 0 131 1;
r@107: #X connect 146 0 147 0;
r@107: #X connect 146 0 149 0;
r@107: #X connect 150 0 111 2;
r@107: #X connect 151 0 104 2;
r@107: #X connect 152 0 75 0;
r@107: #X connect 153 0 74 0;
r@107: #X connect 154 0 29 0;
r@107: #X connect 154 0 10 0;