Mercurial > hg > weather-synthesis-prototyping
changeset 165:6aaeb2789f99
Start of sword with presets
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/Sword10_D1.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,526 @@ +#N canvas 34 32 1433 837 10; +#X obj 561 -83 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 624 -83 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 621 -174 Gain; +#X obj 560 -200 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 560 -126 pd opLevels; +#X msg 560 -177 5; +#X msg 34 -205 1; +#X obj 34 -182 s bladeLen; +#X obj -168 -173 s NoOfSources; +#X obj 95 151 s topSpeed; +#X obj 43 125 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3070 1; +#X floatatom 40 151 8 0 0 0 - - -; +#X text 67 -206 Blade Length; +#X text 66 -140 Arm Length; +#X text -140 -196 Number of Sources; +#X text 151 129 Top Speed; +#X obj 830 -131 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 8000 1; +#X floatatom 827 -99 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 392 -103 pd thickCalc; +#X obj 37 212 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3500 1; +#X obj 36 297 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 1368 1; +#X floatatom 34 242 8 0 0 0 - - -; +#X obj 88 241 s hiltThick; +#X floatatom 33 325 8 0 0 0 - - -; +#X obj 91 324 s tipThick; +#X text 151 214 Hilt Thickness; +#X text 143 298 Tip Thickness; +#X obj 234 -160 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 234 -107 s GO; +#X obj -249 138 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 8410 1; +#X obj -253 223 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6600 1; +#X floatatom -252 164 8 0 0 0 - - -; +#X text -139 142 Distance to Observer; +#X floatatom -256 251 8 0 0 0 - - -; +#X text -131 217 Angle to Observer; +#X obj 234 -206 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X obj 234 -187 metro 200; +#X obj 288 -211 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 900 1; +#X obj 174 -160 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 174 -107 s setUp; +#X obj -13 99 r setUp; +#X obj 769 -151 r setUp; +#X obj -17 189 r setUp; +#X obj -18 277 r setUp; +#X obj -304 117 r setUp; +#X obj -307 201 r setUp; +#X obj -193 165 s obsDistance; +#X obj -197 252 s obsAngle; +#N canvas 215 79 911 675 circumferCalc 0; +#X obj 440 104 +; +#X obj 440 127 s length; +#X obj 168 153 r start_armLength; +#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 452 300 r start_armLength; +#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 text 914 158 up to 0 azimuth; +#X obj 437 233 r postsweepAzim; +#X obj 437 347 s minPostCirc; +#X obj 149 252 r presweepAzim; +#X obj 149 298 * 6.28312; +#X obj 149 276 / 360; +#X obj 149 342 *; +#X obj 164 320 r length; +#X floatatom 111 364 5 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 obj 452 456 r length; +#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 connect 0 0 1 0; +#X connect 2 0 10 1; +#X connect 3 0 9 0; +#X connect 4 0 5 0; +#X connect 6 0 7 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 10 0 14 0; +#X connect 15 0 18 1; +#X connect 16 0 18 0; +#X connect 17 0 16 0; +#X connect 18 0 19 0; +#X connect 18 0 23 0; +#X connect 22 0 17 0; +#X connect 24 0 26 0; +#X connect 25 0 27 0; +#X connect 26 0 25 0; +#X connect 27 0 29 0; +#X connect 27 0 39 0; +#X connect 28 0 27 1; +#X connect 30 0 0 0; +#X connect 31 0 0 1; +#X connect 32 0 34 0; +#X connect 33 0 32 0; +#X connect 34 0 36 0; +#X connect 34 0 44 0; +#X connect 35 0 34 1; +#X connect 37 0 33 0; +#X connect 38 0 39 1; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 40 0 43 0; +#X connect 42 0 40 1; +#X connect 44 0 45 0; +#X connect 45 0 48 0; +#X connect 45 0 49 0; +#X connect 46 0 45 1; +#X connect 47 0 44 1; +#X restore 367 -26 pd circumferCalc; +#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 391 -136 pd angleCalc; +#X obj 563 -155 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5354 1; +#X obj 34 -229 loadbang; +#X obj 32 -160 loadbang; +#X obj -168 -218 loadbang; +#X msg -166 -124 0; +#X obj -166 -102 s elev; +#X text -134 229 (Azimuth); +#X obj -166 -147 loadbang; +#X obj 457 565 s thisTS; +#X obj 476 544 s thisSA; +#X obj 496 522 s thisHT; +#X obj 515 499 s thisTT; +#X obj 535 478 s thisOD; +#X obj 554 458 s thisOA; +#X obj 574 436 s thisG; +#X obj 40 99 r thisTS; +#X obj 827 -152 r thisSA; +#X obj 34 189 r thisHT; +#X obj 33 277 r thisTT; +#X obj -252 117 r thisOD; +#X obj -255 202 r thisOA; +#X obj 508 -175 r thisG; +#X obj 457 412 unpack f f f f f f f; +#X obj -218 -147 r setUp; +#X obj -221 -216 r setUp; +#X obj -17 -162 r setUp; +#X obj -18 -227 r setUp; +#X text 394 412 Presets; +#X msg 466 307 20 160 0.01 0.004 2 0 127; +#X msg 457 284 43 215 0.0085 0.0025 4 90 40; +#X msg 476 330 30 280 0.0095 0.0032 2 60 120; +#X text 726 293 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 457 255 loadbang; +#X obj 174 -212 loadbang; +#X obj 174 -188 delay 13; +#X obj 409 337 t b; +#X obj 389 360 s setUp; +#X obj -257 297 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom -260 325 8 0 0 0 - - -; +#X text -135 291 Angle to Observer; +#X obj -311 275 r setUp; +#X obj -259 276 r thisOE; +#X obj -201 326 s obsElev; +#X text -138 303 (Elevation); +#X obj 828 -53 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3300 1; +#X floatatom 825 -21 8 0 0 0 - - -; +#X obj 767 -73 r setUp; +#X obj 825 -74 r thisSA; +#X obj 823 60 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5600 1; +#X floatatom 820 92 8 0 0 0 - - -; +#X obj 762 40 r setUp; +#X obj 820 39 r thisSA; +#X obj 821 138 hsl 100 20 0 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 2400 1; +#X floatatom 818 170 8 0 0 0 - - -; +#X obj 760 118 r setUp; +#X obj 818 117 r thisSA; +#N canvas 419 64 689 650 allSource 1; +#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 391 -75 pd allSource; +#X obj 875 91 s presweepElev; +#X obj 873 169 s postsweepElev; +#X text 934 61 pre-sweep elevation; +#X text 932 138 post-sweep elevation; +#X text 941 -130 pre-sweep azimuth; +#X text 939 -52 post-sweep azimuth; +#X obj 882 -100 s presweepAzim; +#X obj 880 -22 s postsweepAzim; +#X obj 32 -118 s start_armLength; +#X msg 32 -139 0.35; +#X obj 410 -50 sweepTime; +#X obj 672 -195 hsl 100 25 1 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 900 1; +#X floatatom 688 -155 5 0 0 0 - - -; +#X msg -168 -196 10; +#X connect 3 0 5 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 50 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 113 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 31 0; +#X connect 29 0 46 0; +#X connect 30 0 33 0; +#X connect 30 0 47 0; +#X connect 35 0 36 0; +#X connect 36 0 27 0; +#X connect 37 0 36 1; +#X connect 38 0 39 0; +#X connect 40 0 10 0; +#X connect 41 0 16 0; +#X connect 42 0 19 0; +#X connect 43 0 20 0; +#X connect 44 0 29 0; +#X connect 45 0 30 0; +#X connect 50 0 4 0; +#X connect 51 0 6 0; +#X connect 52 0 116 0; +#X connect 53 0 120 0; +#X connect 54 0 55 0; +#X connect 57 0 54 0; +#X connect 65 0 10 0; +#X connect 67 0 19 0; +#X connect 68 0 20 0; +#X connect 69 0 29 0; +#X connect 70 0 30 0; +#X connect 71 0 50 0; +#X connect 72 0 58 0; +#X connect 72 1 59 0; +#X connect 72 2 60 0; +#X connect 72 3 61 0; +#X connect 72 4 62 0; +#X connect 72 5 63 0; +#X connect 72 6 64 0; +#X connect 73 0 54 0; +#X connect 74 0 120 0; +#X connect 75 0 116 0; +#X connect 76 0 6 0; +#X connect 78 0 72 0; +#X connect 78 0 85 0; +#X connect 79 0 72 0; +#X connect 79 0 85 0; +#X connect 80 0 72 0; +#X connect 80 0 85 0; +#X connect 82 0 79 0; +#X connect 83 0 84 0; +#X connect 84 0 38 0; +#X connect 85 0 86 0; +#X connect 87 0 88 0; +#X connect 87 0 92 0; +#X connect 90 0 87 0; +#X connect 91 0 87 0; +#X connect 94 0 95 0; +#X connect 94 0 114 0; +#X connect 96 0 94 0; +#X connect 98 0 99 0; +#X connect 98 0 107 0; +#X connect 100 0 98 0; +#X connect 101 0 98 0; +#X connect 102 0 103 0; +#X connect 102 0 108 0; +#X connect 104 0 102 0; +#X connect 105 0 102 0; +#X connect 116 0 115 0; +#X connect 118 0 4 1; +#X connect 118 0 119 0; +#X connect 120 0 8 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/Sword10_D2.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,583 @@ +#N canvas 84 31 1418 816 10; +#X obj 571 -73 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 634 -73 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 631 -164 Gain; +#X obj 570 -190 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 570 -116 pd opLevels; +#X msg 570 -167 5; +#X msg 44 -195 1; +#X obj 44 -172 s bladeLen; +#X obj -158 -163 s NoOfSources; +#X obj -120 232 s topSpeed; +#X obj -172 206 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 49 1; +#X floatatom -175 232 8 0 0 0 - - -; +#X text 77 -196 Blade Length; +#X text 76 -130 Arm Length; +#X text -130 -186 Number of Sources; +#X text -64 210 Top Speed; +#X obj 122 25 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 7425 1; +#X floatatom 119 57 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 402 -93 pd thickCalc; +#X obj -178 293 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2405 1; +#X obj -179 378 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 7275 1; +#X floatatom -181 323 8 0 0 0 - - -; +#X obj -127 322 s hiltThick; +#X floatatom -182 406 8 0 0 0 - - -; +#X obj -124 405 s tipThick; +#X text -64 295 Hilt Thickness; +#X text -72 379 Tip Thickness; +#X obj 244 -150 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 244 -97 s GO; +#X obj 244 -196 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X obj 244 -177 metro 200; +#X obj 298 -201 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj 184 -150 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 184 -97 s setUp; +#X obj -228 180 r setUp; +#X obj 61 5 r setUp; +#X obj -232 270 r setUp; +#X obj -233 358 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 401 -126 pd angleCalc; +#X obj 573 -145 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3118 1; +#X obj 44 -219 loadbang; +#X obj 42 -150 loadbang; +#X obj -158 -208 loadbang; +#X obj 872 110 s thisTS; +#X obj 891 89 s thisSA; +#X obj 911 67 s thisHT; +#X obj 930 44 s thisTT; +#X obj 950 23 s thisOD; +#X obj 969 3 s thisOA; +#X obj 989 -19 s thisG; +#X obj -175 180 r thisTS; +#X obj 119 4 r thisSA; +#X obj -181 270 r thisHT; +#X obj -182 358 r thisTT; +#X obj 518 -165 r thisG; +#X obj 872 -43 unpack f f f f f f f; +#X obj -211 -206 r setUp; +#X obj -7 -152 r setUp; +#X obj -8 -217 r setUp; +#X text 809 -43 Presets; +#X msg 881 -148 20 160 0.01 0.004 2 0 127; +#X msg 872 -171 43 215 0.0085 0.0025 4 90 40; +#X msg 891 -125 30 280 0.0095 0.0032 2 60 120; +#X text 736 303 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 872 -200 loadbang; +#X obj 184 -202 loadbang; +#X obj 184 -178 delay 13; +#X obj 824 -118 t b; +#X obj 804 -95 s setUp; +#X obj 120 103 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5000 1; +#X floatatom 117 135 8 0 0 0 - - -; +#X obj 59 83 r setUp; +#X obj 117 82 r thisSA; +#X obj 115 216 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 9900 1; +#X floatatom 112 248 8 0 0 0 - - -; +#X obj 54 196 r setUp; +#X obj 112 195 r thisSA; +#X obj 113 294 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X floatatom 110 326 8 0 0 0 - - -; +#X obj 52 274 r setUp; +#X obj 110 273 r thisSA; +#N canvas 419 64 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 401 -65 pd allSource; +#X obj 167 247 s presweepElev; +#X obj 165 325 s postsweepElev; +#X text 226 217 pre-sweep elevation; +#X text 224 294 post-sweep elevation; +#X text 233 26 pre-sweep azimuth; +#X text 231 104 post-sweep azimuth; +#X obj 174 56 s presweepAzim; +#X obj 172 134 s postsweepAzim; +#X obj 42 -108 s start_armLength; +#X msg 42 -129 0.35; +#X obj 420 -40 sweepTime; +#X obj 682 -173 hsl 100 25 1 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 400 1; +#X floatatom 698 -133 5 0 0 0 - - -; +#X msg -158 -186 10; +#X obj 679 -217 loadbang; +#X msg 679 -194 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 392 -16 pd maxCircCalc; +#X msg 188 2 80; +#X obj 398 27 centreAngles; +#X obj -173 -84 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 4950 1; +#X obj -174 -7 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5052 1; +#X obj -174 71 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5346 1; +#X obj -176 -61 s Xobs; +#X obj -177 13 s Yobs; +#X obj -177 93 s Zobs; +#X floatatom -216 -61 5 0 0 0 - - -; +#X floatatom -216 14 5 0 0 0 - - -; +#X floatatom -217 93 5 0 0 0 - - -; +#X msg -168 -108 0; +#X msg -174 45 0; +#X msg -170 -31 0.7; +#X obj -221 -110 r setUp; +#X obj -226 -30 r setUp; +#X obj -230 48 r setUp; +#X msg -118 -32 0; +#X msg 237 -2 90; +#X msg -132 45 4; +#X msg -126 -112 4; +#X msg 180 193 0; +#X msg 190 84 -60; +#X msg 227 193 50; +#X msg 180 271 -30; +#X msg -69 -33 1.034; +#X msg -26 -33 2.034; +#X msg 42 -31 3; +#X msg -107 177 0.5; +#X msg -87 -112 0.2; +#X msg -100 44 0.2; +#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 88 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 40 0 6 0; +#X connect 41 0 91 0; +#X connect 42 0 95 0; +#X connect 50 0 10 0; +#X connect 52 0 19 0; +#X connect 53 0 20 0; +#X connect 54 0 39 0; +#X connect 55 0 43 0; +#X connect 55 1 44 0; +#X connect 55 2 45 0; +#X connect 55 3 46 0; +#X connect 55 4 47 0; +#X connect 55 5 48 0; +#X connect 55 6 49 0; +#X connect 56 0 95 0; +#X connect 57 0 91 0; +#X connect 58 0 6 0; +#X connect 60 0 55 0; +#X connect 60 0 67 0; +#X connect 61 0 55 0; +#X connect 61 0 67 0; +#X connect 62 0 55 0; +#X connect 62 0 67 0; +#X connect 64 0 61 0; +#X connect 65 0 66 0; +#X connect 66 0 32 0; +#X connect 67 0 68 0; +#X connect 69 0 70 0; +#X connect 69 0 89 0; +#X connect 71 0 69 0; +#X connect 73 0 74 0; +#X connect 73 0 82 0; +#X connect 75 0 73 0; +#X connect 76 0 73 0; +#X connect 77 0 78 0; +#X connect 77 0 83 0; +#X connect 79 0 77 0; +#X connect 80 0 77 0; +#X connect 91 0 90 0; +#X connect 93 0 4 1; +#X connect 93 0 94 0; +#X connect 95 0 8 0; +#X connect 96 0 97 0; +#X connect 97 0 93 0; +#X connect 99 0 16 0; +#X connect 101 0 104 0; +#X connect 101 0 107 0; +#X connect 102 0 105 0; +#X connect 102 0 108 0; +#X connect 103 0 106 0; +#X connect 103 0 109 0; +#X connect 110 0 101 0; +#X connect 111 0 103 0; +#X connect 112 0 102 0; +#X connect 113 0 101 0; +#X connect 114 0 102 0; +#X connect 115 0 103 0; +#X connect 116 0 102 0; +#X connect 117 0 16 0; +#X connect 118 0 103 0; +#X connect 119 0 101 0; +#X connect 120 0 73 0; +#X connect 121 0 69 0; +#X connect 122 0 73 0; +#X connect 123 0 77 0; +#X connect 124 0 102 0; +#X connect 125 0 102 0; +#X connect 126 0 102 0; +#X connect 127 0 10 0; +#X connect 128 0 101 0; +#X connect 129 0 103 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/SwordAuto.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,613 @@ +#N canvas 114 83 1440 714 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 2475 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 7425 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 6600 1; +#X obj -169 388 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8 +0 10 -262144 -1 -1 5900 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 500 30 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.1 1000 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 9155 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 -28 Presets; +#X obj 882 -190 loadbang; +#X obj 194 -192 loadbang; +#X obj 194 -168 delay 13; +#X obj 822 -89 t b; +#X obj 822 -47 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 7700 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 0 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 5247 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 138 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 882 187 s thisXobs; +#X obj -166 -119 r thisXobs; +#X obj 899 166 s thisYobs; +#X obj -167 -27 r thisYobs; +#X obj -167 66 r thisZobs; +#X obj 917 144 s thisZobs; +#X obj 934 121 s thisTS; +#X obj 952 100 s thisHT; +#X obj 970 80 s thisTT; +#X obj 987 58 s thisPrA; +#X obj 1005 39 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 obj 882 -5 unpack f f f f f f f f f; +#X obj 1023 18 s thisG; +#X obj 822 -68 delay 9; +#X msg 882 -161 0 0 0 25 0.02 0.006 80 50 500; +#X msg 286 9 10; +#X msg 317 8 0; +#X msg 894 -138 0 0 4 25 0.02 0.006 80 50 500; +#X msg 905 -115 4 0 4 25 0.02 0.006 80 50 500; +#X msg 920 -50 0 0 0 25 0.03 0.01 45 0 500; +#X msg 916 -77 0 0 0 35 0.005 0.003 45 10 150; +#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 72 0; +#X connect 16 0 115 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 117 0; +#X connect 40 0 6 0; +#X connect 41 0 75 0; +#X connect 42 0 79 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 79 0; +#X connect 48 0 75 0; +#X connect 49 0 6 0; +#X connect 51 0 139 0; +#X connect 52 0 53 0; +#X connect 53 0 32 0; +#X connect 54 0 138 0; +#X connect 56 0 57 0; +#X connect 58 0 56 0; +#X connect 59 0 60 0; +#X connect 59 0 66 0; +#X connect 59 0 116 0; +#X connect 61 0 59 0; +#X connect 62 0 63 0; +#X connect 64 0 62 0; +#X connect 75 0 74 0; +#X connect 77 0 4 1; +#X connect 77 0 78 0; +#X connect 79 0 8 0; +#X connect 80 0 81 0; +#X connect 81 0 77 0; +#X connect 83 0 16 0; +#X connect 85 0 88 0; +#X connect 85 0 91 0; +#X connect 86 0 89 0; +#X connect 86 0 92 0; +#X connect 87 0 90 0; +#X connect 87 0 93 0; +#X connect 94 0 85 0; +#X connect 95 0 87 0; +#X connect 96 0 86 0; +#X connect 97 0 85 0; +#X connect 98 0 86 0; +#X connect 99 0 87 0; +#X connect 100 0 86 0; +#X connect 101 0 16 0; +#X connect 102 0 87 0; +#X connect 103 0 85 0; +#X connect 104 0 59 0; +#X connect 105 0 56 0; +#X connect 106 0 59 0; +#X connect 107 0 62 0; +#X connect 108 0 86 0; +#X connect 109 0 86 0; +#X connect 110 0 86 0; +#X connect 111 0 10 0; +#X connect 112 0 85 0; +#X connect 113 0 87 0; +#X connect 115 0 73 0; +#X connect 116 0 67 0; +#X connect 118 0 19 0; +#X connect 119 0 20 0; +#X connect 120 0 10 0; +#X connect 122 0 85 0; +#X connect 124 0 86 0; +#X connect 125 0 87 0; +#X connect 132 0 16 0; +#X connect 134 0 59 0; +#X connect 135 0 62 0; +#X connect 136 0 121 0; +#X connect 136 1 123 0; +#X connect 136 2 126 0; +#X connect 136 3 127 0; +#X connect 136 4 128 0; +#X connect 136 5 129 0; +#X connect 136 6 130 0; +#X connect 136 7 131 0; +#X connect 136 8 137 0; +#X connect 138 0 55 0; +#X connect 139 0 54 0; +#X connect 139 0 136 0; +#X connect 140 0 16 0; +#X connect 141 0 16 0; +#X connect 142 0 136 0; +#X connect 143 0 136 0; +#X connect 144 0 136 0; +#X connect 145 0 136 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/TUCalc2.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,244 @@ +#N canvas 60 28 927 796 10; +#X obj 119 -20 inlet~; +#X obj 119 154 -~ 1; +#X obj 150 178 -~ 1; +#X obj 184 203 -~ 1; +#X obj 119 128 delay~ 1; +#X obj 150 155 delay~ 1; +#X obj 184 179 delay~ 1; +#X obj 89 154 *~; +#X obj 104 203 +~; +#X obj 119 178 *~; +#X obj 150 202 *~; +#X obj 184 227 *~; +#X obj 135 229 +~; +#X obj 169 253 +~; +#X obj 89 130 -~ 1; +#X obj 216 227 -~ 1; +#X obj 247 251 -~ 1; +#X obj 281 276 -~ 1; +#X obj 216 203 delay~ 1; +#X obj 247 228 delay~ 1; +#X obj 281 252 delay~ 1; +#X obj 201 276 +~; +#X obj 216 251 *~; +#X obj 247 275 *~; +#X obj 281 300 *~; +#X obj 232 302 +~; +#X obj 266 326 +~; +#X obj 312 299 -~ 1; +#X obj 343 323 -~ 1; +#X obj 377 348 -~ 1; +#X obj 312 275 delay~ 1; +#X obj 343 300 delay~ 1; +#X obj 377 324 delay~ 1; +#X obj 297 348 +~; +#X obj 312 323 *~; +#X obj 343 347 *~; +#X obj 377 372 *~; +#X obj 328 374 +~; +#X obj 362 398 +~; +#X obj 410 373 -~ 1; +#X obj 441 397 -~ 1; +#X obj 475 422 -~ 1; +#X obj 410 349 delay~ 1; +#X obj 441 374 delay~ 1; +#X obj 475 398 delay~ 1; +#X obj 395 422 +~; +#X obj 410 397 *~; +#X obj 441 421 *~; +#X obj 475 446 *~; +#X obj 426 448 +~; +#X obj 460 472 +~; +#X obj 507 446 -~ 1; +#X obj 538 470 -~ 1; +#X obj 572 495 -~ 1; +#X obj 507 422 delay~ 1; +#X obj 538 447 delay~ 1; +#X obj 572 471 delay~ 1; +#X obj 492 495 +~; +#X obj 507 470 *~; +#X obj 538 494 *~; +#X obj 572 519 *~; +#X obj 523 521 +~; +#X obj 557 545 +~; +#X obj 603 518 -~ 1; +#X obj 634 542 -~ 1; +#X obj 668 567 -~ 1; +#X obj 603 494 delay~ 1; +#X obj 634 519 delay~ 1; +#X obj 668 543 delay~ 1; +#X obj 588 567 +~; +#X obj 603 542 *~; +#X obj 634 566 *~; +#X obj 668 591 *~; +#X obj 619 593 +~; +#X obj 653 617 +~; +#X obj 704 592 -~ 1; +#X obj 704 568 delay~ 1; +#X obj 704 616 *~; +#X obj 689 642 +~; +#X obj 689 663 /~ 20; +#X obj 689 685 sqrt~; +#X obj 792 619 /~; +#X obj 807 595 sig~; +#X obj 827 637 snapshot~; +#X obj 827 613 r myMet; +#X floatatom 767 662 0 0 0 0 - - -; +#X floatatom 855 140 0 0 0 0 - - -; +#X obj 827 703 outlet; +#X obj 481 158 line; +#X floatatom 860 161 0 0 0 0 - - -; +#X msg 481 136 \$1 50; +#X obj 481 113 average~ 4410; +#X connect 0 0 4 0; +#X connect 0 0 14 0; +#X connect 0 0 91 0; +#X connect 1 0 9 0; +#X connect 1 0 9 1; +#X connect 2 0 10 0; +#X connect 2 0 10 1; +#X connect 3 0 11 0; +#X connect 3 0 11 1; +#X connect 4 0 1 0; +#X connect 4 0 5 0; +#X connect 5 0 2 0; +#X connect 5 0 6 0; +#X connect 6 0 3 0; +#X connect 6 0 18 0; +#X connect 7 0 8 0; +#X connect 8 0 12 0; +#X connect 9 0 8 1; +#X connect 10 0 12 1; +#X connect 11 0 13 1; +#X connect 12 0 13 0; +#X connect 13 0 21 0; +#X connect 14 0 7 0; +#X connect 14 0 7 1; +#X connect 15 0 22 0; +#X connect 15 0 22 1; +#X connect 16 0 23 0; +#X connect 16 0 23 1; +#X connect 17 0 24 0; +#X connect 17 0 24 1; +#X connect 18 0 15 0; +#X connect 18 0 19 0; +#X connect 19 0 16 0; +#X connect 19 0 20 0; +#X connect 20 0 17 0; +#X connect 20 0 30 0; +#X connect 21 0 25 0; +#X connect 22 0 21 1; +#X connect 23 0 25 1; +#X connect 24 0 26 1; +#X connect 25 0 26 0; +#X connect 26 0 33 0; +#X connect 27 0 34 0; +#X connect 27 0 34 1; +#X connect 28 0 35 0; +#X connect 28 0 35 1; +#X connect 29 0 36 0; +#X connect 29 0 36 1; +#X connect 30 0 27 0; +#X connect 30 0 31 0; +#X connect 31 0 28 0; +#X connect 31 0 32 0; +#X connect 32 0 29 0; +#X connect 32 0 42 0; +#X connect 33 0 37 0; +#X connect 34 0 33 1; +#X connect 35 0 37 1; +#X connect 36 0 38 1; +#X connect 37 0 38 0; +#X connect 38 0 45 0; +#X connect 39 0 46 0; +#X connect 39 0 46 1; +#X connect 40 0 47 0; +#X connect 40 0 47 1; +#X connect 41 0 48 0; +#X connect 41 0 48 1; +#X connect 42 0 39 0; +#X connect 42 0 43 0; +#X connect 43 0 40 0; +#X connect 43 0 44 0; +#X connect 44 0 41 0; +#X connect 44 0 54 0; +#X connect 45 0 49 0; +#X connect 46 0 45 1; +#X connect 47 0 49 1; +#X connect 48 0 50 1; +#X connect 49 0 50 0; +#X connect 50 0 57 0; +#X connect 51 0 58 0; +#X connect 51 0 58 1; +#X connect 52 0 59 0; +#X connect 52 0 59 1; +#X connect 53 0 60 0; +#X connect 53 0 60 1; +#X connect 54 0 51 0; +#X connect 54 0 55 0; +#X connect 55 0 52 0; +#X connect 55 0 56 0; +#X connect 56 0 53 0; +#X connect 56 0 66 0; +#X connect 57 0 61 0; +#X connect 58 0 57 1; +#X connect 59 0 61 1; +#X connect 60 0 62 1; +#X connect 61 0 62 0; +#X connect 62 0 69 0; +#X connect 63 0 70 0; +#X connect 63 0 70 1; +#X connect 64 0 71 0; +#X connect 64 0 71 1; +#X connect 65 0 72 0; +#X connect 65 0 72 1; +#X connect 66 0 63 0; +#X connect 66 0 67 0; +#X connect 67 0 64 0; +#X connect 67 0 68 0; +#X connect 68 0 65 0; +#X connect 68 0 76 0; +#X connect 69 0 73 0; +#X connect 70 0 69 1; +#X connect 71 0 73 1; +#X connect 72 0 74 1; +#X connect 73 0 74 0; +#X connect 74 0 78 0; +#X connect 75 0 77 0; +#X connect 75 0 77 1; +#X connect 76 0 75 0; +#X connect 77 0 78 1; +#X connect 78 0 79 0; +#X connect 79 0 80 0; +#X connect 80 0 81 0; +#X connect 81 0 83 0; +#X connect 82 0 81 1; +#X connect 83 0 85 0; +#X connect 83 0 87 0; +#X connect 84 0 83 0; +#X connect 88 0 89 0; +#X connect 88 0 14 1; +#X connect 88 0 1 1; +#X connect 88 0 2 1; +#X connect 88 0 3 1; +#X connect 88 0 15 1; +#X connect 88 0 16 1; +#X connect 88 0 17 1; +#X connect 88 0 27 1; +#X connect 88 0 28 1; +#X connect 88 0 29 1; +#X connect 88 0 39 1; +#X connect 88 0 40 1; +#X connect 88 0 41 1; +#X connect 88 0 51 1; +#X connect 88 0 52 1; +#X connect 88 0 53 1; +#X connect 88 0 63 1; +#X connect 88 0 64 1; +#X connect 88 0 65 1; +#X connect 88 0 75 1; +#X connect 88 0 82 0; +#X connect 90 0 88 0; +#X connect 91 0 86 0; +#X connect 91 0 90 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/angleCalcN~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -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/SwordSounds2/arccos.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,30 @@ +#N canvas 88 45 313 368 10; +#X obj 112 255 * 360; +#X floatatom 159 306 5 0 0 0 - - -; +#X obj 112 279 / 6.28319; +#X obj 70 47 *; +#X obj 70 79 swap 1; +#X obj 70 112 -; +#X obj 70 141 sqrt; +#X obj 112 172 /; +#X obj 112 200 atan; +#X obj 112 226 * 2; +#X text 152 108 Arccos of angle; +#X obj 127 48 + 1; +#X obj 112 306 outlet; +#X obj 70 20 inlet; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 2 0 12 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 0 0; +#X connect 11 0 7 1; +#X connect 13 0 3 1; +#X connect 13 0 3 0; +#X connect 13 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/arccos~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,39 @@ +#N canvas 177 186 443 430 10; +#X obj 162 73 inlet~; +#X obj 162 108 *~; +#X obj 197 107 +~ 1; +#X obj 147 136 -~; +#X obj 113 109 sig~ 1; +#X obj 147 163 sqrt~; +#X obj 182 193 /~; +#X obj 182 221 atan~; +#X obj 182 248 *~ 2; +#X obj 69 236 loadbang; +#X obj 69 259 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 69 280 metro 10; +#X obj 69 303 snapshot~; +#X floatatom 69 327 5 0 0 0 - - -; +#X obj 182 339 outlet~; +#X obj 182 272 *~ 360; +#X obj 182 294 /~ 3.14159; +#X obj 182 315 /~ 2; +#X connect 0 0 1 0; +#X connect 0 0 1 1; +#X connect 0 0 2 0; +#X connect 1 0 3 1; +#X connect 2 0 6 1; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 15 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 17 0 12 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/arcsin~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,40 @@ +#N canvas 549 79 369 390 10; +#X obj 178 28 inlet~; +#X obj 163 67 *~; +#X obj 116 67 sig~ 1; +#X obj 148 95 -~; +#X obj 220 307 outlet~; +#X obj 148 119 sqrt~; +#X obj 133 144 -~; +#X obj 220 168 /~; +#X obj 220 193 atan~; +#X obj 220 218 *~ 2; +#X obj 220 241 *~ 360; +#X obj 145 242 loadbang; +#X obj 145 263 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 145 281 metro 10; +#X obj 145 303 snapshot~; +#X floatatom 145 323 8 0 0 0 - - -; +#X obj 220 262 /~ 3.14159; +#X obj 220 283 /~ 2; +#X connect 0 0 1 1; +#X connect 0 0 1 0; +#X connect 0 0 7 1; +#X connect 1 0 3 1; +#X connect 2 0 3 0; +#X connect 2 0 6 0; +#X connect 3 0 5 0; +#X connect 5 0 6 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 10 0 16 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 17 0 4 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/centreAngles.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,159 @@ +#N canvas 0 22 1376 625 10; +#X obj 69 140 f; +#X obj 69 97 r GO; +#X obj 84 118 r preswingTime; +#X obj 231 198 line~; +#X obj 96 262 loadbang; +#X obj 96 283 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 96 301 metro 10; +#X obj 96 323 snapshot~; +#X floatatom 96 343 5 0 0 0 - - -; +#X obj 177 359 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 9172 1; +#X obj 231 97 r setUp; +#X text 214 78 Start at 0 speed; +#X obj 246 118 r presweepAzim; +#X obj 231 141 f; +#X msg 231 164 \$1; +#X msg 69 163 0 \$1; +#X obj 355 42 t f b; +#X obj 356 70 delay; +#X obj 370 -3 r preswingTime; +#X obj 377 119 r postswingTime; +#X obj 355 -23 r GO; +#X obj 355 19 f; +#X obj 356 97 f; +#X obj 356 142 pack; +#X obj 398 71 r postsweepAzim; +#X msg 356 168 \$1 \$2; +#X obj 179 97 r myEnd; +#X text 294 217 Current source Azimuth angle; +#X obj 858 109 f; +#X obj 858 66 r GO; +#X obj 879 132 r preswingTime; +#X obj 1029 232 line~; +#X obj 882 295 loadbang; +#X obj 882 316 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 882 334 metro 10; +#X obj 882 356 snapshot~; +#X floatatom 882 376 5 0 0 0 - - -; +#X obj 963 392 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X obj 1029 131 r setUp; +#X text 1012 112 Start at 0 speed; +#X obj 1029 175 f; +#X msg 1029 198 \$1; +#X obj 1141 75 t f b; +#X obj 1142 103 delay; +#X obj 1156 30 r preswingTime; +#X obj 1163 152 r postswingTime; +#X obj 1141 10 r GO; +#X obj 1141 52 f; +#X obj 1142 130 f; +#X obj 1142 175 pack; +#X msg 1142 201 \$1 \$2; +#X obj 1044 152 r presweepElev; +#X obj 1184 78 r postsweepElev; +#X obj 858 156 pack; +#X obj 873 88 r midElev; +#X msg 858 190 \$1 \$2; +#X obj 658 74 +; +#X obj 643 101 /; +#X obj 616 53 t f f; +#X floatatom 589 132 5 0 0 0 - - -; +#X obj 658 124 r presweepElev; +#X obj 673 146 r postsweepElev; +#X obj 658 30 r postswingTime; +#X obj 673 52 r preswingTime; +#X obj 643 199 *; +#X floatatom 606 267 5 0 0 0 - - -; +#X obj 643 267 s midElev; +#X text 536 -100 Calculate the angles with respect to the centre of +the swing circle; +#X text 1092 251 Current source Elevation angle; +#X obj 1085 304 s~ currentElev; +#X obj 248 265 s~ currentAzim; +#X obj 951 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 951 -1 s GO; +#X obj 891 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 891 -1 s setUp; +#X obj 980 130 r myEnd; +#X obj 658 175 -; +#X obj 643 242 +; +#X obj 658 219 r postsweepElev; +#X connect 0 0 15 0; +#X connect 1 0 0 0; +#X connect 2 0 0 1; +#X connect 3 0 7 0; +#X connect 3 0 70 0; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 7 0 9 0; +#X connect 10 0 13 0; +#X connect 12 0 13 1; +#X connect 13 0 14 0; +#X connect 14 0 3 0; +#X connect 15 0 3 0; +#X connect 16 0 17 1; +#X connect 16 1 17 0; +#X connect 17 0 22 0; +#X connect 18 0 21 1; +#X connect 19 0 23 1; +#X connect 20 0 21 0; +#X connect 21 0 16 0; +#X connect 22 0 23 0; +#X connect 23 0 25 0; +#X connect 24 0 22 1; +#X connect 25 0 3 0; +#X connect 26 0 13 0; +#X connect 28 0 53 0; +#X connect 29 0 28 0; +#X connect 30 0 53 1; +#X connect 31 0 35 0; +#X connect 31 0 69 0; +#X connect 32 0 33 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 35 0 37 0; +#X connect 38 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 31 0; +#X connect 42 0 43 1; +#X connect 42 1 43 0; +#X connect 43 0 48 0; +#X connect 44 0 47 1; +#X connect 45 0 49 1; +#X connect 46 0 47 0; +#X connect 47 0 42 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 31 0; +#X connect 51 0 40 1; +#X connect 52 0 48 1; +#X connect 53 0 55 0; +#X connect 54 0 28 1; +#X connect 55 0 31 0; +#X connect 56 0 57 1; +#X connect 57 0 59 0; +#X connect 57 0 64 0; +#X connect 58 0 56 0; +#X connect 58 1 57 0; +#X connect 60 0 76 0; +#X connect 61 0 76 1; +#X connect 62 0 58 0; +#X connect 63 0 56 1; +#X connect 64 0 77 0; +#X connect 71 0 72 0; +#X connect 73 0 74 0; +#X connect 75 0 40 0; +#X connect 76 0 64 1; +#X connect 77 0 66 0; +#X connect 77 0 65 0; +#X connect 78 0 77 1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/fcpan.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,25 @@ +#N canvas 316 389 443 292 10; +#X obj 64 123 *~; +#X obj -4 123 *~; +#X obj 80 77 cos~; +#X obj 80 40 -~ 0.25; +#X obj 80 18 *~ 0.25; +#X obj 12 101 cos~; +#X obj 12 77 -~ 0.25; +#X obj -4 146 outlet~ l; +#X obj 64 146 outlet~ r; +#X obj -4 -4 inlet~; +#X obj 80 -4 sig~; +#X obj 80 -36 inlet; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 2 0 0 1; +#X connect 3 0 2 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 1 1; +#X connect 6 0 5 0; +#X connect 9 0 1 0; +#X connect 9 0 0 0; +#X connect 10 0 4 0; +#X connect 11 0 10 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/fcpan~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,39 @@ +#N canvas 480 344 450 300 10; +#X obj 74 133 *~; +#X obj 6 133 *~; +#X obj 90 87 cos~; +#X obj 90 50 -~ 0.25; +#X obj 90 28 *~ 0.25; +#X obj 22 111 cos~; +#X obj 22 87 -~ 0.25; +#X obj 6 156 outlet~ l; +#X obj 74 156 outlet~ r; +#X obj 6 6 inlet~; +#X obj 90 -26 inlet~; +#X obj 229 78 snapshot~; +#X floatatom 229 104 10 0 0 0 - - -; +#X obj 229 5 loadbang; +#X obj 229 53 metro 10; +#X obj 227 29 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 235 169 sig~; +#X obj 299 143 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 2 0 0 1; +#X connect 3 0 2 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 1 1; +#X connect 6 0 5 0; +#X connect 9 0 1 0; +#X connect 9 0 0 0; +#X connect 10 0 11 0; +#X connect 10 0 4 0; +#X connect 11 0 12 0; +#X connect 13 0 15 0; +#X connect 14 0 11 0; +#X connect 15 0 14 0; +#X connect 16 0 4 0; +#X connect 17 0 16 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/freqCalcCyl3No_D2Mach.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,1243 @@ +#N canvas 331 23 1374 822 10; +#X text 577 168 Mass Density of Air; +#X obj 699 169 *~ 1.225; +#X obj 699 244 /~ 1.81e-05; +#X obj 699 199 *~ 1; +#X obj 699 362 /~ 1; +#X floatatom 202 406 0 0 0 0 - - -; +#X obj 699 338 *~; +#X obj 213 53 inlet; +#X text 732 288 Reynolds Number; +#X text 579 355 Strouhal Number; +#X obj 378 51 inlet; +#X text 729 224 Viscosity; +#X obj 220 76 s \$0-diameter; +#X obj 760 168 r \$0-diameter; +#X obj 767 343 r \$0-diameter; +#X obj 102 72 s~ \$0-windSpeed; +#X obj 766 320 r~ \$0-windSpeed; +#X obj 699 141 r~ \$0-windSpeed; +#X obj 699 386 s~ \$0-myFreq; +#X obj 1113 484 r~ \$0-myFreq; +#X obj 1050 348 *~; +#X obj 124 228 snapshot~; +#X floatatom 124 254 0 0 0 0 - - -; +#X obj 38 203 r~ \$0-myRey; +#X obj 712 268 s~ \$0-myRey; +#X text 109 276 Reynolds Number; +#X obj 626 47 inlet; +#X floatatom 571 116 8 0 0 0 - - -; +#X obj 626 71 max 0.1; +#X obj 626 94 min 0.9; +#X text 663 405 Calculates the frequency; +#X text 664 417 based on the physics of; +#X text 664 430 the object and environment; +#X obj 297 394 r~ \$0-windSpeed; +#X obj 144 531 snapshot~; +#X floatatom 144 557 0 0 0 0 - - -; +#X obj 337 456 r \$0-diameter; +#X obj 450 50 inlet; +#X obj 524 49 inlet; +#X floatatom 378 98 5 0 0 0 - - -; +#X floatatom 450 96 5 0 0 0 - - -; +#X floatatom 525 93 5 0 0 0 - - -; +#X obj 73 406 outlet; +#X obj 117 379 snapshot~; +#X obj 38 356 r~ \$0-myFreq; +#X text 123 583 Strouhal Number; +#X text 283 357 Calculates the gain of the dipole source; +#X text 449 27 Azimuth; +#X text 631 29 Pan; +#X text 523 31 Elevation; +#X text 374 32 Distance; +#X text 208 32 Diameter; +#X obj 305 50 inlet; +#X floatatom 305 94 5 0 0 0 - - -; +#X text 301 31 Length; +#X obj 699 309 newStrou; +#X floatatom 213 97 5 0 0 0 - - -; +#X obj 1050 417 throw~ l; +#X obj 1077 395 throw~ r; +#X obj 1050 373 fcpan; +#X obj 315 73 s \$0-leng; +#X obj 383 74 s \$0-dist; +#X obj 390 321 s~ \$0-dragDiGain; +#X obj 303 342 s~ \$0-liftDiGain; +#X obj 284 375 r~ \$0-str; +#X obj 323 434 r \$0-leng; +#X obj 350 477 r \$0-dist; +#X obj 284 570 s~ \$0-liftNoiseGain; +#X obj 1086 464 r~ \$0-dragDiGain; +#X obj 599 340 s~ \$0-str; +#X obj 626 116 s \$0-thisPan; +#X obj 1086 272 r \$0-contFreq; +#X obj 117 406 s \$0-contFreq; +#X obj 59 506 r~ \$0-str; +#X obj 1050 192 r~ \$0-liftNoiseGain; +#X obj 1077 348 r \$0-thisPan; +#X obj 721 56 inlet; +#X obj 793 55 inlet; +#X obj 867 54 inlet; +#X floatatom 721 103 5 0 0 0 - - -; +#X floatatom 793 101 5 0 0 0 - - -; +#X floatatom 868 98 5 0 0 0 - - -; +#X obj 726 79 s \$0-rotaX; +#X obj 800 77 s \$0-rotaY; +#X obj 875 77 s \$0-rotaZ; +#X text 717 37 X Rotation; +#X text 787 36 Y Rotation; +#X text 862 35 Z Rotation; +#X text 1031 166 Noise spectrum calculation; +#X obj 1065 296 hip~; +#X obj 1140 504 r \$0-thisPan; +#X obj 1065 251 rpole~ 0.99; +#X obj 1065 225 noise~; +#X obj 82 256 outlet; +#X obj 311 153 r~ \$0-windSpeed; +#X obj 329 192 r \$0-diameter; +#X obj 303 132 r~ \$0-str; +#X obj 321 173 r \$0-leng; +#X obj 346 231 r \$0-dist; +#N canvas 205 143 1238 721 GoldfreqGain 0; +#N canvas 759 125 286 294 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 obj 372 202 *; +#X obj 372 228 *; +#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 374 288 10 0 0 0 - - -; +#X obj 303 20 t f b; +#X floatatom 455 55 5 0 0 0 - - -; +#X obj 372 260 *; +#X obj 400 202 *; +#X msg 303 -4 6; +#X obj 434 201 *; +#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 connect 13 0 14 0; +#X connect 14 0 19 0; +#X connect 15 0 13 0; +#X connect 15 0 13 1; +#X connect 15 0 18 0; +#X connect 15 0 20 0; +#X connect 15 0 20 1; +#X connect 17 0 13 0; +#X connect 17 0 13 1; +#X connect 17 0 20 0; +#X connect 17 0 20 1; +#X connect 17 0 22 0; +#X connect 17 0 22 1; +#X connect 17 1 13 0; +#X connect 17 1 20 0; +#X connect 17 1 22 0; +#X connect 19 0 16 0; +#X connect 20 0 14 1; +#X connect 21 0 17 0; +#X connect 22 0 19 1; +#X restore 219 42 pd pow6; +#X obj 173 32 *~; +#X obj 219 68 *~; +#X obj 404 137 *; +#X text 533 2 Distance; +#X floatatom 513 62 5 0 0 0 - - -; +#X text 724 595 Calculates Drag Dipole gain; +#X text 48 647 Calculates Lift Dipole gain; +#X obj 173 -8 inlet~; +#X obj 219 -35 inlet~; +#X text 328 62 Diameter; +#X obj 291 61 inlet; +#X obj 513 18 inlet; +#X obj 219 667 outlet~; +#X obj 758 570 outlet~; +#X obj 240 159 inlet; +#X text 278 154 Length; +#X obj 219 185 *~ 1; +#X obj 234 416 sig~; +#X obj 322 438 sig~; +#X obj 234 468 /~ 360; +#X obj 234 517 *~; +#X obj 219 540 *~; +#X obj 814 19 inlet; +#X obj 913 21 inlet; +#X obj 1009 24 inlet; +#X floatatom 814 66 5 0 0 0 - - -; +#X floatatom 913 67 5 0 0 0 - - -; +#X floatatom 1010 68 5 0 0 0 - - -; +#X text 810 0 X Rotation; +#X text 907 2 Y Rotation; +#X text 1004 5 Z Rotation; +#X obj 819 42 s \$0-this_rotaX; +#X obj 920 43 s \$0-thisrotaY; +#X obj 1017 47 s \$0-thisrotaZ; +#X text 74 -8 Strouhal number; +#X text 269 -35 Wind speed; +#X text 266 103 Corr Length; +#X obj 219 225 *~ 2.50663; +#X obj 219 130 *~ 1.225; +#X text 93 126 Mass Density of Air; +#X text 147 227 Sqrt(2xpi); +#X obj 322 466 /~ 360; +#X obj 322 512 *~; +#X obj 322 488 cos~; +#X obj 219 579 *~; +#X obj 404 167 * 4.05513e+07; +#X text 355 186 Speed of Sound to power 3; +#X obj 404 220 * 32; +#X obj 553 189 r SIG_MACH; +#X obj 518 189 cos~; +#X obj 518 212 *~; +#X obj 466 213 sig~ 1; +#X obj 503 243 -~; +#N canvas 1150 227 286 289 pow4 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 47 93 *~; +#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 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 3 0; +#X connect 10 0 4 0; +#X restore 503 266 pd pow4; +#X obj 404 248 sig~; +#X obj 404 298 *~; +#X obj 219 346 /~; +#X obj 133 287 s~ \$0-aGainG; +#X obj 872 246 r~ \$0-aGainG; +#X obj 758 512 *~ 0.1; +#X obj 723 340 +~ 90; +#X obj 723 363 /~ 360; +#X obj 723 409 *~; +#X obj 723 385 sin~; +#X obj 773 359 /~ 360; +#X obj 773 405 *~; +#X obj 773 381 cos~; +#X obj 758 436 *~; +#X text 709 1 Azimuth; +#X text 608 3 Elevation; +#X obj 611 21 inlet; +#X obj 713 19 inlet; +#X floatatom 611 68 5 0 0 0 - - -; +#X floatatom 713 68 5 0 0 0 - - -; +#X obj 322 417 r \$0-this_azim; +#X obj 234 394 r \$0-this_elev; +#X obj 773 314 r \$0-this_azim; +#X obj 723 256 r \$0-this_elev; +#X obj 723 280 sig~; +#X obj 773 336 sig~; +#X obj 518 141 sig~; +#X obj 557 139 r~ plotElev; +#X obj 245 439 r~ plotElev; +#X obj 139 628 s~ plotOPF; +#X obj 676 574 s~ plotOPD; +#X obj 616 44 s \$0-this_elev; +#X obj 720 44 s \$0-this_azim; +#X obj 518 117 r \$0-this_elev; +#X obj 520 40 s \$0-thisDist; +#X obj 887 268 r \$0-thisDist; +#X obj 404 111 r \$0-thisDist; +#X obj 887 292 *; +#X obj 887 317 * 4.05513e+07; +#X text 892 335 Speed of Sound to power 3; +#X obj 887 370 * 32; +#X obj 887 398 sig~; +#X obj 872 423 /~; +#X text 588 167 Remember - Goldstein moves cylinder; +#X obj 757 289 r~ plotElev; +#X floatatom 359 169 5 0 0 0 - - -; +#X obj 518 170 /~ 360; +#X obj 758 475 *~; +#X obj 424 40 s~ \$0-thisColL; +#X obj 270 42 r~ \$0-thisColL; +#X obj 270 82 *~ 1; +#X obj 219 102 *~; +#X obj 424 17 inlet~; +#X obj 219 11 sig~; +#X floatatom 265 13 5 0 0 0 - - -; +#X obj 234 494 sin~; +#X floatatom 357 -7 5 0 0 0 - - -; +#X obj 219 -11 average~ 4096; +#N canvas 801 264 426 401 aveTimeCal 0; +#X text 224 38 Elevation; +#X obj 226 56 r \$0-elev; +#X floatatom 240 81 5 0 0 0 - - -; +#X obj 205 17 r~ MY_MACH; +#X obj 226 135 cos; +#X obj 226 107 * 0.01745; +#X obj 205 158 *~ 1; +#X obj 161 131 sig~ 1; +#X obj 161 185 -~; +#X obj 121 104 r~ \$0-myFreq; +#X obj 106 82 sig~ 6.28318; +#X obj 106 128 /~; +#X obj 106 219 *~; +#X obj 36 204 r myMet; +#X obj 106 242 snapshot~; +#X floatatom 44 283 0 0 0 0 - - -; +#X obj 106 263 * 44100; +#X obj 106 292 outlet; +#X connect 1 0 2 0; +#X connect 1 0 5 0; +#X connect 3 0 6 0; +#X connect 4 0 6 1; +#X connect 5 0 4 0; +#X connect 6 0 8 1; +#X connect 7 0 8 0; +#X connect 8 0 12 1; +#X connect 9 0 11 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 14 0; +#X connect 13 0 14 0; +#X connect 14 0 16 0; +#X connect 16 0 15 0; +#X connect 16 0 17 0; +#X restore 348 -33 pd aveTimeCal; +#X connect 0 0 2 0; +#X connect 1 0 2 1; +#X connect 2 0 106 0; +#X connect 3 0 46 0; +#X connect 3 0 100 0; +#X connect 8 0 1 0; +#X connect 8 0 1 1; +#X connect 9 0 112 0; +#X connect 11 0 105 1; +#X connect 12 0 5 0; +#X connect 12 0 89 0; +#X connect 15 0 17 1; +#X connect 17 0 38 0; +#X connect 18 0 20 0; +#X connect 19 0 42 0; +#X connect 20 0 110 0; +#X connect 21 0 22 1; +#X connect 22 0 45 0; +#X connect 23 0 26 0; +#X connect 23 0 32 0; +#X connect 24 0 27 0; +#X connect 24 0 33 0; +#X connect 25 0 28 0; +#X connect 25 0 34 0; +#X connect 38 0 57 0; +#X connect 38 0 58 0; +#X connect 39 0 17 0; +#X connect 42 0 44 0; +#X connect 43 0 45 1; +#X connect 44 0 43 0; +#X connect 44 0 43 1; +#X connect 45 0 84 0; +#X connect 45 0 13 0; +#X connect 46 0 48 0; +#X connect 48 0 55 0; +#X connect 49 0 51 1; +#X connect 50 0 51 0; +#X connect 51 0 53 1; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 56 1; +#X connect 55 0 56 0; +#X connect 56 0 57 1; +#X connect 57 0 22 0; +#X connect 59 0 97 0; +#X connect 60 0 85 0; +#X connect 60 0 14 0; +#X connect 61 0 62 0; +#X connect 62 0 64 0; +#X connect 63 0 68 0; +#X connect 64 0 63 0; +#X connect 64 0 63 1; +#X connect 65 0 67 0; +#X connect 66 0 68 1; +#X connect 67 0 66 0; +#X connect 67 0 66 1; +#X connect 68 0 102 0; +#X connect 71 0 73 0; +#X connect 71 0 86 0; +#X connect 72 0 74 0; +#X connect 72 0 87 0; +#X connect 75 0 19 0; +#X connect 76 0 18 0; +#X connect 77 0 80 0; +#X connect 78 0 79 0; +#X connect 79 0 61 0; +#X connect 80 0 65 0; +#X connect 81 0 101 0; +#X connect 88 0 81 0; +#X connect 90 0 92 0; +#X connect 90 0 92 1; +#X connect 91 0 3 0; +#X connect 91 0 3 1; +#X connect 92 0 93 0; +#X connect 93 0 95 0; +#X connect 95 0 96 0; +#X connect 96 0 97 1; +#X connect 97 0 102 1; +#X connect 101 0 50 0; +#X connect 102 0 60 0; +#X connect 104 0 105 0; +#X connect 105 0 106 1; +#X connect 106 0 39 0; +#X connect 107 0 103 0; +#X connect 108 0 0 0; +#X connect 110 0 21 0; +#X connect 110 0 21 1; +#X connect 112 0 108 0; +#X connect 112 0 109 0; +#X connect 113 0 112 0; +#X connect 113 0 111 0; +#X restore 303 297 pd GoldfreqGain; +#X obj 964 504 r \$0-thisPan; +#X obj 918 461 r~ \$0-myFreq; +#X obj 941 483 r~ \$0-dragDiGain; +#N canvas 272 58 1006 797 GoldnoiseGain 0; +#X text -21029 240 Mass Density of Air \, squared; +#X obj -20777 456 *; +#X text -20777 409 Distance; +#N canvas 759 125 235 275 pow8 0; +#X obj 47 67 *~; +#X obj 76 67 *~; +#X obj 76 35 inlet~; +#X obj 47 147 outlet~; +#X obj 128 146 snapshot~; +#X obj 128 121 metro 100; +#X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 128 173 10 0 0 0 - - -; +#X obj 128 73 loadbang; +#X obj 47 93 *~; +#X obj 47 121 *~; +#X connect 0 0 9 0; +#X connect 1 0 9 1; +#X connect 2 0 0 0; +#X connect 2 0 0 1; +#X connect 2 0 1 1; +#X connect 2 0 1 0; +#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 10 0; +#X connect 9 0 10 1; +#X connect 10 0 3 0; +#X connect 10 0 4 0; +#X restore -20846 69 pd pow8; +#X obj -20846 4 inlet~; +#X obj -20801 123 inlet; +#X obj -20777 430 inlet; +#X obj -20846 710 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20765 124 Diameter; +#X obj -20754 633 loadbang; +#X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20754 672 metro 10; +#X obj -20754 693 snapshot~; +#X floatatom -20754 713 8 0 0 0 - - -; +#X text -20798 -5 Wind speed; +#X text -21027 643 Calculates wake gain; +#X text -20399 16 Azimuth; +#X obj -20398 33 inlet; +#X obj -20398 56 sig~; +#X obj -20342 33 inlet; +#X obj -20342 56 sig~; +#X text -20343 16 Elevation; +#X floatatom -20304 57 5 0 0 0 - - -; +#X floatatom -20434 58 5 0 0 0 - - -; +#X obj -20398 96 s~ \$0-this_azim; +#X obj -20342 77 s~ \$0-this_elev; +#X obj -20846 243 *~ 1.225; +#X obj -20511 100 r~ \$0-this_azim; +#N canvas 759 125 250 309 pow5 0; +#X obj 47 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 47 87 *~; +#X obj 47 118 *~; +#X connect 0 0 8 0; +#X connect 0 0 8 1; +#X connect 1 0 0 0; +#X connect 1 0 0 1; +#X connect 1 0 9 1; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 7 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 2 0; +#X connect 9 0 3 0; +#X restore -20680 508 pd pow5; +#X obj -20680 484 sig~ 343.56; +#N canvas 875 261 250 309 pow5 0; +#X obj 47 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 47 87 *~; +#X obj 47 118 *~; +#X connect 0 0 8 0; +#X connect 0 0 8 1; +#X connect 1 0 0 0; +#X connect 1 0 0 1; +#X connect 1 0 9 1; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 7 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 2 0; +#X connect 9 0 3 0; +#X restore -20645 434 pd pow5; +#X obj -20599 284 /~ 360; +#X obj -20599 311 cos~; +#X obj -20584 333 r SIG_MACH; +#X obj -20584 357 sig~; +#X obj -20599 382 *~; +#X obj -20645 381 sig~ 1; +#X obj -20645 408 -~; +#X obj -20680 355 sig~ 3.1416; +#X obj -20680 380 *~; +#X obj -20695 332 sig~ 16; +#X obj -20695 404 *~; +#X obj -20695 462 *~; +#X obj -20695 535 *~; +#X obj -20777 483 sig~; +#X obj -20777 567 *~; +#X obj -20846 611 /~; +#X obj -20509 248 r~ plotElev; +#X obj -20913 710 s~ plotOPN; +#X obj -20599 262 -~; +#X text -20547 269 Angle goes with the flow in Goldstein hence 90 - +theta so that theta is same angle as dipole angles.; +#X obj -20599 217 sig~ 180; +#X obj -20536 221 r~ \$0-this_elev; +#X obj -20916 56 inlet~; +#X obj -20916 83 *~; +#X obj -20822 90 inlet~; +#X obj -20822 148 *~ 1; +#X obj -20846 170 *~; +#X obj -20846 194 *~; +#X obj -20821 273 inlet; +#X obj -20847 308 *~ 1; +#X obj -20848 343 *~ 2.50663; +#X obj -20846 643 *~ 1; +#X text -20776 91 Corrolation Length; +#X text -20781 272 Length; +#X obj -20846 26 average~ 64; +#X obj -20846 48 sig~; +#X connect 1 0 45 0; +#X connect 3 0 58 0; +#X connect 4 0 66 0; +#X connect 5 0 57 1; +#X connect 6 0 1 0; +#X connect 6 0 1 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 18 0 19 0; +#X connect 18 0 24 0; +#X connect 19 0 25 0; +#X connect 20 0 21 0; +#X connect 20 0 23 0; +#X connect 21 0 26 0; +#X connect 27 0 61 0; +#X connect 29 0 44 1; +#X connect 30 0 29 0; +#X connect 31 0 43 1; +#X connect 32 0 33 0; +#X connect 33 0 36 0; +#X connect 34 0 35 0; +#X connect 35 0 36 1; +#X connect 36 0 38 1; +#X connect 37 0 38 0; +#X connect 38 0 31 0; +#X connect 39 0 40 0; +#X connect 39 0 40 1; +#X connect 40 0 42 1; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 46 1; +#X connect 45 0 46 0; +#X connect 46 0 47 1; +#X connect 47 0 63 0; +#X connect 50 0 32 0; +#X connect 52 0 50 0; +#X connect 53 0 50 1; +#X connect 54 0 55 0; +#X connect 54 0 55 1; +#X connect 55 0 58 1; +#X connect 56 0 57 0; +#X connect 57 0 59 1; +#X connect 58 0 59 0; +#X connect 59 0 27 0; +#X connect 60 0 61 1; +#X connect 61 0 62 0; +#X connect 62 0 47 0; +#X connect 63 0 49 0; +#X connect 63 0 7 0; +#X connect 63 0 13 0; +#X connect 66 0 67 0; +#X connect 67 0 3 0; +#X restore 284 542 pd GoldnoiseGain; +#X text 275 589 Calculates the gain of the wake; +#X obj 981 52 inlet; +#X obj 981 76 s \$0-TuInt; +#X floatatom 945 77 5 0 0 0 - - -; +#N canvas 4 232 229 249 TuInt_calc 0; +#X obj 116 42 inlet; +#X obj 116 118 + 1; +#X obj 116 67 min 0.2; +#X floatatom 144 148 5 0 0 0 - - -; +#X obj 116 173 outlet; +#X obj 116 92 * -4.5; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 1 0 4 0; +#X connect 2 0 5 0; +#X connect 5 0 1 0; +#X restore 1063 77 pd TuInt_calc; +#X obj 1064 55 r \$0-TuInt; +#X obj 1063 100 s \$0-TuGain; +#X obj 987 524 r \$0-TuGain; +#X floatatom 1029 99 5 0 0 0 - - -; +#X obj 1167 524 r \$0-TuGain; +#N canvas 811 216 464 503 dragDiFunNo 0; +#X obj 124 84 inlet~; +#X obj 120 196 inlet~; +#X obj 161 105 inlet; +#X obj 132 255 inlet; +#X obj 124 105 *~ 2; +#X obj 105 256 *~; +#X obj 105 321 throw~ l; +#X obj 132 298 throw~ r; +#X obj 105 277 fcpan; +#X obj 105 65 noise~; +#X obj 120 236 *~ 1; +#X obj 141 215 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X text 49 367 Creates the shaped noise sound equivalent to a narrow +band signal at the drag dipole fundamental frequency.; +#X floatatom 153 276 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X connect 0 0 4 0; +#X connect 1 0 10 0; +#X connect 2 0 13 0; +#X connect 3 0 8 1; +#X connect 3 0 15 0; +#X connect 4 0 12 1; +#X connect 5 0 8 0; +#X connect 8 0 6 0; +#X connect 8 1 7 0; +#X connect 9 0 12 0; +#X connect 10 0 5 1; +#X connect 11 0 10 1; +#X connect 12 0 16 0; +#X connect 13 0 12 2; +#X connect 16 0 5 0; +#X restore 1086 545 pd dragDiFunNo; +#N canvas 1014 140 491 522 dragDiFun 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 165 100 *~ 2; +#X obj 180 209 *~ 1; +#X obj 180 168 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X text 60 369 Generates the pure tone associated with the drag dipole +fundamental frequency.; +#X floatatom 212 256 5 0 0 0 - - -; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 0 0; +#X connect 6 0 3 1; +#X connect 7 0 6 0; +#X connect 8 0 5 0; +#X connect 9 0 7 0; +#X connect 10 0 4 1; +#X connect 10 0 13 0; +#X connect 11 0 6 1; +#X restore 918 547 pd dragDiFun; +#X obj 752 480 r~ \$0-myFreq; +#X obj 779 500 r \$0-thisPan; +#X obj 806 520 r \$0-TuGain; +#X obj 725 460 r~ \$0-liftDiGain; +#N canvas 579 250 654 489 liftDi2ndNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X obj 124 105 *~ 5; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole second harmonic frequency.; +#X obj 120 220 *~ 0.1; +#X floatatom 174 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X text 206 209 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 13 0; +#X connect 1 0 15 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 15 0 9 0; +#X connect 17 0 4 0; +#X restore 725 541 pd liftDi2ndNo; +#X obj 617 497 r \$0-thisPan; +#X obj 571 454 r~ \$0-myFreq; +#X obj 640 517 r \$0-TuGain; +#N canvas 899 170 491 522 liftDi2nd 0; +#X obj 41 132 osc~; +#X obj 41 305 throw~ l; +#X obj 68 282 throw~ r; +#X obj 41 239 *~; +#X obj 41 260 fcpan; +#X obj 56 216 *~ 1; +#X obj 41 82 inlet~; +#X obj 56 152 inlet~; +#X obj 68 239 inlet; +#X obj 77 194 inlet; +#X obj 41 107 *~ 5; +#X text 60 369 Generates the pure tone associated with the lift dipole +second harmonic frequency.; +#X obj 56 175 *~ 0.1; +#X floatatom 104 263 5 0 0 0 - - -; +#X text 117 168 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 12 0; +#X connect 8 0 4 1; +#X connect 8 0 13 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 12 0 5 0; +#X restore 571 540 pd liftDi2nd; +#X obj 594 476 r~ \$0-liftDiGain; +#X obj 618 606 r \$0-thisPan; +#X obj 572 563 r~ \$0-myFreq; +#X obj 641 626 r \$0-TuGain; +#X obj 595 585 r~ \$0-liftDiGain; +#N canvas 59 232 491 522 liftDi1st 0; +#X obj 36 136 osc~; +#X obj 36 309 throw~ l; +#X obj 63 286 throw~ r; +#X obj 36 243 *~; +#X obj 36 264 fcpan; +#X obj 51 220 *~ 1; +#X obj 36 86 inlet~; +#X obj 51 156 inlet~; +#X obj 63 243 inlet; +#X obj 72 198 inlet; +#X obj 36 111 *~ 3; +#X text 60 369 Generates the pure tone associated with the lift dipole +first harmonic frequency.; +#X floatatom 105 265 5 0 0 0 - - -; +#X obj 51 179 *~ 0.6; +#X text 114 168 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 13 0; +#X connect 8 0 4 1; +#X connect 8 0 12 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 13 0 5 0; +#X restore 572 649 pd liftDi1st; +#X obj 752 584 r~ \$0-myFreq; +#X obj 779 604 r \$0-thisPan; +#X obj 806 624 r \$0-TuGain; +#X obj 725 564 r~ \$0-liftDiGain; +#N canvas 319 197 578 492 liftDi1stNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole second harmonic frequency.; +#X obj 124 105 *~ 3; +#X obj 120 220 *~ 0.5; +#X floatatom 163 302 5 0 0 0 - - -; +#X obj 105 173 *~ 0.6; +#X text 167 169 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 14 0; +#X connect 1 0 15 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 17 0; +#X connect 12 0 11 2; +#X connect 14 0 11 1; +#X connect 15 0 9 0; +#X connect 17 0 4 0; +#X restore 725 645 pd liftDi1stNo; +#X obj 618 718 r \$0-thisPan; +#X obj 572 675 r~ \$0-myFreq; +#X obj 641 738 r \$0-TuGain; +#X obj 595 697 r~ \$0-liftDiGain; +#N canvas 444 150 491 522 liftDiFun 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 180 209 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X obj 165 100 *~ 1; +#X obj 180 168 *~ 1; +#X text 60 369 Generates the pure tone associated with the lift dipole +fundamental frequency.; +#X floatatom 227 254 5 0 0 0 - - -; +#X obj 95 262 s~ fund1; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 3 0 14 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 11 0; +#X connect 8 0 4 1; +#X connect 8 0 13 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 11 0 5 0; +#X restore 572 761 pd liftDiFun; +#X obj 748 693 r~ \$0-myFreq; +#X obj 775 713 r \$0-thisPan; +#X obj 802 733 r \$0-TuGain; +#X obj 721 673 r~ \$0-liftDiGain; +#N canvas 930 320 464 503 liftDiFunNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X obj 124 105 *~ 1; +#X obj 120 220 *~ 1; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole fundamental frequency.; +#X floatatom 149 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X connect 0 0 13 0; +#X connect 1 0 14 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 17 0; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 14 0 9 0; +#X connect 17 0 4 0; +#X restore 721 754 pd liftDiFunNo; +#X text 910 698 Patches that generate all the sounds associated with +the drag dipole; +#X text 564 782 Patches that generate all the sounds associated with +the lift dipole; +#X obj 457 72 s \$0-azim; +#X obj 532 72 s \$0-elev; +#X obj 355 252 r \$0-elev; +#X obj 363 273 r \$0-azim; +#X obj 363 496 r \$0-elev; +#X obj 377 514 r \$0-azim; +#N canvas 1021 287 444 428 corrLen 0; +#X obj 103 71 inlet~; +#X obj 88 200 outlet~; +#X obj 88 143 *~; +#X obj 124 93 sig~ -0.245; +#X obj 103 119 pow~; +#X text 234 22 Y = 10^b . X^m; +#X text 235 40 b = 1.536; +#X text 235 56 m = -0.245; +#X text 80 297 Equation of line derived from Norberg 2001; +#X obj 88 169 max~ 1; +#X obj 88 46 sig~ 44.67; +#X obj 229 190 r myMet; +#X obj 229 211 snapshot~; +#X floatatom 230 236 5 0 0 0 - - -; +#X connect 0 0 4 0; +#X connect 2 0 9 0; +#X connect 3 0 4 1; +#X connect 4 0 2 1; +#X connect 9 0 1 0; +#X connect 9 0 12 0; +#X connect 10 0 2 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X restore 1151 76 pd corrLen Calc; +#X obj 1151 53 r~ \$0-myRey; +#X obj 1151 100 s~ \$0-myCor; +#X obj 337 212 r~ \$0-myCor; +#X obj 1100 295 r \$0-contFreq; +#X obj 1065 323 hip~; +#X obj 310 414 r~ \$0-myCor; +#X obj 100 558 outlet; +#X obj 124 203 r myMet; +#X obj 117 355 r myMet; +#X obj 144 509 r myMet; +#X obj 1113 593 r~ \$0-myFreq; +#X obj 1086 573 r~ \$0-dragDiGain; +#X obj 1140 613 r \$0-thisPan; +#X obj 964 613 r \$0-thisPan; +#X obj 918 570 r~ \$0-myFreq; +#X obj 941 592 r~ \$0-dragDiGain; +#X obj 987 633 r \$0-TuGain; +#X obj 1167 633 r \$0-TuGain; +#N canvas 795 179 491 522 dragDi1st 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 180 209 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X floatatom 212 256 5 0 0 0 - - -; +#X obj 165 100 *~ 4; +#X text 60 369 Generates the pure tone associated with the drag dipole +1st harmonic frequency.; +#X obj 180 168 *~ 0.125; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 11 0; +#X connect 7 0 13 0; +#X connect 8 0 4 1; +#X connect 8 0 10 0; +#X connect 9 0 5 1; +#X connect 11 0 0 0; +#X connect 13 0 5 0; +#X restore 918 656 pd dragDi1st; +#N canvas 135 196 464 503 dragDi1stNo 0; +#X obj 124 85 inlet~; +#X obj 120 196 inlet~; +#X obj 161 105 inlet; +#X obj 132 282 inlet; +#X obj 105 283 *~; +#X obj 105 348 throw~ l; +#X obj 132 325 throw~ r; +#X obj 105 304 fcpan; +#X obj 105 65 noise~; +#X obj 120 263 *~ 1; +#X obj 141 242 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X floatatom 153 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X obj 124 105 *~ 4; +#X text 49 394 Creates the shaped noise sound equivalent to a narrow +band signal at the drag dipole 1st harmonic frequency.; +#X obj 120 219 *~ 0.0018; +#X connect 0 0 15 0; +#X connect 1 0 17 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 13 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 14 0; +#X connect 12 0 11 2; +#X connect 14 0 4 0; +#X connect 15 0 11 1; +#X connect 17 0 9 0; +#X restore 1086 654 pd dragDi1stNo; +#X obj 1291 649 snapshot~; +#X obj 1290 623 r myMet; +#X floatatom 1292 679 0 0 0 0 - - -; +#X obj 102 47 inlet~; +#X text 99 29 Speed; +#X connect 1 0 3 0; +#X connect 2 0 24 0; +#X connect 2 0 55 0; +#X connect 3 0 2 0; +#X connect 4 0 18 0; +#X connect 6 0 4 0; +#X connect 7 0 12 0; +#X connect 7 0 56 0; +#X connect 10 0 39 0; +#X connect 10 0 61 0; +#X connect 13 0 3 1; +#X connect 14 0 4 1; +#X connect 16 0 6 1; +#X connect 17 0 1 0; +#X connect 19 0 114 1; +#X connect 20 0 59 0; +#X connect 21 0 22 0; +#X connect 21 0 93 0; +#X connect 23 0 21 0; +#X connect 26 0 28 0; +#X connect 28 0 29 0; +#X connect 29 0 27 0; +#X connect 29 0 70 0; +#X connect 33 0 103 1; +#X connect 34 0 35 0; +#X connect 34 0 161 0; +#X connect 36 0 103 4; +#X connect 37 0 40 0; +#X connect 37 0 148 0; +#X connect 38 0 41 0; +#X connect 38 0 149 0; +#X connect 43 0 42 0; +#X connect 43 0 5 0; +#X connect 43 0 72 0; +#X connect 44 0 43 0; +#X connect 52 0 53 0; +#X connect 52 0 60 0; +#X connect 55 0 69 0; +#X connect 55 0 6 0; +#X connect 59 0 57 0; +#X connect 59 1 58 0; +#X connect 64 0 103 0; +#X connect 65 0 103 3; +#X connect 66 0 103 5; +#X connect 68 0 114 0; +#X connect 71 0 89 1; +#X connect 73 0 34 0; +#X connect 74 0 20 0; +#X connect 75 0 59 1; +#X connect 76 0 79 0; +#X connect 76 0 82 0; +#X connect 77 0 80 0; +#X connect 77 0 83 0; +#X connect 78 0 81 0; +#X connect 78 0 84 0; +#X connect 89 0 159 0; +#X connect 90 0 114 2; +#X connect 91 0 89 0; +#X connect 92 0 91 0; +#X connect 94 0 99 1; +#X connect 95 0 99 3; +#X connect 96 0 99 0; +#X connect 97 0 99 2; +#X connect 98 0 99 5; +#X connect 99 0 63 0; +#X connect 99 1 62 0; +#X connect 100 0 115 2; +#X connect 101 0 115 0; +#X connect 102 0 115 1; +#X connect 103 0 67 0; +#X connect 105 0 106 0; +#X connect 105 0 107 0; +#X connect 108 0 110 0; +#X connect 108 0 112 0; +#X connect 109 0 108 0; +#X connect 111 0 115 3; +#X connect 113 0 114 3; +#X connect 116 0 120 1; +#X connect 117 0 120 2; +#X connect 118 0 120 3; +#X connect 119 0 120 0; +#X connect 121 0 124 2; +#X connect 122 0 124 0; +#X connect 123 0 124 3; +#X connect 125 0 124 1; +#X connect 126 0 130 2; +#X connect 127 0 130 0; +#X connect 128 0 130 3; +#X connect 129 0 130 1; +#X connect 131 0 135 1; +#X connect 132 0 135 2; +#X connect 133 0 135 3; +#X connect 134 0 135 0; +#X connect 136 0 140 2; +#X connect 137 0 140 0; +#X connect 138 0 140 3; +#X connect 139 0 140 1; +#X connect 141 0 145 1; +#X connect 142 0 145 2; +#X connect 143 0 145 3; +#X connect 144 0 145 0; +#X connect 150 0 99 6; +#X connect 151 0 99 7; +#X connect 152 0 103 6; +#X connect 153 0 103 7; +#X connect 154 0 156 0; +#X connect 155 0 154 0; +#X connect 157 0 99 4; +#X connect 158 0 159 1; +#X connect 159 0 20 1; +#X connect 160 0 103 2; +#X connect 162 0 21 0; +#X connect 163 0 43 0; +#X connect 164 0 34 0; +#X connect 165 0 174 1; +#X connect 166 0 174 0; +#X connect 167 0 174 2; +#X connect 168 0 173 2; +#X connect 169 0 173 0; +#X connect 170 0 173 1; +#X connect 171 0 173 3; +#X connect 172 0 174 3; +#X connect 175 0 177 0; +#X connect 176 0 175 0; +#X connect 178 0 15 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/freqCalcWooD2.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,135 @@ +#N canvas 493 23 1282 851 10; +#X obj 197 272 +; +#X floatatom 231 223 8 0 0 0 - - -; +#X obj 197 223 *; +#X obj 212 151 r \$0_thisGroup; +#X floatatom 221 304 8 0 0 0 - - -; +#X obj 212 245 r firstSpeed; +#X floatatom 233 272 8 0 0 0 - - -; +#X floatatom 144 145 8 0 0 0 - - -; +#X obj 197 125 r deltaSpeed; +#X obj 212 199 + 0; +#X obj -29 272 +; +#X floatatom 5 223 8 0 0 0 - - -; +#X obj -29 223 *; +#X obj -14 153 r \$0_thisGroup; +#X floatatom -87 301 8 0 0 0 - - -; +#X floatatom 7 272 8 0 0 0 - - -; +#X floatatom -82 149 8 0 0 0 - - -; +#X obj -14 199 + 0; +#X obj -35 59 inlet; +#X obj -35 81 s \$0_thisGroup; +#X obj 111 60 inlet; +#X obj 111 82 s \$0_thisSource; +#X obj -29 336 /; +#X obj -29 360 * 1000; +#X text 14 358 Convert to millisecs; +#X text 2 334 To Time; +#X floatatom -88 392 8 0 0 0 - - -; +#X obj -47 674 line~; +#X obj -198 719 snapshot~; +#X obj -198 672 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -255 752 hsl 128 15 0 130 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -45 439 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj -169 516 delay \$1; +#X obj -169 545 i; +#X msg -169 567 0 \$1; +#X obj -196 485 t f b; +#X floatatom -258 778 8 0 0 0 - - -; +#X obj -45 521 f; +#X obj -196 458 f; +#X obj -198 694 metro 1; +#X obj -29 392 * 0.75; +#X obj -154 394 * 0.25; +#X obj -47 726 outlet~; +#X obj 227 175 r \$0_thisSource; +#X obj 1 176 r \$0_thisSource; +#X obj -11 414 r GO; +#X obj -198 638 loadbang; +#X floatatom -101 660 5 0 0 0 - - -; +#X obj -14 248 r circumMin; +#X obj -29 126 r deltaCircum; +#X obj -230 544 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj -230 568 s downSw; +#X text 19 204 Source number (1 at hilt); +#X text -180 262 Circumference of the arc; +#X text -197 273 associated with this source; +#X text 19 389 Acceleration; +#X text -245 391 Deceleration; +#X text 195 325 Speed of the individual source; +#X text 14 684 Ramp up to top speed for this source in 3/4 of the swing +time and ramp down to 0 in the remaining 1/4; +#X text 229 24 Patch that calculates the speed of an individual source +in the blade through out the arc of the swing.; +#X obj 6 556 f; +#X obj 4 598 pack; +#X msg 3 630 \$1 \$2; +#X obj -49 487 delay 8; +#X msg -51 629 0; +#X obj 63 571 t f b; +#X obj 62 609 delay 8; +#X connect 0 0 4 0; +#X connect 0 0 22 1; +#X connect 0 0 60 1; +#X connect 2 0 0 0; +#X connect 3 0 9 0; +#X connect 5 0 0 1; +#X connect 5 0 6 0; +#X connect 8 0 2 0; +#X connect 8 0 7 0; +#X connect 9 0 1 0; +#X connect 9 0 2 1; +#X connect 10 0 14 0; +#X connect 10 0 22 0; +#X connect 12 0 10 0; +#X connect 13 0 17 0; +#X connect 17 0 11 0; +#X connect 17 0 12 1; +#X connect 18 0 19 0; +#X connect 20 0 21 0; +#X connect 22 0 23 0; +#X connect 23 0 26 0; +#X connect 23 0 40 0; +#X connect 23 0 41 0; +#X connect 27 0 28 0; +#X connect 27 0 42 0; +#X connect 28 0 30 0; +#X connect 29 0 39 0; +#X connect 30 0 36 0; +#X connect 31 0 38 0; +#X connect 31 0 60 0; +#X connect 31 0 63 0; +#X connect 32 0 33 0; +#X connect 32 0 50 0; +#X connect 33 0 34 0; +#X connect 34 0 27 0; +#X connect 35 0 32 1; +#X connect 35 1 32 0; +#X connect 37 0 47 0; +#X connect 37 0 65 0; +#X connect 38 0 35 0; +#X connect 39 0 28 0; +#X connect 40 0 37 1; +#X connect 40 0 38 1; +#X connect 41 0 33 1; +#X connect 43 0 9 1; +#X connect 44 0 17 1; +#X connect 45 0 31 0; +#X connect 46 0 29 0; +#X connect 48 0 10 1; +#X connect 48 0 15 0; +#X connect 49 0 12 0; +#X connect 49 0 16 0; +#X connect 50 0 51 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 62 0 27 0; +#X connect 63 0 37 0; +#X connect 64 0 27 0; +#X connect 65 0 61 1; +#X connect 65 1 66 0; +#X connect 66 0 61 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/newStrou.pd Tue Feb 02 10:56:55 2016 +0000 @@ -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;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/obsPosition.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,128 @@ +#N canvas 203 146 1178 769 10; +#X obj -117 35 inlet; +#X obj 296 -12 r bladeLen; +#X obj 311 94 r armLength; +#X obj -117 58 s \$0_sourceNo; +#X obj 310 9 r NoOfSources; +#X obj 296 119 +; +#X obj 296 29 /; +#X obj 296 73 *; +#X obj 311 50 r \$0_sourceNo; +#X text 322 117 Distance from centre of arc to the source; +#X obj 30 58 r~ swordAngle; +#X obj -116 -15 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj -61 -14 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj -116 10 s setUp; +#X obj -61 10 s GO; +#X floatatom 260 146 5 0 0 0 - - -; +#X obj 30 88 /~ 360; +#X obj 30 138 *~ 1; +#X obj 30 114 cos~; +#X obj -61 115 r obsDistance; +#X obj -61 136 sig~; +#X obj 15 173 -~; +#X obj 72 143 r~ swordAngle; +#X obj 72 170 /~ 360; +#X obj 72 194 sin~; +#X obj 296 144 s \$0_thisLength; +#X obj 72 220 *~ 1; +#X obj 107 193 r \$0_thisLength; +#X obj 15 245 *~; +#X obj 72 247 *~; +#X obj 15 273 +~; +#X obj 15 296 sqrt~; +#X obj -64 302 metro 10; +#X obj -64 333 snapshot~; +#X floatatom -65 357 8 0 0 0 - - -; +#X obj -64 271 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj -64 246 loadbang; +#X obj 70 115 r \$0_thisLength; +#X obj 404 216 r \$0_thisLength; +#X obj 404 239 sig~; +#X obj 404 264 *~; +#X obj 612 220 r obsDistance; +#X obj 612 241 sig~; +#X obj 612 265 *~; +#X obj 15 330 s~ \$0sourceDist; +#X obj 509 220 r~ \$0sourceDist; +#X obj 509 262 *~; +#X text 422 194 l; +#X text 552 197 B; +#X text 644 198 Z; +#X obj 494 293 +~; +#X obj 494 319 -~; +#X obj 524 323 r \$0_thisLength; +#X obj 524 346 sig~; +#X obj 625 323 r~ \$0sourceDist; +#X obj 625 346 *~ 2; +#X obj 524 375 *~; +#X obj 494 398 /~; +#X obj 394 386 loadbang; +#X obj 394 409 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 394 430 metro 10; +#X obj 394 453 snapshot~; +#X floatatom 394 477 5 0 0 0 - - -; +#X obj 494 424 arccos~; +#X connect 0 0 3 0; +#X connect 1 0 6 0; +#X connect 2 0 5 1; +#X connect 4 0 6 1; +#X connect 5 0 15 0; +#X connect 5 0 25 0; +#X connect 6 0 7 0; +#X connect 7 0 5 0; +#X connect 8 0 7 1; +#X connect 10 0 16 0; +#X connect 11 0 13 0; +#X connect 12 0 14 0; +#X connect 16 0 18 0; +#X connect 17 0 21 1; +#X connect 18 0 17 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 28 0; +#X connect 21 0 28 1; +#X connect 22 0 23 0; +#X connect 23 0 24 0; +#X connect 24 0 26 0; +#X connect 26 0 29 0; +#X connect 26 0 29 1; +#X connect 27 0 26 1; +#X connect 28 0 30 0; +#X connect 29 0 30 1; +#X connect 30 0 31 0; +#X connect 31 0 33 0; +#X connect 31 0 44 0; +#X connect 32 0 33 0; +#X connect 33 0 34 0; +#X connect 35 0 32 0; +#X connect 36 0 35 0; +#X connect 37 0 17 1; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 39 0 40 1; +#X connect 40 0 50 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 42 0 43 1; +#X connect 43 0 51 1; +#X connect 45 0 46 0; +#X connect 45 0 46 1; +#X connect 46 0 50 1; +#X connect 50 0 51 0; +#X connect 51 0 57 0; +#X connect 52 0 53 0; +#X connect 53 0 56 0; +#X connect 54 0 55 0; +#X connect 55 0 56 1; +#X connect 56 0 57 1; +#X connect 57 0 63 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 63 0 61 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/panCalc.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,68 @@ +#N canvas 576 204 723 538 10; +#X obj 245 -85 r Xobs; +#X obj 260 -44 r Zobs; +#X obj 245 -63 sig~; +#X obj 260 -24 sig~; +#X obj 245 -3 /~; +#X obj 245 21 atan~; +#X obj 246 50 /~ 6.28319; +#X obj 248 69 *~ 360; +#X obj 46 -76 loadbang; +#X obj 46 -55 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 46 -37 metro 10; +#X obj 46 -15 snapshot~; +#X floatatom 46 5 5 0 0 0 - - -; +#X obj 221 105 -~; +#X obj 317 2 loadbang; +#X obj 317 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 317 41 metro 10; +#X obj 317 63 snapshot~; +#X floatatom 317 83 5 0 0 0 - - -; +#X obj 221 130 *~ -1; +#X obj 99 141 +~ 0.5; +#X obj 99 120 /~ 180; +#X obj 115 -112 inlet~; +#X obj 200 250 outlet~; +#X obj 486 -100 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 486 -47 s GO; +#X obj 426 -100 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 426 -47 s setUp; +#X obj 34 96 loadbang; +#X obj 34 117 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 34 135 metro 10; +#X obj 34 157 snapshot~; +#X floatatom 34 177 5 0 0 0 - - -; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#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 7 0; +#X connect 7 0 13 1; +#X connect 7 0 17 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 13 0 19 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 18 0; +#X connect 20 0 31 0; +#X connect 20 0 23 0; +#X connect 21 0 20 0; +#X connect 22 0 11 0; +#X connect 22 0 21 0; +#X connect 24 0 25 0; +#X connect 26 0 27 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/panTest.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,14 @@ +#N canvas 345 211 450 300 10; +#X obj 210 160 dac~; +#X obj 204 54 osc~ 440; +#X obj 287 88 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 12700 1; +#X obj 262 110 sig~; +#X obj 210 119 fcpan~; +#X floatatom 382 121 5 0 0 0 - - -; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 2 0 5 0; +#X connect 3 0 4 1; +#X connect 4 0 0 0; +#X connect 4 1 0 1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/sourceSpeed.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,163 @@ +#N canvas 140 48 1008 758 10; +#X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 +-1 -1; +#X obj -219 -68 s GO; +#X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -279 -68 s setUp; +#X obj -98 420 line~; +#X text -89 -100 Start calculation with elevation = 0 \, arm length +is constant \, acceleration/deceleration is constant.; +#X obj -211 469 loadbang; +#X obj -211 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -211 508 metro 10; +#X obj -211 530 snapshot~; +#X floatatom -211 550 5 0 0 0 - - -; +#X obj -130 566 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X msg -268 354 \$1 \$2; +#X obj -268 329 pack; +#X msg -98 386 0; +#X obj -269 306 f; +#X obj -269 261 r GO; +#X msg 41 388 0 \$1; +#X obj 40 311 t f b; +#X obj 41 339 delay; +#X obj -98 365 r setUp; +#X text -115 346 Start at 0 speed; +#X text 83 399 \$1 = time to reach speed of 0; +#X obj 55 264 r preswingTime; +#X text -7 224 Trigger once full speed; +#X obj -98 453 outlet~; +#X obj 233 -103 inlet; +#X obj 327 -105 inlet; +#X obj 233 -80 s \$0_thisGroup; +#X obj 327 -81 s \$0_thisSource; +#X text -331 385 \$1 = source speed; +#X text -331 401 \$2 = time to reach source speed; +#X obj -243 305 r preswingTime; +#X obj 236 16 r \$0_thisGroup; +#X obj 251 36 r \$0_thisSource; +#X obj 236 58 +; +#X floatatom 190 85 5 0 0 0 - - -; +#X obj 236 84 s \$0_mySourceNo; +#X obj -239 -39 r \$0_mySourceNo; +#X obj -224 -19 r deltaPreCirc; +#X obj -239 2 *; +#X obj -239 43 +; +#X obj -224 22 r minPreCirc; +#X floatatom -302 64 5 0 0 0 - - -; +#X obj -224 64 r preswingTime; +#X obj -239 107 /; +#X obj -224 85 * 0.001; +#X obj -239 134 * 2; +#X text -196 114 Average Speed; +#X text -199 138 Top Speed for this source; +#X floatatom -292 160 5 0 0 0 - - -; +#X obj -239 161 s \$0_myPreSourceSpeed; +#X obj -254 282 r \$0_myPreSourceSpeed; +#X obj 98 328 r postswingTime; +#X floatatom 130 351 5 0 0 0 - - -; +#X obj 40 244 r GO; +#X obj 40 286 f; +#X obj 41 366 f; +#X obj 436 7 r start_armLength; +#X obj 421 -15 r length; +#X obj 421 69 -; +#X obj 469 50 r NoOfSources; +#X obj 454 29 r \$0_mySourceNo; +#X obj 454 72 /; +#X obj 421 94 *; +#X floatatom 376 162 5 0 0 0 - - -; +#X obj 421 137 +; +#X obj 436 115 r start_armLength; +#X text 476 163 Distance from centre of arc; +#X obj 421 162 sig~; +#X obj 421 210 s~ \$0_srcCnt; +#X obj 457 331 r~ \$0_srcCnt; +#X text 453 373 Y; +#X text 465 374 X; +#X text 477 374 Z; +#X obj 457 360 thisPosition; +#X obj 427 538 outlet~; +#X obj 493 523 outlet~; +#X obj 468 402 thisAngle; +#X obj 586 532 outlet~; +#X obj 289 476 loadbang; +#X obj 289 497 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 289 515 metro 10; +#X obj 289 537 snapshot~; +#X floatatom 289 557 5 0 0 0 - - -; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 4 0 9 0; +#X connect 4 0 25 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 9 0 11 0; +#X connect 12 0 4 0; +#X connect 13 0 12 0; +#X connect 14 0 4 0; +#X connect 15 0 13 0; +#X connect 16 0 15 0; +#X connect 17 0 4 0; +#X connect 18 0 19 1; +#X connect 18 1 19 0; +#X connect 19 0 57 0; +#X connect 20 0 14 0; +#X connect 23 0 56 1; +#X connect 26 0 28 0; +#X connect 27 0 29 0; +#X connect 32 0 13 1; +#X connect 33 0 35 0; +#X connect 34 0 35 1; +#X connect 35 0 36 0; +#X connect 35 0 37 0; +#X connect 38 0 40 0; +#X connect 39 0 40 1; +#X connect 40 0 41 0; +#X connect 41 0 43 0; +#X connect 41 0 45 0; +#X connect 42 0 41 1; +#X connect 44 0 46 0; +#X connect 45 0 47 0; +#X connect 46 0 45 1; +#X connect 47 0 50 0; +#X connect 47 0 51 0; +#X connect 52 0 15 1; +#X connect 53 0 54 0; +#X connect 53 0 57 1; +#X connect 55 0 56 0; +#X connect 56 0 18 0; +#X connect 57 0 17 0; +#X connect 58 0 60 1; +#X connect 59 0 60 0; +#X connect 60 0 64 0; +#X connect 61 0 63 1; +#X connect 62 0 63 0; +#X connect 63 0 64 1; +#X connect 64 0 66 0; +#X connect 66 0 65 0; +#X connect 66 0 69 0; +#X connect 67 0 66 1; +#X connect 69 0 70 0; +#X connect 71 0 75 0; +#X connect 75 0 78 0; +#X connect 75 1 78 1; +#X connect 75 2 78 2; +#X connect 75 3 76 0; +#X connect 75 3 78 3; +#X connect 75 3 83 0; +#X connect 75 4 78 4; +#X connect 75 5 78 5; +#X connect 75 6 78 6; +#X connect 78 0 77 0; +#X connect 78 1 79 0; +#X connect 80 0 81 0; +#X connect 81 0 82 0; +#X connect 82 0 83 0; +#X connect 83 0 84 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/sweepTime.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,136 @@ +#N canvas 64 60 1299 777 10; +#X obj 658 -89 r presweepElev; +#X obj 751 -90 r postsweepElev; +#X obj 199 19 r presweepAzim; +#X floatatom 158 51 5 0 0 0 - - -; +#X floatatom 658 -65 5 0 0 0 - - -; +#X floatatom 751 -67 5 0 0 0 - - -; +#X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 198 -57 s GO; +#X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 138 -57 s setUp; +#X obj 852 -90 r start_armLength; +#X floatatom 852 -69 5 0 0 0 - - -; +#X obj 968 -90 r bladeLen; +#X floatatom 968 -67 5 0 0 0 - - -; +#X obj 214 86 r start_armLength; +#X obj 229 107 r bladeLen; +#X obj 214 131 +; +#X floatatom 232 151 5 0 0 0 - - -; +#X text 328 -89 Start calculation with elevation = 0 \, arm length +is constant \, acceleration/deceleration is constant.; +#X obj 199 64 * 6.28312; +#X obj 199 42 / 360; +#X floatatom 156 97 5 0 0 0 - - -; +#X obj 199 164 *; +#X floatatom 152 198 5 0 0 0 - - -; +#X obj 214 185 r topSpeed; +#X obj 214 210 / 2; +#X obj 199 293 /; +#X obj 199 317 * 1000; +#X floatatom 246 346 5 0 0 0 - - -; +#X floatatom 542 40 5 0 0 0 - - -; +#X obj 598 75 r start_armLength; +#X obj 613 96 r bladeLen; +#X obj 598 120 +; +#X floatatom 616 140 5 0 0 0 - - -; +#X obj 583 53 * 6.28312; +#X obj 583 31 / 360; +#X floatatom 540 86 5 0 0 0 - - -; +#X obj 583 153 *; +#X floatatom 536 187 5 0 0 0 - - -; +#X obj 598 174 r topSpeed; +#X obj 598 199 / 2; +#X obj 583 275 /; +#X obj 583 299 * 1000; +#X obj 583 -17 r postsweepAzim; +#X text 683 304 Time from 0 azimuth to; +#X text 686 319 stationary at post sweep; +#X text 637 199 Assuming constant acceleration; +#X floatatom 635 326 5 0 0 0 - - -; +#X obj 199 379 s preswingTime; +#X obj 583 358 s postswingTime; +#X text 249 211 Assuming constant acceleration; +#X text 25 240 Time from pre-sweep azimuth; +#X text 26 253 to centre at top speed; +#X text 8 186 Pre sweep Circumference; +#X text 396 167 Post sweep Circumference; +#X text 315 380 Acceleration time; +#X text 692 359 Decceleration time; +#X text 246 130 Full radius; +#X text 648 119 Full radius; +#X obj 1037 70 r preswingTime; +#X obj 1022 152 +; +#X obj 1009 253 delay; +#X obj 1007 200 t f b; +#X obj 1007 27 r GO; +#X obj 1007 175 f; +#X obj 1036 230 + 5; +#X obj 1022 48 r postswingTime; +#X obj 1009 276 s myEnd; +#X obj 1037 122 t f b; +#X floatatom 955 252 5 0 0 0 - - -; +#X obj 582 10 * -1; +#X obj 214 233 t f b; +#X obj 241 257 delay 9; +#X obj 598 222 t f b; +#X obj 625 246 delay 9; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 2 0 20 0; +#X connect 6 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 12 0 13 0; +#X connect 14 0 16 0; +#X connect 15 0 16 1; +#X connect 16 0 17 0; +#X connect 16 0 22 1; +#X connect 19 0 21 0; +#X connect 19 0 22 0; +#X connect 20 0 19 0; +#X connect 22 0 23 0; +#X connect 22 0 26 0; +#X connect 24 0 25 0; +#X connect 25 0 71 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 27 0 48 0; +#X connect 30 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 33 0; +#X connect 32 0 37 1; +#X connect 34 0 36 0; +#X connect 34 0 37 0; +#X connect 35 0 34 0; +#X connect 37 0 38 0; +#X connect 37 0 41 0; +#X connect 39 0 40 0; +#X connect 40 0 73 0; +#X connect 41 0 42 0; +#X connect 42 0 47 0; +#X connect 42 0 49 0; +#X connect 43 0 29 0; +#X connect 43 0 70 0; +#X connect 59 0 68 0; +#X connect 60 0 64 1; +#X connect 61 0 67 0; +#X connect 62 0 65 0; +#X connect 62 1 61 0; +#X connect 63 0 64 0; +#X connect 64 0 62 0; +#X connect 65 0 61 1; +#X connect 65 0 69 0; +#X connect 66 0 60 0; +#X connect 68 0 60 1; +#X connect 68 1 60 0; +#X connect 70 0 35 0; +#X connect 71 0 26 1; +#X connect 71 1 72 0; +#X connect 72 0 26 0; +#X connect 73 0 41 1; +#X connect 73 1 74 0; +#X connect 74 0 41 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/tenSource.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,88 @@ +#N canvas 100 84 1259 813 10; +#X obj 670 10 inlet; +#X obj 670 31 i; +#X obj 670 100 s \$0_thisGroup; +#X obj -159 58 r \$0_thisGroup; +#X obj -33 136 *; +#X obj -18 111 r deltaThick; +#X obj -33 47 r \$0_thisGroup; +#X obj -33 90 +; +#X obj -48 22 r hiltThick; +#X obj -48 161 -; +#X obj 628 39 t b; +#X msg 99 69 0; +#X msg 155 68 1; +#X msg 211 70 2; +#X msg 264 71 3; +#X msg 316 70 4; +#X msg 367 70 5; +#X msg 417 70 6; +#X msg 467 69 7; +#X msg 517 70 8; +#X msg 566 70 9; +#X obj 367 90 s \$0_s5; +#X obj 316 91 s \$0_s4; +#X obj 264 92 s \$0_s3; +#X obj 211 91 s \$0_s2; +#X obj 155 90 s \$0_s1; +#X obj 99 91 s \$0_s0; +#X obj 417 90 s \$0_s6; +#X obj 467 90 s \$0_s7; +#X obj 517 90 s \$0_s8; +#X obj 566 90 s \$0_s9; +#X obj -18 68 r \$0_s0; +#X obj -96 86 r \$0_s0; +#X obj 780 16 inlet; +#X obj 872 15 inlet; +#X obj 872 39 s \$0_obAngle; +#X obj 780 40 s \$0_obDist; +#X obj 973 15 inlet; +#X obj 973 39 s \$0_elev; +#X obj -39 195 r \$0_elev; +#X floatatom 3 169 5 0 0 0 - - -; +#X obj 670 76 * 1; +#X obj 670 53 - 9; +#X obj -159 109 sourceSpeed; +#X obj -159 239 freqCalcCyl3No_D2Mach; +#X connect 0 0 1 0; +#X connect 0 0 10 0; +#X connect 1 0 42 0; +#X connect 3 0 43 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 40 0; +#X connect 9 0 44 1; +#X connect 10 0 11 0; +#X connect 10 0 12 0; +#X connect 10 0 13 0; +#X connect 10 0 14 0; +#X connect 10 0 15 0; +#X connect 10 0 16 0; +#X connect 10 0 17 0; +#X connect 10 0 18 0; +#X connect 10 0 19 0; +#X connect 10 0 20 0; +#X connect 11 0 26 0; +#X connect 12 0 25 0; +#X connect 13 0 24 0; +#X connect 14 0 23 0; +#X connect 15 0 22 0; +#X connect 16 0 21 0; +#X connect 17 0 27 0; +#X connect 18 0 28 0; +#X connect 19 0 29 0; +#X connect 20 0 30 0; +#X connect 31 0 7 1; +#X connect 32 0 43 1; +#X connect 33 0 36 0; +#X connect 34 0 35 0; +#X connect 37 0 38 0; +#X connect 39 0 44 3; +#X connect 41 0 2 0; +#X connect 42 0 41 0; +#X connect 43 0 44 0; +#X connect 43 2 44 2; +#X connect 43 3 44 4;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/testBed.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,252 @@ +#N canvas 156 205 842 605 10; +#X msg 88 -43 300; +#X obj 59 -86 loadbang; +#N canvas 236 158 426 423 windspeed 0; +#X obj 3 -19 +~ 1; +#X obj 3 76 +~; +#X obj 3 3 *~ 0.25; +#X obj 19 53 +~; +#X obj 3 98 clip~ 0 1; +#N canvas 548 156 136 193 squall 0; +#X obj 63 20 noise~; +#X obj 63 83 hip~ 0; +#X obj 63 41 lop~ 3; +#X obj 63 62 lop~ 3; +#X obj 0 86 *~; +#X obj 22 130 *~; +#X obj 0 64 *~ 8; +#X obj 63 104 *~ 20; +#X obj 0 0 inlet~; +#X obj 22 154 outlet~; +#X obj 0 20 max~ 0.42; +#X obj 0 42 -~ 0.42; +#X connect 0 0 2 0; +#X connect 1 0 7 0; +#X connect 2 0 3 0; +#X connect 3 0 1 0; +#X connect 4 0 5 0; +#X connect 5 0 9 0; +#X connect 6 0 4 0; +#X connect 6 0 4 1; +#X connect 7 0 5 1; +#X connect 8 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 6 0; +#X restore 77 28 pd squall; +#N canvas 398 157 136 192 gust 0; +#X obj 0 0 noise~; +#X obj 0 63 hip~ 0; +#X obj 0 106 *~; +#X obj 67 44 *~; +#X obj 67 21 +~ 0.5; +#X obj 67 67 -~ 0.125; +#X obj 0 42 lop~ 0.5; +#X obj 0 21 lop~ 0.5; +#X obj 0 84 *~ 50; +#X obj 67 0 inlet~; +#X obj 0 131 outlet~; +#X connect 0 0 7 0; +#X connect 1 0 8 0; +#X connect 2 0 10 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 4 0 3 1; +#X connect 5 0 2 1; +#X connect 6 0 1 0; +#X connect 7 0 6 0; +#X connect 8 0 2 0; +#X connect 9 0 4 0; +#X restore 18 29 pd gust; +#X obj 3 120 outlet~; +#X obj 3 -41 osc~ 0.01; +#X connect 0 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 5 0; +#X connect 2 0 6 0; +#X connect 2 0 1 0; +#X connect 3 0 1 1; +#X connect 4 0 7 0; +#X connect 5 0 3 1; +#X connect 6 0 3 0; +#X connect 8 0 0 0; +#X restore -376 -133 pd windspeed; +#X obj -376 61 delwrite~ varwind 3000; +#X obj -293 -131 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 1270 1; +#X obj -333 -28 snapshot~; +#X obj -333 -53 metro 100; +#X obj -333 -75 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X floatatom -333 -1 10 0 0 0 - - -; +#X obj -376 -99 *~ 1; +#X obj -376 -73 +~ 1; +#X obj -333 -100 loadbang; +#X text -336 17 Wind Speed; +#X obj -254 -2 s wSpeed; +#X obj -157 -130 loadbang; +#X msg -157 -102 5; +#X obj 103 6 hsl 128 15 0.001 0.01 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6059 1; +#X floatatom 115 30 8 0 0 0 - - -; +#X obj 166 280 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6999 1; +#X floatatom 192 309 5 0 0 0 - - -; +#X text 238 7 Diameter; +#X obj 141 162 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X floatatom 162 191 5 0 0 0 - - -; +#X obj 153 217 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 9525 1; +#X floatatom 177 246 5 0 0 0 - - -; +#X obj 128 105 hsl 128 15 100 1 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 11289 1; +#X floatatom 139 134 5 0 0 0 - - -; +#X text 307 281 Pan Value; +#X text 280 162 Elevation; +#X text 292 218 Azimuth; +#X text 266 106 Distance; +#X obj -384 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj -321 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text -324 136 Gain; +#X obj -385 110 loadbang; +#N canvas 865 368 284 318 opLevels 0; +#X obj 74 188 dac~; +#X obj 30 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 30 104 *~ 0.45; +#X obj 30 210 prvu~; +#X obj 129 211 prvu~; +#X obj 93 68 / 127; +#X obj 93 33 inlet; +#X obj 30 239 outlet; +#X obj 129 239 outlet; +#X obj 74 143 /~ 15; +#X obj 95 165 /~ 15; +#X obj 196 132 inlet; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 3 0 12 0; +#X connect 4 0 5 0; +#X connect 4 0 11 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 0; +#X connect 12 0 0 1; +#X connect 13 0 11 1; +#X connect 13 0 12 1; +#X restore -385 184 pd opLevels; +#X msg -385 133 5; +#X obj -382 155 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 390 1; +#X obj -115 -25 snapshot~; +#X obj -115 -50 metro 100; +#X floatatom -115 2 10 0 0 0 - - -; +#X obj -115 -97 loadbang; +#X obj -115 -74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X text -118 20 Mach No; +#N canvas 20 383 344 123 machCalc 0; +#X obj 26 9 /~ 343.59; +#X text 107 15 Speed of Sound (dry air 20 Degs C); +#X obj 26 -14 vd~ varwind; +#X obj 26 33 s~ myMach; +#X connect 0 0 3 0; +#X connect 2 0 0 0; +#X restore -50 -149 pd machCalc; +#X obj -200 -64 r~ myMach; +#X obj 243 249 r setUp; +#X obj 102 -15 r setUp; +#X obj 229 131 r setUp; +#X obj 235 191 r setUp; +#X obj 242 79 r setUp; +#X obj 232 -102 s setUp; +#X obj 232 -143 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1 +-1; +#X floatatom 88 330 8 0 0 0 - - -; +#X msg 46 -11 0.003; +#X msg 9 90 12; +#X msg -11 146 0; +#X msg -31 202 90; +#X msg -54 265 0.5; +#X obj 59 -62 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 116 62 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4233 1; +#X floatatom 137 81 8 0 0 0 - - -; +#X obj 175 40 r setUp; +#X msg 25 47 4; +#X obj -265 158 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 390 1; +#X obj -264 111 loadbang; +#X msg -264 134 5; +#X text -203 137 No Of Sources; +#X obj -173 1 s sigMac; +#X obj 88 305 freqCalcCylD6; +#X text 248 46 Length; +#X connect 0 0 69 0; +#X connect 1 0 59 0; +#X connect 2 0 9 0; +#X connect 4 0 9 1; +#X connect 4 0 10 1; +#X connect 5 0 8 0; +#X connect 5 0 13 0; +#X connect 6 0 5 0; +#X connect 7 0 6 0; +#X connect 9 0 10 0; +#X connect 10 0 3 0; +#X connect 10 0 5 0; +#X connect 11 0 7 0; +#X connect 14 0 15 0; +#X connect 15 0 4 0; +#X connect 16 0 17 0; +#X connect 16 0 69 1; +#X connect 18 0 19 0; +#X connect 18 0 69 6; +#X connect 21 0 22 0; +#X connect 21 0 69 4; +#X connect 23 0 24 0; +#X connect 23 0 69 5; +#X connect 25 0 26 0; +#X connect 25 0 69 3; +#X connect 34 0 36 0; +#X connect 35 0 31 0; +#X connect 35 1 32 0; +#X connect 36 0 37 0; +#X connect 37 0 35 0; +#X connect 38 0 40 0; +#X connect 38 0 68 0; +#X connect 39 0 38 0; +#X connect 41 0 42 0; +#X connect 42 0 39 0; +#X connect 45 0 38 0; +#X connect 46 0 18 0; +#X connect 47 0 16 0; +#X connect 48 0 21 0; +#X connect 49 0 23 0; +#X connect 50 0 25 0; +#X connect 52 0 51 0; +#X connect 54 0 16 0; +#X connect 55 0 25 0; +#X connect 56 0 21 0; +#X connect 57 0 23 0; +#X connect 58 0 18 0; +#X connect 59 0 0 0; +#X connect 59 0 54 0; +#X connect 59 0 55 0; +#X connect 59 0 56 0; +#X connect 59 0 57 0; +#X connect 59 0 58 0; +#X connect 59 0 63 0; +#X connect 60 0 61 0; +#X connect 60 0 69 2; +#X connect 62 0 60 0; +#X connect 63 0 60 0; +#X connect 64 0 35 1; +#X connect 65 0 66 0; +#X connect 66 0 64 0; +#X connect 69 0 53 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/thisAngle.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,277 @@ +#N canvas 18 44 1440 726 10; +#X obj -19 -52 inlet~; +#X obj 58 -52 inlet~; +#X obj 134 -53 inlet~; +#X obj -19 -31 s~ \$0_Ydiff; +#X obj 58 -31 s~ \$0_Xdiff; +#X obj 134 -32 s~ \$0_Zdiff; +#X obj -130 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -130 -5 s GO; +#X obj -190 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -190 -5 s setUp; +#X obj 230 -58 inlet~; +#X obj 230 -37 s~ \$0_scrObsDist; +#X obj 451 -74 inlet~; +#X obj 74 5 loadbang; +#X obj 74 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 74 44 metro 10; +#X obj 74 66 snapshot~; +#X floatatom 74 86 8 0 0 0 - - -; +#X obj 139 5 loadbang; +#X obj 139 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 139 44 metro 10; +#X obj 139 66 snapshot~; +#X floatatom 139 86 8 0 0 0 - - -; +#X obj 205 6 loadbang; +#X obj 205 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 205 45 metro 10; +#X obj 205 67 snapshot~; +#X floatatom 205 87 8 0 0 0 - - -; +#X obj 338 -72 loadbang; +#X obj 338 -51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 338 -33 metro 10; +#X obj 338 -11 snapshot~; +#X floatatom 338 11 8 0 0 0 - - -; +#X obj 477 -30 loadbang; +#X obj 477 -9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 477 9 metro 10; +#X obj 477 31 snapshot~; +#X floatatom 477 51 8 0 0 0 - - -; +#X text 45 106 Y \, X \, Z dist between source and centre; +#X text 61 119 Based on length \, azim and elev; +#X obj 575 -75 inlet~; +#X obj 601 -31 loadbang; +#X obj 601 -10 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 601 8 metro 10; +#X obj 601 30 snapshot~; +#X floatatom 601 50 8 0 0 0 - - -; +#X text 318 30 Distance src to obs; +#X obj 691 -77 inlet~; +#X obj 717 -33 loadbang; +#X obj 717 -12 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 717 6 metro 10; +#X obj 717 28 snapshot~; +#X floatatom 717 48 8 0 0 0 - - -; +#X obj 451 -53 s~ \$0_scrObsYDist; +#X obj 575 -54 s~ \$0_scrObsXDist; +#X obj 691 -56 s~ \$0_scrObsZDist; +#X obj 430 443 s~ \$0-Az; +#X obj 79 497 loadbang; +#X obj 79 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 79 536 metro 10; +#X obj 79 558 snapshot~; +#X floatatom 79 578 8 0 0 0 - - -; +#X obj 343 484 loadbang; +#X obj 343 505 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 343 523 metro 10; +#X obj 343 545 snapshot~; +#X floatatom 343 565 8 0 0 0 - - -; +#X obj 820 354 loadbang; +#X obj 820 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 820 393 metro 10; +#X obj 820 415 snapshot~; +#X floatatom 820 435 8 0 0 0 - - -; +#X obj 354 150 r~ \$0_Xdiff; +#X obj 354 216 -~; +#X obj 427 150 r~ \$0_Zdiff; +#X obj 427 215 -~; +#X obj 369 173 r Xobs; +#X obj 369 194 sig~; +#X obj 442 171 r Zobs; +#X obj 442 193 sig~; +#X obj 412 240 /~; +#X obj 430 270 *~; +#X obj 445 290 sig~ 1; +#X obj 430 312 +~; +#X obj 430 336 sqrt~; +#X obj 412 360 /~; +#X obj 426 408 arcsin~; +#X obj 192 452 r~ currentAzim; +#X obj 192 512 r~ \$0-Az; +#X obj 177 536 -~; +#X obj 888 409 outlet~; +#X obj 1110 365 loadbang; +#X obj 1110 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 1110 404 metro 10; +#X obj 1110 426 snapshot~; +#X floatatom 1110 446 8 0 0 0 - - -; +#X obj 177 430 sig~ 90; +#X obj 177 484 -~; +#X obj 1018 191 r~ currentAzim; +#X obj 1003 169 sig~ 90; +#X obj 1003 215 -~; +#X obj 939 73 /~; +#X obj 954 103 *~; +#X obj 969 123 sig~ 1; +#X obj 954 145 +~; +#X obj 954 169 sqrt~; +#X obj 939 193 /~; +#X obj 939 216 arcsin~; +#X obj 954 28 r Xobs; +#X obj 954 49 sig~; +#X obj 939 -17 r Zobs; +#X obj 939 5 sig~; +#X obj 988 245 -~; +#X obj 232 570 s~ \$0-Pv; +#X obj 294 337 r~ \$0-Pv; +#X obj 267 319 sig~ 180; +#X obj 958 308 -~; +#X obj 973 281 +~; +#X obj 279 357 +~; +#X obj 902 279 sig~ 180; +#X obj 656 203 /~; +#X obj 671 233 *~; +#X obj 686 253 sig~ 1; +#X obj 671 275 +~; +#X obj 671 299 sqrt~; +#X obj 656 323 /~; +#X obj 656 346 arcsin~; +#X obj 671 179 sig~; +#X obj 656 135 sig~; +#X obj 656 113 r Xobs; +#X obj 671 158 r Zobs; +#X obj 656 392 -~; +#X obj 671 369 r~ \$0-Az; +#X obj 1029 468 outlet~; +#X obj 1036 422 clip~ 0 1; +#X obj 1036 374 /~ 360; +#X obj 986 401 -~ 0.5; +#X connect 0 0 3 0; +#X connect 0 0 16 0; +#X connect 1 0 4 0; +#X connect 1 0 21 0; +#X connect 2 0 5 0; +#X connect 2 0 26 0; +#X connect 6 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 10 0 31 0; +#X connect 12 0 36 0; +#X connect 12 0 53 0; +#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 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 40 0 44 0; +#X connect 40 0 54 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 47 0 51 0; +#X connect 47 0 55 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 51 0 52 0; +#X connect 57 0 58 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 62 0 63 0; +#X connect 63 0 64 0; +#X connect 64 0 65 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0; +#X connect 68 0 69 0; +#X connect 69 0 70 0; +#X connect 70 0 71 0; +#X connect 72 0 73 0; +#X connect 73 0 80 0; +#X connect 74 0 75 0; +#X connect 75 0 80 1; +#X connect 76 0 77 0; +#X connect 77 0 73 1; +#X connect 78 0 79 0; +#X connect 79 0 75 1; +#X connect 80 0 81 0; +#X connect 80 0 81 1; +#X connect 80 0 85 0; +#X connect 81 0 83 0; +#X connect 82 0 83 1; +#X connect 83 0 84 0; +#X connect 84 0 85 1; +#X connect 85 0 86 0; +#X connect 86 0 56 0; +#X connect 87 0 65 0; +#X connect 87 0 97 1; +#X connect 88 0 89 1; +#X connect 89 0 60 0; +#X connect 89 0 113 0; +#X connect 91 0 92 0; +#X connect 92 0 93 0; +#X connect 93 0 94 0; +#X connect 94 0 95 0; +#X connect 96 0 97 0; +#X connect 97 0 89 0; +#X connect 98 0 100 1; +#X connect 99 0 100 0; +#X connect 100 0 112 1; +#X connect 101 0 102 0; +#X connect 101 0 102 1; +#X connect 101 0 106 0; +#X connect 102 0 104 0; +#X connect 103 0 104 1; +#X connect 104 0 105 0; +#X connect 105 0 106 1; +#X connect 106 0 107 0; +#X connect 107 0 112 0; +#X connect 108 0 109 0; +#X connect 109 0 101 1; +#X connect 110 0 111 0; +#X connect 111 0 101 0; +#X connect 112 0 117 1; +#X connect 114 0 118 1; +#X connect 115 0 118 0; +#X connect 116 0 70 0; +#X connect 116 0 90 0; +#X connect 116 0 135 0; +#X connect 117 0 116 1; +#X connect 119 0 116 0; +#X connect 120 0 121 0; +#X connect 120 0 121 1; +#X connect 120 0 125 0; +#X connect 121 0 123 0; +#X connect 122 0 123 1; +#X connect 123 0 124 0; +#X connect 124 0 125 1; +#X connect 125 0 126 0; +#X connect 126 0 131 0; +#X connect 127 0 120 1; +#X connect 128 0 120 0; +#X connect 129 0 128 0; +#X connect 130 0 127 0; +#X connect 131 0 117 0; +#X connect 132 0 131 1; +#X connect 134 0 133 0; +#X connect 134 0 94 0; +#X connect 135 0 134 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/thisPosition.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,132 @@ +#N canvas 131 311 917 541 10; +#X obj -11951 -141 r~ currentElev; +#X obj -11639 -26 r~ currentAzim; +#X obj -11951 -117 /~ 360; +#X obj -11951 -94 sin~; +#X obj -11951 -51 *~; +#X obj -11654 -139 r~ currentElev; +#X obj -11654 -115 /~ 360; +#X obj -11654 -49 *~; +#X obj -11654 -92 cos~; +#X obj -11639 19 cos~; +#X obj -11639 -2 /~ 360; +#X obj -11654 44 *~; +#X obj -11798 -22 r~ currentAzim; +#X obj -11813 -135 r~ currentElev; +#X obj -11813 -111 /~ 360; +#X obj -11813 -45 *~; +#X obj -11798 2 /~ 360; +#X obj -11813 48 *~; +#X obj -11813 -88 cos~; +#X obj -11798 23 sin~; +#X text -11683 -163 Z position of source; +#X obj -11999 75 sig~; +#X obj -11966 105 -~; +#X obj -11862 85 sig~; +#X obj -11828 115 -~; +#X obj -11702 82 sig~; +#X obj -11669 112 -~; +#X obj -11702 59 r Zobs; +#X obj -11966 134 *~; +#X obj -11828 140 *~; +#X obj -11669 137 *~; +#X obj -11843 166 +~; +#X obj -11546 214 +~; +#X obj -11546 238 sqrt~; +#X text -11961 -164 Y position of source; +#X text -11820 -162 X position of source; +#X obj -11862 62 r Xobs; +#X obj -11999 52 r Yobs; +#X text -11514 -93 Distance between the observer as a point in 3D space +and the sound source.; +#X obj -11546 261 outlet~; +#X obj -11508 -190 inlet~; +#X obj -11508 -166 s~ \$0_myScrCnt; +#X obj -11639 -72 r~ \$0_myScrCnt; +#X obj -11798 -68 r~ \$0_myScrCnt; +#X obj -11936 -74 r~ \$0_myScrCnt; +#X obj -11634 72 outlet~; +#X obj -11796 75 outlet~; +#X obj -11934 -24 outlet~; +#X obj -11450 198 +~; +#X obj -11450 222 sqrt~; +#X obj -11450 245 outlet~; +#X obj -11365 127 +~; +#X obj -11365 151 sqrt~; +#X obj -11365 174 outlet~; +#X obj -11295 48 +~; +#X obj -11295 72 sqrt~; +#X obj -11295 95 outlet~; +#X text -11447 266 Y; +#X text -11362 192 X; +#X text -11293 114 Z; +#X obj -11518 -20 loadbang; +#X obj -11518 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -11518 19 metro 10; +#X obj -11518 41 snapshot~; +#X floatatom -11518 61 5 0 0 0 - - -; +#X obj -11320 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 +-1 -1; +#X obj -11320 -127 s GO; +#X obj -11380 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -11380 -127 s setUp; +#X connect 0 0 2 0; +#X connect 1 0 10 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 22 1; +#X connect 4 0 47 0; +#X connect 5 0 6 0; +#X connect 6 0 8 0; +#X connect 7 0 11 0; +#X connect 8 0 7 0; +#X connect 9 0 11 1; +#X connect 10 0 9 0; +#X connect 11 0 26 1; +#X connect 11 0 45 0; +#X connect 12 0 16 0; +#X connect 13 0 14 0; +#X connect 14 0 18 0; +#X connect 15 0 17 0; +#X connect 16 0 19 0; +#X connect 17 0 24 1; +#X connect 17 0 46 0; +#X connect 17 0 63 0; +#X connect 18 0 15 0; +#X connect 19 0 17 1; +#X connect 21 0 22 0; +#X connect 22 0 28 0; +#X connect 22 0 28 1; +#X connect 22 0 50 0; +#X connect 23 0 24 0; +#X connect 24 0 29 0; +#X connect 24 0 29 1; +#X connect 24 0 53 0; +#X connect 25 0 26 0; +#X connect 26 0 30 0; +#X connect 26 0 30 1; +#X connect 26 0 56 0; +#X connect 27 0 25 0; +#X connect 28 0 31 0; +#X connect 29 0 31 1; +#X connect 30 0 32 1; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 39 0; +#X connect 36 0 23 0; +#X connect 37 0 21 0; +#X connect 40 0 41 0; +#X connect 42 0 7 1; +#X connect 43 0 15 1; +#X connect 44 0 4 1; +#X connect 48 0 49 0; +#X connect 51 0 52 0; +#X connect 54 0 55 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 62 0 63 0; +#X connect 63 0 64 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/woSoFreq.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,625 @@ +#N canvas 58 23 1236 817 10; +#X text 115 130 Frequency (Hz); +#X obj 278 606 throw~ l; +#X obj 305 587 throw~ r; +#X obj 125 79 snapshot~; +#X obj 125 32 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 125 105 10 0 0 0 - - -; +#X obj 175 -110 inlet; +#X obj 205 104 outlet; +#X obj 125 6 loadbang; +#X obj 278 519 +~; +#X obj 175 -87 s \$0-diameter; +#X obj 75 -87 s~ \$0-windSpeed; +#X obj 39 54 r~ \$0-myFreq; +#X obj 544 541 snapshot~; +#X obj 544 516 metro 100; +#X obj 544 494 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 544 567 10 0 0 0 - - -; +#X obj 544 468 loadbang; +#X obj 458 516 r~ \$0-myRey; +#X text 529 589 Reynolds Number; +#X obj 75 -110 inlet~; +#X obj 125 54 metro 10; +#X text 201 162 Mass Density of Air; +#X obj 293 464 osc~; +#X obj 323 163 *~ 1.225; +#X obj 323 238 /~ 1.81e-05; +#X obj 323 193 *~ 1; +#X obj 293 413 /~ 1; +#X obj 308 281 /~; +#X obj 293 389 *~; +#X obj 293 438 clip~ 0 20000; +#X text 164 231 Reynolds Number; +#X text 177 405 Strouhal Number; +#X obj 293 494 *~; +#X text 353 218 Viscosity; +#X obj 57 415 *~ 2; +#X obj 57 442 osc~; +#X obj 57 464 *~; +#X obj 384 162 r \$0-diameter; +#X obj 373 362 r \$0-diameter; +#X obj 372 331 r~ \$0-windSpeed; +#X obj 323 135 r~ \$0-windSpeed; +#X obj 228 388 s~ \$0_str; +#X obj 90 442 r~ \$0_dragDiGain; +#X obj 208 464 s~ \$0-myFreq; +#X obj 57 394 r~ \$0-myFreq; +#X obj 331 464 r~ \$0_liftDiGain; +#X obj 336 262 s~ \$0-myRey; +#X text 44 277 Calculates the frequency; +#X text 44 290 based on the physics of; +#X text 45 303 the object and environment; +#X obj 274 242 sig~ 1; +#X obj 308 307 sqrt~; +#X obj 308 332 *~ 1.0356; +#X obj 234 323 sig~ 0.2684; +#X obj 293 362 -~; +#X obj 556 -62 r~ \$0-windSpeed; +#X obj 546 -83 r~ \$0_str; +#X obj 553 197 r~ \$0-windSpeed; +#X obj 542 174 r~ \$0_str; +#N canvas 515 100 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 -20859 118 *; +#X obj -20859 141 * 118033; +#X obj -21022 193 /~ 1; +#X obj -21021 422 *~ 0.27; +#X text -20859 71 Distance; +#X obj -20890 352 cos; +#X obj -20890 307 / 360; +#X floatatom -20863 403 8 0 0 0 - - -; +#X obj -20890 376 *; +#X obj -20911 435 *~ 0.27; +#X obj -20890 329 * 6.28319; +#X obj -21000 282 + 90; +#X text -20895 510 Calculates Drag Dipole gain; +#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 -20948 385 r~ \$0-c; +#X obj -21070 7 inlet~; +#X obj -21022 7 inlet~; +#X obj -20989 55 inlet; +#X obj -20942 229 inlet; +#X obj -20873 229 inlet; +#X obj -20859 92 inlet; +#X obj -21021 465 outlet~; +#X obj -20911 485 outlet~; +#X text -20947 211 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 -20942 252 pd angleCalc; +#X obj -20951 117 inlet; +#X obj -20951 142 *; +#X obj -21022 167 *~ 1; +#X text -20953 99 Length; +#X obj -21000 305 / 360; +#X obj -21000 351 cos; +#X obj -21000 375 *; +#X obj -21000 328 * 6.28319; +#X obj -21021 397 *~ 1; +#X obj -20911 411 *~ 1; +#X text -20848 459 Need for scienctific reasoning here!; +#X text -21239 441 Need for scienctific reasoning here!; +#X obj -21021 444 *~ 0.02; +#X obj -20911 460 *~ 0.002; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 38 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 21 0; +#X connect 8 0 44 0; +#X connect 9 0 48 0; +#X connect 11 0 14 0; +#X connect 11 0 14 1; +#X connect 12 0 16 0; +#X connect 14 0 13 0; +#X connect 14 0 45 1; +#X connect 15 0 49 0; +#X connect 16 0 11 0; +#X connect 17 0 40 0; +#X connect 20 0 3 0; +#X connect 22 0 45 0; +#X connect 23 0 2 0; +#X connect 23 0 2 1; +#X connect 24 0 20 0; +#X connect 25 0 4 1; +#X connect 26 0 35 0; +#X connect 27 0 35 1; +#X connect 28 0 6 0; +#X connect 28 0 6 1; +#X connect 35 0 17 0; +#X connect 35 0 12 0; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 38 1; +#X connect 38 0 8 0; +#X connect 40 0 43 0; +#X connect 41 0 42 0; +#X connect 41 0 42 1; +#X connect 42 0 44 1; +#X connect 43 0 41 0; +#X connect 44 0 9 0; +#X connect 45 0 15 0; +#X connect 48 0 29 0; +#X connect 49 0 30 0; +#X restore 542 326 pd noiseGain; +#X obj 565 218 r \$0-diameter; +#X obj 611 302 r \$0_dist; +#X obj 599 280 r \$0_azim; +#X obj 588 259 r \$0_elev; +#X obj 542 371 s~ \$0_liftNoiseGain; +#X obj 611 349 s~ \$0_dragNoiseGain; +#N canvas 576 101 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 506 45 *; +#X obj 506 70 * 118033; +#X obj 219 240 /~ 1; +#X obj 219 506 *~ 0.27; +#X text 380 261 Azimuth; +#X text 497 1 Distance; +#X obj 419 420 cos; +#X obj 419 375 / 360; +#X floatatom 446 466 8 0 0 0 - - -; +#X obj 419 444 *; +#X obj 398 491 *~ 0.27; +#X obj 236 269 s~ \$0-a; +#X obj 357 441 r~ \$0-a; +#X obj 419 397 * 6.28319; +#X floatatom 471 46 5 0 0 0 - - -; +#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 365 297 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 506 20 inlet; +#X obj 365 276 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 240 388 / 360; +#X obj 240 434 cos; +#X obj 240 458 *; +#X obj 240 411 * 6.28319; +#X obj 398 467 *~ 1; +#X obj 219 481 *~ 1; +#X obj 305 247 arccos; +#X obj 305 223 r sigMac; +#X obj 240 362 +; +#X obj 305 269 t f b; +#X obj 240 323 delay 9; +#X text 309 203 Replicates Doppler effect; +#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 38 0; +#X connect 7 0 8 0; +#X connect 8 0 9 1; +#X connect 9 0 18 0; +#X connect 9 0 45 0; +#X connect 10 0 34 0; +#X connect 13 0 16 0; +#X connect 13 0 16 1; +#X connect 14 0 20 0; +#X connect 16 0 15 0; +#X connect 16 0 44 1; +#X connect 17 0 26 0; +#X connect 19 0 44 0; +#X connect 20 0 13 0; +#X connect 22 0 14 0; +#X connect 22 0 48 0; +#X connect 26 0 35 0; +#X connect 27 0 3 0; +#X connect 27 0 3 1; +#X connect 28 0 2 0; +#X connect 30 0 5 1; +#X connect 31 0 7 1; +#X connect 31 0 7 0; +#X connect 31 0 21 0; +#X connect 32 0 22 0; +#X connect 33 0 22 1; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 38 1; +#X connect 38 0 9 0; +#X connect 40 0 43 0; +#X connect 41 0 42 0; +#X connect 41 0 42 1; +#X connect 42 0 45 1; +#X connect 43 0 41 0; +#X connect 44 0 17 0; +#X connect 45 0 10 0; +#X connect 46 0 49 0; +#X connect 47 0 46 0; +#X connect 48 0 40 0; +#X connect 49 0 48 1; +#X connect 49 1 50 0; +#X connect 50 0 48 0; +#X restore 546 68 pd freqGain; +#X obj 567 -41 r \$0-diameter; +#X obj 609 47 r \$0_dist; +#X obj 588 4 r \$0_azim; +#X obj 598 25 r \$0_elev; +#X obj 609 92 s~ \$0_dragDiGain; +#X obj 546 112 s~ \$0_liftDiGain; +#X text 536 129 Calculates the gain of the dipole source; +#X text 533 390 Calculates the gain of the source; +#X obj 577 -18 r length; +#X obj 576 239 r length; +#X obj 412 -110 inlet; +#X obj 412 -88 s \$0_elev; +#X obj 330 -111 inlet; +#X obj 330 -89 s \$0_azim; +#X obj 260 -88 s \$0_dist; +#X obj 830 31 r~ \$0-myFreq; +#X obj 796 -19 noise~; +#X obj 873 215 throw~ l; +#X obj 900 194 throw~ r; +#X obj 873 122 *~; +#X obj 1011 32 snapshot~; +#X floatatom 1011 58 10 0 0 0 - - -; +#X obj 1011 -41 loadbang; +#X obj 1011 -16 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 922 -70 r~ \$0-myRey; +#X obj 838 383 r~ \$0-myFreq; +#X obj 804 312 noise~; +#X obj 881 572 throw~ l; +#X obj 908 549 throw~ r; +#X obj 881 480 *~; +#X obj 1019 392 snapshot~; +#X floatatom 1019 418 10 0 0 0 - - -; +#X obj 1019 319 loadbang; +#X obj 1019 344 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 930 290 r~ \$0-myRey; +#X obj 838 409 *~ 2; +#X obj 796 74 vcf~ 1000 10; +#X obj 804 434 vcf~ 1000 10; +#X obj 873 171 fcpan; +#X obj 881 524 fcpan; +#X obj 888 95 *~ 1; +#X obj 896 455 *~ 1; +#X obj 930 365 clip~ 2 400; +#X obj 922 5 clip~ 2 400; +#X obj 930 314 *~ -0.003; +#X obj 922 -46 *~ -0.003; +#X obj 922 -21 +~ 20; +#X obj 930 339 +~ 20; +#X obj 1011 7 metro 10; +#X obj 1019 367 metro 10; +#X obj 900 147 r \$0_thisPan; +#X obj 908 502 r \$0_thisPan; +#X text 932 468 Drag Dipole spectrum calculation; +#X text 927 112 Lift Dipole spectrum calculation; +#X obj 896 432 r~ \$0_dragNoiseGain; +#X obj 888 53 r~ \$0_liftNoiseGain; +#X obj 796 28 hip~; +#X obj 804 409 hip~; +#X obj 817 5 r \$0_contFreq; +#X obj 825 333 r \$0_contFreq; +#X obj 825 356 * 2; +#X obj 320 -47 r \$0_azim; +#X obj 320 -25 / 180; +#X obj 320 -4 + 0.5; +#X obj 320 19 abs; +#X obj 320 41 s \$0_thisPan; +#X obj 305 540 r \$0_thisPan; +#X obj 744 -100 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 744 -47 s GO; +#X obj 684 -100 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 684 -47 s setUp; +#X obj 278 562 fcpan; +#X obj 260 -110 inlet~; +#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 139 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 33 0; +#X connect 24 0 26 0; +#X connect 25 0 28 1; +#X connect 25 0 47 0; +#X connect 26 0 25 0; +#X connect 27 0 30 0; +#X connect 28 0 52 0; +#X connect 29 0 27 0; +#X connect 30 0 23 0; +#X connect 30 0 44 0; +#X connect 33 0 9 1; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 9 0; +#X connect 38 0 26 1; +#X connect 39 0 27 1; +#X connect 40 0 29 1; +#X connect 41 0 24 0; +#X connect 43 0 37 1; +#X connect 45 0 35 0; +#X connect 46 0 33 1; +#X connect 51 0 28 0; +#X connect 52 0 53 0; +#X connect 53 0 55 1; +#X connect 54 0 55 0; +#X connect 55 0 42 0; +#X connect 55 0 29 0; +#X connect 56 0 67 1; +#X connect 57 0 67 0; +#X connect 58 0 60 1; +#X connect 59 0 60 0; +#X connect 60 0 65 0; +#X connect 60 1 66 0; +#X connect 61 0 60 2; +#X connect 62 0 60 6; +#X connect 63 0 60 5; +#X connect 64 0 60 4; +#X connect 67 0 73 0; +#X connect 67 1 72 0; +#X connect 68 0 67 2; +#X connect 69 0 67 6; +#X connect 70 0 67 4; +#X connect 71 0 67 5; +#X connect 76 0 67 3; +#X connect 77 0 60 3; +#X connect 78 0 79 0; +#X connect 80 0 81 0; +#X connect 83 0 104 1; +#X connect 84 0 124 0; +#X connect 88 0 89 0; +#X connect 88 0 104 2; +#X connect 90 0 91 0; +#X connect 91 0 116 0; +#X connect 92 0 113 0; +#X connect 93 0 103 0; +#X connect 94 0 125 0; +#X connect 98 0 99 0; +#X connect 98 0 105 2; +#X connect 100 0 101 0; +#X connect 101 0 117 0; +#X connect 102 0 112 0; +#X connect 103 0 105 1; +#X connect 104 0 87 0; +#X connect 105 0 97 0; +#X connect 106 0 85 0; +#X connect 106 1 86 0; +#X connect 107 0 95 0; +#X connect 107 1 96 0; +#X connect 108 0 87 1; +#X connect 109 0 97 1; +#X connect 110 0 98 0; +#X connect 111 0 88 0; +#X connect 112 0 115 0; +#X connect 113 0 114 0; +#X connect 114 0 111 0; +#X connect 115 0 110 0; +#X connect 116 0 88 0; +#X connect 117 0 98 0; +#X connect 118 0 106 1; +#X connect 119 0 107 1; +#X connect 122 0 109 0; +#X connect 123 0 108 0; +#X connect 124 0 104 0; +#X connect 125 0 105 0; +#X connect 126 0 124 1; +#X connect 127 0 128 0; +#X connect 128 0 125 1; +#X connect 129 0 130 0; +#X connect 130 0 131 0; +#X connect 131 0 132 0; +#X connect 132 0 133 0; +#X connect 134 0 139 1; +#X connect 135 0 136 0; +#X connect 137 0 138 0; +#X connect 139 0 1 0; +#X connect 139 1 2 0; +#X connect 140 0 82 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/woSoFreqD2.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,612 @@ +#N canvas 175 90 1319 828 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 211 172 Mass Density of Air; +#X obj 303 474 osc~; +#X obj 333 173 *~ 1.225; +#X obj 333 248 /~ 1.81e-05; +#X obj 333 203 *~ 1; +#X obj 303 423 /~ 1; +#X obj 318 291 /~; +#X obj 303 399 *~; +#X obj 303 448 clip~ 0 20000; +#X text 174 241 Reynolds Number; +#X text 187 415 Strouhal Number; +#X obj 303 504 *~; +#X text 363 228 Viscosity; +#X obj 67 425 *~ 2; +#X obj 67 452 osc~; +#X obj 67 474 *~; +#X obj 394 172 r \$0-diameter; +#X obj 383 372 r \$0-diameter; +#X obj 382 341 r~ \$0-windSpeed; +#X obj 333 145 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 346 272 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 284 252 sig~ 1; +#X obj 318 317 sqrt~; +#X obj 318 342 *~ 1.0356; +#X obj 244 333 sig~ 0.2684; +#X obj 303 372 -~; +#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 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 *~; +#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 obj -20911 435 *~ 0.27; +#X obj -20822 335 * 6.28319; +#X text -20895 510 Calculates Drag Dipole gain; +#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 -20948 385 r~ \$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 obj -20911 485 outlet~; +#X text -20947 211 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 -20848 459 Need for scienctific reasoning here!; +#X text -21239 441 Need for scienctific reasoning here!; +#X obj -20859 92 inlet~; +#X obj -20942 229 inlet~; +#X obj -21000 282 +~ 90; +#X obj -21000 305 /~ 360; +#X obj -21000 351 cos~; +#X obj -21000 375 *~; +#X obj -21021 397 *~; +#X obj -20890 307 /~ 360; +#X obj -20890 352 cos~; +#X obj -20890 376 *~; +#X obj -20911 411 *~; +#X obj -20859 118 *~; +#X obj -20859 141 *~ 118033; +#X obj -21022 193 /~; +#X obj -21021 444 *~ 0.01; +#X obj -20911 460 *~ 0.001; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 28 0; +#X connect 6 0 46 0; +#X connect 8 0 47 0; +#X connect 12 0 3 0; +#X connect 14 0 42 0; +#X connect 15 0 2 0; +#X connect 15 0 2 1; +#X connect 16 0 12 0; +#X connect 17 0 4 1; +#X connect 18 0 25 1; +#X connect 26 0 27 0; +#X connect 26 0 27 1; +#X connect 27 0 28 1; +#X connect 28 0 45 0; +#X connect 32 0 43 0; +#X connect 32 0 43 1; +#X connect 33 0 34 0; +#X connect 33 0 39 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 38 1; +#X connect 38 0 6 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 40 0 41 1; +#X connect 41 0 42 1; +#X connect 42 0 8 0; +#X connect 43 0 44 0; +#X connect 44 0 45 1; +#X connect 45 0 13 0; +#X connect 45 0 38 0; +#X connect 46 0 19 0; +#X connect 47 0 20 0; +#X restore 552 336 pd noiseGain; +#X obj 575 228 r \$0-diameter; +#X obj 609 291 r \$0_elev; +#X obj 552 381 s~ \$0_liftNoiseGain; +#X obj 621 359 s~ \$0_dragNoiseGain; +#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 840 41 r~ \$0-myFreq; +#X obj 806 -9 noise~; +#X obj 883 225 throw~ l; +#X obj 916 204 throw~ r; +#X obj 883 132 *~; +#X obj 1021 42 snapshot~; +#X floatatom 1021 68 10 0 0 0 - - -; +#X obj 1021 -31 loadbang; +#X obj 1021 -6 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 932 -60 r~ \$0-myRey; +#X obj 848 393 r~ \$0-myFreq; +#X obj 814 322 noise~; +#X obj 891 582 throw~ l; +#X obj 924 559 throw~ r; +#X obj 891 490 *~; +#X obj 1029 402 snapshot~; +#X floatatom 1029 428 10 0 0 0 - - -; +#X obj 1029 329 loadbang; +#X obj 1029 354 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 940 300 r~ \$0-myRey; +#X obj 848 419 *~ 2; +#X obj 806 84 vcf~ 1000 10; +#X obj 814 444 vcf~ 1000 10; +#X obj 898 105 *~ 1; +#X obj 906 465 *~ 1; +#X obj 940 375 clip~ 2 400; +#X obj 932 15 clip~ 2 400; +#X obj 1021 17 metro 10; +#X obj 1029 377 metro 10; +#X text 942 478 Drag Dipole spectrum calculation; +#X text 937 122 Lift Dipole spectrum calculation; +#X obj 906 442 r~ \$0_dragNoiseGain; +#X obj 898 63 r~ \$0_liftNoiseGain; +#X obj 806 38 hip~; +#X obj 814 419 hip~; +#X obj 827 15 r \$0_contFreq; +#X obj 835 343 r \$0_contFreq; +#X obj 835 366 * 2; +#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 924 512 r~ \$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 916 157 r~ \$0_thisPan; +#X obj 288 572 fcpan~; +#X obj 891 534 fcpan~; +#X obj 883 181 fcpan~; +#X obj 621 312 r~ \$0_dist; +#X obj 598 270 r~ \$0_azim; +#X obj 932 -11 +~ 40; +#X obj 940 349 +~ 40; +#X obj 932 -36 *~ -0.002; +#X obj 940 324 *~ -0.002; +#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 131 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 33 0; +#X connect 24 0 26 0; +#X connect 25 0 28 1; +#X connect 25 0 47 0; +#X connect 26 0 25 0; +#X connect 27 0 30 0; +#X connect 28 0 52 0; +#X connect 29 0 27 0; +#X connect 30 0 23 0; +#X connect 30 0 44 0; +#X connect 33 0 9 1; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 9 0; +#X connect 38 0 26 1; +#X connect 39 0 27 1; +#X connect 40 0 29 1; +#X connect 41 0 24 0; +#X connect 43 0 37 1; +#X connect 45 0 35 0; +#X connect 46 0 33 1; +#X connect 51 0 28 0; +#X connect 52 0 53 0; +#X connect 53 0 55 1; +#X connect 54 0 55 0; +#X connect 55 0 42 0; +#X connect 55 0 29 0; +#X connect 56 0 65 1; +#X connect 57 0 65 0; +#X connect 58 0 60 1; +#X connect 59 0 60 0; +#X connect 60 0 63 0; +#X connect 60 1 64 0; +#X connect 61 0 60 2; +#X connect 62 0 60 5; +#X connect 65 0 69 0; +#X connect 65 1 68 0; +#X connect 66 0 65 2; +#X connect 67 0 65 5; +#X connect 72 0 65 3; +#X connect 73 0 60 3; +#X connect 74 0 75 0; +#X connect 76 0 97 1; +#X connect 77 0 109 0; +#X connect 80 0 133 0; +#X connect 81 0 82 0; +#X connect 81 0 97 2; +#X connect 83 0 84 0; +#X connect 84 0 103 0; +#X connect 85 0 138 0; +#X connect 86 0 96 0; +#X connect 87 0 110 0; +#X connect 90 0 132 0; +#X connect 91 0 92 0; +#X connect 91 0 98 2; +#X connect 93 0 94 0; +#X connect 94 0 104 0; +#X connect 95 0 139 0; +#X connect 96 0 98 1; +#X connect 97 0 80 0; +#X connect 98 0 90 0; +#X connect 99 0 80 1; +#X connect 100 0 90 1; +#X connect 101 0 91 0; +#X connect 102 0 81 0; +#X connect 103 0 81 0; +#X connect 104 0 91 0; +#X connect 107 0 100 0; +#X connect 108 0 99 0; +#X connect 109 0 97 0; +#X connect 110 0 98 0; +#X connect 111 0 109 1; +#X connect 112 0 113 0; +#X connect 113 0 110 1; +#X connect 114 0 115 0; +#X connect 116 0 117 0; +#X connect 118 0 120 0; +#X connect 119 0 121 0; +#X connect 122 0 129 0; +#X connect 123 0 124 0; +#X connect 125 0 132 1; +#X connect 126 0 131 1; +#X connect 127 0 65 6; +#X connect 128 0 65 4; +#X connect 129 0 123 0; +#X connect 130 0 133 1; +#X connect 131 0 1 0; +#X connect 131 1 2 0; +#X connect 132 0 88 0; +#X connect 132 1 89 0; +#X connect 133 0 78 0; +#X connect 133 1 79 0; +#X connect 134 0 60 6; +#X connect 135 0 60 4; +#X connect 136 0 102 0; +#X connect 137 0 101 0; +#X connect 138 0 136 0; +#X connect 139 0 137 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/woSoFreqD3.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,574 @@ +#N canvas 210 37 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 814 272 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 315 218 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 517 364 loadbang; +#X obj 517 385 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 517 403 metro 10; +#X obj 517 425 snapshot~; +#X floatatom 517 445 5 0 0 0 - - -; +#X obj 419 350 +~ 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 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 40 0; +#X connect 39 0 54 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 43 0 52 0; +#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 50 0; +#X connect 50 0 51 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 54 0 45 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 619 57 r~ \$0_dist; +#X obj 598 14 r~ \$0_azim; +#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 obj 240 48 snapshot~; +#X obj 240 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X floatatom 240 74 10 0 0 0 - - -; +#X obj 240 -25 loadbang; +#X obj 240 23 metro 10; +#X obj 488 -100 inlet~; +#X obj 488 -76 s~ \$0-thisPan; +#X obj 321 550 r~ \$0-thisPan; +#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 78 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 81 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 105 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 73 0 106 0; +#X connect 76 0 57 6; +#X connect 77 0 57 4; +#X connect 78 0 1 0; +#X connect 78 1 2 0; +#X connect 79 0 54 6; +#X connect 80 0 54 4; +#X connect 81 0 28 0; +#X connect 81 0 41 0; +#X connect 82 0 90 1; +#X connect 83 0 99 0; +#X connect 83 0 90 0; +#X connect 84 0 94 0; +#X connect 85 0 86 0; +#X connect 85 0 90 2; +#X connect 87 0 88 0; +#X connect 88 0 91 0; +#X connect 89 0 101 0; +#X connect 90 0 100 1; +#X connect 91 0 85 0; +#X connect 94 0 92 0; +#X connect 94 1 93 0; +#X connect 95 0 99 1; +#X connect 96 0 84 1; +#X connect 97 0 94 1; +#X connect 99 0 103 0; +#X connect 100 0 84 0; +#X connect 101 0 102 0; +#X connect 102 0 104 0; +#X connect 103 0 100 0; +#X connect 104 0 85 0; +#X connect 106 0 108 0; +#X connect 107 0 110 0; +#X connect 109 0 107 0; +#X connect 110 0 106 0; +#X connect 111 0 112 0; +#X connect 113 0 78 1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds2/woosh_D5.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,682 @@ +#N canvas 0 44 1412 817 10; +#X obj 551 -93 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 614 -93 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 611 -184 Gain; +#X obj 550 -210 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 550 -136 pd opLevels; +#X msg 550 -187 5; +#N canvas 248 96 1173 780 speedCalc 0; +#X obj 59 -12 inlet; +#X obj 135 -11 inlet; +#X obj 217 -12 inlet; +#X obj 317 -12 inlet; +#X obj 59 11 s \$0_swLen; +#X obj 135 11 s \$0_armLen; +#X obj 317 10 s \$0_tipSpeed; +#X obj 541 325 r \$0_tipSpeed; +#X obj 610 525 outlet; +#X obj 610 502 r \$0_minSpeed; +#X obj 526 426 s \$0_minSpeed; +#X obj 709 502 r \$0_deltaSpeed; +#X obj 903 423 s \$0_deltaSpeed; +#X obj 709 525 outlet; +#X obj 611 192 r \$0_swLen; +#X obj 526 304 /; +#X floatatom 480 331 5 0 0 0 - - -; +#X obj 626 215 r \$0_armLen; +#X obj 611 282 +; +#X obj 626 237 t f b; +#X floatatom 611 304 5 0 0 0 - - -; +#X obj 498 231 r \$0_armLen; +#X obj 217 11 s \$0_sourceTot; +#X obj 918 362 r \$0_sourceTot; +#X obj 526 402 *; +#X floatatom 484 426 5 0 0 0 - - -; +#X obj 918 274 r \$0_minSpeed; +#X obj 903 341 -; +#X obj 903 251 r \$0_tipSpeed; +#X obj 903 384 /; +#X obj 918 295 t f b; +#X floatatom 920 403 5 0 0 0 - - -; +#X obj 945 318 delay 9; +#X text 643 286 Length of blade and arm; +#X obj 498 253 t f b; +#X obj 525 277 delay 9; +#X obj 653 261 delay 6; +#X text 350 304 Ratio of arm to total length; +#X text 468 449 Speed of blade at the hilt; +#X text 786 335 Difference between; +#X text 768 347 speed at tip and hilt; +#X text 858 445 Difference in speed for each source; +#X text 858 457 based on a linear scale; +#X text 417 16 as well as the difference in speed of each source; +#X text 431 2 Patch that calculates the minimum speed; +#X obj 541 348 t f b; +#X obj 567 371 delay 8; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 22 0; +#X connect 3 0 6 0; +#X connect 7 0 45 0; +#X connect 9 0 8 0; +#X connect 11 0 13 0; +#X connect 14 0 18 0; +#X connect 15 0 16 0; +#X connect 15 0 24 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 18 0 15 1; +#X connect 19 0 18 1; +#X connect 19 1 36 0; +#X connect 21 0 34 0; +#X connect 23 0 29 1; +#X connect 24 0 10 0; +#X connect 24 0 25 0; +#X connect 26 0 30 0; +#X connect 27 0 29 0; +#X connect 28 0 27 0; +#X connect 29 0 31 0; +#X connect 29 0 12 0; +#X connect 30 0 27 1; +#X connect 30 1 32 0; +#X connect 32 0 27 0; +#X connect 34 0 15 0; +#X connect 34 1 35 0; +#X connect 35 0 15 0; +#X connect 36 0 18 0; +#X connect 45 0 24 1; +#X connect 45 1 46 0; +#X connect 46 0 24 0; +#X restore 544 150 pd speedCalc; +#X floatatom 453 174 8 0 0 0 - - -; +#X floatatom 698 172 8 0 0 0 - - -; +#X msg 24 -215 1; +#X msg -178 -206 100; +#X obj 544 55 r bladeLen; +#X obj 567 78 r armLength; +#X obj 590 102 r NoOfSources; +#X obj 613 127 r topSpeed; +#X obj 24 -192 s bladeLen; +#X obj -178 -183 s NoOfSources; +#X obj 85 141 s topSpeed; +#X obj 33 115 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3857 1; +#X floatatom 30 141 8 0 0 0 - - -; +#X text 57 -216 Blade Length; +#X text 56 -150 Arm Length; +#X text -150 -206 Number of Sources; +#X text 141 119 Top Speed; +#X obj 820 -141 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3000 1; +#X floatatom 817 -109 8 0 0 0 - - -; +#X obj 518 174 s firstSpeed; +#X obj 613 173 s deltaSpeed; +#N canvas 687 370 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 382 -113 pd thickCalc; +#X obj 27 202 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6205 1; +#X obj 26 287 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7475 1; +#X floatatom 24 232 8 0 0 0 - - -; +#X obj 78 231 s hiltThick; +#X floatatom 23 315 8 0 0 0 - - -; +#X obj 81 314 s tipThick; +#X text 141 204 Hilt Thickness; +#X text 133 288 Tip Thickness; +#X obj 224 -170 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 224 -117 s GO; +#X obj -259 128 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6920 1; +#X obj -263 213 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 7425 1; +#X floatatom -262 154 8 0 0 0 - - -; +#X text -149 132 Distance to Observer; +#X floatatom -266 241 8 0 0 0 - - -; +#X text -141 207 Angle to Observer; +#X obj 224 -216 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +0 1; +#X obj 224 -197 metro 200; +#X obj 278 -221 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj 164 -170 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 164 -117 s setUp; +#X obj -23 89 r setUp; +#X obj 759 -161 r setUp; +#X obj -27 179 r setUp; +#X obj -28 267 r setUp; +#X obj -314 107 r setUp; +#X obj -317 191 r setUp; +#X obj -203 155 s obsDistance; +#X obj -207 242 s obsAngle; +#N canvas 184 363 911 675 circumferCalc 1; +#X obj 440 104 +; +#X obj 440 127 s length; +#X obj 168 153 r start_armLength; +#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 452 300 r start_armLength; +#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 text 914 158 up to 0 azimuth; +#X obj 437 233 r postsweepAzim; +#X obj 437 347 s minPostCirc; +#X obj 149 252 r presweepAzim; +#X obj 149 298 * 6.28312; +#X obj 149 276 / 360; +#X obj 149 342 *; +#X obj 164 320 r length; +#X floatatom 111 364 5 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 obj 452 456 r length; +#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 connect 0 0 1 0; +#X connect 2 0 10 1; +#X connect 3 0 9 0; +#X connect 4 0 5 0; +#X connect 6 0 7 0; +#X connect 8 0 10 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 10 0 14 0; +#X connect 15 0 18 1; +#X connect 16 0 18 0; +#X connect 17 0 16 0; +#X connect 18 0 19 0; +#X connect 18 0 23 0; +#X connect 22 0 17 0; +#X connect 24 0 26 0; +#X connect 25 0 27 0; +#X connect 26 0 25 0; +#X connect 27 0 29 0; +#X connect 27 0 39 0; +#X connect 28 0 27 1; +#X connect 30 0 0 0; +#X connect 31 0 0 1; +#X connect 32 0 34 0; +#X connect 33 0 32 0; +#X connect 34 0 36 0; +#X connect 34 0 44 0; +#X connect 35 0 34 1; +#X connect 37 0 33 0; +#X connect 38 0 39 1; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 40 0 43 0; +#X connect 42 0 40 1; +#X connect 44 0 45 0; +#X connect 45 0 48 0; +#X connect 45 0 49 0; +#X connect 46 0 45 1; +#X connect 47 0 44 1; +#X restore 357 -36 pd circumferCalc; +#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 381 -146 pd angleCalc; +#X obj 553 -165 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 4018 1; +#X obj 24 -239 loadbang; +#X obj 22 -170 loadbang; +#X obj -178 -228 loadbang; +#X msg -176 -134 0; +#X obj -176 -112 s elev; +#X text -144 219 (Azimuth); +#X obj -176 -157 loadbang; +#X obj 447 555 s thisTS; +#X obj 466 534 s thisSA; +#X obj 486 512 s thisHT; +#X obj 505 489 s thisTT; +#X obj 525 468 s thisOD; +#X obj 544 448 s thisOA; +#X obj 564 426 s thisG; +#X obj 30 89 r thisTS; +#X obj 817 -162 r thisSA; +#X obj 24 179 r thisHT; +#X obj 23 267 r thisTT; +#X obj -262 107 r thisOD; +#X obj -265 192 r thisOA; +#X obj 498 -185 r thisG; +#X obj 447 402 unpack f f f f f f f; +#X obj -228 -157 r setUp; +#X obj -231 -226 r setUp; +#X obj -27 -172 r setUp; +#X obj -28 -237 r setUp; +#X text 550 195 Speed calculations; +#X text 384 402 Presets; +#X msg 456 297 20 160 0.01 0.004 2 0 127; +#X msg 447 274 43 215 0.0085 0.0025 4 90 40; +#X msg 466 320 30 280 0.0095 0.0032 2 60 120; +#X text 716 283 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 447 245 loadbang; +#X obj 164 -222 loadbang; +#X obj 164 -198 delay 13; +#X obj 399 327 t b; +#X obj 379 350 s setUp; +#X obj -267 287 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom -270 315 8 0 0 0 - - -; +#X text -145 281 Angle to Observer; +#X obj -321 265 r setUp; +#X obj -269 266 r thisOE; +#X obj -211 316 s obsElev; +#X text -148 293 (Elevation); +#X obj 818 -63 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 1300 1; +#X floatatom 815 -31 8 0 0 0 - - -; +#X obj 757 -83 r setUp; +#X obj 815 -84 r thisSA; +#X obj 813 50 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5912 1; +#X floatatom 810 82 8 0 0 0 - - -; +#X obj 752 30 r setUp; +#X obj 810 29 r thisSA; +#X obj 811 128 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5912 1; +#X floatatom 808 160 8 0 0 0 - - -; +#X obj 750 108 r setUp; +#X obj 808 107 r thisSA; +#N canvas 419 64 689 650 allSource 0; +#X obj 401 300 r distance; +#X obj 384 279 r angle; +#X obj 367 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 367 210 r setUp; +#X obj 418 320 r elev; +#X msg 367 257 6; +#X obj 127 302 r distance; +#X obj 110 281 r angle; +#X obj 93 240 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 93 212 r setUp; +#X obj 144 322 r elev; +#X obj 269 303 r distance; +#X obj 252 282 r angle; +#X obj 235 241 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 235 213 r setUp; +#X obj 286 323 r elev; +#X msg 93 259 8; +#X msg 235 260 7; +#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 obj 329 128 r distance; +#X obj 312 107 r angle; +#X obj 295 66 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 295 38 r setUp; +#X obj 346 148 r elev; +#X msg 153 84 10; +#X msg 295 85 9; +#X obj 153 170 tenSource; +#X obj 367 343 tenSource; +#X obj 93 345 tenSource; +#X obj 235 346 tenSource; +#X obj 295 171 tenSource; +#X connect 0 0 31 2; +#X connect 1 0 31 1; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 31 3; +#X connect 5 0 31 0; +#X connect 6 0 32 2; +#X connect 7 0 32 1; +#X connect 8 0 16 0; +#X connect 9 0 8 0; +#X connect 10 0 32 3; +#X connect 11 0 33 2; +#X connect 12 0 33 1; +#X connect 13 0 17 0; +#X connect 14 0 13 0; +#X connect 15 0 33 3; +#X connect 16 0 32 0; +#X connect 17 0 33 0; +#X connect 18 0 30 2; +#X connect 19 0 30 1; +#X connect 20 0 28 0; +#X connect 21 0 20 0; +#X connect 22 0 30 3; +#X connect 23 0 34 2; +#X connect 24 0 34 1; +#X connect 25 0 29 0; +#X connect 26 0 25 0; +#X connect 27 0 34 3; +#X connect 28 0 30 0; +#X connect 29 0 34 0; +#X restore 381 -85 pd allSource; +#X obj 865 81 s presweepElev; +#X obj 863 159 s postsweepElev; +#X text 924 51 pre-sweep elevation; +#X text 922 128 post-sweep elevation; +#X text 931 -140 pre-sweep azimuth; +#X text 929 -62 post-sweep azimuth; +#X obj 872 -110 s presweepAzim; +#X obj 870 -32 s postsweepAzim; +#X obj 22 -128 s start_armLength; +#X msg 22 -149 0.35; +#X obj 400 -60 sweepTime; +#X obj 662 -205 hsl 100 25 1 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6600 1; +#X floatatom 678 -165 5 0 0 0 - - -; +#X connect 3 0 5 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 60 0; +#X connect 6 0 7 0; +#X connect 6 0 26 0; +#X connect 6 1 8 0; +#X connect 6 1 27 0; +#X connect 9 0 15 0; +#X connect 10 0 16 0; +#X connect 11 0 6 0; +#X connect 12 0 6 1; +#X connect 13 0 6 2; +#X connect 14 0 6 3; +#X connect 18 0 17 0; +#X connect 18 0 19 0; +#X connect 24 0 25 0; +#X connect 24 0 124 0; +#X connect 29 0 31 0; +#X connect 29 0 32 0; +#X connect 30 0 33 0; +#X connect 30 0 34 0; +#X connect 37 0 38 0; +#X connect 39 0 41 0; +#X connect 39 0 56 0; +#X connect 40 0 43 0; +#X connect 40 0 57 0; +#X connect 45 0 46 0; +#X connect 46 0 37 0; +#X connect 47 0 46 1; +#X connect 48 0 49 0; +#X connect 50 0 18 0; +#X connect 51 0 24 0; +#X connect 52 0 29 0; +#X connect 53 0 30 0; +#X connect 54 0 39 0; +#X connect 55 0 40 0; +#X connect 60 0 4 0; +#X connect 61 0 9 0; +#X connect 62 0 127 0; +#X connect 63 0 10 0; +#X connect 64 0 65 0; +#X connect 67 0 64 0; +#X connect 75 0 18 0; +#X connect 77 0 29 0; +#X connect 78 0 30 0; +#X connect 79 0 39 0; +#X connect 80 0 40 0; +#X connect 81 0 60 0; +#X connect 82 0 68 0; +#X connect 82 1 69 0; +#X connect 82 2 70 0; +#X connect 82 3 71 0; +#X connect 82 4 72 0; +#X connect 82 5 73 0; +#X connect 82 6 74 0; +#X connect 83 0 64 0; +#X connect 84 0 10 0; +#X connect 85 0 127 0; +#X connect 86 0 9 0; +#X connect 89 0 82 0; +#X connect 89 0 96 0; +#X connect 90 0 82 0; +#X connect 90 0 96 0; +#X connect 91 0 82 0; +#X connect 91 0 96 0; +#X connect 93 0 90 0; +#X connect 94 0 95 0; +#X connect 95 0 48 0; +#X connect 96 0 97 0; +#X connect 98 0 99 0; +#X connect 98 0 103 0; +#X connect 101 0 98 0; +#X connect 102 0 98 0; +#X connect 105 0 106 0; +#X connect 105 0 125 0; +#X connect 107 0 105 0; +#X connect 109 0 110 0; +#X connect 109 0 118 0; +#X connect 111 0 109 0; +#X connect 112 0 109 0; +#X connect 113 0 114 0; +#X connect 113 0 119 0; +#X connect 115 0 113 0; +#X connect 116 0 113 0; +#X connect 127 0 126 0; +#X connect 129 0 4 1; +#X connect 129 0 130 0;
--- a/newSword/newSword.pd Fri Jan 29 21:14:12 2016 +0000 +++ b/newSword/newSword.pd Tue Feb 02 10:56:55 2016 +0000 @@ -15,12 +15,12 @@ #X text -231 37 Number of Sources; #X text -165 433 Top Speed; #X obj 21 248 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 7425 1; +-262144 -1 -1 7700 1; #X floatatom 18 280 8 0 0 0 - - -; #X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 6800 1; +-262144 -1 -1 0 1; #X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8 -0 10 -262144 -1 -1 7200 1; +0 10 -262144 -1 -1 0 1; #X floatatom -282 546 8 0 0 0 - - -; #X floatatom -283 629 8 0 0 0 - - -; #X obj -225 628 s tipThick; @@ -57,11 +57,11 @@ #X floatatom 16 358 8 0 0 0 - - -; #X obj -42 306 r setUp; #X obj 14 439 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4950 1; +-1 -1 7700 1; #X floatatom 11 471 8 0 0 0 - - -; #X obj -47 419 r setUp; #X obj 12 517 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4950 1; +-1 -1 0 1; #X floatatom 9 549 8 0 0 0 - - -; #X obj -49 497 r setUp; #X obj 66 470 s presweepElev; @@ -78,9 +78,9 @@ #X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 5346 1; #X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 4950 1; +-262144 -1 -1 5247 1; #X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 4950 1; +-262144 -1 -1 5346 1; #X obj -277 162 s Xobs; #X obj -278 253 s Yobs; #X obj -278 351 s Zobs; @@ -334,7 +334,7 @@ #X obj 423 289 * -90; #X obj 299 180 / 1439; #X obj 299 250 cos; -#X obj 299 272 * 90; +#X obj 299 272 * 180; #X connect 2 0 3 0; #X connect 3 0 40 0; #X connect 3 1 37 0; @@ -494,7 +494,7 @@ #X restore 325 498 pd opLevels; #X msg 334 444 5; #X obj 328 469 hsl 100 25 0.1 1e+06 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 7203 1; +-262144 -1 -1 2403 1; #X obj 445 472 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 442 426 loadbang; @@ -502,7 +502,6 @@ #X obj 325 398 r GAIN; #X msg 442 449 1; #X floatatom 268 499 8 0 0 0 - - -; -#X obj 315 63 metro 1; #N canvas 916 347 450 300 PlayCont 0; #X obj 206 41 hid; #X msg 206 13 print; @@ -552,11 +551,9 @@ #X obj 708 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 632 262 0 0 0 0 - - -; -#X obj 654 25 r elevation; -#X obj 654 1 r azimuth; #X msg 606 118 4; #X obj 534 45 r deltaThick; -#N canvas 112 23 1347 721 Distance 0; +#N canvas 112 23 1347 721 Distance 1; #X obj 51 47 r Xobs; #X obj 103 47 r Yobs; #X obj 152 47 r Zobs; @@ -568,40 +565,24 @@ #X obj 88 158 sqrt; #X floatatom 45 180 0 0 0 0 - - -; #X text 26 23 Distance between observer and centre of arc; -#X obj 147 245 r totLength; -#X obj 148 273 *; -#X obj 378 58 r azimuth; -#X obj 598 31 r elevation; -#X obj 104 245 r Xobs; -#X obj 104 271 *; -#X obj 46 313 *; -#X obj 26 288 * -2; +#X obj 378 24 r azimuth; +#X obj 638 11 r elevation; #X obj 378 105 cos; -#X obj 31 359 *; -#X obj 104 320 +; -#X obj 31 406 +; -#X obj 31 429 sqrt; -#X floatatom 32 507 0 0 0 0 - - -; #X obj 378 79 * 0.01745; -#X floatatom 153 375 5 0 0 0 - - -; -#X obj 61 289 t f b; -#X obj 46 338 t f b; -#X obj 46 379 t f b; -#X obj 118 292 t f b; -#X obj 598 52 - 90; +#X obj 638 50 - 90; #X floatatom 558 182 5 0 0 0 - - -; -#X obj 598 73 * -1; -#X obj 598 122 cos; -#X obj 598 96 * 0.01745; -#X obj 598 166 *; -#X obj 613 143 r totLength; -#X text 653 170 z coordinate of tip; +#X obj 638 71 * -1; +#X obj 638 120 cos; +#X obj 638 94 * 0.01745; +#X obj 638 164 *; +#X obj 653 141 r totLength; +#X text 693 168 z coordinate of tip; #X obj 393 131 sin; #X floatatom 408 230 5 0 0 0 - - -; #X obj 393 176 *; #X obj 408 153 r totLength; #X obj 378 204 *; -#X obj 486 54 r azimuth; +#X obj 486 34 r azimuth; #X obj 486 75 * 0.01745; #X obj 501 127 sin; #X floatatom 516 219 5 0 0 0 - - -; @@ -609,10 +590,8 @@ #X obj 516 149 r totLength; #X obj 486 200 *; #X obj 486 101 sin; -#X text 246 128 x coordinate of tip; -#X text 456 33 y coordinate of tip; -#X obj 327 209 r Xobs; -#X obj 440 199 r Yobs; +#X text 465 17 x coordinate of tip; +#X text 248 153 y coordinate of tip; #X obj 556 200 r Zobs; #X obj 327 293 *; #X obj 459 288 *; @@ -628,30 +607,35 @@ #X obj 583 239 -; #X obj 598 216 t f b; #X obj 355 397 outlet; -#X obj 648 371 r Zobs; -#X obj 648 429 -; -#X obj 663 406 t f b; -#X floatatom 689 452 5 0 0 0 - - -; -#X obj 648 466 /; -#X obj 648 491 atan; -#X obj 649 518 * 57.296; -#X floatatom 668 545 5 0 0 0 - - -; -#X obj 649 591 outlet; -#X obj 474 399 t f b; -#X floatatom 507 463 5 0 0 0 - - -; -#X obj 1056 420 t f b; -#X obj 1043 464 -; -#X floatatom 1077 495 5 0 0 0 - - -; -#X obj 1083 443 delay 10; -#X obj 459 443 f; -#X obj 444 515 -; -#X floatatom 399 582 5 0 0 0 - - -; -#X obj 459 468 t f b; -#X obj 486 491 delay 1; -#X obj 501 422 delay 20; -#X obj 444 540 abs; -#X obj 444 563 / 0.02; -#X obj 444 587 outlet; +#X obj 623 347 r Zobs; +#X obj 623 393 -; +#X obj 638 370 t f b; +#X floatatom 664 416 5 0 0 0 - - -; +#X obj 623 419 /; +#X obj 623 444 atan; +#X obj 624 471 * 57.296; +#X floatatom 583 497 5 0 0 0 - - -; +#X obj 624 496 outlet; +#X obj 977 73 r elevation; +#X obj 884 74 r azimuth; +#X obj 1004 170 -; +#X obj 977 96 t f f; +#X obj 1004 119 t f b; +#X obj 1031 141 delay 25; +#X obj 911 171 -; +#X obj 884 97 t f f; +#X obj 911 120 t f b; +#X obj 938 142 delay 25; +#X obj 911 194 *; +#X obj 1004 192 *; +#X obj 989 216 +; +#X obj 989 239 sqrt; +#X floatatom 926 261 0 0 0 0 - - -; +#X obj 989 261 outlet; +#X obj 327 209 r Yobs; +#X obj 440 199 r Xobs; +#X msg 643 29 40; +#X msg 459 56 100; #X connect 0 0 3 0; #X connect 0 0 3 1; #X connect 1 0 4 0; @@ -664,119 +648,103 @@ #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 9 0; -#X connect 11 0 12 0; -#X connect 11 0 12 1; -#X connect 11 0 26 0; -#X connect 11 0 27 0; -#X connect 12 0 30 0; -#X connect 13 0 25 0; -#X connect 14 0 31 0; -#X connect 15 0 16 0; -#X connect 15 0 16 1; -#X connect 15 0 18 0; -#X connect 16 0 21 0; -#X connect 17 0 28 0; -#X connect 18 0 17 0; -#X connect 19 0 43 0; -#X connect 20 0 22 0; -#X connect 21 0 29 0; -#X connect 22 0 23 0; -#X connect 23 0 24 0; -#X connect 25 0 19 0; -#X connect 27 0 17 1; -#X connect 27 1 17 0; -#X connect 28 0 20 1; -#X connect 29 0 22 1; -#X connect 29 1 22 0; -#X connect 30 0 21 1; -#X connect 30 1 21 0; -#X connect 31 0 33 0; -#X connect 33 0 35 0; -#X connect 34 0 36 0; +#X connect 13 0 27 0; +#X connect 14 0 13 0; +#X connect 15 0 17 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 18 0; +#X connect 19 0 23 0; +#X connect 19 0 30 0; +#X connect 20 0 16 0; +#X connect 20 0 54 1; +#X connect 20 0 51 0; +#X connect 21 0 20 1; +#X connect 23 0 25 0; +#X connect 25 0 27 1; +#X connect 26 0 25 1; +#X connect 27 0 24 0; +#X connect 27 0 47 0; +#X connect 29 0 35 0; +#X connect 30 0 32 0; +#X connect 32 0 34 1; +#X connect 33 0 32 1; +#X connect 34 0 31 0; +#X connect 34 0 49 0; #X connect 35 0 34 0; -#X connect 35 0 39 0; -#X connect 35 0 46 0; -#X connect 36 0 32 0; -#X connect 36 0 69 0; -#X connect 36 0 73 0; -#X connect 37 0 36 1; -#X connect 39 0 41 0; +#X connect 38 0 50 0; +#X connect 39 0 42 0; +#X connect 40 0 42 1; #X connect 41 0 43 1; -#X connect 42 0 41 1; -#X connect 43 0 40 0; -#X connect 43 0 65 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; #X connect 44 0 45 0; -#X connect 45 0 51 0; -#X connect 46 0 48 0; -#X connect 48 0 50 1; +#X connect 44 0 52 0; +#X connect 44 0 57 1; +#X connect 46 0 39 0; +#X connect 46 0 39 1; +#X connect 47 0 46 1; +#X connect 47 1 46 0; +#X connect 48 0 40 0; +#X connect 48 0 40 1; #X connect 49 0 48 1; -#X connect 50 0 47 0; -#X connect 50 0 67 0; -#X connect 51 0 50 0; -#X connect 54 0 64 0; -#X connect 55 0 66 0; -#X connect 56 0 68 0; -#X connect 57 0 60 0; -#X connect 58 0 60 1; -#X connect 59 0 61 1; -#X connect 60 0 61 0; -#X connect 61 0 62 0; -#X connect 62 0 63 0; -#X connect 62 0 70 0; -#X connect 62 0 75 1; -#X connect 62 0 80 0; -#X connect 62 0 87 0; -#X connect 64 0 57 0; -#X connect 64 0 57 1; +#X connect 49 1 48 0; +#X connect 50 0 41 0; +#X connect 50 0 41 1; +#X connect 51 0 50 1; +#X connect 51 1 50 0; +#X connect 53 0 54 0; +#X connect 54 0 56 0; +#X connect 54 0 57 0; +#X connect 55 0 54 1; +#X connect 55 1 54 0; +#X connect 57 0 58 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 59 0 61 0; +#X connect 62 0 65 0; +#X connect 63 0 69 0; +#X connect 64 0 73 0; +#X connect 64 0 73 1; #X connect 65 0 64 1; -#X connect 65 1 64 0; -#X connect 66 0 58 0; -#X connect 66 0 58 1; -#X connect 67 0 66 1; -#X connect 67 1 66 0; -#X connect 68 0 59 0; -#X connect 68 0 59 1; +#X connect 65 1 66 0; +#X connect 66 0 64 0; +#X connect 66 1 67 0; +#X connect 67 0 64 0; +#X connect 67 0 74 0; +#X connect 68 0 72 0; +#X connect 68 0 72 1; #X connect 69 0 68 1; -#X connect 69 1 68 0; -#X connect 71 0 72 0; +#X connect 69 1 70 0; +#X connect 70 0 68 0; +#X connect 70 1 71 0; +#X connect 71 0 68 0; +#X connect 71 0 74 0; #X connect 72 0 74 0; -#X connect 72 0 75 0; -#X connect 73 0 72 1; -#X connect 73 1 72 0; +#X connect 73 0 74 1; +#X connect 74 0 75 0; #X connect 75 0 76 0; -#X connect 76 0 77 0; -#X connect 77 0 78 0; -#X connect 77 0 79 0; -#X connect 80 0 86 1; -#X connect 80 1 91 0; -#X connect 82 0 83 1; -#X connect 82 1 85 0; -#X connect 83 0 84 0; -#X connect 85 0 83 0; -#X connect 86 0 81 0; -#X connect 86 0 89 0; -#X connect 87 0 92 0; -#X connect 89 0 87 1; -#X connect 89 1 90 0; -#X connect 90 0 87 0; -#X connect 91 0 86 0; -#X connect 92 0 93 0; -#X connect 93 0 88 0; -#X connect 93 0 94 0; +#X connect 75 0 77 0; +#X connect 78 0 46 0; +#X connect 79 0 48 0; +#X connect 80 0 15 0; +#X connect 81 0 14 0; +#X connect 81 0 29 0; #X restore 383 198 pd Distance; #X obj -227 545 s hiltThick; #X obj -58 48 s bladeLen; #X msg -259 37 1; +#X obj 315 63 metro 25; #X connect 1 0 2 0; -#X connect 2 0 139 0; -#X connect 4 0 151 0; +#X connect 2 0 150 0; +#X connect 4 0 148 0; #X connect 7 0 6 0; #X connect 7 0 8 0; #X connect 13 0 14 0; #X connect 13 0 59 0; #X connect 13 0 93 0; #X connect 15 0 17 0; -#X connect 15 0 150 0; +#X connect 15 0 147 0; #X connect 16 0 18 0; #X connect 16 0 19 0; #X connect 22 0 23 0; @@ -790,11 +758,11 @@ #X connect 32 0 16 0; #X connect 33 0 4 0; #X connect 34 0 62 0; -#X connect 35 0 152 0; +#X connect 35 0 149 0; #X connect 36 0 7 0; #X connect 37 0 15 0; #X connect 38 0 16 0; -#X connect 39 0 152 0; +#X connect 39 0 149 0; #X connect 40 0 62 0; #X connect 41 0 4 0; #X connect 42 0 43 0; @@ -859,18 +827,19 @@ #X connect 134 0 137 0; #X connect 136 0 132 0; #X connect 137 0 133 0; -#X connect 139 0 3 0; -#X connect 141 0 0 10; -#X connect 141 0 0 9; -#X connect 141 0 0 8; -#X connect 141 0 0 7; -#X connect 142 0 0 6; -#X connect 143 0 141 0; -#X connect 143 0 142 0; -#X connect 143 0 147 0; -#X connect 147 0 0 2; -#X connect 148 0 0 1; -#X connect 149 0 0 3; -#X connect 149 1 0 0; -#X connect 149 2 0 5; -#X connect 152 0 5 0; +#X connect 140 0 0 10; +#X connect 140 0 0 9; +#X connect 140 0 0 8; +#X connect 140 0 0 7; +#X connect 141 0 0 6; +#X connect 142 0 140 0; +#X connect 142 0 141 0; +#X connect 142 0 144 0; +#X connect 144 0 0 2; +#X connect 145 0 0 1; +#X connect 146 0 0 3; +#X connect 146 1 0 5; +#X connect 146 2 0 0; +#X connect 146 2 143 0; +#X connect 149 0 5 0; +#X connect 150 0 3 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/arccos.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,30 @@ +#N canvas 88 45 313 368 10; +#X obj 112 255 * 360; +#X floatatom 159 306 5 0 0 0 - - -; +#X obj 112 279 / 6.28319; +#X obj 70 47 *; +#X obj 70 79 swap 1; +#X obj 70 112 -; +#X obj 70 141 sqrt; +#X obj 112 172 /; +#X obj 112 200 atan; +#X obj 112 226 * 2; +#X text 152 108 Arccos of angle; +#X obj 127 48 + 1; +#X obj 112 306 outlet; +#X obj 70 20 inlet; +#X connect 0 0 2 0; +#X connect 2 0 1 0; +#X connect 2 0 12 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 0 0; +#X connect 11 0 7 1; +#X connect 13 0 3 1; +#X connect 13 0 3 0; +#X connect 13 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/arccos~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,39 @@ +#N canvas 177 186 443 430 10; +#X obj 162 73 inlet~; +#X obj 162 108 *~; +#X obj 197 107 +~ 1; +#X obj 147 136 -~; +#X obj 113 109 sig~ 1; +#X obj 147 163 sqrt~; +#X obj 182 193 /~; +#X obj 182 221 atan~; +#X obj 182 248 *~ 2; +#X obj 69 236 loadbang; +#X obj 69 259 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 69 280 metro 10; +#X obj 69 303 snapshot~; +#X floatatom 69 327 5 0 0 0 - - -; +#X obj 182 339 outlet~; +#X obj 182 272 *~ 360; +#X obj 182 294 /~ 3.14159; +#X obj 182 315 /~ 2; +#X connect 0 0 1 0; +#X connect 0 0 1 1; +#X connect 0 0 2 0; +#X connect 1 0 3 1; +#X connect 2 0 6 1; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 15 0; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 17 0 12 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/arcsin~.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,40 @@ +#N canvas 549 79 369 390 10; +#X obj 178 28 inlet~; +#X obj 163 67 *~; +#X obj 116 67 sig~ 1; +#X obj 148 95 -~; +#X obj 220 307 outlet~; +#X obj 148 119 sqrt~; +#X obj 133 144 -~; +#X obj 220 168 /~; +#X obj 220 193 atan~; +#X obj 220 218 *~ 2; +#X obj 220 241 *~ 360; +#X obj 145 242 loadbang; +#X obj 145 263 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 145 281 metro 10; +#X obj 145 303 snapshot~; +#X floatatom 145 323 8 0 0 0 - - -; +#X obj 220 262 /~ 3.14159; +#X obj 220 283 /~ 2; +#X connect 0 0 1 1; +#X connect 0 0 1 0; +#X connect 0 0 7 1; +#X connect 1 0 3 1; +#X connect 2 0 3 0; +#X connect 2 0 6 0; +#X connect 3 0 5 0; +#X connect 5 0 6 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 10 0 16 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 16 0 17 0; +#X connect 17 0 14 0; +#X connect 17 0 4 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/centreAngles.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,157 @@ +#N canvas 199 166 1376 625 10; +#X obj 69 140 f; +#X obj 69 97 r GO; +#X obj 84 118 r preswingTime; +#X obj 231 198 line~; +#X obj 96 262 loadbang; +#X obj 96 283 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 96 301 metro 10; +#X obj 96 323 snapshot~; +#X floatatom 96 343 5 0 0 0 - - -; +#X obj 177 359 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6350 1; +#X obj 231 97 r setUp; +#X text 214 78 Start at 0 speed; +#X obj 246 118 r presweepAzim; +#X obj 231 141 f; +#X msg 231 164 \$1; +#X msg 69 163 0 \$1; +#X obj 355 42 t f b; +#X obj 356 70 delay; +#X obj 370 -3 r preswingTime; +#X obj 377 119 r postswingTime; +#X obj 355 -23 r GO; +#X obj 355 19 f; +#X obj 356 97 f; +#X obj 356 142 pack; +#X obj 398 71 r postsweepAzim; +#X msg 356 168 \$1 \$2; +#X obj 179 97 r myEnd; +#X text 294 217 Current source Azimuth angle; +#X obj 858 109 f; +#X obj 858 66 r GO; +#X obj 879 132 r preswingTime; +#X obj 1029 232 line~; +#X obj 882 295 loadbang; +#X obj 882 316 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 882 334 metro 10; +#X obj 882 356 snapshot~; +#X floatatom 882 376 5 0 0 0 - - -; +#X obj 963 392 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X obj 1029 131 r setUp; +#X text 1012 112 Start at 0 speed; +#X obj 1029 175 f; +#X msg 1029 198 \$1; +#X obj 1141 75 t f b; +#X obj 1142 103 delay; +#X obj 1156 30 r preswingTime; +#X obj 1163 152 r postswingTime; +#X obj 1141 10 r GO; +#X obj 1141 52 f; +#X obj 1142 130 f; +#X obj 1142 175 pack; +#X msg 1142 201 \$1 \$2; +#X obj 1044 152 r presweepElev; +#X obj 1184 78 r postsweepElev; +#X obj 858 156 pack; +#X obj 873 88 r midElev; +#X msg 858 190 \$1 \$2; +#X obj 658 74 +; +#X obj 643 101 /; +#X obj 616 53 t f f; +#X floatatom 589 132 5 0 0 0 - - -; +#X obj 658 124 r presweepElev; +#X obj 673 146 r postsweepElev; +#X obj 658 30 r postswingTime; +#X obj 673 52 r preswingTime; +#X obj 643 199 *; +#X floatatom 606 267 5 0 0 0 - - -; +#X obj 643 267 s midElev; +#X text 536 -100 Calculate the angles with respect to the centre of +the swing circle; +#X text 1092 251 Current source Elevation angle; +#X obj 1085 304 s~ currentElev; +#X obj 248 265 s~ currentAzim; +#X obj 951 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 951 -1 s GO; +#X obj 891 -54 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 891 -1 s setUp; +#X obj 980 130 r myEnd; +#X obj 658 175 -; +#X obj 643 242 +; +#X obj 658 219 r postsweepElev; +#X connect 0 0 15 0; +#X connect 1 0 0 0; +#X connect 2 0 0 1; +#X connect 3 0 7 0; +#X connect 4 0 5 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 7 0 9 0; +#X connect 10 0 13 0; +#X connect 12 0 13 1; +#X connect 13 0 14 0; +#X connect 14 0 3 0; +#X connect 15 0 3 0; +#X connect 16 0 17 1; +#X connect 16 1 17 0; +#X connect 17 0 22 0; +#X connect 18 0 21 1; +#X connect 19 0 23 1; +#X connect 20 0 21 0; +#X connect 21 0 16 0; +#X connect 22 0 23 0; +#X connect 23 0 25 0; +#X connect 24 0 22 1; +#X connect 25 0 3 0; +#X connect 26 0 13 0; +#X connect 28 0 53 0; +#X connect 29 0 28 0; +#X connect 30 0 53 1; +#X connect 31 0 35 0; +#X connect 32 0 33 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 35 0 37 0; +#X connect 38 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 31 0; +#X connect 42 0 43 1; +#X connect 42 1 43 0; +#X connect 43 0 48 0; +#X connect 44 0 47 1; +#X connect 45 0 49 1; +#X connect 46 0 47 0; +#X connect 47 0 42 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 31 0; +#X connect 51 0 40 1; +#X connect 52 0 48 1; +#X connect 53 0 55 0; +#X connect 54 0 28 1; +#X connect 55 0 31 0; +#X connect 56 0 57 1; +#X connect 57 0 59 0; +#X connect 57 0 64 0; +#X connect 58 0 56 0; +#X connect 58 1 57 0; +#X connect 60 0 76 0; +#X connect 61 0 76 1; +#X connect 62 0 58 0; +#X connect 63 0 56 1; +#X connect 64 0 77 0; +#X connect 71 0 72 0; +#X connect 73 0 74 0; +#X connect 75 0 40 0; +#X connect 76 0 64 1; +#X connect 77 0 66 0; +#X connect 77 0 65 0; +#X connect 78 0 77 1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/fcpan.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,25 @@ +#N canvas 316 389 443 292 10; +#X obj 133 131 *~; +#X obj -4 123 *~; +#X obj 149 85 cos~; +#X obj 149 48 -~ 0.25; +#X obj 149 26 *~ 0.25; +#X obj 12 101 cos~; +#X obj 12 77 -~ 0.25; +#X obj -4 183 outlet~ l; +#X obj 133 191 outlet~ r; +#X obj -4 -4 inlet~; +#X obj 149 4 sig~; +#X obj 149 -28 inlet; +#X connect 0 0 8 0; +#X connect 1 0 7 0; +#X connect 2 0 0 1; +#X connect 3 0 2 0; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 1 1; +#X connect 6 0 5 0; +#X connect 9 0 1 0; +#X connect 9 0 0 0; +#X connect 10 0 4 0; +#X connect 11 0 10 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/freqCalcCyl3No_D2Mach.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,1206 @@ +#N canvas 89 23 1374 822 10; +#X text 577 168 Mass Density of Air; +#X obj 699 169 *~ 1.225; +#X obj 699 244 /~ 1.81e-05; +#X obj 699 199 *~ 1; +#X obj 699 362 /~ 1; +#X floatatom 202 406 0 0 0 0 - - -; +#X obj 699 338 *~; +#X obj 213 53 inlet; +#X text 732 288 Reynolds Number; +#X text 579 355 Strouhal Number; +#X obj 378 51 inlet; +#X text 729 224 Viscosity; +#X obj 220 76 s \$0-diameter; +#X obj 760 168 r \$0-diameter; +#X obj 767 343 r \$0-diameter; +#X obj 110 94 s~ \$0-windSpeed; +#X obj 766 320 r~ \$0-windSpeed; +#X obj 699 141 r~ \$0-windSpeed; +#X obj 699 386 s~ \$0-myFreq; +#X obj 1113 484 r~ \$0-myFreq; +#X obj 1050 348 *~; +#X obj 124 228 snapshot~; +#X floatatom 124 254 0 0 0 0 - - -; +#X obj 38 203 r~ \$0-myRey; +#X obj 712 268 s~ \$0-myRey; +#X text 109 276 Reynolds Number; +#X obj 626 47 inlet; +#X floatatom 571 116 8 0 0 0 - - -; +#X obj 626 71 max 0.1; +#X obj 626 94 min 0.9; +#X text 663 405 Calculates the frequency; +#X text 664 417 based on the physics of; +#X text 664 430 the object and environment; +#X obj 297 394 r~ \$0-windSpeed; +#X obj 144 531 snapshot~; +#X floatatom 144 557 0 0 0 0 - - -; +#X obj 337 456 r \$0-diameter; +#X obj 450 50 inlet; +#X obj 524 49 inlet; +#X floatatom 378 98 5 0 0 0 - - -; +#X floatatom 450 96 5 0 0 0 - - -; +#X floatatom 525 93 5 0 0 0 - - -; +#X obj 73 406 outlet; +#X obj 117 379 snapshot~; +#X obj 38 356 r~ \$0-myFreq; +#X text 123 583 Strouhal Number; +#X text 283 357 Calculates the gain of the dipole source; +#X text 449 27 Azimuth; +#X text 631 29 Pan; +#X text 523 31 Elevation; +#X text 374 32 Distance; +#X text 208 32 Diameter; +#X text 103 34 Wind Speed; +#X obj 305 50 inlet; +#X floatatom 305 94 5 0 0 0 - - -; +#X text 301 31 Length; +#X floatatom 213 97 5 0 0 0 - - -; +#X obj 1050 417 throw~ l; +#X obj 1077 395 throw~ r; +#X obj 1050 373 fcpan; +#X obj 315 73 s \$0-leng; +#X obj 383 74 s \$0-dist; +#X obj 390 321 s~ \$0-dragDiGain; +#X obj 303 342 s~ \$0-liftDiGain; +#X obj 284 375 r~ \$0-str; +#X obj 323 434 r \$0-leng; +#X obj 350 477 r \$0-dist; +#X obj 284 570 s~ \$0-liftNoiseGain; +#X obj 1086 464 r~ \$0-dragDiGain; +#X obj 599 340 s~ \$0-str; +#X obj 626 116 s \$0-thisPan; +#X obj 1086 272 r \$0-contFreq; +#X obj 117 406 s \$0-contFreq; +#X obj 59 506 r~ \$0-str; +#X obj 1050 192 r~ \$0-liftNoiseGain; +#X obj 1077 348 r \$0-thisPan; +#X obj 721 56 inlet; +#X obj 793 55 inlet; +#X obj 867 54 inlet; +#X floatatom 721 103 5 0 0 0 - - -; +#X floatatom 793 101 5 0 0 0 - - -; +#X floatatom 868 98 5 0 0 0 - - -; +#X obj 726 79 s \$0-rotaX; +#X obj 800 77 s \$0-rotaY; +#X obj 875 77 s \$0-rotaZ; +#X text 717 37 X Rotation; +#X text 787 36 Y Rotation; +#X text 862 35 Z Rotation; +#X text 1031 166 Noise spectrum calculation; +#X obj 1065 296 hip~; +#X obj 1140 504 r \$0-thisPan; +#X obj 1065 251 rpole~ 0.99; +#X obj 1065 225 noise~; +#X obj 82 256 outlet; +#X obj 311 153 r~ \$0-windSpeed; +#X obj 329 192 r \$0-diameter; +#X obj 303 132 r~ \$0-str; +#X obj 321 173 r \$0-leng; +#X obj 346 231 r \$0-dist; +#N canvas 203 82 1238 721 GoldfreqGain 0; +#N canvas 759 125 286 294 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 obj 372 202 *; +#X obj 372 228 *; +#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 374 288 10 0 0 0 - - -; +#X obj 303 20 t f b; +#X floatatom 455 55 5 0 0 0 - - -; +#X obj 372 260 *; +#X obj 400 202 *; +#X msg 303 -4 6; +#X obj 434 201 *; +#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 connect 13 0 14 0; +#X connect 14 0 19 0; +#X connect 15 0 13 0; +#X connect 15 0 13 1; +#X connect 15 0 18 0; +#X connect 15 0 20 0; +#X connect 15 0 20 1; +#X connect 17 0 13 0; +#X connect 17 0 13 1; +#X connect 17 0 20 0; +#X connect 17 0 20 1; +#X connect 17 0 22 0; +#X connect 17 0 22 1; +#X connect 17 1 13 0; +#X connect 17 1 20 0; +#X connect 17 1 22 0; +#X connect 19 0 16 0; +#X connect 20 0 14 1; +#X connect 21 0 17 0; +#X connect 22 0 19 1; +#X restore 219 42 pd pow6; +#X obj 173 32 *~; +#X obj 219 68 *~; +#X obj 404 137 *; +#X text 533 2 Distance; +#X floatatom 513 62 5 0 0 0 - - -; +#X text 724 595 Calculates Drag Dipole gain; +#X text 48 647 Calculates Lift Dipole gain; +#X obj 173 -8 inlet~; +#X obj 219 -35 inlet~; +#X text 328 62 Diameter; +#X obj 291 61 inlet; +#X obj 513 18 inlet; +#X obj 219 667 outlet~; +#X obj 758 570 outlet~; +#X obj 240 159 inlet; +#X text 278 154 Length; +#X obj 219 185 *~ 1; +#X obj 234 416 sig~; +#X obj 322 438 sig~; +#X obj 234 468 /~ 360; +#X obj 234 517 *~; +#X obj 219 540 *~; +#X obj 814 19 inlet; +#X obj 913 21 inlet; +#X obj 1009 24 inlet; +#X floatatom 814 66 5 0 0 0 - - -; +#X floatatom 913 67 5 0 0 0 - - -; +#X floatatom 1010 68 5 0 0 0 - - -; +#X text 810 0 X Rotation; +#X text 907 2 Y Rotation; +#X text 1004 5 Z Rotation; +#X obj 819 42 s \$0-this_rotaX; +#X obj 920 43 s \$0-thisrotaY; +#X obj 1017 47 s \$0-thisrotaZ; +#X text 74 -8 Strouhal number; +#X text 269 -35 Wind speed; +#X text 266 103 Corr Length; +#X obj 219 225 *~ 2.50663; +#X obj 219 130 *~ 1.225; +#X text 93 126 Mass Density of Air; +#X text 147 227 Sqrt(2xpi); +#X obj 322 466 /~ 360; +#X obj 322 512 *~; +#X obj 322 488 cos~; +#X obj 219 579 *~; +#X obj 404 167 * 4.05513e+07; +#X text 355 186 Speed of Sound to power 3; +#X obj 404 220 * 32; +#X obj 553 189 r SIG_MACH; +#X obj 518 189 cos~; +#X obj 518 212 *~; +#X obj 466 213 sig~ 1; +#X obj 503 243 -~; +#N canvas 1150 227 286 289 pow4 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 47 93 *~; +#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 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 3 0; +#X connect 10 0 4 0; +#X restore 503 266 pd pow4; +#X obj 404 248 sig~; +#X obj 404 298 *~; +#X obj 219 346 /~; +#X obj 133 287 s~ \$0-aGainG; +#X obj 872 246 r~ \$0-aGainG; +#X obj 758 512 *~ 0.1; +#X obj 723 340 +~ 90; +#X obj 723 363 /~ 360; +#X obj 723 409 *~; +#X obj 723 385 sin~; +#X obj 773 359 /~ 360; +#X obj 773 405 *~; +#X obj 773 381 cos~; +#X obj 758 436 *~; +#X text 709 1 Azimuth; +#X text 608 3 Elevation; +#X obj 611 21 inlet; +#X obj 713 19 inlet; +#X floatatom 611 68 5 0 0 0 - - -; +#X floatatom 713 68 5 0 0 0 - - -; +#X obj 322 417 r \$0-this_azim; +#X obj 234 394 r \$0-this_elev; +#X obj 773 314 r \$0-this_azim; +#X obj 723 256 r \$0-this_elev; +#X obj 723 280 sig~; +#X obj 773 336 sig~; +#X obj 518 141 sig~; +#X obj 139 628 s~ plotOPF; +#X obj 676 574 s~ plotOPD; +#X obj 616 44 s \$0-this_elev; +#X obj 720 44 s \$0-this_azim; +#X obj 518 117 r \$0-this_elev; +#X obj 520 40 s \$0-thisDist; +#X obj 887 268 r \$0-thisDist; +#X obj 404 111 r \$0-thisDist; +#X obj 887 292 *; +#X obj 887 317 * 4.05513e+07; +#X text 892 335 Speed of Sound to power 3; +#X obj 887 370 * 32; +#X obj 887 398 sig~; +#X obj 872 423 /~; +#X text 588 167 Remember - Goldstein moves cylinder; +#X floatatom 359 169 5 0 0 0 - - -; +#X obj 518 170 /~ 360; +#X obj 758 475 *~; +#X obj 424 40 s~ \$0-thisColL; +#X obj 270 42 r~ \$0-thisColL; +#X obj 270 82 *~ 1; +#X obj 219 102 *~; +#X obj 424 17 inlet~; +#X obj 219 11 sig~; +#X floatatom 265 13 5 0 0 0 - - -; +#X obj 219 -11 average~ 512; +#X obj 234 494 sin~; +#X floatatom 351 12 5 0 0 0 - - -; +#X connect 0 0 2 0; +#X connect 1 0 2 1; +#X connect 2 0 103 0; +#X connect 3 0 46 0; +#X connect 3 0 97 0; +#X connect 8 0 1 0; +#X connect 8 0 1 1; +#X connect 9 0 107 0; +#X connect 11 0 102 1; +#X connect 12 0 5 0; +#X connect 12 0 87 0; +#X connect 15 0 17 1; +#X connect 17 0 38 0; +#X connect 18 0 20 0; +#X connect 19 0 42 0; +#X connect 20 0 108 0; +#X connect 21 0 22 1; +#X connect 22 0 45 0; +#X connect 23 0 26 0; +#X connect 23 0 32 0; +#X connect 24 0 27 0; +#X connect 24 0 33 0; +#X connect 25 0 28 0; +#X connect 25 0 34 0; +#X connect 38 0 57 0; +#X connect 38 0 58 0; +#X connect 39 0 17 0; +#X connect 42 0 44 0; +#X connect 43 0 45 1; +#X connect 44 0 43 0; +#X connect 44 0 43 1; +#X connect 45 0 82 0; +#X connect 45 0 13 0; +#X connect 46 0 48 0; +#X connect 48 0 55 0; +#X connect 49 0 51 1; +#X connect 50 0 51 0; +#X connect 51 0 53 1; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 56 1; +#X connect 55 0 56 0; +#X connect 56 0 57 1; +#X connect 57 0 22 0; +#X connect 59 0 95 0; +#X connect 60 0 83 0; +#X connect 60 0 14 0; +#X connect 61 0 62 0; +#X connect 62 0 64 0; +#X connect 63 0 68 0; +#X connect 64 0 63 0; +#X connect 64 0 63 1; +#X connect 65 0 67 0; +#X connect 66 0 68 1; +#X connect 67 0 66 0; +#X connect 67 0 66 1; +#X connect 68 0 99 0; +#X connect 71 0 73 0; +#X connect 71 0 84 0; +#X connect 72 0 74 0; +#X connect 72 0 85 0; +#X connect 75 0 19 0; +#X connect 76 0 18 0; +#X connect 77 0 80 0; +#X connect 78 0 79 0; +#X connect 79 0 61 0; +#X connect 80 0 65 0; +#X connect 81 0 98 0; +#X connect 86 0 81 0; +#X connect 88 0 90 0; +#X connect 88 0 90 1; +#X connect 89 0 3 0; +#X connect 89 0 3 1; +#X connect 90 0 91 0; +#X connect 91 0 93 0; +#X connect 93 0 94 0; +#X connect 94 0 95 1; +#X connect 95 0 99 1; +#X connect 98 0 50 0; +#X connect 99 0 60 0; +#X connect 101 0 102 0; +#X connect 102 0 103 1; +#X connect 103 0 39 0; +#X connect 104 0 100 0; +#X connect 105 0 0 0; +#X connect 107 0 105 0; +#X connect 107 0 106 0; +#X connect 108 0 21 0; +#X connect 108 0 21 1; +#X restore 303 297 pd GoldfreqGain; +#X obj 964 504 r \$0-thisPan; +#X obj 918 461 r~ \$0-myFreq; +#X obj 941 483 r~ \$0-dragDiGain; +#N canvas 272 58 1006 797 GoldnoiseGain 0; +#X text -21029 240 Mass Density of Air \, squared; +#X obj -20777 456 *; +#X text -20777 409 Distance; +#N canvas 759 125 235 275 pow8 0; +#X obj 47 67 *~; +#X obj 76 67 *~; +#X obj 76 35 inlet~; +#X obj 47 147 outlet~; +#X obj 128 146 snapshot~; +#X obj 128 121 metro 100; +#X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 128 173 10 0 0 0 - - -; +#X obj 128 73 loadbang; +#X obj 47 93 *~; +#X obj 47 121 *~; +#X connect 0 0 9 0; +#X connect 1 0 9 1; +#X connect 2 0 0 0; +#X connect 2 0 0 1; +#X connect 2 0 1 1; +#X connect 2 0 1 0; +#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 10 0; +#X connect 9 0 10 1; +#X connect 10 0 3 0; +#X connect 10 0 4 0; +#X restore -20846 69 pd pow8; +#X obj -20846 4 inlet~; +#X obj -20801 123 inlet; +#X obj -20777 430 inlet; +#X obj -20846 710 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20765 124 Diameter; +#X obj -20754 633 loadbang; +#X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20754 672 metro 10; +#X obj -20754 693 snapshot~; +#X floatatom -20754 713 8 0 0 0 - - -; +#X text -20798 -5 Wind speed; +#X text -21027 643 Calculates wake gain; +#X text -20399 16 Azimuth; +#X obj -20398 33 inlet; +#X obj -20398 56 sig~; +#X obj -20342 33 inlet; +#X obj -20342 56 sig~; +#X text -20343 16 Elevation; +#X floatatom -20304 57 5 0 0 0 - - -; +#X floatatom -20434 58 5 0 0 0 - - -; +#X obj -20398 96 s~ \$0-this_azim; +#X obj -20342 77 s~ \$0-this_elev; +#X obj -20846 243 *~ 1.225; +#X obj -20511 100 r~ \$0-this_azim; +#N canvas 759 125 250 309 pow5 0; +#X obj 47 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 47 87 *~; +#X obj 47 118 *~; +#X connect 0 0 8 0; +#X connect 0 0 8 1; +#X connect 1 0 0 0; +#X connect 1 0 0 1; +#X connect 1 0 9 1; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 7 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 2 0; +#X connect 9 0 3 0; +#X restore -20680 508 pd pow5; +#X obj -20680 484 sig~ 343.56; +#N canvas 875 261 250 309 pow5 0; +#X obj 47 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 47 87 *~; +#X obj 47 118 *~; +#X connect 0 0 8 0; +#X connect 0 0 8 1; +#X connect 1 0 0 0; +#X connect 1 0 0 1; +#X connect 1 0 9 1; +#X connect 3 0 6 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 7 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 2 0; +#X connect 9 0 3 0; +#X restore -20645 434 pd pow5; +#X obj -20599 284 /~ 360; +#X obj -20599 311 cos~; +#X obj -20584 333 r SIG_MACH; +#X obj -20584 357 sig~; +#X obj -20599 382 *~; +#X obj -20645 381 sig~ 1; +#X obj -20645 408 -~; +#X obj -20680 355 sig~ 3.1416; +#X obj -20680 380 *~; +#X obj -20695 332 sig~ 16; +#X obj -20695 404 *~; +#X obj -20695 462 *~; +#X obj -20695 535 *~; +#X obj -20777 483 sig~; +#X obj -20777 567 *~; +#X obj -20846 611 /~; +#X obj -20913 710 s~ plotOPN; +#X obj -20599 262 -~; +#X text -20547 269 Angle goes with the flow in Goldstein hence 90 - +theta so that theta is same angle as dipole angles.; +#X obj -20599 217 sig~ 180; +#X obj -20536 221 r~ \$0-this_elev; +#X obj -20916 56 inlet~; +#X obj -20916 83 *~; +#X obj -20822 90 inlet~; +#X obj -20822 148 *~ 1; +#X obj -20846 170 *~; +#X obj -20846 194 *~; +#X obj -20821 273 inlet; +#X obj -20847 308 *~ 1; +#X obj -20848 343 *~ 2.50663; +#X obj -20846 643 *~ 1; +#X text -20776 91 Corrolation Length; +#X text -20781 272 Length; +#X obj -20846 26 average~ 64; +#X obj -20846 48 sig~; +#X connect 1 0 45 0; +#X connect 3 0 57 0; +#X connect 4 0 65 0; +#X connect 5 0 56 1; +#X connect 6 0 1 0; +#X connect 6 0 1 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 18 0 19 0; +#X connect 18 0 24 0; +#X connect 19 0 25 0; +#X connect 20 0 21 0; +#X connect 20 0 23 0; +#X connect 21 0 26 0; +#X connect 27 0 60 0; +#X connect 29 0 44 1; +#X connect 30 0 29 0; +#X connect 31 0 43 1; +#X connect 32 0 33 0; +#X connect 33 0 36 0; +#X connect 34 0 35 0; +#X connect 35 0 36 1; +#X connect 36 0 38 1; +#X connect 37 0 38 0; +#X connect 38 0 31 0; +#X connect 39 0 40 0; +#X connect 39 0 40 1; +#X connect 40 0 42 1; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 46 1; +#X connect 45 0 46 0; +#X connect 46 0 47 1; +#X connect 47 0 62 0; +#X connect 49 0 32 0; +#X connect 51 0 49 0; +#X connect 52 0 49 1; +#X connect 53 0 54 0; +#X connect 53 0 54 1; +#X connect 54 0 57 1; +#X connect 55 0 56 0; +#X connect 56 0 58 1; +#X connect 57 0 58 0; +#X connect 58 0 27 0; +#X connect 59 0 60 1; +#X connect 60 0 61 0; +#X connect 61 0 47 0; +#X connect 62 0 48 0; +#X connect 62 0 7 0; +#X connect 62 0 13 0; +#X connect 65 0 66 0; +#X connect 66 0 3 0; +#X restore 284 542 pd GoldnoiseGain; +#X text 275 589 Calculates the gain of the wake; +#X obj 981 52 inlet; +#X obj 981 76 s \$0-TuInt; +#X floatatom 945 77 5 0 0 0 - - -; +#N canvas 4 232 229 249 TuInt_calc 0; +#X obj 116 42 inlet; +#X obj 116 118 + 1; +#X obj 116 67 min 0.2; +#X floatatom 144 148 5 0 0 0 - - -; +#X obj 116 173 outlet; +#X obj 116 92 * -4.5; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 1 0 4 0; +#X connect 2 0 5 0; +#X connect 5 0 1 0; +#X restore 1063 77 pd TuInt_calc; +#X obj 1064 55 r \$0-TuInt; +#X obj 1063 100 s \$0-TuGain; +#X obj 987 524 r \$0-TuGain; +#X floatatom 1029 99 5 0 0 0 - - -; +#X obj 1167 524 r \$0-TuGain; +#N canvas 811 216 464 503 dragDiFunNo 0; +#X obj 124 84 inlet~; +#X obj 120 196 inlet~; +#X obj 161 105 inlet; +#X obj 132 255 inlet; +#X obj 124 105 *~ 2; +#X obj 105 256 *~; +#X obj 105 321 throw~ l; +#X obj 132 298 throw~ r; +#X obj 105 277 fcpan; +#X obj 105 65 noise~; +#X obj 120 236 *~ 1; +#X obj 141 215 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X text 49 367 Creates the shaped noise sound equivalent to a narrow +band signal at the drag dipole fundamental frequency.; +#X floatatom 153 276 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X connect 0 0 4 0; +#X connect 1 0 10 0; +#X connect 2 0 13 0; +#X connect 3 0 8 1; +#X connect 3 0 15 0; +#X connect 4 0 12 1; +#X connect 5 0 8 0; +#X connect 8 0 6 0; +#X connect 8 1 7 0; +#X connect 9 0 12 0; +#X connect 10 0 5 1; +#X connect 11 0 10 1; +#X connect 12 0 16 0; +#X connect 13 0 12 2; +#X connect 16 0 5 0; +#X restore 1086 545 pd dragDiFunNo; +#N canvas 1014 140 491 522 dragDiFun 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 165 100 *~ 2; +#X obj 180 209 *~ 1; +#X obj 180 168 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X text 60 369 Generates the pure tone associated with the drag dipole +fundamental frequency.; +#X floatatom 212 256 5 0 0 0 - - -; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 0 0; +#X connect 6 0 3 1; +#X connect 7 0 6 0; +#X connect 8 0 5 0; +#X connect 9 0 7 0; +#X connect 10 0 4 1; +#X connect 10 0 13 0; +#X connect 11 0 6 1; +#X restore 918 547 pd dragDiFun; +#X obj 752 480 r~ \$0-myFreq; +#X obj 779 500 r \$0-thisPan; +#X obj 806 520 r \$0-TuGain; +#X obj 725 460 r~ \$0-liftDiGain; +#N canvas 579 250 654 489 liftDi2ndNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X obj 124 105 *~ 5; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole second harmonic frequency.; +#X obj 120 220 *~ 0.1; +#X floatatom 174 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X text 206 209 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 13 0; +#X connect 1 0 15 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 15 0 9 0; +#X connect 17 0 4 0; +#X restore 725 541 pd liftDi2ndNo; +#X obj 617 497 r \$0-thisPan; +#X obj 571 454 r~ \$0-myFreq; +#X obj 640 517 r \$0-TuGain; +#N canvas 899 170 491 522 liftDi2nd 0; +#X obj 41 132 osc~; +#X obj 41 305 throw~ l; +#X obj 68 282 throw~ r; +#X obj 41 239 *~; +#X obj 41 260 fcpan; +#X obj 56 216 *~ 1; +#X obj 41 82 inlet~; +#X obj 56 152 inlet~; +#X obj 68 239 inlet; +#X obj 77 194 inlet; +#X obj 41 107 *~ 5; +#X text 60 369 Generates the pure tone associated with the lift dipole +second harmonic frequency.; +#X obj 56 175 *~ 0.1; +#X floatatom 104 263 5 0 0 0 - - -; +#X text 117 168 0.1 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 12 0; +#X connect 8 0 4 1; +#X connect 8 0 13 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 12 0 5 0; +#X restore 571 540 pd liftDi2nd; +#X obj 594 476 r~ \$0-liftDiGain; +#X obj 618 606 r \$0-thisPan; +#X obj 572 563 r~ \$0-myFreq; +#X obj 641 626 r \$0-TuGain; +#X obj 595 585 r~ \$0-liftDiGain; +#N canvas 59 232 491 522 liftDi1st 0; +#X obj 36 136 osc~; +#X obj 36 309 throw~ l; +#X obj 63 286 throw~ r; +#X obj 36 243 *~; +#X obj 36 264 fcpan; +#X obj 51 220 *~ 1; +#X obj 36 86 inlet~; +#X obj 51 156 inlet~; +#X obj 63 243 inlet; +#X obj 72 198 inlet; +#X obj 36 111 *~ 3; +#X text 60 369 Generates the pure tone associated with the lift dipole +first harmonic frequency.; +#X floatatom 105 265 5 0 0 0 - - -; +#X obj 51 179 *~ 0.6; +#X text 114 168 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 13 0; +#X connect 8 0 4 1; +#X connect 8 0 12 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 13 0 5 0; +#X restore 572 649 pd liftDi1st; +#X obj 752 584 r~ \$0-myFreq; +#X obj 779 604 r \$0-thisPan; +#X obj 806 624 r \$0-TuGain; +#X obj 725 564 r~ \$0-liftDiGain; +#N canvas 319 197 578 492 liftDi1stNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole second harmonic frequency.; +#X obj 124 105 *~ 3; +#X obj 120 220 *~ 0.5; +#X floatatom 163 302 5 0 0 0 - - -; +#X obj 105 173 *~ 0.6; +#X text 167 169 0.6 Value to match normalised gain of 3rd harmonic +given in Hardin; +#X connect 0 0 14 0; +#X connect 1 0 15 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 17 0; +#X connect 12 0 11 2; +#X connect 14 0 11 1; +#X connect 15 0 9 0; +#X connect 17 0 4 0; +#X restore 725 645 pd liftDi1stNo; +#X obj 618 718 r \$0-thisPan; +#X obj 572 675 r~ \$0-myFreq; +#X obj 641 738 r \$0-TuGain; +#X obj 595 697 r~ \$0-liftDiGain; +#N canvas 444 150 491 522 liftDiFun 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 180 209 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X obj 165 100 *~ 1; +#X obj 180 168 *~ 1; +#X text 60 369 Generates the pure tone associated with the lift dipole +fundamental frequency.; +#X floatatom 227 254 5 0 0 0 - - -; +#X obj 95 262 s~ fund1; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 3 0 14 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 10 0; +#X connect 7 0 11 0; +#X connect 8 0 4 1; +#X connect 8 0 13 0; +#X connect 9 0 5 1; +#X connect 10 0 0 0; +#X connect 11 0 5 0; +#X restore 572 761 pd liftDiFun; +#X obj 748 693 r~ \$0-myFreq; +#X obj 775 713 r \$0-thisPan; +#X obj 802 733 r \$0-TuGain; +#X obj 721 673 r~ \$0-liftDiGain; +#N canvas 930 320 464 503 liftDiFunNo 0; +#X obj 124 84 inlet~; +#X obj 120 198 inlet~; +#X obj 161 105 inlet; +#X obj 132 281 inlet; +#X obj 105 282 *~; +#X obj 105 347 throw~ l; +#X obj 132 324 throw~ r; +#X obj 105 303 fcpan; +#X obj 105 65 noise~; +#X obj 120 262 *~ 1; +#X obj 141 241 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X obj 124 105 *~ 1; +#X obj 120 220 *~ 1; +#X text 49 393 Creates the shaped noise sound equivalent to a narrow +band signal at the lift dipole fundamental frequency.; +#X floatatom 149 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X connect 0 0 13 0; +#X connect 1 0 14 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 16 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 17 0; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 14 0 9 0; +#X connect 17 0 4 0; +#X restore 721 754 pd liftDiFunNo; +#X text 910 698 Patches that generate all the sounds associated with +the drag dipole; +#X text 564 782 Patches that generate all the sounds associated with +the lift dipole; +#X obj 457 72 s \$0-azim; +#X obj 532 72 s \$0-elev; +#X obj 355 252 r \$0-elev; +#X obj 363 273 r \$0-azim; +#X obj 363 496 r \$0-elev; +#X obj 377 514 r \$0-azim; +#N canvas 1021 287 444 428 corrLen 0; +#X obj 103 71 inlet~; +#X obj 88 200 outlet~; +#X obj 88 143 *~; +#X obj 124 93 sig~ -0.245; +#X obj 103 119 pow~; +#X text 234 22 Y = 10^b . X^m; +#X text 235 40 b = 1.536; +#X text 235 56 m = -0.245; +#X text 80 297 Equation of line derived from Norberg 2001; +#X obj 88 169 max~ 1; +#X obj 88 46 sig~ 44.67; +#X connect 0 0 4 0; +#X connect 2 0 9 0; +#X connect 3 0 4 1; +#X connect 4 0 2 1; +#X connect 9 0 1 0; +#X connect 10 0 2 0; +#X restore 1151 76 pd corrLen Calc; +#X obj 1151 53 r~ \$0-myRey; +#X obj 1151 100 s~ \$0-myCor; +#X obj 337 212 r~ \$0-myCor; +#X obj 1100 295 r \$0-contFreq; +#X obj 1065 323 hip~; +#X obj 310 414 r~ \$0-myCor; +#X obj 100 558 outlet; +#X obj 124 203 r myMet; +#X obj 117 355 r myMet; +#X obj 144 509 r myMet; +#X obj 1113 593 r~ \$0-myFreq; +#X obj 1086 573 r~ \$0-dragDiGain; +#X obj 1140 613 r \$0-thisPan; +#X obj 964 613 r \$0-thisPan; +#X obj 918 570 r~ \$0-myFreq; +#X obj 941 592 r~ \$0-dragDiGain; +#X obj 987 633 r \$0-TuGain; +#X obj 1167 633 r \$0-TuGain; +#N canvas 795 179 491 522 dragDi1st 0; +#X obj 165 125 osc~; +#X obj 165 298 throw~ l; +#X obj 192 275 throw~ r; +#X obj 165 232 *~; +#X obj 165 253 fcpan; +#X obj 180 209 *~ 1; +#X obj 165 75 inlet~; +#X obj 180 145 inlet~; +#X obj 192 232 inlet; +#X obj 201 187 inlet; +#X floatatom 212 256 5 0 0 0 - - -; +#X obj 165 100 *~ 4; +#X text 60 369 Generates the pure tone associated with the drag dipole +1st harmonic frequency.; +#X obj 180 168 *~ 0.125; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 4 1 2 0; +#X connect 5 0 3 1; +#X connect 6 0 11 0; +#X connect 7 0 13 0; +#X connect 8 0 4 1; +#X connect 8 0 10 0; +#X connect 9 0 5 1; +#X connect 11 0 0 0; +#X connect 13 0 5 0; +#X restore 918 656 pd dragDi1st; +#N canvas 135 196 464 503 dragDi1stNo 0; +#X obj 124 85 inlet~; +#X obj 120 196 inlet~; +#X obj 161 105 inlet; +#X obj 132 282 inlet; +#X obj 105 283 *~; +#X obj 105 348 throw~ l; +#X obj 132 325 throw~ r; +#X obj 105 304 fcpan; +#X obj 105 65 noise~; +#X obj 120 263 *~ 1; +#X obj 141 242 r \$0-TuGain; +#X obj 105 151 vcf~ 10; +#N canvas 607 346 247 157 QV 0; +#X obj 90 25 inlet; +#X obj 90 47 * 5; +#X obj 90 70 + 5; +#X obj 90 93 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 144 128 pd QV; +#X floatatom 153 303 5 0 0 0 - - -; +#X obj 105 173 *~ 0.5; +#X obj 124 105 *~ 4; +#X text 49 394 Creates the shaped noise sound equivalent to a narrow +band signal at the drag dipole 1st harmonic frequency.; +#X obj 120 219 *~ 0.0018; +#X connect 0 0 15 0; +#X connect 1 0 17 0; +#X connect 2 0 12 0; +#X connect 3 0 7 1; +#X connect 3 0 13 0; +#X connect 4 0 7 0; +#X connect 7 0 5 0; +#X connect 7 1 6 0; +#X connect 8 0 11 0; +#X connect 9 0 4 1; +#X connect 10 0 9 1; +#X connect 11 0 14 0; +#X connect 12 0 11 2; +#X connect 14 0 4 0; +#X connect 15 0 11 1; +#X connect 17 0 9 0; +#X restore 1086 654 pd dragDi1stNo; +#X obj 1291 649 snapshot~; +#X obj 1290 623 r myMet; +#X floatatom 1292 679 0 0 0 0 - - -; +#X obj 699 309 newStrou; +#X obj 110 52 inlet; +#X obj 110 73 sig~; +#X obj 129 663 snapshot~; +#X floatatom 129 689 0 0 0 0 - - -; +#X obj 87 691 outlet; +#X obj 129 638 r myMet; +#X obj 32 638 r~ \$0-windSpeed; +#X text 114 711 Wind Speed; +#X connect 1 0 3 0; +#X connect 2 0 24 0; +#X connect 2 0 178 0; +#X connect 3 0 2 0; +#X connect 4 0 18 0; +#X connect 6 0 4 0; +#X connect 7 0 12 0; +#X connect 7 0 56 0; +#X connect 10 0 39 0; +#X connect 10 0 61 0; +#X connect 13 0 3 1; +#X connect 14 0 4 1; +#X connect 16 0 6 1; +#X connect 17 0 1 0; +#X connect 19 0 114 1; +#X connect 21 0 22 0; +#X connect 21 0 93 0; +#X connect 23 0 21 0; +#X connect 26 0 28 0; +#X connect 28 0 29 0; +#X connect 29 0 27 0; +#X connect 29 0 70 0; +#X connect 33 0 103 1; +#X connect 34 0 35 0; +#X connect 34 0 161 0; +#X connect 36 0 103 4; +#X connect 37 0 40 0; +#X connect 37 0 148 0; +#X connect 38 0 41 0; +#X connect 38 0 149 0; +#X connect 43 0 42 0; +#X connect 43 0 5 0; +#X connect 43 0 72 0; +#X connect 44 0 43 0; +#X connect 53 0 54 0; +#X connect 53 0 60 0; +#X connect 59 0 57 0; +#X connect 59 1 58 0; +#X connect 64 0 103 0; +#X connect 65 0 103 3; +#X connect 66 0 103 5; +#X connect 68 0 114 0; +#X connect 71 0 89 1; +#X connect 73 0 34 0; +#X connect 74 0 20 0; +#X connect 75 0 59 1; +#X connect 76 0 79 0; +#X connect 76 0 82 0; +#X connect 77 0 80 0; +#X connect 77 0 83 0; +#X connect 78 0 81 0; +#X connect 78 0 84 0; +#X connect 89 0 159 0; +#X connect 90 0 114 2; +#X connect 91 0 89 0; +#X connect 92 0 91 0; +#X connect 94 0 99 1; +#X connect 95 0 99 3; +#X connect 96 0 99 0; +#X connect 97 0 99 2; +#X connect 98 0 99 5; +#X connect 99 0 63 0; +#X connect 99 1 62 0; +#X connect 100 0 115 2; +#X connect 101 0 115 0; +#X connect 102 0 115 1; +#X connect 103 0 67 0; +#X connect 105 0 106 0; +#X connect 105 0 107 0; +#X connect 108 0 110 0; +#X connect 108 0 112 0; +#X connect 109 0 108 0; +#X connect 111 0 115 3; +#X connect 113 0 114 3; +#X connect 116 0 120 1; +#X connect 117 0 120 2; +#X connect 118 0 120 3; +#X connect 119 0 120 0; +#X connect 121 0 124 2; +#X connect 122 0 124 0; +#X connect 123 0 124 3; +#X connect 125 0 124 1; +#X connect 126 0 130 2; +#X connect 127 0 130 0; +#X connect 128 0 130 3; +#X connect 129 0 130 1; +#X connect 131 0 135 1; +#X connect 132 0 135 2; +#X connect 133 0 135 3; +#X connect 134 0 135 0; +#X connect 136 0 140 2; +#X connect 137 0 140 0; +#X connect 138 0 140 3; +#X connect 139 0 140 1; +#X connect 141 0 145 1; +#X connect 142 0 145 2; +#X connect 143 0 145 3; +#X connect 144 0 145 0; +#X connect 150 0 99 6; +#X connect 151 0 99 7; +#X connect 152 0 103 6; +#X connect 153 0 103 7; +#X connect 154 0 156 0; +#X connect 155 0 154 0; +#X connect 157 0 99 4; +#X connect 158 0 159 1; +#X connect 159 0 20 1; +#X connect 160 0 103 2; +#X connect 162 0 21 0; +#X connect 163 0 43 0; +#X connect 164 0 34 0; +#X connect 165 0 174 1; +#X connect 166 0 174 0; +#X connect 167 0 174 2; +#X connect 168 0 173 2; +#X connect 169 0 173 0; +#X connect 170 0 173 1; +#X connect 171 0 173 3; +#X connect 172 0 174 3; +#X connect 175 0 177 0; +#X connect 176 0 175 0; +#X connect 178 0 69 0; +#X connect 178 0 6 0; +#X connect 179 0 180 0; +#X connect 180 0 15 0; +#X connect 181 0 182 0; +#X connect 181 0 183 0; +#X connect 184 0 181 0; +#X connect 185 0 181 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/newStrou.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,162 @@ +#N canvas 74 48 718 433 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 385 322 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 372 240 Averaged; +#X obj 794 201 spigot; +#X obj 840 174 spigot; +#X obj 885 149 < 1e+06; +#X text 784 251 Critical - Derived by author; +#X text 254 359 St* (I) coefficient; +#X text 462 361 m (J) coefficient; +#X msg 794 226 0.576 -175.957; +#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 21 0 50 0; +#X connect 21 0 49 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 38 0 21 0; +#X connect 38 0 51 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 connect 49 0 55 0; +#X connect 50 0 49 0; +#X connect 51 0 50 1; +#X connect 55 0 7 0; +#X restore 273 83 pd eqnSelect; +#X obj 203 85 sqrt~; +#X obj 342 119 /~; +#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 obj 99 248 snapshot~; +#X obj 99 223 metro 100; +#X obj 99 201 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 99 274 10 0 0 0 - - -; +#X obj 99 175 loadbang; +#X obj 273 166 +~; +#X connect 0 0 4 0; +#X connect 0 0 5 0; +#X connect 4 0 16 0; +#X connect 4 1 6 0; +#X connect 5 0 6 1; +#X connect 6 0 16 1; +#X connect 11 0 14 0; +#X connect 12 0 11 0; +#X connect 13 0 12 0; +#X connect 15 0 13 0; +#X connect 16 0 1 0; +#X connect 16 0 11 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/newSwordAuto.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,845 @@ +#N canvas 71 23 1283 702 10; +#X obj 586 149 freqCalcCyl3No_D2Mach; +#X obj 315 22 loadbang; +#X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 315 85 s myMet; +#X msg -57 28 1; +#X obj -259 60 s NoOfSources; +#X obj -221 455 s topSpeed; +#X obj -273 429 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom -276 455 8 0 0 0 - - -; +#X text -24 27 Blade Length; +#X text -25 93 Arm Length; +#X text -231 37 Number of Sources; +#X text -165 433 Top Speed; +#X obj 21 248 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 7700 1; +#X floatatom 18 280 8 0 0 0 - - -; +#X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8 +0 10 -262144 -1 -1 0 1; +#X floatatom -282 546 8 0 0 0 - - -; +#X floatatom -283 629 8 0 0 0 - - -; +#X obj -225 628 s tipThick; +#X text -165 518 Hilt Thickness; +#X text -173 602 Tip Thickness; +#X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 143 126 s GO; +#X obj 143 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 143 46 metro 200; +#X obj 197 22 hsl 100 20 500 30 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1 +-1; +#X obj 83 126 s setUp; +#X obj -329 403 r setUp; +#X obj -40 228 r setUp; +#X obj -333 493 r setUp; +#X obj -334 581 r setUp; +#X obj -57 4 loadbang; +#X obj -59 73 loadbang; +#X obj -259 15 loadbang; +#X obj -276 403 r thisTS; +#X obj -282 493 r thisHT; +#X obj -283 581 r thisTT; +#X obj -312 17 r setUp; +#X obj -108 71 r setUp; +#X obj -109 6 r setUp; +#X obj 83 21 loadbang; +#X obj 83 45 delay 13; +#X obj 19 326 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 16 358 8 0 0 0 - - -; +#X obj -42 306 r setUp; +#X obj 14 439 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7700 1; +#X floatatom 11 471 8 0 0 0 - - -; +#X obj -47 419 r setUp; +#X obj 12 517 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 9 549 8 0 0 0 - - -; +#X obj -49 497 r setUp; +#X obj 66 470 s presweepElev; +#X obj 160 492 s postsweepElev; +#X text 125 440 pre-sweep elevation; +#X text 123 517 post-sweep elevation; +#X text 132 249 pre-sweep azimuth; +#X text 130 327 post-sweep azimuth; +#X obj 73 279 s presweepAzim; +#X obj 166 301 s postsweepAzim; +#X obj -59 115 s start_armLength; +#X msg -59 94 0.35; +#X msg 87 225 80; +#X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5346 1; +#X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5247 1; +#X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5346 1; +#X obj -277 162 s Xobs; +#X obj -278 253 s Yobs; +#X obj -278 351 s Zobs; +#X floatatom -317 162 5 0 0 0 - - -; +#X floatatom -317 254 5 0 0 0 - - -; +#X floatatom -318 346 5 0 0 0 - - -; +#X msg -269 115 0; +#X msg -269 298 0; +#X msg -271 209 0.7; +#X obj -322 113 r setUp; +#X obj -327 210 r setUp; +#X obj -331 301 r setUp; +#X msg -219 208 0; +#X msg 136 221 90; +#X msg -227 298 4; +#X msg -230 116 4; +#X msg 79 416 0; +#X msg 89 307 -60; +#X msg 126 416 50; +#X msg 79 494 -30; +#X msg -170 207 1.034; +#X msg -127 207 2.034; +#X msg -81 209 3; +#X msg -208 400 0.5; +#X msg -188 111 0.2; +#X msg -195 297 0.2; +#X obj 166 277 * -1; +#X obj 160 470 * -1; +#X msg -204 491 0.02; +#X msg -210 575 0.008; +#X msg -141 404 35; +#X obj -277 94 r thisXobs; +#X obj -278 186 r thisYobs; +#X obj -278 279 r thisZobs; +#X obj 18 227 r thisPrA; +#X obj 16 305 r thisPoA; +#X obj 11 418 r thisPrE; +#X obj 9 496 r thisPoE; +#X msg 175 222 10; +#X msg 206 221 0; +#X msg 109 492 0; +#X obj 384 23 sweepTime; +#X obj 384 45 centreAngles; +#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 384 67 pd thickCalc; +#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 0 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 80 454 0 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 368 591 0 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 1022 579 0 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 383 87 pd maxCircCalc; +#X obj 384 2 sourceSpeed; +#X text 836 -13 Wind Speed; +#X text 837 5 Diameter; +#X text 839 25 Length; +#X text 838 48 Distance; +#X text 838 72 Azimuth; +#X text 838 93 Elevation; +#X text 837 114 Pan; +#X text 836 132 X Rot; +#X text 838 154 Y Rot; +#X text 839 174 Z Rot; +#X text 836 193 TurbInt; +#N canvas 116 93 786 420 motion 0; +#X obj 60 202 s bladeLen; +#X obj 165 202 s hiltThick; +#X obj 299 121 route motion; +#X obj 299 143 route x y; +#X obj 299 100 cursor; +#X obj 299 82 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 299 61 loadbang; +#X obj 90 40 key; +#X obj 90 64 select 113 97 111 112; +#X obj 75 131 +; +#X obj 61 97 f; +#X msg 90 96 1; +#X floatatom 21 202 5 0 0 0 - - -; +#X msg 120 95 -1; +#X obj 165 130 +; +#X obj 151 96 f; +#X floatatom 129 202 5 0 0 0 - - -; +#X msg 180 95 -1; +#X msg 210 94 1; +#X obj 165 152 / 1000; +#X obj 165 175 max; +#X obj 209 152 r tipThick; +#X floatatom 362 309 0 0 0 0 - - -; +#X obj 75 151 / 100; +#X obj 75 174 max 0; +#X text 496 48 Q - Increase blade length; +#X text 497 63 A - Decrease blade length; +#X text 498 78 P - Increase blade thickness; +#X text 498 92 O - Decrease blade thickness; +#X obj 299 296 s azimuth; +#X obj 423 311 s elevation; +#X obj 299 203 - 1; +#X obj 299 226 * 3.1415; +#X floatatom 242 296 0 0 0 0 - - -; +#X obj 423 220 - 1; +#X obj 423 243 * 3.1415; +#X obj 423 198 * -1; +#X obj 423 176 / 899; +#X obj 423 267 cos; +#X obj 423 289 * -90; +#X obj 299 180 / 1439; +#X obj 299 250 cos; +#X obj 299 272 * 180; +#X connect 2 0 3 0; +#X connect 3 0 40 0; +#X connect 3 1 37 0; +#X connect 4 0 2 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 7 0 8 0; +#X connect 8 0 11 0; +#X connect 8 0 10 0; +#X connect 8 1 13 0; +#X connect 8 1 10 0; +#X connect 8 2 15 0; +#X connect 8 2 17 0; +#X connect 8 3 15 0; +#X connect 8 3 18 0; +#X connect 9 0 10 1; +#X connect 9 0 23 0; +#X connect 10 0 9 0; +#X connect 11 0 9 1; +#X connect 13 0 9 1; +#X connect 14 0 15 1; +#X connect 14 0 19 0; +#X connect 15 0 14 0; +#X connect 17 0 14 1; +#X connect 18 0 14 1; +#X connect 19 0 20 0; +#X connect 20 0 1 0; +#X connect 20 0 16 0; +#X connect 21 0 20 1; +#X connect 23 0 24 0; +#X connect 24 0 0 0; +#X connect 24 0 12 0; +#X connect 31 0 32 0; +#X connect 32 0 41 0; +#X connect 34 0 35 0; +#X connect 35 0 38 0; +#X connect 36 0 34 0; +#X connect 37 0 36 0; +#X connect 38 0 39 0; +#X connect 39 0 30 0; +#X connect 39 0 22 0; +#X connect 40 0 31 0; +#X connect 41 0 42 0; +#X connect 42 0 33 0; +#X connect 42 0 29 0; +#X restore 383 132 pd motion; +#N canvas 464 138 714 620 speedCalc 0; +#X obj -11 22 r azimuth; +#X obj 134 18 r elevation; +#X floatatom 218 40 5 0 0 0 - - -; +#X obj 250 19 r bladeLen; +#X obj 466 18 r hiltThick; +#X floatatom 161 41 5 0 0 0 - - -; +#X floatatom -80 46 0 0 0 0 - - -; +#X floatatom 484 42 5 0 0 0 - - -; +#X obj 543 19 r tipThick; +#X floatatom 556 43 5 0 0 0 - - -; +#X obj 265 38 r start_armLength; +#X floatatom 285 62 5 0 0 0 - - -; +#X obj 250 63 +; +#X floatatom 250 89 5 0 0 0 - - -; +#X obj 312 108 s totLength; +#X obj -11 118 -; +#X obj 4 45 t f b; +#X floatatom -56 164 5 0 0 0 - - -; +#X obj 31 68 delay 20; +#X obj -11 141 abs; +#X obj 136 144 -; +#X obj 151 71 t f b; +#X floatatom 91 190 5 0 0 0 - - -; +#X obj 178 94 delay 20; +#X obj 136 167 abs; +#X obj -11 167 *; +#X obj 137 192 *; +#X obj 10 218 +; +#X obj 16 261 sqrt; +#X floatatom -13 294 0 0 0 0 - - -; +#X obj 19 297 outlet; +#X obj 27 189 t f b; +#X obj 58 231 delay 10; +#X connect 0 0 6 0; +#X connect 0 0 15 0; +#X connect 0 0 16 0; +#X connect 1 0 5 0; +#X connect 1 0 20 0; +#X connect 1 0 21 0; +#X connect 3 0 2 0; +#X connect 3 0 12 0; +#X connect 4 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 10 0 12 1; +#X connect 12 0 13 0; +#X connect 12 0 14 0; +#X connect 15 0 19 0; +#X connect 16 0 15 1; +#X connect 16 1 18 0; +#X connect 18 0 15 0; +#X connect 19 0 17 0; +#X connect 19 0 25 0; +#X connect 19 0 25 1; +#X connect 20 0 24 0; +#X connect 21 0 20 1; +#X connect 21 1 23 0; +#X connect 23 0 20 0; +#X connect 24 0 22 0; +#X connect 24 0 26 0; +#X connect 24 0 26 1; +#X connect 25 0 27 0; +#X connect 26 0 31 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 28 0 30 0; +#X connect 31 0 27 1; +#X connect 31 1 27 0; +#X connect 31 1 32 0; +#X connect 32 0 27 0; +#X restore 384 155 pd speedCalc; +#X obj 326 541 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 389 541 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text 386 450 Gain; +#X obj 334 421 loadbang; +#N canvas 555 179 313 396 opLevels 0; +#X obj 74 322 dac~; +#X obj 30 70 catch~ l; +#X obj 128 70 catch~ r; +#X obj 129 104 *~ 0.45; +#X obj 30 104 *~ 0.45; +#X obj 30 210 prvu~; +#X obj 129 211 prvu~; +#X obj 93 33 inlet; +#X obj 30 239 outlet; +#X obj 129 239 outlet; +#X obj 74 143 /~ 15; +#X obj 95 165 /~ 15; +#X obj 196 132 inlet; +#X obj 93 68 / 100; +#X obj 74 261 hip~ 100; +#X obj 95 280 hip~ 100; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 3 0 11 0; +#X connect 4 0 5 0; +#X connect 4 0 10 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 13 0; +#X connect 10 0 14 0; +#X connect 11 0 15 0; +#X connect 12 0 10 1; +#X connect 12 0 11 1; +#X connect 13 0 3 1; +#X connect 13 0 4 1; +#X connect 14 0 0 0; +#X connect 15 0 0 1; +#X restore 325 498 pd opLevels; +#X msg 334 444 5; +#X obj 328 469 hsl 100 25 0.1 1e+06 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2403 1; +#X obj 445 472 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 442 426 loadbang; +#X text 507 451 No Of Sources; +#X obj 325 398 r GAIN; +#X msg 442 449 1; +#X floatatom 268 499 8 0 0 0 - - -; +#N canvas 916 347 450 300 PlayCont 0; +#X obj 206 41 hid; +#X msg 206 13 print; +#X obj 179 14 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 +1; +#X obj 206 65 route abs; +#X obj 206 88 route abs_x abs_y; +#X floatatom 8 133 5 0 0 0 - - -; +#X obj 191 185 -; +#X obj 173 137 t f b; +#X floatatom 165 236 5 0 0 0 - - -; +#X obj 191 207 abs; +#X floatatom 141 186 5 0 0 0 - - -; +#X obj 200 159 delay 20; +#X obj 289 189 -; +#X obj 271 141 t f b; +#X floatatom 263 240 5 0 0 0 - - -; +#X obj 289 211 abs; +#X floatatom 239 190 5 0 0 0 - - -; +#X obj 298 163 delay 20; +#X msg 251 13 open 4; +#X connect 0 0 3 0; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 0 7 0; +#X connect 4 0 6 1; +#X connect 4 1 13 0; +#X connect 4 1 12 1; +#X connect 6 0 9 0; +#X connect 7 0 10 0; +#X connect 7 0 6 0; +#X connect 7 1 11 0; +#X connect 9 0 8 0; +#X connect 11 0 6 0; +#X connect 12 0 15 0; +#X connect 13 0 16 0; +#X connect 13 0 12 0; +#X connect 13 1 17 0; +#X connect 15 0 14 0; +#X connect 17 0 12 0; +#X connect 18 0 0 0; +#X restore 383 178 pd PlayCont; +#X msg 715 113 0; +#X msg 685 95 0.5; +#X obj 708 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X floatatom 632 262 0 0 0 0 - - -; +#X msg 606 118 4; +#X obj 534 45 r deltaThick; +#N canvas 112 23 1347 721 Distance 1; +#X obj 51 47 r Xobs; +#X obj 103 47 r Yobs; +#X obj 152 47 r Zobs; +#X obj 51 73 *; +#X obj 103 71 *; +#X obj 152 71 *; +#X obj 88 99 +; +#X obj 88 131 +; +#X obj 88 158 sqrt; +#X floatatom 45 180 0 0 0 0 - - -; +#X text 26 23 Distance between observer and centre of arc; +#X obj 378 24 r azimuth; +#X obj 638 11 r elevation; +#X obj 378 105 cos; +#X obj 378 79 * 0.01745; +#X obj 638 50 - 90; +#X floatatom 558 182 5 0 0 0 - - -; +#X obj 638 71 * -1; +#X obj 638 120 cos; +#X obj 638 94 * 0.01745; +#X obj 638 164 *; +#X obj 653 141 r totLength; +#X text 693 168 z coordinate of tip; +#X obj 393 131 sin; +#X floatatom 408 230 5 0 0 0 - - -; +#X obj 393 176 *; +#X obj 408 153 r totLength; +#X obj 378 204 *; +#X obj 486 34 r azimuth; +#X obj 486 75 * 0.01745; +#X obj 501 127 sin; +#X floatatom 516 219 5 0 0 0 - - -; +#X obj 501 172 *; +#X obj 516 149 r totLength; +#X obj 486 200 *; +#X obj 486 101 sin; +#X text 465 17 x coordinate of tip; +#X text 248 153 y coordinate of tip; +#X obj 556 200 r Zobs; +#X obj 327 293 *; +#X obj 459 288 *; +#X obj 583 263 *; +#X obj 444 318 +; +#X obj 444 350 +; +#X obj 444 377 sqrt; +#X floatatom 401 399 0 0 0 0 - - -; +#X obj 327 264 -; +#X obj 342 241 t f b; +#X obj 459 264 -; +#X obj 474 241 t f b; +#X obj 583 239 -; +#X obj 598 216 t f b; +#X obj 355 397 outlet; +#X obj 623 347 r Zobs; +#X obj 623 393 -; +#X obj 638 370 t f b; +#X floatatom 664 416 5 0 0 0 - - -; +#X obj 623 419 /; +#X obj 623 444 atan; +#X obj 624 471 * 57.296; +#X floatatom 583 497 5 0 0 0 - - -; +#X obj 624 496 outlet; +#X obj 977 73 r elevation; +#X obj 884 74 r azimuth; +#X obj 1004 170 -; +#X obj 977 96 t f f; +#X obj 1004 119 t f b; +#X obj 1031 141 delay 25; +#X obj 911 171 -; +#X obj 884 97 t f f; +#X obj 911 120 t f b; +#X obj 938 142 delay 25; +#X obj 911 194 *; +#X obj 1004 192 *; +#X obj 989 216 +; +#X obj 989 239 sqrt; +#X floatatom 926 261 0 0 0 0 - - -; +#X obj 989 261 outlet; +#X obj 327 209 r Yobs; +#X obj 440 199 r Xobs; +#X msg 643 29 40; +#X msg 459 56 100; +#X connect 0 0 3 0; +#X connect 0 0 3 1; +#X connect 1 0 4 0; +#X connect 1 0 4 1; +#X connect 2 0 5 0; +#X connect 2 0 5 1; +#X connect 3 0 6 0; +#X connect 4 0 6 1; +#X connect 5 0 7 1; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 13 0 27 0; +#X connect 14 0 13 0; +#X connect 15 0 17 0; +#X connect 17 0 19 0; +#X connect 18 0 20 0; +#X connect 19 0 18 0; +#X connect 19 0 23 0; +#X connect 19 0 30 0; +#X connect 20 0 16 0; +#X connect 20 0 54 1; +#X connect 20 0 51 0; +#X connect 21 0 20 1; +#X connect 23 0 25 0; +#X connect 25 0 27 1; +#X connect 26 0 25 1; +#X connect 27 0 24 0; +#X connect 27 0 47 0; +#X connect 29 0 35 0; +#X connect 30 0 32 0; +#X connect 32 0 34 1; +#X connect 33 0 32 1; +#X connect 34 0 31 0; +#X connect 34 0 49 0; +#X connect 35 0 34 0; +#X connect 38 0 50 0; +#X connect 39 0 42 0; +#X connect 40 0 42 1; +#X connect 41 0 43 1; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 44 0 52 0; +#X connect 44 0 57 1; +#X connect 46 0 39 0; +#X connect 46 0 39 1; +#X connect 47 0 46 1; +#X connect 47 1 46 0; +#X connect 48 0 40 0; +#X connect 48 0 40 1; +#X connect 49 0 48 1; +#X connect 49 1 48 0; +#X connect 50 0 41 0; +#X connect 50 0 41 1; +#X connect 51 0 50 1; +#X connect 51 1 50 0; +#X connect 53 0 54 0; +#X connect 54 0 56 0; +#X connect 54 0 57 0; +#X connect 55 0 54 1; +#X connect 55 1 54 0; +#X connect 57 0 58 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 59 0 61 0; +#X connect 62 0 65 0; +#X connect 63 0 69 0; +#X connect 64 0 73 0; +#X connect 64 0 73 1; +#X connect 65 0 64 1; +#X connect 65 1 66 0; +#X connect 66 0 64 0; +#X connect 66 1 67 0; +#X connect 67 0 64 0; +#X connect 67 0 74 0; +#X connect 68 0 72 0; +#X connect 68 0 72 1; +#X connect 69 0 68 1; +#X connect 69 1 70 0; +#X connect 70 0 68 0; +#X connect 70 1 71 0; +#X connect 71 0 68 0; +#X connect 71 0 74 0; +#X connect 72 0 74 0; +#X connect 73 0 74 1; +#X connect 74 0 75 0; +#X connect 75 0 76 0; +#X connect 75 0 77 0; +#X connect 78 0 46 0; +#X connect 79 0 48 0; +#X connect 80 0 15 0; +#X connect 81 0 14 0; +#X connect 81 0 29 0; +#X restore 383 198 pd Distance; +#X obj -227 545 s hiltThick; +#X obj -58 48 s bladeLen; +#X msg -259 37 1; +#X obj 315 63 metro 25; +#X connect 1 0 2 0; +#X connect 2 0 150 0; +#X connect 4 0 148 0; +#X connect 7 0 6 0; +#X connect 7 0 8 0; +#X connect 13 0 14 0; +#X connect 13 0 59 0; +#X connect 13 0 93 0; +#X connect 15 0 17 0; +#X connect 15 0 147 0; +#X connect 16 0 18 0; +#X connect 16 0 19 0; +#X connect 22 0 23 0; +#X connect 24 0 25 0; +#X connect 25 0 22 0; +#X connect 26 0 25 1; +#X connect 27 0 28 0; +#X connect 29 0 7 0; +#X connect 30 0 13 0; +#X connect 31 0 15 0; +#X connect 32 0 16 0; +#X connect 33 0 4 0; +#X connect 34 0 62 0; +#X connect 35 0 149 0; +#X connect 36 0 7 0; +#X connect 37 0 15 0; +#X connect 38 0 16 0; +#X connect 39 0 149 0; +#X connect 40 0 62 0; +#X connect 41 0 4 0; +#X connect 42 0 43 0; +#X connect 43 0 27 0; +#X connect 44 0 45 0; +#X connect 46 0 44 0; +#X connect 47 0 48 0; +#X connect 47 0 53 0; +#X connect 47 0 94 0; +#X connect 49 0 47 0; +#X connect 50 0 51 0; +#X connect 52 0 50 0; +#X connect 62 0 61 0; +#X connect 63 0 13 0; +#X connect 64 0 67 0; +#X connect 64 0 70 0; +#X connect 65 0 68 0; +#X connect 65 0 71 0; +#X connect 66 0 69 0; +#X connect 66 0 72 0; +#X connect 73 0 64 0; +#X connect 74 0 66 0; +#X connect 75 0 65 0; +#X connect 76 0 64 0; +#X connect 77 0 65 0; +#X connect 78 0 66 0; +#X connect 79 0 65 0; +#X connect 80 0 13 0; +#X connect 81 0 66 0; +#X connect 82 0 64 0; +#X connect 83 0 47 0; +#X connect 84 0 44 0; +#X connect 85 0 47 0; +#X connect 86 0 50 0; +#X connect 87 0 65 0; +#X connect 88 0 65 0; +#X connect 89 0 65 0; +#X connect 90 0 7 0; +#X connect 91 0 64 0; +#X connect 92 0 66 0; +#X connect 93 0 60 0; +#X connect 94 0 54 0; +#X connect 95 0 15 0; +#X connect 96 0 16 0; +#X connect 97 0 7 0; +#X connect 98 0 64 0; +#X connect 99 0 65 0; +#X connect 100 0 66 0; +#X connect 101 0 13 0; +#X connect 103 0 47 0; +#X connect 104 0 50 0; +#X connect 105 0 13 0; +#X connect 106 0 13 0; +#X connect 107 0 50 0; +#X connect 129 0 131 0; +#X connect 130 0 126 0; +#X connect 130 1 127 0; +#X connect 131 0 132 0; +#X connect 132 0 130 0; +#X connect 132 0 138 0; +#X connect 133 0 130 1; +#X connect 134 0 137 0; +#X connect 136 0 132 0; +#X connect 137 0 133 0; +#X connect 140 0 0 10; +#X connect 140 0 0 9; +#X connect 140 0 0 8; +#X connect 140 0 0 7; +#X connect 141 0 0 6; +#X connect 142 0 140 0; +#X connect 142 0 141 0; +#X connect 142 0 144 0; +#X connect 144 0 0 2; +#X connect 145 0 0 1; +#X connect 146 0 0 3; +#X connect 146 1 0 5; +#X connect 146 2 0 0; +#X connect 146 2 143 0; +#X connect 149 0 5 0; +#X connect 150 0 3 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/sourceSpeed.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,152 @@ +#N canvas 140 48 1008 758 10; +#X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 +-1 -1; +#X obj -219 -68 s GO; +#X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -279 -68 s setUp; +#X obj -98 420 line~; +#X text -89 -100 Start calculation with elevation = 0 \, arm length +is constant \, acceleration/deceleration is constant.; +#X obj -211 469 loadbang; +#X obj -211 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -211 508 metro 10; +#X obj -211 530 snapshot~; +#X floatatom -211 550 5 0 0 0 - - -; +#X obj -130 566 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X msg -268 354 \$1 \$2; +#X obj -268 329 pack; +#X msg -98 386 0; +#X obj -269 306 f; +#X obj -269 261 r GO; +#X msg 41 388 0 \$1; +#X obj 40 311 t f b; +#X obj 41 339 delay; +#X obj -98 365 r setUp; +#X text -115 346 Start at 0 speed; +#X text 83 399 \$1 = time to reach speed of 0; +#X obj 55 264 r preswingTime; +#X text -7 224 Trigger once full speed; +#X obj -98 453 outlet~; +#X obj 233 -103 inlet; +#X obj 327 -105 inlet; +#X obj 233 -80 s \$0_thisGroup; +#X obj 327 -81 s \$0_thisSource; +#X text -331 385 \$1 = source speed; +#X text -331 401 \$2 = time to reach source speed; +#X obj -243 305 r preswingTime; +#X obj 236 16 r \$0_thisGroup; +#X obj 251 36 r \$0_thisSource; +#X obj 236 58 +; +#X floatatom 190 85 5 0 0 0 - - -; +#X obj 236 84 s \$0_mySourceNo; +#X obj -239 -39 r \$0_mySourceNo; +#X obj -224 -19 r deltaPreCirc; +#X obj -239 2 *; +#X obj -239 43 +; +#X obj -224 22 r minPreCirc; +#X floatatom -302 64 5 0 0 0 - - -; +#X obj -224 64 r preswingTime; +#X obj -239 107 /; +#X obj -224 85 * 0.001; +#X obj -239 134 * 2; +#X text -196 114 Average Speed; +#X text -199 138 Top Speed for this source; +#X floatatom -292 160 5 0 0 0 - - -; +#X obj -239 161 s \$0_myPreSourceSpeed; +#X obj -254 282 r \$0_myPreSourceSpeed; +#X obj 98 328 r postswingTime; +#X floatatom 130 351 5 0 0 0 - - -; +#X obj 40 244 r GO; +#X obj 40 286 f; +#X obj 41 366 f; +#X obj 436 7 r start_armLength; +#X obj 421 -15 r length; +#X obj 421 69 -; +#X obj 469 50 r NoOfSources; +#X obj 454 29 r \$0_mySourceNo; +#X obj 454 72 /; +#X obj 421 94 *; +#X floatatom 376 162 5 0 0 0 - - -; +#X obj 421 137 +; +#X obj 436 115 r start_armLength; +#X text 476 163 Distance from centre of arc; +#X obj 421 162 sig~; +#X obj 421 210 s~ \$0_srcCnt; +#X obj 457 331 r~ \$0_srcCnt; +#X text 453 373 Y; +#X text 465 374 X; +#X text 477 374 Z; +#X obj 457 360 thisPosition; +#X obj 419 529 outlet~; +#X obj 493 523 outlet~; +#X obj 468 402 thisAngle; +#X obj 586 532 outlet~; +#X connect 0 0 1 0; +#X connect 2 0 3 0; +#X connect 4 0 9 0; +#X connect 4 0 25 0; +#X connect 6 0 7 0; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 9 0 11 0; +#X connect 12 0 4 0; +#X connect 13 0 12 0; +#X connect 14 0 4 0; +#X connect 15 0 13 0; +#X connect 16 0 15 0; +#X connect 17 0 4 0; +#X connect 18 0 19 1; +#X connect 18 1 19 0; +#X connect 19 0 57 0; +#X connect 20 0 14 0; +#X connect 23 0 56 1; +#X connect 26 0 28 0; +#X connect 27 0 29 0; +#X connect 32 0 13 1; +#X connect 33 0 35 0; +#X connect 34 0 35 1; +#X connect 35 0 36 0; +#X connect 35 0 37 0; +#X connect 38 0 40 0; +#X connect 39 0 40 1; +#X connect 40 0 41 0; +#X connect 41 0 43 0; +#X connect 41 0 45 0; +#X connect 42 0 41 1; +#X connect 44 0 46 0; +#X connect 45 0 47 0; +#X connect 46 0 45 1; +#X connect 47 0 50 0; +#X connect 47 0 51 0; +#X connect 52 0 15 1; +#X connect 53 0 54 0; +#X connect 53 0 57 1; +#X connect 55 0 56 0; +#X connect 56 0 18 0; +#X connect 57 0 17 0; +#X connect 58 0 60 1; +#X connect 59 0 60 0; +#X connect 60 0 64 0; +#X connect 61 0 63 1; +#X connect 62 0 63 0; +#X connect 63 0 64 1; +#X connect 64 0 66 0; +#X connect 66 0 65 0; +#X connect 66 0 69 0; +#X connect 67 0 66 1; +#X connect 69 0 70 0; +#X connect 71 0 75 0; +#X connect 75 0 78 0; +#X connect 75 1 78 1; +#X connect 75 2 78 2; +#X connect 75 3 76 0; +#X connect 75 3 78 3; +#X connect 75 4 78 4; +#X connect 75 5 78 5; +#X connect 75 6 78 6; +#X connect 78 0 77 0; +#X connect 78 1 79 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/sweepTime.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,136 @@ +#N canvas 64 60 1299 777 10; +#X obj 658 -89 r presweepElev; +#X obj 751 -90 r postsweepElev; +#X obj 199 19 r presweepAzim; +#X floatatom 158 51 5 0 0 0 - - -; +#X floatatom 658 -65 5 0 0 0 - - -; +#X floatatom 751 -67 5 0 0 0 - - -; +#X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 198 -57 s GO; +#X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 138 -57 s setUp; +#X obj 852 -90 r start_armLength; +#X floatatom 852 -69 5 0 0 0 - - -; +#X obj 968 -90 r bladeLen; +#X floatatom 968 -67 5 0 0 0 - - -; +#X obj 214 86 r start_armLength; +#X obj 229 107 r bladeLen; +#X obj 214 131 +; +#X floatatom 232 151 5 0 0 0 - - -; +#X text 328 -89 Start calculation with elevation = 0 \, arm length +is constant \, acceleration/deceleration is constant.; +#X obj 199 64 * 6.28312; +#X obj 199 42 / 360; +#X floatatom 156 97 5 0 0 0 - - -; +#X obj 199 164 *; +#X floatatom 152 198 5 0 0 0 - - -; +#X obj 214 185 r topSpeed; +#X obj 214 210 / 2; +#X obj 199 293 /; +#X obj 199 317 * 1000; +#X floatatom 246 346 5 0 0 0 - - -; +#X floatatom 542 40 5 0 0 0 - - -; +#X obj 598 75 r start_armLength; +#X obj 613 96 r bladeLen; +#X obj 598 120 +; +#X floatatom 616 140 5 0 0 0 - - -; +#X obj 583 53 * 6.28312; +#X obj 583 31 / 360; +#X floatatom 540 86 5 0 0 0 - - -; +#X obj 583 153 *; +#X floatatom 536 187 5 0 0 0 - - -; +#X obj 598 174 r topSpeed; +#X obj 598 199 / 2; +#X obj 583 275 /; +#X obj 583 299 * 1000; +#X obj 583 -17 r postsweepAzim; +#X text 683 304 Time from 0 azimuth to; +#X text 686 319 stationary at post sweep; +#X text 637 199 Assuming constant acceleration; +#X floatatom 635 326 5 0 0 0 - - -; +#X obj 199 379 s preswingTime; +#X obj 583 358 s postswingTime; +#X text 249 211 Assuming constant acceleration; +#X text 25 240 Time from pre-sweep azimuth; +#X text 26 253 to centre at top speed; +#X text 8 186 Pre sweep Circumference; +#X text 396 167 Post sweep Circumference; +#X text 315 380 Acceleration time; +#X text 692 359 Decceleration time; +#X text 246 130 Full radius; +#X text 648 119 Full radius; +#X obj 1037 70 r preswingTime; +#X obj 1022 152 +; +#X obj 1009 253 delay; +#X obj 1007 200 t f b; +#X obj 1007 27 r GO; +#X obj 1007 175 f; +#X obj 1036 230 + 5; +#X obj 1022 48 r postswingTime; +#X obj 1009 276 s myEnd; +#X obj 1037 122 t f b; +#X floatatom 955 252 5 0 0 0 - - -; +#X obj 582 10 * -1; +#X obj 214 233 t f b; +#X obj 241 257 delay 9; +#X obj 598 222 t f b; +#X obj 625 246 delay 9; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 2 0 20 0; +#X connect 6 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 12 0 13 0; +#X connect 14 0 16 0; +#X connect 15 0 16 1; +#X connect 16 0 17 0; +#X connect 16 0 22 1; +#X connect 19 0 21 0; +#X connect 19 0 22 0; +#X connect 20 0 19 0; +#X connect 22 0 23 0; +#X connect 22 0 26 0; +#X connect 24 0 25 0; +#X connect 25 0 71 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 27 0 48 0; +#X connect 30 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 33 0; +#X connect 32 0 37 1; +#X connect 34 0 36 0; +#X connect 34 0 37 0; +#X connect 35 0 34 0; +#X connect 37 0 38 0; +#X connect 37 0 41 0; +#X connect 39 0 40 0; +#X connect 40 0 73 0; +#X connect 41 0 42 0; +#X connect 42 0 47 0; +#X connect 42 0 49 0; +#X connect 43 0 29 0; +#X connect 43 0 70 0; +#X connect 59 0 68 0; +#X connect 60 0 64 1; +#X connect 61 0 67 0; +#X connect 62 0 65 0; +#X connect 62 1 61 0; +#X connect 63 0 64 0; +#X connect 64 0 62 0; +#X connect 65 0 61 1; +#X connect 65 0 69 0; +#X connect 66 0 60 0; +#X connect 68 0 60 1; +#X connect 68 1 60 0; +#X connect 70 0 35 0; +#X connect 71 0 26 1; +#X connect 71 1 72 0; +#X connect 72 0 26 0; +#X connect 73 0 41 1; +#X connect 73 1 74 0; +#X connect 74 0 41 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/thisAngle.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,277 @@ +#N canvas 18 44 1440 726 10; +#X obj -19 -52 inlet~; +#X obj 58 -52 inlet~; +#X obj 134 -53 inlet~; +#X obj -19 -31 s~ \$0_Ydiff; +#X obj 58 -31 s~ \$0_Xdiff; +#X obj 134 -32 s~ \$0_Zdiff; +#X obj -130 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -130 -5 s GO; +#X obj -190 -58 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -190 -5 s setUp; +#X obj 230 -58 inlet~; +#X obj 230 -37 s~ \$0_scrObsDist; +#X obj 451 -74 inlet~; +#X obj 74 5 loadbang; +#X obj 74 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 74 44 metro 10; +#X obj 74 66 snapshot~; +#X floatatom 74 86 8 0 0 0 - - -; +#X obj 139 5 loadbang; +#X obj 139 26 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 139 44 metro 10; +#X obj 139 66 snapshot~; +#X floatatom 139 86 8 0 0 0 - - -; +#X obj 205 6 loadbang; +#X obj 205 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 205 45 metro 10; +#X obj 205 67 snapshot~; +#X floatatom 205 87 8 0 0 0 - - -; +#X obj 338 -72 loadbang; +#X obj 338 -51 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 338 -33 metro 10; +#X obj 338 -11 snapshot~; +#X floatatom 338 11 8 0 0 0 - - -; +#X obj 477 -30 loadbang; +#X obj 477 -9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 477 9 metro 10; +#X obj 477 31 snapshot~; +#X floatatom 477 51 8 0 0 0 - - -; +#X text 45 106 Y \, X \, Z dist between source and centre; +#X text 61 119 Based on length \, azim and elev; +#X obj 575 -75 inlet~; +#X obj 601 -31 loadbang; +#X obj 601 -10 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 601 8 metro 10; +#X obj 601 30 snapshot~; +#X floatatom 601 50 8 0 0 0 - - -; +#X text 318 30 Distance src to obs; +#X obj 691 -77 inlet~; +#X obj 717 -33 loadbang; +#X obj 717 -12 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 717 6 metro 10; +#X obj 717 28 snapshot~; +#X floatatom 717 48 8 0 0 0 - - -; +#X obj 451 -53 s~ \$0_scrObsYDist; +#X obj 575 -54 s~ \$0_scrObsXDist; +#X obj 691 -56 s~ \$0_scrObsZDist; +#X obj 430 443 s~ \$0-Az; +#X obj 79 497 loadbang; +#X obj 79 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 79 536 metro 10; +#X obj 79 558 snapshot~; +#X floatatom 79 578 8 0 0 0 - - -; +#X obj 343 484 loadbang; +#X obj 343 505 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 343 523 metro 10; +#X obj 343 545 snapshot~; +#X floatatom 343 565 8 0 0 0 - - -; +#X obj 820 354 loadbang; +#X obj 820 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 820 393 metro 10; +#X obj 820 415 snapshot~; +#X floatatom 820 435 8 0 0 0 - - -; +#X obj 354 150 r~ \$0_Xdiff; +#X obj 354 216 -~; +#X obj 427 150 r~ \$0_Zdiff; +#X obj 427 215 -~; +#X obj 369 173 r Xobs; +#X obj 369 194 sig~; +#X obj 442 171 r Zobs; +#X obj 442 193 sig~; +#X obj 412 240 /~; +#X obj 430 270 *~; +#X obj 445 290 sig~ 1; +#X obj 430 312 +~; +#X obj 430 336 sqrt~; +#X obj 412 360 /~; +#X obj 426 408 arcsin~; +#X obj 192 452 r~ currentAzim; +#X obj 192 512 r~ \$0-Az; +#X obj 177 536 -~; +#X obj 888 409 outlet~; +#X obj 1110 365 loadbang; +#X obj 1110 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj 1110 404 metro 10; +#X obj 1110 426 snapshot~; +#X floatatom 1110 446 8 0 0 0 - - -; +#X obj 177 430 sig~ 90; +#X obj 177 484 -~; +#X obj 1018 191 r~ currentAzim; +#X obj 1003 169 sig~ 90; +#X obj 1003 215 -~; +#X obj 939 73 /~; +#X obj 954 103 *~; +#X obj 969 123 sig~ 1; +#X obj 954 145 +~; +#X obj 954 169 sqrt~; +#X obj 939 193 /~; +#X obj 939 216 arcsin~; +#X obj 954 28 r Xobs; +#X obj 954 49 sig~; +#X obj 939 -17 r Zobs; +#X obj 939 5 sig~; +#X obj 988 245 -~; +#X obj 232 570 s~ \$0-Pv; +#X obj 294 337 r~ \$0-Pv; +#X obj 267 319 sig~ 180; +#X obj 958 308 -~; +#X obj 973 281 +~; +#X obj 279 357 +~; +#X obj 902 279 sig~ 180; +#X obj 656 203 /~; +#X obj 671 233 *~; +#X obj 686 253 sig~ 1; +#X obj 671 275 +~; +#X obj 671 299 sqrt~; +#X obj 656 323 /~; +#X obj 656 346 arcsin~; +#X obj 671 179 sig~; +#X obj 656 135 sig~; +#X obj 656 113 r Xobs; +#X obj 671 158 r Zobs; +#X obj 656 392 -~; +#X obj 671 369 r~ \$0-Az; +#X obj 1029 468 outlet~; +#X obj 1036 422 clip~ 0 1; +#X obj 1036 374 /~ 360; +#X obj 986 401 -~ 0.5; +#X connect 0 0 3 0; +#X connect 0 0 16 0; +#X connect 1 0 4 0; +#X connect 1 0 21 0; +#X connect 2 0 5 0; +#X connect 2 0 26 0; +#X connect 6 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 10 0 31 0; +#X connect 12 0 36 0; +#X connect 12 0 53 0; +#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 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 28 0 29 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 40 0 44 0; +#X connect 40 0 54 0; +#X connect 41 0 42 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 47 0 51 0; +#X connect 47 0 55 0; +#X connect 48 0 49 0; +#X connect 49 0 50 0; +#X connect 50 0 51 0; +#X connect 51 0 52 0; +#X connect 57 0 58 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 62 0 63 0; +#X connect 63 0 64 0; +#X connect 64 0 65 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0; +#X connect 68 0 69 0; +#X connect 69 0 70 0; +#X connect 70 0 71 0; +#X connect 72 0 73 0; +#X connect 73 0 80 0; +#X connect 74 0 75 0; +#X connect 75 0 80 1; +#X connect 76 0 77 0; +#X connect 77 0 73 1; +#X connect 78 0 79 0; +#X connect 79 0 75 1; +#X connect 80 0 81 0; +#X connect 80 0 81 1; +#X connect 80 0 85 0; +#X connect 81 0 83 0; +#X connect 82 0 83 1; +#X connect 83 0 84 0; +#X connect 84 0 85 1; +#X connect 85 0 86 0; +#X connect 86 0 56 0; +#X connect 87 0 65 0; +#X connect 87 0 97 1; +#X connect 88 0 89 1; +#X connect 89 0 60 0; +#X connect 89 0 113 0; +#X connect 91 0 92 0; +#X connect 92 0 93 0; +#X connect 93 0 94 0; +#X connect 94 0 95 0; +#X connect 96 0 97 0; +#X connect 97 0 89 0; +#X connect 98 0 100 1; +#X connect 99 0 100 0; +#X connect 100 0 112 1; +#X connect 101 0 102 0; +#X connect 101 0 102 1; +#X connect 101 0 106 0; +#X connect 102 0 104 0; +#X connect 103 0 104 1; +#X connect 104 0 105 0; +#X connect 105 0 106 1; +#X connect 106 0 107 0; +#X connect 107 0 112 0; +#X connect 108 0 109 0; +#X connect 109 0 101 1; +#X connect 110 0 111 0; +#X connect 111 0 101 0; +#X connect 112 0 117 1; +#X connect 114 0 118 1; +#X connect 115 0 118 0; +#X connect 116 0 70 0; +#X connect 116 0 90 0; +#X connect 116 0 135 0; +#X connect 117 0 116 1; +#X connect 119 0 116 0; +#X connect 120 0 121 0; +#X connect 120 0 121 1; +#X connect 120 0 125 0; +#X connect 121 0 123 0; +#X connect 122 0 123 1; +#X connect 123 0 124 0; +#X connect 124 0 125 1; +#X connect 125 0 126 0; +#X connect 126 0 131 0; +#X connect 127 0 120 1; +#X connect 128 0 120 0; +#X connect 129 0 128 0; +#X connect 130 0 127 0; +#X connect 131 0 117 0; +#X connect 132 0 131 1; +#X connect 134 0 133 0; +#X connect 134 0 94 0; +#X connect 135 0 134 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSwordAuto/thisPosition.pd Tue Feb 02 10:56:55 2016 +0000 @@ -0,0 +1,132 @@ +#N canvas 131 311 917 541 10; +#X obj -11951 -141 r~ currentElev; +#X obj -11639 -26 r~ currentAzim; +#X obj -11951 -117 /~ 360; +#X obj -11951 -94 sin~; +#X obj -11951 -51 *~; +#X obj -11654 -139 r~ currentElev; +#X obj -11654 -115 /~ 360; +#X obj -11654 -49 *~; +#X obj -11654 -92 cos~; +#X obj -11639 19 cos~; +#X obj -11639 -2 /~ 360; +#X obj -11654 44 *~; +#X obj -11798 -22 r~ currentAzim; +#X obj -11813 -135 r~ currentElev; +#X obj -11813 -111 /~ 360; +#X obj -11813 -45 *~; +#X obj -11798 2 /~ 360; +#X obj -11813 48 *~; +#X obj -11813 -88 cos~; +#X obj -11798 23 sin~; +#X text -11683 -163 Z position of source; +#X obj -11999 75 sig~; +#X obj -11966 105 -~; +#X obj -11862 85 sig~; +#X obj -11828 115 -~; +#X obj -11702 82 sig~; +#X obj -11669 112 -~; +#X obj -11702 59 r Zobs; +#X obj -11966 134 *~; +#X obj -11828 140 *~; +#X obj -11669 137 *~; +#X obj -11843 166 +~; +#X obj -11546 214 +~; +#X obj -11546 238 sqrt~; +#X text -11961 -164 Y position of source; +#X text -11820 -162 X position of source; +#X obj -11862 62 r Xobs; +#X obj -11999 52 r Yobs; +#X text -11514 -93 Distance between the observer as a point in 3D space +and the sound source.; +#X obj -11546 261 outlet~; +#X obj -11508 -190 inlet~; +#X obj -11508 -166 s~ \$0_myScrCnt; +#X obj -11639 -72 r~ \$0_myScrCnt; +#X obj -11798 -68 r~ \$0_myScrCnt; +#X obj -11936 -74 r~ \$0_myScrCnt; +#X obj -11634 72 outlet~; +#X obj -11796 75 outlet~; +#X obj -11934 -24 outlet~; +#X obj -11450 198 +~; +#X obj -11450 222 sqrt~; +#X obj -11450 245 outlet~; +#X obj -11365 127 +~; +#X obj -11365 151 sqrt~; +#X obj -11365 174 outlet~; +#X obj -11295 48 +~; +#X obj -11295 72 sqrt~; +#X obj -11295 95 outlet~; +#X text -11447 266 Y; +#X text -11362 192 X; +#X text -11293 114 Z; +#X obj -11518 -20 loadbang; +#X obj -11518 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -11518 19 metro 10; +#X obj -11518 41 snapshot~; +#X floatatom -11518 61 5 0 0 0 - - -; +#X obj -11320 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 +-1 -1; +#X obj -11320 -127 s GO; +#X obj -11380 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -11380 -127 s setUp; +#X connect 0 0 2 0; +#X connect 1 0 10 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 4 0 22 1; +#X connect 4 0 47 0; +#X connect 5 0 6 0; +#X connect 6 0 8 0; +#X connect 7 0 11 0; +#X connect 8 0 7 0; +#X connect 9 0 11 1; +#X connect 10 0 9 0; +#X connect 11 0 26 1; +#X connect 11 0 45 0; +#X connect 12 0 16 0; +#X connect 13 0 14 0; +#X connect 14 0 18 0; +#X connect 15 0 17 0; +#X connect 16 0 19 0; +#X connect 17 0 24 1; +#X connect 17 0 46 0; +#X connect 17 0 63 0; +#X connect 18 0 15 0; +#X connect 19 0 17 1; +#X connect 21 0 22 0; +#X connect 22 0 28 0; +#X connect 22 0 28 1; +#X connect 22 0 50 0; +#X connect 23 0 24 0; +#X connect 24 0 29 0; +#X connect 24 0 29 1; +#X connect 24 0 53 0; +#X connect 25 0 26 0; +#X connect 26 0 30 0; +#X connect 26 0 30 1; +#X connect 26 0 56 0; +#X connect 27 0 25 0; +#X connect 28 0 31 0; +#X connect 29 0 31 1; +#X connect 30 0 32 1; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 33 0 39 0; +#X connect 36 0 23 0; +#X connect 37 0 21 0; +#X connect 40 0 41 0; +#X connect 42 0 7 1; +#X connect 43 0 15 1; +#X connect 44 0 4 1; +#X connect 48 0 49 0; +#X connect 51 0 52 0; +#X connect 54 0 55 0; +#X connect 60 0 61 0; +#X connect 61 0 62 0; +#X connect 62 0 63 0; +#X connect 63 0 64 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0;
--- a/scene demo/freqCalcCyl3No_D2Mach.pd Fri Jan 29 21:14:12 2016 +0000 +++ b/scene demo/freqCalcCyl3No_D2Mach.pd Tue Feb 02 10:56:55 2016 +0000 @@ -103,7 +103,7 @@ #X obj 303 132 r~ \$0-str; #X obj 321 173 r \$0-leng; #X obj 346 231 r \$0-dist; -#N canvas 203 82 1238 721 GoldfreqGain 0; +#N canvas 205 143 1238 721 GoldfreqGain 1; #N canvas 759 125 286 294 pow6 0; #X obj 47 67 *~; #X obj 76 67 *~; @@ -303,10 +303,45 @@ #X obj 424 17 inlet~; #X obj 219 11 sig~; #X floatatom 265 13 5 0 0 0 - - -; -#X obj 219 -11 average~ 512; #X obj 234 494 sin~; -#X floatatom 351 12 5 0 0 0 - - -; -#X obj 305 -12 ave~; +#X floatatom 357 -7 5 0 0 0 - - -; +#X obj 219 -11 average~ 4096; +#N canvas 801 264 426 401 aveTimeCal 0; +#X text 224 38 Elevation; +#X obj 226 56 r \$0-elev; +#X floatatom 240 81 5 0 0 0 - - -; +#X obj 205 17 r~ MY_MACH; +#X obj 226 135 cos; +#X obj 226 107 * 0.01745; +#X obj 205 158 *~ 1; +#X obj 161 131 sig~ 1; +#X obj 161 185 -~; +#X obj 121 104 r~ \$0-myFreq; +#X obj 106 82 sig~ 6.28318; +#X obj 106 128 /~; +#X obj 106 219 *~; +#X obj 36 204 r myMet; +#X obj 106 242 snapshot~; +#X floatatom 44 283 0 0 0 0 - - -; +#X obj 106 263 * 44100; +#X obj 106 292 outlet; +#X connect 1 0 2 0; +#X connect 1 0 5 0; +#X connect 3 0 6 0; +#X connect 4 0 6 1; +#X connect 5 0 4 0; +#X connect 6 0 8 1; +#X connect 7 0 8 0; +#X connect 8 0 12 1; +#X connect 9 0 11 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 14 0; +#X connect 13 0 14 0; +#X connect 14 0 16 0; +#X connect 16 0 15 0; +#X connect 16 0 17 0; +#X restore 348 -33 pd aveTimeCal; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 106 0; @@ -314,8 +349,7 @@ #X connect 3 0 100 0; #X connect 8 0 1 0; #X connect 8 0 1 1; -#X connect 9 0 110 0; -#X connect 9 0 113 0; +#X connect 9 0 112 0; #X connect 11 0 105 1; #X connect 12 0 5 0; #X connect 12 0 89 0; @@ -323,7 +357,7 @@ #X connect 17 0 38 0; #X connect 18 0 20 0; #X connect 19 0 42 0; -#X connect 20 0 111 0; +#X connect 20 0 110 0; #X connect 21 0 22 1; #X connect 22 0 45 0; #X connect 23 0 26 0; @@ -393,11 +427,12 @@ #X connect 106 0 39 0; #X connect 107 0 103 0; #X connect 108 0 0 0; -#X connect 110 0 108 0; -#X connect 110 0 109 0; -#X connect 111 0 21 0; -#X connect 111 0 21 1; +#X connect 110 0 21 0; +#X connect 110 0 21 1; +#X connect 112 0 108 0; +#X connect 112 0 109 0; #X connect 113 0 112 0; +#X connect 113 0 111 0; #X restore 303 297 pd GoldfreqGain; #X obj 964 504 r \$0-thisPan; #X obj 918 461 r~ \$0-myFreq;
--- a/scene demo/testBedD2.pd Fri Jan 29 21:14:12 2016 +0000 +++ b/scene demo/testBedD2.pd Tue Feb 02 10:56:55 2016 +0000 @@ -2,7 +2,7 @@ #X obj 195 -91 loadbang; #X obj -218 178 delwrite~ varwind 3000; #X obj -108 -73 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 423 1; +-1 -1 2371 1; #X obj -300 23 snapshot~; #X floatatom -300 50 10 0 0 0 - - -; #X obj -217 -29 *~ 1; @@ -11,7 +11,7 @@ #X obj -19 -117 loadbang; #X msg -19 -97 5; #X obj 243 1 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 3584 1; +-262144 -1 -1 5127 1; #X floatatom 251 25 8 0 0 0 - - -; #X obj 301 275 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 6999 1; @@ -21,10 +21,10 @@ -1 -1 6350 1; #X floatatom 298 186 5 0 0 0 - - -; #X obj 289 212 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 7937 1; +-262144 -1 -1 9525 1; #X floatatom 313 241 5 0 0 0 - - -; #X obj 264 100 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 --1 -1 8877 1; +-1 -1 7759 1; #X floatatom 275 129 5 0 0 0 - - -; #X text 442 276 Pan Value; #X obj -243 416 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; @@ -68,7 +68,7 @@ #X restore -244 373 pd opLevels; #X msg -235 319 5; #X obj -241 344 hsl 100 25 0.1 1e+06 1 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 2403 1; +10 -262144 -1 -1 7746 1; #N canvas 20 383 344 123 machCalc 0; #X text 107 15 Speed of Sound (dry air 20 Degs C); #X obj 26 -14 vd~ varwind; @@ -85,7 +85,7 @@ #X obj 195 -67 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 252 57 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4233 1; +-1 -1 12700 1; #X floatatom 273 76 8 0 0 0 - - -; #X msg 161 40 4; #X obj -124 347 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 @@ -536,7 +536,6 @@ #X connect 61 0 54 0; #X connect 62 0 57 0; #X connect 66 0 17 0; -#X connect 67 0 1 0; #X connect 69 0 122 0; #X connect 70 0 79 0; #X connect 70 1 77 0; @@ -559,6 +558,7 @@ #X connect 95 0 17 0; #X connect 97 0 98 0; #X connect 97 0 137 0; +#X connect 97 0 1 0; #X connect 97 1 117 0; #X connect 98 0 99 0; #X connect 101 0 97 1;