r@158: #N canvas 0 23 1374 822 10; r@156: #X text 577 168 Mass Density of Air; r@156: #X obj 699 169 *~ 1.225; r@156: #X obj 699 244 /~ 1.81e-05; r@156: #X obj 699 199 *~ 1; r@156: #X obj 699 362 /~ 1; r@156: #X floatatom 202 406 0 0 0 0 - - -; r@156: #X obj 699 338 *~; r@156: #X obj 213 53 inlet; r@156: #X text 732 288 Reynolds Number; r@156: #X text 579 355 Strouhal Number; r@156: #X obj 378 51 inlet; r@156: #X text 729 224 Viscosity; r@156: #X obj 220 76 s \$0-diameter; r@156: #X obj 760 168 r \$0-diameter; r@156: #X obj 767 343 r \$0-diameter; r@156: #X obj 130 115 s~ \$0-windSpeed; r@156: #X obj 766 320 r~ \$0-windSpeed; r@156: #X obj 699 141 r~ \$0-windSpeed; r@156: #X obj 699 386 s~ \$0-myFreq; r@156: #X obj 1113 484 r~ \$0-myFreq; r@156: #X obj 130 73 sig~; r@156: #X obj 130 95 vd~ varwind; r@156: #X obj 130 49 inlet; r@156: #X obj 1050 348 *~; r@156: #X obj 124 228 snapshot~; r@156: #X floatatom 124 254 0 0 0 0 - - -; r@156: #X obj 38 203 r~ \$0-myRey; r@156: #X obj 712 268 s~ \$0-myRey; r@156: #X text 109 276 Reynolds Number; r@156: #X obj 626 47 inlet; r@156: #X floatatom 571 116 8 0 0 0 - - -; r@156: #X obj 626 71 max 0.1; r@156: #X obj 626 94 min 0.9; r@156: #X text 663 405 Calculates the frequency; r@156: #X text 664 417 based on the physics of; r@156: #X text 664 430 the object and environment; r@156: #X obj 297 394 r~ \$0-windSpeed; r@156: #X obj 144 531 snapshot~; r@156: #X floatatom 144 557 0 0 0 0 - - -; r@156: #X obj 337 456 r \$0-diameter; r@156: #X obj 450 50 inlet; r@156: #X obj 524 49 inlet; r@156: #X floatatom 378 98 5 0 0 0 - - -; r@156: #X floatatom 450 96 5 0 0 0 - - -; r@156: #X floatatom 525 93 5 0 0 0 - - -; r@156: #X obj 73 406 outlet; r@156: #X obj 117 379 snapshot~; r@156: #X obj 38 356 r~ \$0-myFreq; r@156: #X text 123 583 Strouhal Number; r@156: #X text 283 357 Calculates the gain of the dipole source; r@156: #X text 449 27 Azimuth; r@156: #X text 631 29 Pan; r@156: #X text 523 31 Elevation; r@156: #X text 374 32 Distance; r@156: #X text 208 32 Diameter; r@156: #X text 123 31 Wind Speed; r@156: #X obj 305 50 inlet; r@156: #X floatatom 305 94 5 0 0 0 - - -; r@156: #X text 301 31 Length; r@156: #X obj 699 309 newStrou; r@156: #X floatatom 73 89 5 0 0 0 - - -; r@156: #X floatatom 213 97 5 0 0 0 - - -; r@156: #X obj 1050 417 throw~ l; r@156: #X obj 1077 395 throw~ r; r@156: #X obj 1050 373 fcpan; r@156: #X obj 315 73 s \$0-leng; r@156: #X obj 383 74 s \$0-dist; r@156: #X obj 390 321 s~ \$0-dragDiGain; r@156: #X obj 303 342 s~ \$0-liftDiGain; r@156: #X obj 284 375 r~ \$0-str; r@156: #X obj 323 434 r \$0-leng; r@156: #X obj 350 477 r \$0-dist; r@156: #X obj 284 570 s~ \$0-liftNoiseGain; r@156: #X obj 1086 464 r~ \$0-dragDiGain; r@156: #X obj 599 340 s~ \$0-str; r@156: #X obj 626 116 s \$0-thisPan; r@156: #X obj 1086 272 r \$0-contFreq; r@156: #X obj 117 406 s \$0-contFreq; r@156: #X obj 59 506 r~ \$0-str; r@156: #X obj 1050 192 r~ \$0-liftNoiseGain; r@156: #X obj 1077 348 r \$0-thisPan; r@156: #X obj 721 56 inlet; r@156: #X obj 793 55 inlet; r@156: #X obj 867 54 inlet; r@156: #X floatatom 721 103 5 0 0 0 - - -; r@156: #X floatatom 793 101 5 0 0 0 - - -; r@156: #X floatatom 868 98 5 0 0 0 - - -; r@156: #X obj 726 79 s \$0-rotaX; r@156: #X obj 800 77 s \$0-rotaY; r@156: #X obj 875 77 s \$0-rotaZ; r@156: #X text 717 37 X Rotation; r@156: #X text 787 36 Y Rotation; r@156: #X text 862 35 Z Rotation; r@156: #X text 1031 166 Noise spectrum calculation; r@156: #X obj 1065 296 hip~; r@156: #X obj 1140 504 r \$0-thisPan; r@156: #X obj 1065 251 rpole~ 0.99; r@156: #X obj 1065 225 noise~; r@156: #X obj 82 256 outlet; r@156: #X obj 311 153 r~ \$0-windSpeed; r@156: #X obj 329 192 r \$0-diameter; r@156: #X obj 303 132 r~ \$0-str; r@156: #X obj 321 173 r \$0-leng; r@156: #X obj 346 231 r \$0-dist; r@160: #N canvas 203 82 1238 721 GoldfreqGain 0; r@156: #N canvas 759 125 286 294 pow6 0; r@156: #X obj 47 67 *~; r@156: #X obj 76 67 *~; r@156: #X obj 76 35 inlet~; r@156: #X obj 47 163 outlet~; r@156: #X obj 136 184 snapshot~; r@156: #X obj 136 159 metro 100; r@156: #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 r@156: 1; r@156: #X floatatom 136 211 10 0 0 0 - - -; r@156: #X obj 216 210 outlet; r@156: #X obj 136 111 loadbang; r@156: #X obj 106 67 *~; r@156: #X obj 47 93 *~; r@156: #X obj 47 118 *~; r@156: #X obj 372 202 *; r@156: #X obj 372 228 *; r@156: #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 r@156: -1 -1 0 1; r@156: #X floatatom 374 288 10 0 0 0 - - -; r@156: #X obj 303 20 t f b; r@156: #X floatatom 455 55 5 0 0 0 - - -; r@156: #X obj 372 260 *; r@156: #X obj 400 202 *; r@156: #X msg 303 -4 6; r@156: #X obj 434 201 *; r@156: #X connect 0 0 11 0; r@156: #X connect 1 0 11 1; r@156: #X connect 2 0 0 0; r@156: #X connect 2 0 0 1; r@156: #X connect 2 0 1 1; r@156: #X connect 2 0 10 0; r@156: #X connect 2 0 10 1; r@156: #X connect 2 0 1 0; r@156: #X connect 4 0 7 0; r@156: #X connect 4 0 8 0; r@156: #X connect 5 0 4 0; r@156: #X connect 6 0 5 0; r@156: #X connect 9 0 6 0; r@156: #X connect 10 0 12 1; r@156: #X connect 11 0 12 0; r@156: #X connect 12 0 4 0; r@156: #X connect 12 0 3 0; r@156: #X connect 13 0 14 0; r@156: #X connect 14 0 19 0; r@156: #X connect 15 0 13 0; r@156: #X connect 15 0 13 1; r@156: #X connect 15 0 18 0; r@156: #X connect 15 0 20 0; r@156: #X connect 15 0 20 1; r@156: #X connect 17 0 13 0; r@156: #X connect 17 0 13 1; r@156: #X connect 17 0 20 0; r@156: #X connect 17 0 20 1; r@156: #X connect 17 0 22 0; r@156: #X connect 17 0 22 1; r@156: #X connect 17 1 13 0; r@156: #X connect 17 1 20 0; r@156: #X connect 17 1 22 0; r@156: #X connect 19 0 16 0; r@156: #X connect 20 0 14 1; r@156: #X connect 21 0 17 0; r@156: #X connect 22 0 19 1; r@156: #X restore 219 42 pd pow6; r@156: #X obj 173 32 *~; r@156: #X obj 219 68 *~; r@156: #X obj 404 137 *; r@156: #X text 533 2 Distance; r@156: #X floatatom 513 62 5 0 0 0 - - -; r@156: #X text 724 595 Calculates Drag Dipole gain; r@156: #X text 48 647 Calculates Lift Dipole gain; r@156: #X obj 173 -8 inlet~; r@158: #X obj 219 -35 inlet~; r@156: #X text 328 62 Diameter; r@156: #X obj 291 61 inlet; r@156: #X obj 513 18 inlet; r@156: #X obj 219 667 outlet~; r@156: #X obj 758 570 outlet~; r@156: #X obj 240 159 inlet; r@156: #X text 278 154 Length; r@156: #X obj 219 185 *~ 1; r@156: #X obj 234 416 sig~; r@156: #X obj 322 438 sig~; r@156: #X obj 234 468 /~ 360; r@156: #X obj 234 517 *~; r@156: #X obj 219 540 *~; r@156: #X obj 814 19 inlet; r@156: #X obj 913 21 inlet; r@156: #X obj 1009 24 inlet; r@156: #X floatatom 814 66 5 0 0 0 - - -; r@156: #X floatatom 913 67 5 0 0 0 - - -; r@156: #X floatatom 1010 68 5 0 0 0 - - -; r@156: #X text 810 0 X Rotation; r@156: #X text 907 2 Y Rotation; r@156: #X text 1004 5 Z Rotation; r@156: #X obj 819 42 s \$0-this_rotaX; r@156: #X obj 920 43 s \$0-thisrotaY; r@156: #X obj 1017 47 s \$0-thisrotaZ; r@156: #X text 74 -8 Strouhal number; r@158: #X text 269 -35 Wind speed; r@156: #X text 266 103 Corr Length; r@156: #X obj 219 225 *~ 2.50663; r@156: #X obj 219 130 *~ 1.225; r@156: #X text 93 126 Mass Density of Air; r@156: #X text 147 227 Sqrt(2xpi); r@156: #X obj 322 466 /~ 360; r@156: #X obj 322 512 *~; r@156: #X obj 322 488 cos~; r@156: #X obj 219 579 *~; r@156: #X obj 404 167 * 4.05513e+07; r@156: #X text 355 186 Speed of Sound to power 3; r@156: #X obj 404 220 * 32; r@156: #X obj 553 189 r SIG_MACH; r@156: #X obj 518 189 cos~; r@156: #X obj 518 212 *~; r@156: #X obj 466 213 sig~ 1; r@156: #X obj 503 243 -~; r@156: #N canvas 1150 227 286 289 pow4 0; r@156: #X obj 47 67 *~; r@156: #X obj 76 67 *~; r@156: #X obj 76 35 inlet~; r@156: #X obj 47 163 outlet~; r@156: #X obj 136 184 snapshot~; r@156: #X obj 136 159 metro 100; r@156: #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 r@156: 1; r@156: #X floatatom 136 211 10 0 0 0 - - -; r@156: #X obj 216 210 outlet; r@156: #X obj 136 111 loadbang; r@156: #X obj 47 93 *~; r@156: #X connect 0 0 10 0; r@156: #X connect 1 0 10 1; r@156: #X connect 2 0 0 0; r@156: #X connect 2 0 0 1; r@156: #X connect 2 0 1 1; r@156: #X connect 2 0 1 0; r@156: #X connect 4 0 7 0; r@156: #X connect 4 0 8 0; r@156: #X connect 5 0 4 0; r@156: #X connect 6 0 5 0; r@156: #X connect 9 0 6 0; r@156: #X connect 10 0 3 0; r@156: #X connect 10 0 4 0; r@156: #X restore 503 266 pd pow4; r@156: #X obj 404 248 sig~; r@156: #X obj 404 298 *~; r@156: #X obj 219 346 /~; r@156: #X obj 133 287 s~ \$0-aGainG; r@156: #X obj 872 246 r~ \$0-aGainG; r@156: #X obj 758 512 *~ 0.1; r@156: #X obj 723 340 +~ 90; r@156: #X obj 723 363 /~ 360; r@156: #X obj 723 409 *~; r@156: #X obj 723 385 sin~; r@156: #X obj 773 359 /~ 360; r@156: #X obj 773 405 *~; r@156: #X obj 773 381 cos~; r@156: #X obj 758 436 *~; r@156: #X text 709 1 Azimuth; r@156: #X text 608 3 Elevation; r@156: #X obj 611 21 inlet; r@156: #X obj 713 19 inlet; r@156: #X floatatom 611 68 5 0 0 0 - - -; r@156: #X floatatom 713 68 5 0 0 0 - - -; r@156: #X obj 322 417 r \$0-this_azim; r@156: #X obj 234 394 r \$0-this_elev; r@156: #X obj 773 314 r \$0-this_azim; r@156: #X obj 723 256 r \$0-this_elev; r@156: #X obj 723 280 sig~; r@156: #X obj 773 336 sig~; r@156: #X obj 518 141 sig~; r@156: #X obj 557 139 r~ plotElev; r@156: #X obj 245 439 r~ plotElev; r@156: #X obj 139 628 s~ plotOPF; r@156: #X obj 676 574 s~ plotOPD; r@156: #X obj 616 44 s \$0-this_elev; r@156: #X obj 720 44 s \$0-this_azim; r@156: #X obj 518 117 r \$0-this_elev; r@156: #X obj 520 40 s \$0-thisDist; r@156: #X obj 887 268 r \$0-thisDist; r@156: #X obj 404 111 r \$0-thisDist; r@156: #X obj 887 292 *; r@156: #X obj 887 317 * 4.05513e+07; r@156: #X text 892 335 Speed of Sound to power 3; r@156: #X obj 887 370 * 32; r@156: #X obj 887 398 sig~; r@156: #X obj 872 423 /~; r@156: #X text 588 167 Remember - Goldstein moves cylinder; r@156: #X obj 757 289 r~ plotElev; r@156: #X floatatom 359 169 5 0 0 0 - - -; r@156: #X obj 518 170 /~ 360; r@156: #X obj 758 475 *~; r@156: #X obj 424 40 s~ \$0-thisColL; r@156: #X obj 270 42 r~ \$0-thisColL; r@156: #X obj 270 82 *~ 1; r@156: #X obj 219 102 *~; r@156: #X obj 424 17 inlet~; r@158: #X obj 219 11 sig~; r@158: #X floatatom 265 13 5 0 0 0 - - -; r@158: #X obj 219 -11 average~ 512; r@158: #X obj 234 494 sin~; r@158: #X floatatom 351 12 5 0 0 0 - - -; r@158: #X obj 305 -12 ave~; r@156: #X connect 0 0 2 0; r@156: #X connect 1 0 2 1; r@158: #X connect 2 0 106 0; r@158: #X connect 3 0 46 0; r@158: #X connect 3 0 100 0; r@156: #X connect 8 0 1 0; r@156: #X connect 8 0 1 1; r@158: #X connect 9 0 110 0; r@158: #X connect 9 0 113 0; r@158: #X connect 11 0 105 1; r@156: #X connect 12 0 5 0; r@158: #X connect 12 0 89 0; r@156: #X connect 15 0 17 1; r@156: #X connect 17 0 38 0; r@156: #X connect 18 0 20 0; r@158: #X connect 19 0 42 0; r@158: #X connect 20 0 111 0; r@156: #X connect 21 0 22 1; r@158: #X connect 22 0 45 0; r@156: #X connect 23 0 26 0; r@156: #X connect 23 0 32 0; r@156: #X connect 24 0 27 0; r@156: #X connect 24 0 33 0; r@156: #X connect 25 0 28 0; r@156: #X connect 25 0 34 0; r@158: #X connect 38 0 57 0; r@156: #X connect 38 0 58 0; r@156: #X connect 39 0 17 0; r@158: #X connect 42 0 44 0; r@158: #X connect 43 0 45 1; r@158: #X connect 44 0 43 0; r@158: #X connect 44 0 43 1; r@158: #X connect 45 0 84 0; r@158: #X connect 45 0 13 0; r@158: #X connect 46 0 48 0; r@158: #X connect 48 0 55 0; r@158: #X connect 49 0 51 1; r@158: #X connect 50 0 51 0; r@158: #X connect 51 0 53 1; r@158: #X connect 52 0 53 0; r@156: #X connect 53 0 54 0; r@158: #X connect 54 0 56 1; r@158: #X connect 55 0 56 0; r@158: #X connect 56 0 57 1; r@158: #X connect 57 0 22 0; r@158: #X connect 59 0 97 0; r@158: #X connect 60 0 85 0; r@158: #X connect 60 0 14 0; r@158: #X connect 61 0 62 0; r@158: #X connect 62 0 64 0; r@158: #X connect 63 0 68 0; r@158: #X connect 64 0 63 0; r@158: #X connect 64 0 63 1; r@158: #X connect 65 0 67 0; r@158: #X connect 66 0 68 1; r@158: #X connect 67 0 66 0; r@158: #X connect 67 0 66 1; r@158: #X connect 68 0 102 0; r@158: #X connect 71 0 73 0; r@158: #X connect 71 0 86 0; r@156: #X connect 72 0 74 0; r@156: #X connect 72 0 87 0; r@158: #X connect 75 0 19 0; r@158: #X connect 76 0 18 0; r@158: #X connect 77 0 80 0; r@158: #X connect 78 0 79 0; r@158: #X connect 79 0 61 0; r@158: #X connect 80 0 65 0; r@158: #X connect 81 0 101 0; r@158: #X connect 88 0 81 0; r@158: #X connect 90 0 92 0; r@158: #X connect 90 0 92 1; r@158: #X connect 91 0 3 0; r@158: #X connect 91 0 3 1; r@158: #X connect 92 0 93 0; r@158: #X connect 93 0 95 0; r@158: #X connect 95 0 96 0; r@158: #X connect 96 0 97 1; r@158: #X connect 97 0 102 1; r@158: #X connect 101 0 50 0; r@158: #X connect 102 0 60 0; r@158: #X connect 104 0 105 0; r@158: #X connect 105 0 106 1; r@158: #X connect 106 0 39 0; r@158: #X connect 107 0 103 0; r@158: #X connect 108 0 0 0; r@158: #X connect 110 0 108 0; r@158: #X connect 110 0 109 0; r@158: #X connect 111 0 21 0; r@158: #X connect 111 0 21 1; r@158: #X connect 113 0 112 0; r@156: #X restore 303 297 pd GoldfreqGain; r@156: #X obj 964 504 r \$0-thisPan; r@156: #X obj 918 461 r~ \$0-myFreq; r@156: #X obj 941 483 r~ \$0-dragDiGain; r@156: #N canvas 272 58 1006 797 GoldnoiseGain 0; r@156: #X text -21029 240 Mass Density of Air \, squared; r@156: #X obj -20777 456 *; r@156: #X text -20777 409 Distance; r@156: #N canvas 759 125 235 275 pow8 0; r@156: #X obj 47 67 *~; r@156: #X obj 76 67 *~; r@156: #X obj 76 35 inlet~; r@156: #X obj 47 147 outlet~; r@156: #X obj 128 146 snapshot~; r@156: #X obj 128 121 metro 100; r@156: #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 r@156: 1; r@156: #X floatatom 128 173 10 0 0 0 - - -; r@156: #X obj 128 73 loadbang; r@156: #X obj 47 93 *~; r@156: #X obj 47 121 *~; r@156: #X connect 0 0 9 0; r@156: #X connect 1 0 9 1; r@156: #X connect 2 0 0 0; r@156: #X connect 2 0 0 1; r@156: #X connect 2 0 1 1; r@156: #X connect 2 0 1 0; r@156: #X connect 4 0 7 0; r@156: #X connect 5 0 4 0; r@156: #X connect 6 0 5 0; r@156: #X connect 8 0 6 0; r@156: #X connect 9 0 10 0; r@156: #X connect 9 0 10 1; r@156: #X connect 10 0 3 0; r@156: #X connect 10 0 4 0; r@156: #X restore -20846 69 pd pow8; r@158: #X obj -20846 4 inlet~; r@156: #X obj -20801 123 inlet; r@156: #X obj -20777 430 inlet; r@156: #X obj -20846 710 outlet~; r@156: #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum r@156: ; r@156: #X text -20765 124 Diameter; r@156: #X obj -20754 633 loadbang; r@156: #X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 r@156: 1 1; r@156: #X obj -20754 672 metro 10; r@156: #X obj -20754 693 snapshot~; r@156: #X floatatom -20754 713 8 0 0 0 - - -; r@158: #X text -20798 -5 Wind speed; r@156: #X text -21027 643 Calculates wake gain; r@156: #X text -20399 16 Azimuth; r@156: #X obj -20398 33 inlet; r@156: #X obj -20398 56 sig~; r@156: #X obj -20342 33 inlet; r@156: #X obj -20342 56 sig~; r@156: #X text -20343 16 Elevation; r@156: #X floatatom -20304 57 5 0 0 0 - - -; r@156: #X floatatom -20434 58 5 0 0 0 - - -; r@156: #X obj -20398 96 s~ \$0-this_azim; r@156: #X obj -20342 77 s~ \$0-this_elev; r@156: #X obj -20846 243 *~ 1.225; r@156: #X obj -20511 100 r~ \$0-this_azim; r@156: #N canvas 759 125 250 309 pow5 0; r@156: #X obj 47 67 *~; r@156: #X obj 76 35 inlet~; r@156: #X obj 47 170 outlet~; r@156: #X obj 136 173 snapshot~; r@156: #X obj 136 148 metro 100; r@156: #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 r@156: 1; r@156: #X floatatom 136 200 10 0 0 0 - - -; r@156: #X obj 136 100 loadbang; r@156: #X obj 47 87 *~; r@156: #X obj 47 118 *~; r@156: #X connect 0 0 8 0; r@156: #X connect 0 0 8 1; r@156: #X connect 1 0 0 0; r@156: #X connect 1 0 0 1; r@156: #X connect 1 0 9 1; r@156: #X connect 3 0 6 0; r@156: #X connect 4 0 3 0; r@156: #X connect 5 0 4 0; r@156: #X connect 7 0 5 0; r@156: #X connect 8 0 9 0; r@156: #X connect 9 0 2 0; r@156: #X connect 9 0 3 0; r@156: #X restore -20680 508 pd pow5; r@156: #X obj -20680 484 sig~ 343.56; r@156: #N canvas 875 261 250 309 pow5 0; r@156: #X obj 47 67 *~; r@156: #X obj 76 35 inlet~; r@156: #X obj 47 170 outlet~; r@156: #X obj 136 173 snapshot~; r@156: #X obj 136 148 metro 100; r@156: #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 r@156: 1; r@156: #X floatatom 136 200 10 0 0 0 - - -; r@156: #X obj 136 100 loadbang; r@156: #X obj 47 87 *~; r@156: #X obj 47 118 *~; r@156: #X connect 0 0 8 0; r@156: #X connect 0 0 8 1; r@156: #X connect 1 0 0 0; r@156: #X connect 1 0 0 1; r@156: #X connect 1 0 9 1; r@156: #X connect 3 0 6 0; r@156: #X connect 4 0 3 0; r@156: #X connect 5 0 4 0; r@156: #X connect 7 0 5 0; r@156: #X connect 8 0 9 0; r@156: #X connect 9 0 2 0; r@156: #X connect 9 0 3 0; r@156: #X restore -20645 434 pd pow5; r@156: #X obj -20599 284 /~ 360; r@156: #X obj -20599 311 cos~; r@156: #X obj -20584 333 r SIG_MACH; r@156: #X obj -20584 357 sig~; r@156: #X obj -20599 382 *~; r@156: #X obj -20645 381 sig~ 1; r@156: #X obj -20645 408 -~; r@156: #X obj -20680 355 sig~ 3.1416; r@156: #X obj -20680 380 *~; r@156: #X obj -20695 332 sig~ 16; r@156: #X obj -20695 404 *~; r@156: #X obj -20695 462 *~; r@156: #X obj -20695 535 *~; r@156: #X obj -20777 483 sig~; r@156: #X obj -20777 567 *~; r@156: #X obj -20846 611 /~; r@156: #X obj -20509 248 r~ plotElev; r@156: #X obj -20913 710 s~ plotOPN; r@156: #X obj -20599 262 -~; r@156: #X text -20547 269 Angle goes with the flow in Goldstein hence 90 - r@156: theta so that theta is same angle as dipole angles.; r@156: #X obj -20599 217 sig~ 180; r@156: #X obj -20536 221 r~ \$0-this_elev; r@156: #X obj -20916 56 inlet~; r@156: #X obj -20916 83 *~; r@156: #X obj -20822 90 inlet~; r@156: #X obj -20822 148 *~ 1; r@156: #X obj -20846 170 *~; r@156: #X obj -20846 194 *~; r@156: #X obj -20821 273 inlet; r@156: #X obj -20847 308 *~ 1; r@156: #X obj -20848 343 *~ 2.50663; r@156: #X obj -20846 643 *~ 1; r@156: #X text -20776 91 Corrolation Length; r@156: #X text -20781 272 Length; r@158: #X obj -20846 26 average~ 64; r@158: #X obj -20846 48 sig~; r@156: #X connect 1 0 45 0; r@156: #X connect 3 0 58 0; r@158: #X connect 4 0 66 0; r@156: #X connect 5 0 57 1; r@156: #X connect 6 0 1 0; r@156: #X connect 6 0 1 1; r@156: #X connect 10 0 11 0; r@156: #X connect 11 0 12 0; r@156: #X connect 12 0 13 0; r@156: #X connect 13 0 14 0; r@156: #X connect 18 0 19 0; r@156: #X connect 18 0 24 0; r@156: #X connect 19 0 25 0; r@156: #X connect 20 0 21 0; r@156: #X connect 20 0 23 0; r@156: #X connect 21 0 26 0; r@156: #X connect 27 0 61 0; r@156: #X connect 29 0 44 1; r@156: #X connect 30 0 29 0; r@156: #X connect 31 0 43 1; r@156: #X connect 32 0 33 0; r@156: #X connect 33 0 36 0; r@156: #X connect 34 0 35 0; r@156: #X connect 35 0 36 1; r@156: #X connect 36 0 38 1; r@156: #X connect 37 0 38 0; r@156: #X connect 38 0 31 0; r@156: #X connect 39 0 40 0; r@156: #X connect 39 0 40 1; r@156: #X connect 40 0 42 1; r@156: #X connect 41 0 42 0; r@156: #X connect 42 0 43 0; r@156: #X connect 43 0 44 0; r@156: #X connect 44 0 46 1; r@156: #X connect 45 0 46 0; r@156: #X connect 46 0 47 1; r@156: #X connect 47 0 63 0; r@156: #X connect 50 0 32 0; r@156: #X connect 52 0 50 0; r@156: #X connect 53 0 50 1; r@156: #X connect 54 0 55 0; r@156: #X connect 54 0 55 1; r@156: #X connect 55 0 58 1; r@156: #X connect 56 0 57 0; r@156: #X connect 57 0 59 1; r@156: #X connect 58 0 59 0; r@156: #X connect 59 0 27 0; r@156: #X connect 60 0 61 1; r@156: #X connect 61 0 62 0; r@156: #X connect 62 0 47 0; r@156: #X connect 63 0 49 0; r@156: #X connect 63 0 7 0; r@156: #X connect 63 0 13 0; r@158: #X connect 66 0 67 0; r@158: #X connect 67 0 3 0; r@156: #X restore 284 542 pd GoldnoiseGain; r@156: #X text 275 589 Calculates the gain of the wake; r@158: #X obj 981 52 inlet; r@158: #X obj 981 76 s \$0-TuInt; r@158: #X floatatom 945 77 5 0 0 0 - - -; r@156: #N canvas 4 232 229 249 TuInt_calc 0; r@156: #X obj 116 42 inlet; r@156: #X obj 116 118 + 1; r@156: #X obj 116 67 min 0.2; r@156: #X floatatom 144 148 5 0 0 0 - - -; r@156: #X obj 116 173 outlet; r@156: #X obj 116 92 * -4.5; r@156: #X connect 0 0 2 0; r@156: #X connect 1 0 3 0; r@156: #X connect 1 0 4 0; r@156: #X connect 2 0 5 0; r@156: #X connect 5 0 1 0; r@158: #X restore 1063 77 pd TuInt_calc; r@158: #X obj 1064 55 r \$0-TuInt; r@158: #X obj 1063 100 s \$0-TuGain; r@156: #X obj 987 524 r \$0-TuGain; r@158: #X floatatom 1029 99 5 0 0 0 - - -; r@156: #X obj 1167 524 r \$0-TuGain; r@156: #N canvas 811 216 464 503 dragDiFunNo 0; r@156: #X obj 124 84 inlet~; r@156: #X obj 120 196 inlet~; r@156: #X obj 161 105 inlet; r@156: #X obj 132 255 inlet; r@156: #X obj 124 105 *~ 2; r@156: #X obj 105 256 *~; r@156: #X obj 105 321 throw~ l; r@156: #X obj 132 298 throw~ r; r@156: #X obj 105 277 fcpan; r@156: #X obj 105 65 noise~; r@156: #X obj 120 236 *~ 1; r@156: #X obj 141 215 r \$0-TuGain; r@156: #X obj 105 151 vcf~ 10; r@156: #N canvas 607 346 247 157 QV 0; r@156: #X obj 90 25 inlet; r@156: #X obj 90 47 * 5; r@156: #X obj 90 70 + 5; r@156: #X obj 90 93 outlet; r@156: #X connect 0 0 1 0; r@156: #X connect 1 0 2 0; r@156: #X connect 2 0 3 0; r@156: #X restore 144 128 pd QV; r@156: #X text 49 367 Creates the shaped noise sound equivalent to a narrow r@156: band signal at the drag dipole fundamental frequency.; r@156: #X floatatom 153 276 5 0 0 0 - - -; r@156: #X obj 105 173 *~ 0.5; r@156: #X connect 0 0 4 0; r@156: #X connect 1 0 10 0; r@156: #X connect 2 0 13 0; r@156: #X connect 3 0 8 1; r@156: #X connect 3 0 15 0; r@156: #X connect 4 0 12 1; r@156: #X connect 5 0 8 0; r@156: #X connect 8 0 6 0; r@156: #X connect 8 1 7 0; r@156: #X connect 9 0 12 0; r@156: #X connect 10 0 5 1; r@156: #X connect 11 0 10 1; r@156: #X connect 12 0 16 0; r@156: #X connect 13 0 12 2; r@156: #X connect 16 0 5 0; r@156: #X restore 1086 545 pd dragDiFunNo; r@156: #N canvas 1014 140 491 522 dragDiFun 0; r@156: #X obj 165 125 osc~; r@156: #X obj 165 298 throw~ l; r@156: #X obj 192 275 throw~ r; r@156: #X obj 165 232 *~; r@156: #X obj 165 253 fcpan; r@156: #X obj 165 100 *~ 2; r@156: #X obj 180 209 *~ 1; r@156: #X obj 180 168 *~ 1; r@156: #X obj 165 75 inlet~; r@156: #X obj 180 145 inlet~; r@156: #X obj 192 232 inlet; r@156: #X obj 201 187 inlet; r@156: #X text 60 369 Generates the pure tone associated with the drag dipole r@156: fundamental frequency.; r@156: #X floatatom 212 256 5 0 0 0 - - -; r@156: #X connect 0 0 3 0; r@156: #X connect 3 0 4 0; r@156: #X connect 4 0 1 0; r@156: #X connect 4 1 2 0; r@156: #X connect 5 0 0 0; r@156: #X connect 6 0 3 1; r@156: #X connect 7 0 6 0; r@156: #X connect 8 0 5 0; r@156: #X connect 9 0 7 0; r@156: #X connect 10 0 4 1; r@156: #X connect 10 0 13 0; r@156: #X connect 11 0 6 1; r@156: #X restore 918 547 pd dragDiFun; r@156: #X obj 752 480 r~ \$0-myFreq; r@156: #X obj 779 500 r \$0-thisPan; r@156: #X obj 806 520 r \$0-TuGain; r@156: #X obj 725 460 r~ \$0-liftDiGain; r@156: #N canvas 579 250 654 489 liftDi2ndNo 0; r@156: #X obj 124 84 inlet~; r@156: #X obj 120 198 inlet~; r@156: #X obj 161 105 inlet; r@156: #X obj 132 281 inlet; r@156: #X obj 105 282 *~; r@156: #X obj 105 347 throw~ l; r@156: #X obj 132 324 throw~ r; r@156: #X obj 105 303 fcpan; r@156: #X obj 105 65 noise~; r@156: #X obj 120 262 *~ 1; r@156: #X obj 141 241 r \$0-TuGain; r@156: #X obj 105 151 vcf~ 10; r@156: #N canvas 607 346 247 157 QV 0; r@156: #X obj 90 25 inlet; r@156: #X obj 90 47 * 5; r@156: #X obj 90 70 + 5; r@156: #X obj 90 93 outlet; r@156: #X connect 0 0 1 0; r@156: #X connect 1 0 2 0; r@156: #X connect 2 0 3 0; r@156: #X restore 144 128 pd QV; r@156: #X obj 124 105 *~ 5; r@156: #X text 49 393 Creates the shaped noise sound equivalent to a narrow r@156: band signal at the lift dipole second harmonic frequency.; r@156: #X obj 120 220 *~ 0.1; r@156: #X floatatom 174 303 5 0 0 0 - - -; r@156: #X obj 105 173 *~ 0.5; r@156: #X text 206 209 0.1 Value to match normalised gain of 3rd harmonic r@156: given in Hardin; r@156: #X connect 0 0 13 0; r@156: #X connect 1 0 15 0; r@156: #X connect 2 0 12 0; r@156: #X connect 3 0 7 1; r@156: #X connect 3 0 16 0; r@156: #X connect 4 0 7 0; r@156: #X connect 7 0 5 0; r@156: #X connect 7 1 6 0; r@156: #X connect 8 0 11 0; r@156: #X connect 9 0 4 1; r@156: #X connect 10 0 9 1; r@156: #X connect 12 0 11 2; r@156: #X connect 13 0 11 1; r@156: #X connect 15 0 9 0; r@156: #X connect 17 0 4 0; r@156: #X restore 725 541 pd liftDi2ndNo; r@156: #X obj 617 497 r \$0-thisPan; r@156: #X obj 571 454 r~ \$0-myFreq; r@156: #X obj 640 517 r \$0-TuGain; r@156: #N canvas 899 170 491 522 liftDi2nd 0; r@156: #X obj 41 132 osc~; r@156: #X obj 41 305 throw~ l; r@156: #X obj 68 282 throw~ r; r@156: #X obj 41 239 *~; r@156: #X obj 41 260 fcpan; r@156: #X obj 56 216 *~ 1; r@156: #X obj 41 82 inlet~; r@156: #X obj 56 152 inlet~; r@156: #X obj 68 239 inlet; r@156: #X obj 77 194 inlet; r@156: #X obj 41 107 *~ 5; r@156: #X text 60 369 Generates the pure tone associated with the lift dipole r@156: second harmonic frequency.; r@156: #X obj 56 175 *~ 0.1; r@156: #X floatatom 104 263 5 0 0 0 - - -; r@156: #X text 117 168 0.1 Value to match normalised gain of 3rd harmonic r@156: given in Hardin; r@156: #X connect 0 0 3 0; r@156: #X connect 3 0 4 0; r@156: #X connect 4 0 1 0; r@156: #X connect 4 1 2 0; r@156: #X connect 5 0 3 1; r@156: #X connect 6 0 10 0; r@156: #X connect 7 0 12 0; r@156: #X connect 8 0 4 1; r@156: #X connect 8 0 13 0; r@156: #X connect 9 0 5 1; r@156: #X connect 10 0 0 0; r@156: #X connect 12 0 5 0; r@156: #X restore 571 540 pd liftDi2nd; r@156: #X obj 594 476 r~ \$0-liftDiGain; r@156: #X obj 618 606 r \$0-thisPan; r@156: #X obj 572 563 r~ \$0-myFreq; r@156: #X obj 641 626 r \$0-TuGain; r@156: #X obj 595 585 r~ \$0-liftDiGain; r@156: #N canvas 59 232 491 522 liftDi1st 0; r@156: #X obj 36 136 osc~; r@156: #X obj 36 309 throw~ l; r@156: #X obj 63 286 throw~ r; r@156: #X obj 36 243 *~; r@156: #X obj 36 264 fcpan; r@156: #X obj 51 220 *~ 1; r@156: #X obj 36 86 inlet~; r@156: #X obj 51 156 inlet~; r@156: #X obj 63 243 inlet; r@156: #X obj 72 198 inlet; r@156: #X obj 36 111 *~ 3; r@156: #X text 60 369 Generates the pure tone associated with the lift dipole r@156: first harmonic frequency.; r@156: #X floatatom 105 265 5 0 0 0 - - -; r@156: #X obj 51 179 *~ 0.6; r@156: #X text 114 168 0.6 Value to match normalised gain of 3rd harmonic r@156: given in Hardin; r@156: #X connect 0 0 3 0; r@156: #X connect 3 0 4 0; r@156: #X connect 4 0 1 0; r@156: #X connect 4 1 2 0; r@156: #X connect 5 0 3 1; r@156: #X connect 6 0 10 0; r@156: #X connect 7 0 13 0; r@156: #X connect 8 0 4 1; r@156: #X connect 8 0 12 0; r@156: #X connect 9 0 5 1; r@156: #X connect 10 0 0 0; r@156: #X connect 13 0 5 0; r@156: #X restore 572 649 pd liftDi1st; r@156: #X obj 752 584 r~ \$0-myFreq; r@156: #X obj 779 604 r \$0-thisPan; r@156: #X obj 806 624 r \$0-TuGain; r@156: #X obj 725 564 r~ \$0-liftDiGain; r@158: #N canvas 319 197 578 492 liftDi1stNo 0; r@156: #X obj 124 84 inlet~; r@156: #X obj 120 198 inlet~; r@156: #X obj 161 105 inlet; r@156: #X obj 132 281 inlet; r@156: #X obj 105 282 *~; r@156: #X obj 105 347 throw~ l; r@156: #X obj 132 324 throw~ r; r@156: #X obj 105 303 fcpan; r@156: #X obj 105 65 noise~; r@156: #X obj 120 262 *~ 1; r@156: #X obj 141 241 r \$0-TuGain; r@156: #X obj 105 151 vcf~ 10; r@156: #N canvas 607 346 247 157 QV 0; r@156: #X obj 90 25 inlet; r@156: #X obj 90 47 * 5; r@156: #X obj 90 70 + 5; r@156: #X obj 90 93 outlet; r@156: #X connect 0 0 1 0; r@156: #X connect 1 0 2 0; r@156: #X connect 2 0 3 0; r@156: #X restore 144 128 pd QV; r@156: #X text 49 393 Creates the shaped noise sound equivalent to a narrow r@156: band signal at the lift dipole second harmonic frequency.; r@156: #X obj 124 105 *~ 3; r@156: #X obj 120 220 *~ 0.5; r@156: #X floatatom 163 302 5 0 0 0 - - -; r@156: #X obj 105 173 *~ 0.6; r@156: #X text 167 169 0.6 Value to match normalised gain of 3rd harmonic r@156: given in Hardin; r@156: #X connect 0 0 14 0; r@156: #X connect 1 0 15 0; r@156: #X connect 2 0 12 0; r@156: #X connect 3 0 7 1; r@156: #X connect 3 0 16 0; r@156: #X connect 4 0 7 0; r@156: #X connect 7 0 5 0; r@156: #X connect 7 1 6 0; r@156: #X connect 8 0 11 0; r@156: #X connect 9 0 4 1; r@156: #X connect 10 0 9 1; r@156: #X connect 11 0 17 0; r@156: #X connect 12 0 11 2; r@156: #X connect 14 0 11 1; r@156: #X connect 15 0 9 0; r@156: #X connect 17 0 4 0; r@156: #X restore 725 645 pd liftDi1stNo; r@156: #X obj 618 718 r \$0-thisPan; r@156: #X obj 572 675 r~ \$0-myFreq; r@156: #X obj 641 738 r \$0-TuGain; r@156: #X obj 595 697 r~ \$0-liftDiGain; r@156: #N canvas 444 150 491 522 liftDiFun 0; r@156: #X obj 165 125 osc~; r@156: #X obj 165 298 throw~ l; r@156: #X obj 192 275 throw~ r; r@156: #X obj 165 232 *~; r@156: #X obj 165 253 fcpan; r@156: #X obj 180 209 *~ 1; r@156: #X obj 165 75 inlet~; r@156: #X obj 180 145 inlet~; r@156: #X obj 192 232 inlet; r@156: #X obj 201 187 inlet; r@156: #X obj 165 100 *~ 1; r@156: #X obj 180 168 *~ 1; r@156: #X text 60 369 Generates the pure tone associated with the lift dipole r@156: fundamental frequency.; r@156: #X floatatom 227 254 5 0 0 0 - - -; r@156: #X obj 95 262 s~ fund1; r@156: #X connect 0 0 3 0; r@156: #X connect 3 0 4 0; r@156: #X connect 3 0 14 0; r@156: #X connect 4 0 1 0; r@156: #X connect 4 1 2 0; r@156: #X connect 5 0 3 1; r@156: #X connect 6 0 10 0; r@156: #X connect 7 0 11 0; r@156: #X connect 8 0 4 1; r@156: #X connect 8 0 13 0; r@156: #X connect 9 0 5 1; r@156: #X connect 10 0 0 0; r@156: #X connect 11 0 5 0; r@156: #X restore 572 761 pd liftDiFun; r@156: #X obj 748 693 r~ \$0-myFreq; r@156: #X obj 775 713 r \$0-thisPan; r@156: #X obj 802 733 r \$0-TuGain; r@156: #X obj 721 673 r~ \$0-liftDiGain; r@156: #N canvas 930 320 464 503 liftDiFunNo 0; r@156: #X obj 124 84 inlet~; r@156: #X obj 120 198 inlet~; r@156: #X obj 161 105 inlet; r@156: #X obj 132 281 inlet; r@156: #X obj 105 282 *~; r@156: #X obj 105 347 throw~ l; r@156: #X obj 132 324 throw~ r; r@156: #X obj 105 303 fcpan; r@156: #X obj 105 65 noise~; r@156: #X obj 120 262 *~ 1; r@156: #X obj 141 241 r \$0-TuGain; r@156: #X obj 105 151 vcf~ 10; r@156: #N canvas 607 346 247 157 QV 0; r@156: #X obj 90 25 inlet; r@156: #X obj 90 47 * 5; r@156: #X obj 90 70 + 5; r@156: #X obj 90 93 outlet; r@156: #X connect 0 0 1 0; r@156: #X connect 1 0 2 0; r@156: #X connect 2 0 3 0; r@156: #X restore 144 128 pd QV; r@156: #X obj 124 105 *~ 1; r@156: #X obj 120 220 *~ 1; r@156: #X text 49 393 Creates the shaped noise sound equivalent to a narrow r@156: band signal at the lift dipole fundamental frequency.; r@156: #X floatatom 149 303 5 0 0 0 - - -; r@156: #X obj 105 173 *~ 0.5; r@156: #X connect 0 0 13 0; r@156: #X connect 1 0 14 0; r@156: #X connect 2 0 12 0; r@156: #X connect 3 0 7 1; r@156: #X connect 3 0 16 0; r@156: #X connect 4 0 7 0; r@156: #X connect 7 0 5 0; r@156: #X connect 7 1 6 0; r@156: #X connect 8 0 11 0; r@156: #X connect 9 0 4 1; r@156: #X connect 10 0 9 1; r@156: #X connect 11 0 17 0; r@156: #X connect 12 0 11 2; r@156: #X connect 13 0 11 1; r@156: #X connect 14 0 9 0; r@156: #X connect 17 0 4 0; r@156: #X restore 721 754 pd liftDiFunNo; r@158: #X text 910 698 Patches that generate all the sounds associated with r@156: the drag dipole; r@156: #X text 564 782 Patches that generate all the sounds associated with r@156: the lift dipole; r@156: #X obj 457 72 s \$0-azim; r@156: #X obj 532 72 s \$0-elev; r@156: #X obj 355 252 r \$0-elev; r@156: #X obj 363 273 r \$0-azim; r@156: #X obj 363 496 r \$0-elev; r@156: #X obj 377 514 r \$0-azim; r@156: #N canvas 1021 287 444 428 corrLen 0; r@156: #X obj 103 71 inlet~; r@156: #X obj 88 200 outlet~; r@156: #X obj 88 143 *~; r@156: #X obj 124 93 sig~ -0.245; r@156: #X obj 103 119 pow~; r@156: #X text 234 22 Y = 10^b . X^m; r@156: #X text 235 40 b = 1.536; r@156: #X text 235 56 m = -0.245; r@156: #X text 80 297 Equation of line derived from Norberg 2001; r@156: #X obj 88 169 max~ 1; r@156: #X obj 88 46 sig~ 44.67; r@160: #X obj 229 190 r myMet; r@160: #X obj 229 211 snapshot~; r@160: #X floatatom 230 236 5 0 0 0 - - -; r@158: #X connect 0 0 4 0; r@158: #X connect 2 0 9 0; r@158: #X connect 3 0 4 1; r@158: #X connect 4 0 2 1; r@158: #X connect 9 0 1 0; r@160: #X connect 9 0 12 0; r@158: #X connect 10 0 2 0; r@160: #X connect 11 0 12 0; r@160: #X connect 12 0 13 0; r@158: #X restore 1151 76 pd corrLen Calc; r@158: #X obj 1151 53 r~ \$0-myRey; r@158: #X obj 1151 100 s~ \$0-myCor; r@156: #X obj 337 212 r~ \$0-myCor; r@156: #X obj 1100 295 r \$0-contFreq; r@156: #X obj 1065 323 hip~; r@156: #X obj 310 414 r~ \$0-myCor; r@156: #X obj 100 558 outlet; r@156: #X obj 124 203 r myMet; r@156: #X obj 117 355 r myMet; r@156: #X obj 144 509 r myMet; r@158: #X obj 1113 593 r~ \$0-myFreq; r@158: #X obj 1086 573 r~ \$0-dragDiGain; r@158: #X obj 1140 613 r \$0-thisPan; r@158: #X obj 964 613 r \$0-thisPan; r@158: #X obj 918 570 r~ \$0-myFreq; r@158: #X obj 941 592 r~ \$0-dragDiGain; r@158: #X obj 987 633 r \$0-TuGain; r@158: #X obj 1167 633 r \$0-TuGain; r@158: #N canvas 795 179 491 522 dragDi1st 0; r@158: #X obj 165 125 osc~; r@158: #X obj 165 298 throw~ l; r@158: #X obj 192 275 throw~ r; r@158: #X obj 165 232 *~; r@158: #X obj 165 253 fcpan; r@158: #X obj 180 209 *~ 1; r@158: #X obj 165 75 inlet~; r@158: #X obj 180 145 inlet~; r@158: #X obj 192 232 inlet; r@158: #X obj 201 187 inlet; r@158: #X floatatom 212 256 5 0 0 0 - - -; r@158: #X obj 165 100 *~ 4; r@158: #X text 60 369 Generates the pure tone associated with the drag dipole r@158: 1st harmonic frequency.; r@158: #X obj 180 168 *~ 0.125; r@158: #X connect 0 0 3 0; r@158: #X connect 3 0 4 0; r@158: #X connect 4 0 1 0; r@158: #X connect 4 1 2 0; r@158: #X connect 5 0 3 1; r@158: #X connect 6 0 11 0; r@158: #X connect 7 0 13 0; r@158: #X connect 8 0 4 1; r@158: #X connect 8 0 10 0; r@158: #X connect 9 0 5 1; r@158: #X connect 11 0 0 0; r@158: #X connect 13 0 5 0; r@158: #X restore 918 656 pd dragDi1st; r@158: #N canvas 135 196 464 503 dragDi1stNo 0; r@158: #X obj 124 85 inlet~; r@158: #X obj 120 196 inlet~; r@158: #X obj 161 105 inlet; r@158: #X obj 132 282 inlet; r@158: #X obj 105 283 *~; r@158: #X obj 105 348 throw~ l; r@158: #X obj 132 325 throw~ r; r@158: #X obj 105 304 fcpan; r@158: #X obj 105 65 noise~; r@158: #X obj 120 263 *~ 1; r@158: #X obj 141 242 r \$0-TuGain; r@158: #X obj 105 151 vcf~ 10; r@158: #N canvas 607 346 247 157 QV 0; r@158: #X obj 90 25 inlet; r@158: #X obj 90 47 * 5; r@158: #X obj 90 70 + 5; r@158: #X obj 90 93 outlet; r@158: #X connect 0 0 1 0; r@158: #X connect 1 0 2 0; r@158: #X connect 2 0 3 0; r@158: #X restore 144 128 pd QV; r@158: #X floatatom 153 303 5 0 0 0 - - -; r@158: #X obj 105 173 *~ 0.5; r@158: #X obj 124 105 *~ 4; r@158: #X text 49 394 Creates the shaped noise sound equivalent to a narrow r@158: band signal at the drag dipole 1st harmonic frequency.; r@158: #X obj 120 219 *~ 0.0018; r@158: #X connect 0 0 15 0; r@158: #X connect 1 0 17 0; r@158: #X connect 2 0 12 0; r@158: #X connect 3 0 7 1; r@158: #X connect 3 0 13 0; r@158: #X connect 4 0 7 0; r@158: #X connect 7 0 5 0; r@158: #X connect 7 1 6 0; r@158: #X connect 8 0 11 0; r@158: #X connect 9 0 4 1; r@158: #X connect 10 0 9 1; r@158: #X connect 11 0 14 0; r@158: #X connect 12 0 11 2; r@158: #X connect 14 0 4 0; r@158: #X connect 15 0 11 1; r@158: #X connect 17 0 9 0; r@158: #X restore 1086 654 pd dragDi1stNo; r@158: #X obj 1291 649 snapshot~; r@158: #X obj 1290 623 r myMet; r@158: #X floatatom 1292 679 0 0 0 0 - - -; r@156: #X connect 1 0 3 0; r@156: #X connect 2 0 27 0; r@156: #X connect 2 0 59 0; r@156: #X connect 3 0 2 0; r@156: #X connect 4 0 18 0; r@156: #X connect 6 0 4 0; r@156: #X connect 7 0 12 0; r@156: #X connect 7 0 61 0; r@156: #X connect 10 0 42 0; r@156: #X connect 10 0 66 0; r@156: #X connect 13 0 3 1; r@156: #X connect 14 0 4 1; r@156: #X connect 16 0 6 1; r@156: #X connect 17 0 1 0; r@158: #X connect 19 0 119 1; r@156: #X connect 20 0 21 0; r@156: #X connect 21 0 15 0; r@156: #X connect 22 0 20 0; r@156: #X connect 22 0 60 0; r@156: #X connect 23 0 64 0; r@156: #X connect 24 0 25 0; r@156: #X connect 24 0 98 0; r@156: #X connect 26 0 24 0; r@156: #X connect 29 0 31 0; r@156: #X connect 31 0 32 0; r@156: #X connect 32 0 30 0; r@156: #X connect 32 0 75 0; r@158: #X connect 36 0 108 1; r@156: #X connect 37 0 38 0; r@158: #X connect 37 0 166 0; r@158: #X connect 39 0 108 4; r@156: #X connect 40 0 43 0; r@158: #X connect 40 0 153 0; r@156: #X connect 41 0 44 0; r@158: #X connect 41 0 154 0; r@156: #X connect 46 0 45 0; r@156: #X connect 46 0 5 0; r@156: #X connect 46 0 77 0; r@156: #X connect 47 0 46 0; r@156: #X connect 56 0 57 0; r@156: #X connect 56 0 65 0; r@156: #X connect 59 0 74 0; r@156: #X connect 59 0 6 0; r@156: #X connect 64 0 62 0; r@156: #X connect 64 1 63 0; r@158: #X connect 69 0 108 0; r@158: #X connect 70 0 108 3; r@158: #X connect 71 0 108 5; r@158: #X connect 73 0 119 0; r@156: #X connect 76 0 94 1; r@156: #X connect 78 0 37 0; r@156: #X connect 79 0 23 0; r@156: #X connect 80 0 64 1; r@156: #X connect 81 0 84 0; r@156: #X connect 81 0 87 0; r@156: #X connect 82 0 85 0; r@156: #X connect 82 0 88 0; r@156: #X connect 83 0 86 0; r@156: #X connect 83 0 89 0; r@158: #X connect 94 0 164 0; r@158: #X connect 95 0 119 2; r@156: #X connect 96 0 94 0; r@156: #X connect 97 0 96 0; r@156: #X connect 99 0 104 1; r@156: #X connect 100 0 104 3; r@156: #X connect 101 0 104 0; r@156: #X connect 102 0 104 2; r@156: #X connect 103 0 104 5; r@156: #X connect 104 0 68 0; r@156: #X connect 104 1 67 0; r@158: #X connect 105 0 120 2; r@158: #X connect 106 0 120 0; r@158: #X connect 107 0 120 1; r@158: #X connect 108 0 72 0; r@158: #X connect 110 0 111 0; r@158: #X connect 110 0 112 0; r@158: #X connect 113 0 115 0; r@158: #X connect 113 0 117 0; r@158: #X connect 114 0 113 0; r@158: #X connect 116 0 120 3; r@158: #X connect 118 0 119 3; r@158: #X connect 121 0 125 1; r@158: #X connect 122 0 125 2; r@158: #X connect 123 0 125 3; r@158: #X connect 124 0 125 0; r@156: #X connect 126 0 129 2; r@158: #X connect 127 0 129 0; r@158: #X connect 128 0 129 3; r@158: #X connect 130 0 129 1; r@158: #X connect 131 0 135 2; r@158: #X connect 132 0 135 0; r@158: #X connect 133 0 135 3; r@158: #X connect 134 0 135 1; r@158: #X connect 136 0 140 1; r@158: #X connect 137 0 140 2; r@158: #X connect 138 0 140 3; r@158: #X connect 139 0 140 0; r@158: #X connect 141 0 145 2; r@158: #X connect 142 0 145 0; r@158: #X connect 143 0 145 3; r@158: #X connect 144 0 145 1; r@158: #X connect 146 0 150 1; r@158: #X connect 147 0 150 2; r@158: #X connect 148 0 150 3; r@158: #X connect 149 0 150 0; r@158: #X connect 155 0 104 6; r@158: #X connect 156 0 104 7; r@158: #X connect 157 0 108 6; r@158: #X connect 158 0 108 7; r@158: #X connect 159 0 161 0; r@158: #X connect 160 0 159 0; r@158: #X connect 162 0 104 4; r@158: #X connect 163 0 164 1; r@158: #X connect 164 0 23 1; r@158: #X connect 165 0 108 2; r@158: #X connect 167 0 24 0; r@158: #X connect 168 0 46 0; r@158: #X connect 169 0 37 0; r@158: #X connect 170 0 179 1; r@158: #X connect 171 0 179 0; r@158: #X connect 172 0 179 2; r@158: #X connect 173 0 178 2; r@158: #X connect 174 0 178 0; r@158: #X connect 175 0 178 1; r@158: #X connect 176 0 178 3; r@158: #X connect 177 0 179 3; r@158: #X connect 180 0 182 0; r@158: #X connect 181 0 180 0;