Mercurial > hg > weather-synthesis-prototyping
changeset 128:17d7696c19c5
Sword10_D3 created and newStrou and other details from improved model added in
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Wed, 12 Aug 2015 15:07:08 +0100 |
| parents | b3ebe65683bc |
| children | 5e7c747e4876 |
| files | .DS_Store SwordSounds/Sword10_D3.pd SwordSounds/angleCalcN~.pd SwordSounds/newStrou.pd SwordSounds/tenSource.pd SwordSounds/woSoFreqD2.pd SwordSounds/woSoFreqD3.pd |
| diffstat | 7 files changed, 1429 insertions(+), 86 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/Sword10_D3.pd Wed Aug 12 15:07:08 2015 +0100 @@ -0,0 +1,605 @@ +#N canvas 58 100 1429 707 10; +#X obj 581 -63 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 644 -63 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 641 -154 Gain; +#X obj 580 -180 loadbang; +#N canvas 865 368 284 318 opLevels 0; +#X obj 85 188 dac~; +#X obj 30 70 catch~ l; +#X obj 155 76 catch~ r; +#X obj 155 106 *~ 0.45; +#X obj 30 104 *~ 0.45; +#X obj 30 210 prvu~; +#X obj 155 213 prvu~; +#X obj 100 69 / 127; +#X obj 100 34 inlet; +#X obj 30 239 outlet; +#X obj 155 241 outlet; +#X obj 155 132 /~ 1; +#X obj 30 131 /~ 1; +#X obj 204 29 inlet; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 11 0; +#X connect 4 0 12 0; +#X connect 5 0 9 0; +#X connect 6 0 10 0; +#X connect 7 0 3 1; +#X connect 7 0 4 1; +#X connect 8 0 7 0; +#X connect 11 0 0 1; +#X connect 11 0 6 0; +#X connect 12 0 0 0; +#X connect 12 0 5 0; +#X connect 13 0 12 1; +#X connect 13 0 11 1; +#X restore 580 -106 pd opLevels; +#X msg 580 -157 5; +#X msg 54 -185 1; +#X obj 54 -162 s bladeLen; +#X obj -148 -153 s NoOfSources; +#X obj -110 242 s topSpeed; +#X obj -162 216 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4257 1; +#X floatatom -165 242 8 0 0 0 - - -; +#X text 87 -186 Blade Length; +#X text 86 -120 Arm Length; +#X text -120 -176 Number of Sources; +#X text -54 220 Top Speed; +#X obj 132 35 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 129 67 8 0 0 0 - - -; +#N canvas 528 427 426 335 thickCalc 0; +#X obj 173 139 r NoOfSources; +#X obj 158 115 -; +#X obj 158 164 /; +#X floatatom 126 147 5 0 0 0 - - -; +#X floatatom 94 189 8 0 0 0 - - -; +#X obj 173 72 t f b; +#X obj 200 95 delay 9; +#X text 58 237 Calculates the difference in thickness between sources +; +#X text 59 254 based on the blade tapering in a straight line; +#X obj 158 19 r hiltThick; +#X obj 173 44 r tipThick; +#X obj 158 187 s deltaThick; +#X connect 0 0 2 1; +#X connect 1 0 2 0; +#X connect 1 0 3 0; +#X connect 2 0 4 0; +#X connect 2 0 11 0; +#X connect 5 0 1 1; +#X connect 5 1 6 0; +#X connect 6 0 1 0; +#X connect 9 0 1 0; +#X connect 10 0 5 0; +#X restore 412 -83 pd thickCalc; +#X obj -168 303 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2805 1; +#X obj -169 388 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2475 1; +#X floatatom -171 333 8 0 0 0 - - -; +#X obj -117 332 s hiltThick; +#X floatatom -172 416 8 0 0 0 - - -; +#X obj -114 415 s tipThick; +#X text -54 305 Hilt Thickness; +#X text -62 389 Tip Thickness; +#X obj 254 -140 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 254 -87 s GO; +#X obj 254 -186 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X obj 254 -167 metro 200; +#X obj 308 -191 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj 194 -140 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 194 -87 s setUp; +#X obj -218 190 r setUp; +#X obj 71 15 r setUp; +#X obj -222 280 r setUp; +#X obj -223 368 r setUp; +#N canvas 303 28 1094 768 angleCalc 0; +#X obj -129 105 * 0.75; +#X obj 325 234 * 0.25; +#X obj -129 145 /; +#X obj -144 199 * 1000; +#X obj 263 254 delay \$1; +#X obj 236 202 f; +#X obj 236 159 r GO; +#X obj 236 228 t f b; +#X msg 227 367 0; +#X obj 325 276 /; +#X obj 325 298 * 1000; +#X obj -127 225 s \$0_thisDe; +#X obj 251 181 r \$0_thisDe; +#X obj 145 237 r sweepAngle; +#X obj -129 81 r maxCirc; +#X obj 325 212 r maxCirc; +#X obj -114 124 r topSpeed; +#X obj 340 255 r topSpeed; +#X obj 644 360 delay \$1; +#X obj 646 302 f; +#X obj 639 248 r GO; +#X obj 646 328 t f b; +#X obj 682 208 r maxCirc; +#X obj 697 230 r topSpeed; +#X obj 682 254 /; +#X obj 682 276 * 1000; +#X obj 644 407 s end; +#X obj -77 312 r end; +#X obj 145 260 * -0.25; +#X text -193 45 0.75 represents the ratio of swing that; +#X text 200 118 0.25 represents the ratio of swing that; +#X text 200 132 the sword is decelerating; +#X text -102 149 Time taken for acceleration; +#X text -54 221 Send as a delay; +#X text 280 160 Recieve as a delay; +#X text -36 312 Reset angle; +#X text -38 325 once swing complete; +#X text 622 426 Send bang message at the; +#X text 623 438 end of the swing to reset; +#X text 379 296 Time for last; +#X text 381 307 1/4 of swing; +#X text -193 59 the sword is before 0 degrees; +#X text -121 700 Output of complete swing \, split into 75% before +0 degrees and 25% past 0 degrees; +#X text 568 517 Once delay from start to 0 degrees complete; +#X text 564 535 count down from 0 to finish the total swing angle; +#X text 98 9 Patch that calculates the angle between 0 degrees for +the full length of the swing; +#X obj -144 482 line~; +#X obj 86 601 metro 10; +#X obj 86 632 snapshot~; +#X floatatom 85 656 8 0 0 0 - - -; +#X obj 172 397 line~; +#X msg 172 350 \$1 \$2; +#X obj 151 319 pack; +#X obj 86 570 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom -108 266 5 0 0 0 - - -; +#X msg -90 438 \$1; +#X obj -48 365 r sweepAngle; +#X obj -48 387 * 0.75; +#X msg -144 427 0 \$1; +#X obj -62 341 r setUp; +#X obj 151 294 f; +#X obj -4 549 +~; +#X obj 227 342 r setUp; +#X floatatom -63 474 5 0 0 0 - - -; +#X text 11 464 comment; +#X obj -63 409 f; +#X floatatom -26 434 5 0 0 0 - - -; +#X obj 286 343 r end; +#X obj 632 276 delay 9; +#X obj 644 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj -144 174 f; +#X obj -163 143 r GO; +#X obj -4 633 s~ swordAngle; +#X text 241 325 Set to 0 at end; +#X obj 86 545 loadbang; +#X obj 68 509 r obsAngle; +#X obj -4 576 +~ 1; +#X text 141 470 Adding in the observer angle here offsets the swing +angle by the angle the observer is at. This makes all the future calculations +as if the observer is positioned at 0 degrees to the swordSwing.; +#X connect 0 0 2 0; +#X connect 1 0 9 0; +#X connect 2 0 70 1; +#X connect 3 0 11 0; +#X connect 3 0 54 0; +#X connect 3 0 58 0; +#X connect 4 0 60 0; +#X connect 5 0 7 0; +#X connect 6 0 5 0; +#X connect 7 0 4 1; +#X connect 7 1 4 0; +#X connect 8 0 50 0; +#X connect 9 0 10 0; +#X connect 10 0 52 1; +#X connect 12 0 5 1; +#X connect 13 0 28 0; +#X connect 14 0 0 0; +#X connect 15 0 1 0; +#X connect 16 0 2 1; +#X connect 17 0 9 1; +#X connect 18 0 69 0; +#X connect 19 0 21 0; +#X connect 20 0 68 0; +#X connect 21 0 18 1; +#X connect 21 1 18 0; +#X connect 22 0 24 0; +#X connect 23 0 24 1; +#X connect 24 0 25 0; +#X connect 25 0 19 1; +#X connect 27 0 65 0; +#X connect 28 0 60 1; +#X connect 46 0 61 0; +#X connect 47 0 48 0; +#X connect 48 0 49 0; +#X connect 50 0 61 1; +#X connect 51 0 50 0; +#X connect 52 0 51 0; +#X connect 53 0 47 0; +#X connect 55 0 46 0; +#X connect 55 0 63 0; +#X connect 56 0 57 0; +#X connect 57 0 65 1; +#X connect 57 0 66 0; +#X connect 58 0 46 0; +#X connect 59 0 65 0; +#X connect 60 0 52 0; +#X connect 61 0 76 0; +#X connect 62 0 8 0; +#X connect 65 0 55 0; +#X connect 67 0 8 0; +#X connect 68 0 19 0; +#X connect 69 0 26 0; +#X connect 70 0 3 0; +#X connect 71 0 70 0; +#X connect 74 0 53 0; +#X connect 75 0 76 1; +#X connect 76 0 72 0; +#X connect 76 0 48 0; +#X restore 411 -116 pd angleCalc; +#X obj 583 -135 hsl 100 25 0 1000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 396 1; +#X obj 54 -209 loadbang; +#X obj 52 -140 loadbang; +#X obj -148 -198 loadbang; +#X obj -165 190 r thisTS; +#X obj -171 280 r thisHT; +#X obj -172 368 r thisTT; +#X obj 528 -155 r thisG; +#X obj -201 -196 r setUp; +#X obj 3 -142 r setUp; +#X obj 2 -207 r setUp; +#X text 819 -33 Presets; +#X msg 891 -138 20 160 0.01 0.004 2 0 127; +#X msg 901 -115 30 280 0.0095 0.0032 2 60 120; +#X text 746 313 Currently the noise sources are not connected but still +getting a zipping type sound. It seems to get worse with sources lower +down the blade - this needs looked into; +#X obj 882 -190 loadbang; +#X obj 194 -192 loadbang; +#X obj 194 -168 delay 13; +#X obj 834 -108 t b; +#X obj 814 -85 s setUp; +#X obj 130 113 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 127 145 8 0 0 0 - - -; +#X obj 69 93 r setUp; +#X obj 125 226 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 9900 1; +#X floatatom 122 258 8 0 0 0 - - -; +#X obj 64 206 r setUp; +#X obj 123 304 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 9900 1; +#X floatatom 120 336 8 0 0 0 - - -; +#X obj 62 284 r setUp; +#N canvas 569 109 689 650 allSource 0; +#X obj 187 127 r distance; +#X obj 170 106 r angle; +#X obj 153 65 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 153 37 r setUp; +#X obj 204 147 r elev; +#X msg 153 84 10; +#X obj 153 170 tenSource; +#X connect 0 0 6 2; +#X connect 1 0 6 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 6 3; +#X connect 5 0 6 0; +#X restore 411 -55 pd allSource; +#X obj 177 257 s presweepElev; +#X obj 271 279 s postsweepElev; +#X text 236 227 pre-sweep elevation; +#X text 234 304 post-sweep elevation; +#X text 243 36 pre-sweep azimuth; +#X text 241 114 post-sweep azimuth; +#X obj 184 66 s presweepAzim; +#X obj 277 88 s postsweepAzim; +#X obj 52 -98 s start_armLength; +#X msg 52 -119 0.35; +#X obj 430 -30 sweepTime; +#X obj 692 -163 hsl 100 25 1 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 400 1; +#X floatatom 708 -123 5 0 0 0 - - -; +#X msg -148 -176 10; +#X obj 689 -207 loadbang; +#X msg 689 -184 5; +#N canvas 72 23 1360 722 maxCircCalc 0; +#X obj 440 104 +; +#X obj 468 128 s length; +#X obj 153 86 r presweepAzim; +#X obj 644 76 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 644 129 s GO; +#X obj 584 76 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1 +-1; +#X obj 584 129 s setUp; +#X obj 153 132 * 6.28312; +#X obj 153 110 / 360; +#X obj 153 174 *; +#X floatatom 91 198 5 0 0 0 - - -; +#X text 194 175 Circumference of the nearest source on blade; +#X text 307 191 up to 0 azimuth; +#X obj 153 200 s minPreCirc; +#X obj 437 279 * 6.28312; +#X obj 437 257 / 360; +#X obj 437 321 *; +#X floatatom 375 345 5 0 0 0 - - -; +#X text 478 322 Circumference of the nearest source on blade; +#X obj 437 233 r postsweepAzim; +#X obj 437 347 s minPostCirc; +#X obj 149 252 r presweepAzim; +#X obj 149 276 / 360; +#X obj 149 342 *; +#X floatatom 85 364 8 0 0 0 - - -; +#X obj 440 57 r bladeLen; +#X obj 455 81 r start_armLength; +#X obj 437 434 * 6.28312; +#X obj 437 412 / 360; +#X obj 437 478 *; +#X floatatom 399 501 5 0 0 0 - - -; +#X obj 437 388 r postsweepAzim; +#X obj 164 362 r minPreCirc; +#X obj 149 383 -; +#X obj 149 426 /; +#X floatatom 111 454 5 0 0 0 - - -; +#X obj 164 403 r NoOfSources; +#X obj 149 454 s deltaPreCirc; +#X obj 437 519 -; +#X obj 437 562 /; +#X obj 452 539 r NoOfSources; +#X obj 452 498 r minPostCirc; +#X obj 437 590 s deltaPostCirc; +#X floatatom 397 591 5 0 0 0 - - -; +#X text 33 334 Max Circumference; +#X text 323 472 Max Circumference; +#X obj 1076 361 r presweepElev; +#X obj 1091 384 r postsweepElev; +#X obj 1076 419 +; +#X obj 1076 441 * 0.5; +#X obj 1075 488 * 6.28312; +#X obj 1075 466 / 360; +#X obj 1074 514 cos; +#X floatatom 1020 613 5 0 0 0 - - -; +#X floatatom 1126 425 5 0 0 0 - - -; +#X obj 1074 536 *; +#X floatatom 531 128 5 0 0 0 - - -; +#X obj 1101 514 r start_armLength; +#X obj 149 298 * 6.28319; +#X obj 1074 562 s compSrcRadius; +#X obj 452 300 r compSrcRadius; +#X obj 168 153 r compSrcRadius; +#X obj 364 101 r arcConst; +#X obj 425 129 *; +#X floatatom 387 153 5 0 0 0 - - -; +#X obj 994 538 s arcConst; +#X obj 425 153 s compRadius; +#X obj 164 320 r compRadius; +#X obj 452 456 r compRadius; +#X connect 0 0 1 0; +#X connect 0 0 56 0; +#X connect 0 0 63 1; +#X connect 2 0 8 0; +#X connect 3 0 4 0; +#X connect 5 0 6 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 9 0 13 0; +#X connect 14 0 16 0; +#X connect 15 0 14 0; +#X connect 16 0 17 0; +#X connect 16 0 20 0; +#X connect 19 0 15 0; +#X connect 21 0 22 0; +#X connect 22 0 58 0; +#X connect 23 0 24 0; +#X connect 23 0 33 0; +#X connect 25 0 0 0; +#X connect 26 0 0 1; +#X connect 27 0 29 0; +#X connect 28 0 27 0; +#X connect 29 0 30 0; +#X connect 29 0 38 0; +#X connect 31 0 28 0; +#X connect 32 0 33 1; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 34 0 37 0; +#X connect 36 0 34 1; +#X connect 38 0 39 0; +#X connect 39 0 42 0; +#X connect 39 0 43 0; +#X connect 40 0 39 1; +#X connect 41 0 38 1; +#X connect 46 0 48 0; +#X connect 47 0 48 1; +#X connect 48 0 49 0; +#X connect 48 0 54 0; +#X connect 49 0 51 0; +#X connect 50 0 52 0; +#X connect 51 0 50 0; +#X connect 52 0 55 0; +#X connect 52 0 65 0; +#X connect 55 0 53 0; +#X connect 55 0 59 0; +#X connect 57 0 55 1; +#X connect 58 0 23 0; +#X connect 60 0 16 1; +#X connect 61 0 9 1; +#X connect 62 0 63 0; +#X connect 63 0 64 0; +#X connect 63 0 66 0; +#X connect 67 0 23 1; +#X connect 68 0 29 1; +#X restore 402 -6 pd maxCircCalc; +#X msg 198 12 80; +#X obj 408 37 centreAngles; +#X obj -163 -74 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4950 1; +#X obj -164 20 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4950 1; +#X obj -164 111 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4950 1; +#X obj -166 -51 s Xobs; +#X obj -167 40 s Yobs; +#X obj -167 133 s Zobs; +#X floatatom -206 -51 5 0 0 0 - - -; +#X floatatom -206 41 5 0 0 0 - - -; +#X floatatom -207 133 5 0 0 0 - - -; +#X msg -158 -98 0; +#X msg -158 85 0; +#X msg -160 -4 0.7; +#X obj -211 -100 r setUp; +#X obj -216 -3 r setUp; +#X obj -220 88 r setUp; +#X msg -108 -5 0; +#X msg 247 8 90; +#X msg -116 85 4; +#X msg -119 -97 4; +#X msg 190 203 0; +#X msg 200 94 -60; +#X msg 237 203 50; +#X msg 190 281 -30; +#X msg -59 -6 1.034; +#X msg -16 -6 2.034; +#X msg 30 -4 3; +#X msg -97 187 0.5; +#X msg -77 -102 0.2; +#X msg -84 84 0.2; +#X text 753 373 Take Sword10_D2 and keep the elevation and azimuth +as equal and opposite on each side \, always crossing 0; +#X obj 277 64 * -1; +#X obj 271 257 * -1; +#X floatatom 539 -104 5 0 0 0 - - -; +#X msg -93 278 0.02; +#X msg -99 362 0.008; +#X msg -30 191 35; +#X obj 881 125 s thisXobs; +#X obj -166 -119 r thisXobs; +#X obj 900 104 s thisYobs; +#X obj -167 -27 r thisYobs; +#X obj -167 66 r thisZobs; +#X obj 920 82 s thisZobs; +#X obj 939 59 s thisTS; +#X obj 959 38 s thisHT; +#X obj 978 18 s thisTT; +#X msg 882 -161 0 0 0 25 0.02 0.006 40; +#X obj 882 -43 unpack f f f f f f f f; +#X obj 998 -4 s thisPrA; +#X obj 1013 -23 s thisPrE; +#X obj 129 14 r thisPrA; +#X obj 127 92 r thisPoA; +#X obj 122 205 r thisPrE; +#X obj 120 283 r thisPoE; +#X connect 3 0 5 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 39 0; +#X connect 6 0 7 0; +#X connect 10 0 9 0; +#X connect 10 0 11 0; +#X connect 16 0 17 0; +#X connect 16 0 75 0; +#X connect 16 0 118 0; +#X connect 19 0 21 0; +#X connect 19 0 22 0; +#X connect 20 0 23 0; +#X connect 20 0 24 0; +#X connect 27 0 28 0; +#X connect 29 0 30 0; +#X connect 30 0 27 0; +#X connect 31 0 30 1; +#X connect 32 0 33 0; +#X connect 34 0 10 0; +#X connect 35 0 16 0; +#X connect 36 0 19 0; +#X connect 37 0 20 0; +#X connect 39 0 4 0; +#X connect 39 0 120 0; +#X connect 40 0 6 0; +#X connect 41 0 78 0; +#X connect 42 0 82 0; +#X connect 43 0 10 0; +#X connect 44 0 19 0; +#X connect 45 0 20 0; +#X connect 46 0 39 0; +#X connect 47 0 82 0; +#X connect 48 0 78 0; +#X connect 49 0 6 0; +#X connect 51 0 57 0; +#X connect 51 0 134 0; +#X connect 52 0 57 0; +#X connect 52 0 134 0; +#X connect 54 0 133 0; +#X connect 55 0 56 0; +#X connect 56 0 32 0; +#X connect 57 0 58 0; +#X connect 59 0 60 0; +#X connect 61 0 59 0; +#X connect 62 0 63 0; +#X connect 62 0 69 0; +#X connect 62 0 119 0; +#X connect 64 0 62 0; +#X connect 65 0 66 0; +#X connect 67 0 65 0; +#X connect 78 0 77 0; +#X connect 80 0 4 1; +#X connect 80 0 81 0; +#X connect 82 0 8 0; +#X connect 83 0 84 0; +#X connect 84 0 80 0; +#X connect 86 0 16 0; +#X connect 88 0 91 0; +#X connect 88 0 94 0; +#X connect 89 0 92 0; +#X connect 89 0 95 0; +#X connect 90 0 93 0; +#X connect 90 0 96 0; +#X connect 97 0 88 0; +#X connect 98 0 90 0; +#X connect 99 0 89 0; +#X connect 100 0 88 0; +#X connect 101 0 89 0; +#X connect 102 0 90 0; +#X connect 103 0 89 0; +#X connect 104 0 16 0; +#X connect 105 0 90 0; +#X connect 106 0 88 0; +#X connect 107 0 62 0; +#X connect 108 0 59 0; +#X connect 109 0 62 0; +#X connect 110 0 65 0; +#X connect 111 0 89 0; +#X connect 112 0 89 0; +#X connect 113 0 89 0; +#X connect 114 0 10 0; +#X connect 115 0 88 0; +#X connect 116 0 90 0; +#X connect 118 0 76 0; +#X connect 119 0 70 0; +#X connect 121 0 19 0; +#X connect 122 0 20 0; +#X connect 123 0 10 0; +#X connect 125 0 88 0; +#X connect 127 0 89 0; +#X connect 128 0 90 0; +#X connect 133 0 57 0; +#X connect 133 0 134 0; +#X connect 134 0 124 0; +#X connect 134 1 126 0; +#X connect 134 2 129 0; +#X connect 134 3 130 0; +#X connect 134 4 131 0; +#X connect 134 5 132 0; +#X connect 134 6 135 0; +#X connect 134 7 136 0; +#X connect 139 0 62 0; +#X connect 140 0 65 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/angleCalcN~.pd Wed Aug 12 15:07:08 2015 +0100 @@ -0,0 +1,43 @@ +#N canvas 446 246 615 451 10; +#X obj 337 174 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3600 1; +#X text 336 155 Elevation Angle; +#X floatatom 175 108 8 0 0 0 - - -; +#X floatatom 373 200 5 0 0 0 - - -; +#X obj 198 82 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4000 1; +#X text 202 64 Azimuth Angle; +#X obj 273 109 inlet~; +#X obj 288 200 inlet~; +#X obj 273 131 /~ 360; +#X obj 288 223 /~ 360; +#X obj 288 249 cos~; +#X obj 273 271 *~; +#X obj 273 296 arccos~; +#X obj 273 325 outlet~; +#X obj 238 108 sig~; +#X obj 334 200 sig~; +#X obj 328 264 loadbang; +#X obj 328 285 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 328 303 metro 10; +#X obj 328 324 snapshot~; +#X floatatom 328 344 8 0 0 0 - - -; +#X obj 273 167 cos~; +#X connect 0 0 3 0; +#X connect 0 0 15 0; +#X connect 4 0 2 0; +#X connect 4 0 14 0; +#X connect 6 0 8 0; +#X connect 7 0 9 0; +#X connect 8 0 21 0; +#X connect 9 0 10 0; +#X connect 10 0 11 1; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 0 19 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 21 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/newStrou.pd Wed Aug 12 15:07:08 2015 +0100 @@ -0,0 +1,138 @@ +#N canvas 804 381 590 316 10; +#X obj 203 48 inlet~; +#X obj 273 202 outlet~; +#X text 101 20 Reynolds number coming in; +#X text 211 238 Strouhal Number going out; +#N canvas 350 312 1026 531 eqnSelect 0; +#X msg 41 221 0.2684 -1.0356; +#X msg 148 221 0.2437 -0.8607; +#X msg 256 223 0.4291 -3.6735; +#X msg 365 223 0.3274 -2.0569; +#X msg 472 223 0.2257 -0.4402; +#X msg 577 222 0.204 0.3364; +#X msg 686 224 0.1776 2.2023; +#X obj 365 299 unpack; +#X obj 75 164 < 180; +#X obj 181 144 > 180; +#X obj 227 146 < 230; +#X obj 289 149 > 230; +#X obj 335 148 < 240; +#X obj 398 148 > 240; +#X obj 444 149 < 360; +#X obj 505 147 > 360; +#X obj 551 147 < 1300; +#X obj 611 150 > 1300; +#X obj 657 150 < 5000; +#X obj 719 149 > 5000; +#X obj 765 148 < 200000; +#X obj 827 149 > 200000; +#X obj 41 196 spigot; +#X floatatom 286 327 8 0 0 0 - - -; +#X floatatom 455 330 8 0 0 0 - - -; +#X obj 148 198 spigot; +#X obj 194 171 spigot; +#X obj 256 200 spigot; +#X obj 302 173 spigot; +#X obj 365 200 spigot; +#X obj 411 173 spigot; +#X floatatom 546 83 8 0 0 0 - - -; +#X obj 472 198 spigot; +#X obj 518 171 spigot; +#X obj 578 200 spigot; +#X obj 624 173 spigot; +#X obj 686 199 spigot; +#X obj 732 172 spigot; +#X obj 426 67 snapshot~; +#X obj 426 37 inlet~; +#X obj 359 2 loadbang; +#X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 359 42 metro 10; +#X obj 365 373 outlet~; +#X obj 398 352 outlet~; +#X obj 365 327 sig~; +#X obj 398 327 sig~; +#X text 539 419 This selects the values for the St* and m coefficients +for Fey's formula; +#X text 254 359 St* coefficient; +#X text 462 361 m coefficient; +#X text 372 240 Averaged; +#X connect 0 0 7 0; +#X connect 1 0 7 0; +#X connect 2 0 7 0; +#X connect 3 0 7 0; +#X connect 4 0 7 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 23 0; +#X connect 7 0 45 0; +#X connect 7 1 24 0; +#X connect 7 1 46 0; +#X connect 8 0 22 1; +#X connect 8 0 22 0; +#X connect 9 0 25 1; +#X connect 9 0 26 0; +#X connect 10 0 26 1; +#X connect 11 0 28 0; +#X connect 11 0 27 1; +#X connect 12 0 28 1; +#X connect 13 0 29 1; +#X connect 13 0 30 0; +#X connect 14 0 30 1; +#X connect 15 0 32 1; +#X connect 15 0 33 0; +#X connect 16 0 33 1; +#X connect 17 0 34 1; +#X connect 17 0 35 0; +#X connect 18 0 35 1; +#X connect 19 0 36 1; +#X connect 19 0 37 0; +#X connect 20 0 37 1; +#X connect 22 0 0 0; +#X connect 25 0 1 0; +#X connect 26 0 25 0; +#X connect 27 0 2 0; +#X connect 28 0 27 0; +#X connect 29 0 3 0; +#X connect 30 0 29 0; +#X connect 32 0 4 0; +#X connect 33 0 32 0; +#X connect 34 0 5 0; +#X connect 35 0 34 0; +#X connect 36 0 6 0; +#X connect 37 0 36 0; +#X connect 38 0 8 0; +#X connect 38 0 9 0; +#X connect 38 0 10 0; +#X connect 38 0 11 0; +#X connect 38 0 12 0; +#X connect 38 0 13 0; +#X connect 38 0 14 0; +#X connect 38 0 31 0; +#X connect 38 0 15 0; +#X connect 38 0 16 0; +#X connect 38 0 17 0; +#X connect 38 0 18 0; +#X connect 38 0 19 0; +#X connect 38 0 20 0; +#X connect 39 0 38 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 42 0 38 0; +#X connect 45 0 43 0; +#X connect 46 0 44 0; +#X restore 273 83 pd eqnSelect; +#X obj 203 85 sqrt~; +#X obj 342 119 /~; +#X obj 273 166 +~; +#X text 135 97 sqrt(Re); +#X text 250 114 St*; +#X text 359 101 m; +#X text 376 152 St = St* + m / sqrt(Re); +#X connect 0 0 4 0; +#X connect 0 0 5 0; +#X connect 4 0 7 0; +#X connect 4 1 6 0; +#X connect 5 0 6 1; +#X connect 6 0 7 1; +#X connect 7 0 1 0;
--- a/SwordSounds/tenSource.pd Wed Aug 12 14:18:32 2015 +0100 +++ b/SwordSounds/tenSource.pd Wed Aug 12 15:07:08 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 198 54 1259 813 10; +#N canvas 139 38 1259 813 10; #X obj 670 10 inlet; #X obj 670 31 i; #X obj 670 100 s \$0_thisGroup; @@ -130,16 +130,6 @@ #X obj 855 457 r \$0_elev; #X obj 627 334 r \$0_elev; #X floatatom 3 169 5 0 0 0 - - -; -#X obj 77 385 woSoFreqD2; -#X obj -159 239 woSoFreqD2; -#X obj -158 490 woSoFreqD2; -#X obj -155 727 woSoFreqD2; -#X obj 80 750 woSoFreqD2; -#X obj 303 724 woSoFreqD2; -#X obj 541 702 woSoFreqD2; -#X obj 772 475 woSoFreqD2; -#X obj 537 352 woSoFreqD2; -#X obj 313 375 woSoFreqD2; #X obj 670 76 * 1; #X obj 670 53 - 9; #X obj 772 347 sourceSpeed; @@ -152,17 +142,27 @@ #X obj 80 596 sourceSpeed; #X obj -155 598 sourceSpeed; #X obj -158 336 sourceSpeed; +#X obj 772 475 woSoFreqD3; +#X obj 537 352 woSoFreqD3; +#X obj 541 702 woSoFreqD3; +#X obj 303 724 woSoFreqD3; +#X obj 80 750 woSoFreqD3; +#X obj -155 727 woSoFreqD3; +#X obj -158 490 woSoFreqD3; +#X obj -159 239 woSoFreqD3; +#X obj 77 385 woSoFreqD3; +#X obj 313 375 woSoFreqD3; #X connect 0 0 1 0; #X connect 0 0 10 0; -#X connect 1 0 142 0; -#X connect 3 0 144 0; +#X connect 1 0 132 0; +#X connect 3 0 134 0; #X connect 4 0 9 1; #X connect 5 0 4 1; #X connect 6 0 7 0; #X connect 7 0 4 0; #X connect 8 0 9 0; #X connect 9 0 130 0; -#X connect 9 0 132 1; +#X connect 9 0 150 1; #X connect 10 0 11 0; #X connect 10 0 12 0; #X connect 10 0 13 0; @@ -184,130 +184,130 @@ #X connect 19 0 29 0; #X connect 20 0 30 0; #X connect 31 0 7 1; -#X connect 32 0 144 1; -#X connect 33 0 152 0; +#X connect 32 0 134 1; +#X connect 33 0 142 0; #X connect 34 0 39 1; #X connect 35 0 34 1; #X connect 36 0 37 0; #X connect 37 0 34 0; #X connect 38 0 39 0; -#X connect 39 0 133 1; -#X connect 40 0 152 1; +#X connect 39 0 149 1; +#X connect 40 0 142 1; #X connect 41 0 37 1; -#X connect 42 0 151 0; +#X connect 42 0 141 0; #X connect 43 0 48 1; #X connect 44 0 43 1; #X connect 45 0 46 0; #X connect 46 0 43 0; #X connect 47 0 48 0; -#X connect 48 0 134 1; -#X connect 49 0 151 1; +#X connect 48 0 148 1; +#X connect 49 0 141 1; #X connect 50 0 46 1; -#X connect 51 0 145 0; +#X connect 51 0 135 0; #X connect 52 0 57 1; #X connect 53 0 52 1; #X connect 54 0 55 0; #X connect 55 0 52 0; #X connect 56 0 57 0; -#X connect 57 0 131 1; -#X connect 58 0 145 1; +#X connect 57 0 151 1; +#X connect 58 0 135 1; #X connect 59 0 55 1; -#X connect 60 0 150 0; +#X connect 60 0 140 0; #X connect 61 0 66 1; #X connect 62 0 61 1; #X connect 63 0 64 0; #X connect 64 0 61 0; #X connect 65 0 66 0; -#X connect 66 0 135 1; +#X connect 66 0 147 1; #X connect 67 0 64 1; -#X connect 68 0 150 1; -#X connect 69 0 146 0; +#X connect 68 0 140 1; +#X connect 69 0 136 0; #X connect 70 0 75 1; #X connect 71 0 70 1; #X connect 72 0 73 0; #X connect 73 0 70 0; #X connect 74 0 75 0; -#X connect 75 0 140 1; -#X connect 76 0 146 1; +#X connect 75 0 152 1; +#X connect 76 0 136 1; #X connect 77 0 73 1; -#X connect 78 0 149 0; +#X connect 78 0 139 0; #X connect 79 0 84 1; #X connect 80 0 79 1; #X connect 81 0 82 0; #X connect 82 0 79 0; #X connect 83 0 84 0; -#X connect 84 0 136 1; -#X connect 85 0 149 1; +#X connect 84 0 146 1; +#X connect 85 0 139 1; #X connect 86 0 82 1; -#X connect 87 0 147 0; +#X connect 87 0 137 0; #X connect 88 0 93 1; #X connect 89 0 88 1; #X connect 90 0 91 0; #X connect 91 0 88 0; #X connect 92 0 93 0; -#X connect 93 0 139 1; -#X connect 94 0 147 1; +#X connect 93 0 144 1; +#X connect 94 0 137 1; #X connect 95 0 91 1; -#X connect 96 0 148 0; +#X connect 96 0 138 0; #X connect 97 0 102 1; #X connect 98 0 97 1; #X connect 99 0 100 0; #X connect 100 0 97 0; #X connect 101 0 102 0; -#X connect 102 0 137 1; -#X connect 103 0 148 1; +#X connect 102 0 145 1; +#X connect 103 0 138 1; #X connect 104 0 100 1; -#X connect 105 0 143 0; +#X connect 105 0 133 0; #X connect 106 0 111 1; #X connect 107 0 106 1; #X connect 108 0 109 0; #X connect 109 0 106 0; #X connect 110 0 111 0; -#X connect 111 0 138 1; -#X connect 112 0 143 1; +#X connect 111 0 143 1; +#X connect 112 0 133 1; #X connect 113 0 109 1; #X connect 114 0 117 0; #X connect 115 0 116 0; #X connect 118 0 119 0; -#X connect 120 0 140 4; -#X connect 121 0 131 4; -#X connect 122 0 132 4; -#X connect 123 0 133 4; -#X connect 124 0 134 4; -#X connect 125 0 135 4; -#X connect 126 0 136 4; -#X connect 127 0 137 4; -#X connect 128 0 138 4; -#X connect 129 0 139 4; -#X connect 141 0 2 0; -#X connect 142 0 141 0; -#X connect 143 0 138 0; -#X connect 143 1 138 2; -#X connect 143 2 138 3; -#X connect 144 0 132 0; -#X connect 144 1 132 2; -#X connect 144 2 132 3; -#X connect 145 0 131 0; -#X connect 145 1 131 2; -#X connect 145 2 131 3; -#X connect 146 0 140 0; -#X connect 146 1 140 2; -#X connect 146 2 140 3; -#X connect 147 0 139 0; -#X connect 147 1 139 2; -#X connect 147 2 139 3; -#X connect 148 0 137 0; -#X connect 148 1 137 2; -#X connect 148 2 137 3; -#X connect 149 0 136 0; -#X connect 149 1 136 2; -#X connect 149 2 136 3; -#X connect 150 0 135 0; -#X connect 150 1 135 2; -#X connect 150 2 135 3; -#X connect 151 0 134 0; -#X connect 151 1 134 2; -#X connect 151 2 134 3; -#X connect 152 0 133 0; -#X connect 152 1 133 2; -#X connect 152 2 133 3; +#X connect 120 0 152 4; +#X connect 121 0 151 4; +#X connect 122 0 150 4; +#X connect 123 0 149 4; +#X connect 124 0 148 4; +#X connect 125 0 147 4; +#X connect 126 0 146 4; +#X connect 127 0 145 4; +#X connect 128 0 143 4; +#X connect 129 0 144 4; +#X connect 131 0 2 0; +#X connect 132 0 131 0; +#X connect 133 0 143 0; +#X connect 133 1 143 2; +#X connect 133 2 143 3; +#X connect 134 0 150 0; +#X connect 134 1 150 2; +#X connect 134 2 150 3; +#X connect 135 0 151 0; +#X connect 135 1 151 2; +#X connect 135 2 151 3; +#X connect 136 0 152 0; +#X connect 136 1 152 2; +#X connect 136 2 152 3; +#X connect 137 0 144 0; +#X connect 137 1 144 2; +#X connect 137 2 144 3; +#X connect 138 0 145 0; +#X connect 138 1 145 2; +#X connect 138 2 145 3; +#X connect 139 0 146 0; +#X connect 139 1 146 2; +#X connect 139 2 146 3; +#X connect 140 0 147 0; +#X connect 140 1 147 2; +#X connect 140 2 147 3; +#X connect 141 0 148 0; +#X connect 141 1 148 2; +#X connect 141 2 148 3; +#X connect 142 0 149 0; +#X connect 142 1 149 2; +#X connect 142 2 149 3;
--- a/SwordSounds/woSoFreqD2.pd Wed Aug 12 14:18:32 2015 +0100 +++ b/SwordSounds/woSoFreqD2.pd Wed Aug 12 15:07:08 2015 +0100 @@ -61,7 +61,7 @@ #X obj 556 -73 r~ \$0_str; #X obj 563 207 r~ \$0-windSpeed; #X obj 552 184 r~ \$0_str; -#N canvas 790 279 622 660 noiseGain 1; +#N canvas 790 279 622 660 noiseGain 0; #X text -21205 129 Mass Density of Air \, squared; #X text -20857 164 Speed of Sound to power 2; #X obj -21070 29 *~; @@ -126,7 +126,7 @@ #X text -20981 74 Diameter; #N canvas 1567 153 479 552 angleCalc 0; #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4950 1; +-1 -1 0 1; #X text 287 77 Elevation Angle; #X obj 236 118 / 360; #X obj 236 140 * 6.28319;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/woSoFreqD3.pd Wed Aug 12 15:07:08 2015 +0100 @@ -0,0 +1,557 @@ +#N canvas 39 24 1440 824 10; +#X text 125 140 Frequency (Hz); +#X obj 288 616 throw~ l; +#X obj 321 597 throw~ r; +#X obj 135 89 snapshot~; +#X obj 135 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 135 115 10 0 0 0 - - -; +#X obj 185 -100 inlet; +#X obj 215 114 outlet; +#X obj 135 16 loadbang; +#X obj 288 529 +~; +#X obj 185 -77 s \$0-diameter; +#X obj 85 -77 s~ \$0-windSpeed; +#X obj 49 64 r~ \$0-myFreq; +#X obj 554 551 snapshot~; +#X obj 554 526 metro 100; +#X obj 554 504 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 554 577 10 0 0 0 - - -; +#X obj 554 478 loadbang; +#X obj 468 526 r~ \$0-myRey; +#X text 539 599 Reynolds Number; +#X obj 85 -100 inlet~; +#X obj 135 64 metro 10; +#X text 181 261 Mass Density of Air; +#X obj 303 474 osc~; +#X obj 303 262 *~ 1.225; +#X obj 303 322 /~ 1.81e-05; +#X obj 303 292 *~ 1; +#X obj 303 423 /~ 1; +#X obj 303 399 *~; +#X obj 303 448 clip~ 0 20000; +#X text 162 359 Reynolds Number; +#X text 187 415 Strouhal Number; +#X obj 303 504 *~; +#X text 380 322 Viscosity; +#X obj 67 425 *~ 2; +#X obj 67 452 osc~; +#X obj 67 474 *~; +#X obj 364 261 r \$0-diameter; +#X obj 367 403 r \$0-diameter; +#X obj 366 372 r~ \$0-windSpeed; +#X obj 303 234 r~ \$0-windSpeed; +#X obj 238 398 s~ \$0_str; +#X obj 100 452 r~ \$0_dragDiGain; +#X obj 218 474 s~ \$0-myFreq; +#X obj 67 404 r~ \$0-myFreq; +#X obj 341 474 r~ \$0_liftDiGain; +#X obj 218 344 s~ \$0-myRey; +#X text 54 287 Calculates the frequency; +#X text 54 300 based on the physics of; +#X text 55 313 the object and environment; +#X obj 566 -52 r~ \$0-windSpeed; +#X obj 556 -73 r~ \$0_str; +#X obj 563 207 r~ \$0-windSpeed; +#X obj 552 184 r~ \$0_str; +#N canvas 815 79 622 660 noiseGain 0; +#X text -21205 129 Mass Density of Air \, squared; +#X text -20857 164 Speed of Sound to power 2; +#X obj -21070 29 *~; +#X obj -21022 70 *~; +#X obj -21022 104 *~ 1; +#X obj -21022 132 *~ 1.50063; +#X obj -21021 422 *~ 0.27; +#X text -20859 71 Distance; +#X text -21175 486 Calculates Lift Dipole gain; +#N canvas 759 125 286 289 pow8 0; +#X obj 47 67 *~; +#X obj 76 67 *~; +#X obj 76 35 inlet~; +#X obj 47 170 outlet~; +#X obj 136 173 snapshot~; +#X obj 136 148 metro 100; +#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 136 200 10 0 0 0 - - -; +#X obj 136 100 loadbang; +#X obj 106 67 *~; +#X obj 47 93 *~; +#X obj 47 118 *~; +#X obj 136 67 *~; +#X obj 47 144 *~; +#X connect 0 0 10 0; +#X connect 1 0 10 1; +#X connect 2 0 0 0; +#X connect 2 0 0 1; +#X connect 2 0 1 1; +#X connect 2 0 9 0; +#X connect 2 0 9 1; +#X connect 2 0 1 0; +#X connect 2 0 12 0; +#X connect 2 0 12 1; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 8 0 6 0; +#X connect 9 0 11 1; +#X connect 10 0 11 0; +#X connect 11 0 13 0; +#X connect 12 0 13 1; +#X connect 13 0 3 0; +#X connect 13 0 4 0; +#X restore -21022 32 pd pow8; +#X obj -21005 222 s~ \$0-c; +#X obj -21070 7 inlet~; +#X obj -21022 7 inlet~; +#X obj -20989 55 inlet; +#X obj -20873 229 inlet; +#X obj -21021 465 outlet~; +#X text -20937 227 Azimuth; +#X text -20871 210 Elevation; +#X text -20961 26 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20981 74 Diameter; +#N canvas 1567 153 479 552 angleCalc 0; +#X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 287 77 Elevation Angle; +#X obj 236 118 / 360; +#X obj 236 140 * 6.28319; +#X obj 164 80 / 360; +#X obj 164 102 * 6.28319; +#X floatatom 49 106 5 0 0 0 - - -; +#X floatatom 304 140 5 0 0 0 - - -; +#X obj 278 443 * 360; +#X floatatom 325 494 5 0 0 0 - - -; +#X obj 278 467 / 6.28319; +#X obj 236 235 *; +#X obj 236 267 swap 1; +#X obj 236 300 -; +#X obj 236 329 sqrt; +#X obj 278 360 /; +#X obj 278 388 atan; +#X obj 278 414 * 2; +#X text 318 296 Arccos of angle; +#X obj 293 236 + 1; +#X obj 164 126 cos; +#X obj 236 171 cos; +#X obj 236 205 *; +#X obj 164 149 t f b; +#X obj 162 174 delay 9; +#X obj 278 494 outlet; +#X obj 236 90 inlet; +#X obj 164 57 inlet; +#X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 56 42 Azimuth Angle; +#X connect 0 0 7 0; +#X connect 2 0 3 0; +#X connect 3 0 21 0; +#X connect 4 0 5 0; +#X connect 5 0 20 0; +#X connect 8 0 10 0; +#X connect 10 0 9 0; +#X connect 10 0 25 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 1 13 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 8 0; +#X connect 19 0 15 1; +#X connect 20 0 23 0; +#X connect 21 0 22 0; +#X connect 22 0 11 0; +#X connect 22 0 11 1; +#X connect 22 0 19 0; +#X connect 23 0 22 1; +#X connect 23 1 24 0; +#X connect 24 0 22 0; +#X connect 26 0 2 0; +#X connect 26 0 0 0; +#X connect 27 0 4 0; +#X connect 27 0 28 0; +#X connect 28 0 6 0; +#X restore -20847 270 pd angleCalc; +#X obj -20951 117 inlet; +#X obj -20951 142 *; +#X obj -21022 167 *~ 1; +#X text -20953 99 Length; +#X text -21239 441 Need for scienctific reasoning here!; +#X obj -20859 92 inlet~; +#X obj -20948 246 inlet~; +#X obj -21006 300 +~ 90; +#X obj -21006 323 /~ 360; +#X obj -21006 344 cos~; +#X obj -21021 397 *~; +#X obj -20859 118 *~; +#X obj -20859 141 *~ 118033; +#X obj -21022 193 /~; +#X obj -21021 444 *~ 0.01; +#X text -21172 7 Strouhal number; +#X text -20973 3 Wind speed; +#X obj -20948 272 angleCalcN~; +#X obj -20948 300 +~ 90; +#X obj -20948 321 /~ 360; +#X obj -20948 343 sin~; +#X obj -21006 375 +~; +#X obj -20877 297 loadbang; +#X obj -20877 318 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20877 336 metro 10; +#X obj -20877 357 snapshot~; +#X floatatom -20877 377 5 0 0 0 - - -; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 23 0; +#X connect 6 0 35 0; +#X connect 9 0 3 0; +#X connect 11 0 2 0; +#X connect 11 0 2 1; +#X connect 12 0 9 0; +#X connect 13 0 4 1; +#X connect 14 0 20 1; +#X connect 21 0 22 0; +#X connect 21 0 22 1; +#X connect 22 0 23 1; +#X connect 23 0 34 0; +#X connect 26 0 32 0; +#X connect 26 0 32 1; +#X connect 27 0 38 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 42 0; +#X connect 31 0 6 0; +#X connect 32 0 33 0; +#X connect 33 0 34 1; +#X connect 34 0 10 0; +#X connect 34 0 31 0; +#X connect 35 0 15 0; +#X connect 38 0 28 0; +#X connect 38 0 39 0; +#X connect 38 0 46 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 42 1; +#X connect 42 0 31 1; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X restore 552 336 pd noiseGain; +#X obj 575 228 r \$0-diameter; +#X obj 609 291 r \$0_elev; +#N canvas 242 208 702 650 freqGain 0; +#X text 36 127 Mass Density of Air \, squared; +#X text 508 93 Speed of Sound to power 2; +#N canvas 759 125 286 289 pow6 0; +#X obj 47 67 *~; +#X obj 76 67 *~; +#X obj 76 35 inlet~; +#X obj 47 163 outlet~; +#X obj 136 184 snapshot~; +#X obj 136 159 metro 100; +#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 136 211 10 0 0 0 - - -; +#X obj 216 210 outlet; +#X obj 136 111 loadbang; +#X obj 106 67 *~; +#X obj 47 93 *~; +#X obj 47 118 *~; +#X connect 0 0 11 0; +#X connect 1 0 11 1; +#X connect 2 0 0 0; +#X connect 2 0 0 1; +#X connect 2 0 1 1; +#X connect 2 0 10 0; +#X connect 2 0 10 1; +#X connect 2 0 1 0; +#X connect 4 0 7 0; +#X connect 4 0 8 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 9 0 6 0; +#X connect 10 0 12 1; +#X connect 11 0 12 0; +#X connect 12 0 4 0; +#X connect 12 0 3 0; +#X restore 219 30 pd pow6; +#X obj 173 32 *~; +#X obj 219 68 *~; +#X obj 219 102 *~ 1; +#X obj 219 130 *~ 1.50063; +#X obj 219 506 *~ 0.27; +#X text 380 261 Azimuth; +#X text 497 1 Distance; +#X obj 398 491 *~ 0.27; +#X obj 236 269 s~ \$0-a; +#X obj 357 441 r~ \$0-a; +#N canvas 131 175 477 312 angleCalc 0; +#X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 233 6 Elevation Angle; +#X obj 242 59 / 360; +#X obj 242 81 * 6.28319; +#X obj 170 21 / 360; +#X obj 170 43 * 6.28319; +#X floatatom 50 22 5 0 0 0 - - -; +#X floatatom 294 57 5 0 0 0 - - -; +#X floatatom 204 196 5 0 0 0 - - -; +#X obj 170 67 cos; +#X obj 242 112 cos; +#X obj 242 146 *; +#X obj 170 90 t f b; +#X obj 168 115 delay 9; +#X obj 242 197 outlet; +#X obj 242 31 inlet; +#X obj 170 -6 inlet; +#X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X text 136 -30 Azimuth Angle; +#X obj 242 172 arccos; +#X connect 0 0 7 0; +#X connect 0 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 10 0; +#X connect 4 0 5 0; +#X connect 5 0 9 0; +#X connect 9 0 12 0; +#X connect 10 0 11 0; +#X connect 11 0 19 0; +#X connect 12 0 11 1; +#X connect 12 1 13 0; +#X connect 13 0 11 0; +#X connect 15 0 2 0; +#X connect 16 0 4 0; +#X connect 17 0 6 0; +#X connect 17 0 4 0; +#X connect 19 0 14 0; +#X connect 19 0 8 0; +#X restore 424 302 pd angleCalc; +#X text 451 260 Elevation; +#X text 476 498 Calculates Drag Dipole gain; +#X text 48 445 Calculates Lift Dipole gain; +#X obj 398 516 *~ 0.1; +#X obj 173 8 inlet~; +#X obj 219 7 inlet~; +#X text 256 54 Diameter; +#X obj 250 69 inlet; +#X obj 434 275 inlet; +#X obj 219 530 outlet~; +#X obj 398 541 outlet~; +#X obj 297 125 inlet; +#X obj 297 149 *; +#X obj 219 193 *~ 1; +#X text 292 106 Length; +#X obj 305 247 arccos; +#X obj 305 223 r sigMac; +#X obj 240 337 +; +#X obj 305 269 t f b; +#X obj 240 298 delay 9; +#X text 309 203 Replicates Doppler effect; +#X obj 506 20 inlet~; +#X obj 506 45 *~; +#X obj 506 70 *~ 118033; +#X obj 219 240 /~; +#X obj 365 276 inlet~; +#X obj 240 388 /~ 360; +#X obj 304 385 *~ 6.28319; +#X obj 240 434 cos~; +#X obj 240 458 *~; +#X obj 219 481 *~; +#X obj 419 375 /~ 360; +#X obj 419 420 cos~; +#X obj 419 444 *~; +#X obj 398 467 *~; +#X obj 320 324 +~ 90; +#X connect 2 0 4 0; +#X connect 3 0 4 1; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 27 0; +#X connect 7 0 23 0; +#X connect 10 0 17 0; +#X connect 12 0 48 0; +#X connect 17 0 24 0; +#X connect 18 0 3 0; +#X connect 18 0 3 1; +#X connect 19 0 2 0; +#X connect 21 0 5 1; +#X connect 22 0 13 1; +#X connect 25 0 26 0; +#X connect 25 0 26 1; +#X connect 26 0 27 1; +#X connect 27 0 38 0; +#X connect 29 0 32 0; +#X connect 30 0 29 0; +#X connect 32 0 31 1; +#X connect 32 1 33 0; +#X connect 33 0 31 0; +#X connect 35 0 36 1; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 38 1; +#X connect 38 0 11 0; +#X connect 38 0 44 0; +#X connect 39 0 45 0; +#X connect 39 0 49 0; +#X connect 40 0 42 0; +#X connect 42 0 43 0; +#X connect 42 0 43 1; +#X connect 43 0 44 1; +#X connect 44 0 7 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X connect 46 0 47 1; +#X connect 47 0 48 1; +#X connect 48 0 10 0; +#X connect 49 0 40 0; +#X restore 556 78 pd freqGain; +#X obj 577 -31 r \$0-diameter; +#X obj 608 35 r \$0_elev; +#X obj 619 102 s~ \$0_dragDiGain; +#X obj 556 122 s~ \$0_liftDiGain; +#X text 546 139 Calculates the gain of the dipole source; +#X text 543 400 Calculates the gain of the source; +#X obj 587 -8 r length; +#X obj 586 249 r length; +#X obj 422 -100 inlet; +#X obj 422 -78 s \$0_elev; +#X obj 754 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 754 -37 s GO; +#X obj 694 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 694 -37 s setUp; +#X obj 270 -100 inlet~; +#X obj 340 -101 inlet~; +#X obj 270 -78 s~ \$0_dist; +#X obj 340 -79 s~ \$0_azim; +#X obj 330 -37 r~ \$0_azim; +#X obj 330 6 +~ 0.5; +#X obj 330 28 s~ \$0_thisPan; +#X obj 321 550 r~ \$0_thisPan; +#X obj 619 57 r~ \$0_dist; +#X obj 598 14 r~ \$0_azim; +#X obj 330 -15 /~ 360; +#X obj 288 572 fcpan~; +#X obj 621 312 r~ \$0_dist; +#X obj 598 270 r~ \$0_azim; +#X obj 303 370 newStrou; +#X obj 945 115 r~ \$0-myFreq; +#X obj 857 47 noise~; +#X obj 905 195 *~; +#X obj 1043 108 snapshot~; +#X floatatom 1043 134 10 0 0 0 - - -; +#X obj 1043 35 loadbang; +#X obj 1043 60 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 997 -63 r~ \$0-myRey; +#X obj 911 142 vcf~ 1000 10; +#X obj 1043 83 metro 10; +#X obj 905 283 throw~ l; +#X obj 932 261 throw~ r; +#X obj 905 239 fcpan; +#X obj 878 69 r \$0-contFreq; +#X obj 920 166 r~ \$0-liftNoiseGain; +#X obj 932 220 r \$0-thisPan; +#X text 959 185 Noise spectrum calculation; +#X obj 857 93 hip~; +#X obj 896 174 +~; +#X obj 997 -39 *~ -0.001; +#X obj 997 -14 +~ 20; +#X obj 857 142 *~ 0.015; +#X obj 997 12 clip~ 1 20; +#X obj 552 381 s~ \$0-liftNoiseGain; +#X connect 3 0 5 0; +#X connect 3 0 7 0; +#X connect 4 0 21 0; +#X connect 6 0 10 0; +#X connect 8 0 4 0; +#X connect 9 0 83 0; +#X connect 12 0 3 0; +#X connect 13 0 16 0; +#X connect 14 0 13 0; +#X connect 15 0 14 0; +#X connect 17 0 15 0; +#X connect 18 0 13 0; +#X connect 20 0 11 0; +#X connect 21 0 3 0; +#X connect 23 0 32 0; +#X connect 24 0 26 0; +#X connect 25 0 46 0; +#X connect 25 0 86 0; +#X connect 26 0 25 0; +#X connect 27 0 29 0; +#X connect 28 0 27 0; +#X connect 29 0 23 0; +#X connect 29 0 43 0; +#X connect 32 0 9 1; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 36 0 9 0; +#X connect 37 0 26 1; +#X connect 38 0 27 1; +#X connect 39 0 28 1; +#X connect 40 0 24 0; +#X connect 42 0 36 1; +#X connect 44 0 34 0; +#X connect 45 0 32 1; +#X connect 50 0 57 1; +#X connect 51 0 57 0; +#X connect 52 0 54 1; +#X connect 53 0 54 0; +#X connect 54 0 110 0; +#X connect 55 0 54 2; +#X connect 56 0 54 5; +#X connect 57 0 61 0; +#X connect 57 1 60 0; +#X connect 58 0 57 2; +#X connect 59 0 57 5; +#X connect 64 0 57 3; +#X connect 65 0 54 3; +#X connect 66 0 67 0; +#X connect 68 0 69 0; +#X connect 70 0 71 0; +#X connect 72 0 74 0; +#X connect 73 0 75 0; +#X connect 76 0 82 0; +#X connect 77 0 78 0; +#X connect 79 0 83 1; +#X connect 80 0 57 6; +#X connect 81 0 57 4; +#X connect 82 0 77 0; +#X connect 83 0 1 0; +#X connect 83 1 2 0; +#X connect 84 0 54 6; +#X connect 85 0 54 4; +#X connect 86 0 28 0; +#X connect 86 0 41 0; +#X connect 87 0 95 1; +#X connect 88 0 104 0; +#X connect 88 0 95 0; +#X connect 89 0 99 0; +#X connect 90 0 91 0; +#X connect 90 0 95 2; +#X connect 92 0 93 0; +#X connect 93 0 96 0; +#X connect 94 0 106 0; +#X connect 95 0 105 1; +#X connect 96 0 90 0; +#X connect 99 0 97 0; +#X connect 99 1 98 0; +#X connect 100 0 104 1; +#X connect 101 0 89 1; +#X connect 102 0 99 1; +#X connect 104 0 108 0; +#X connect 105 0 89 0; +#X connect 106 0 107 0; +#X connect 107 0 109 0; +#X connect 108 0 105 0; +#X connect 109 0 90 0;