Mercurial > hg > weather-synthesis-prototyping
changeset 94:2dea66bf32a1
New swordsounds folder created
within swordsounds:
Work on calculating the speed of a source by using calculations in the audio domain
assuming radius does not vary
assuming constant acceleration
assuming zero elevation
assuming sound hear from center of sweep
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Wed, 22 Jul 2015 15:22:45 +0100 |
| parents | 8125081c0f03 |
| children | 132bfea825a2 |
| files | .DS_Store June/.DS_Store June/arccos~.pd June/obsPosition.pd June/tenSource.pd June/woosh_D4.pd SwordSounds/arccos.pd SwordSounds/arccos~.pd SwordSounds/fcpan.pd SwordSounds/freqCalcWooD2.pd SwordSounds/obsPosition.pd SwordSounds/tenSource.pd SwordSounds/testBed.pd SwordSounds/woSoFreq.pd SwordSounds/woosh_D5.pd |
| diffstat | 15 files changed, 2586 insertions(+), 84 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/June/arccos~.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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;
--- a/June/obsPosition.pd Tue Jul 21 10:11:11 2015 +0100 +++ b/June/obsPosition.pd Wed Jul 22 15:22:45 2015 +0100 @@ -1,69 +1,128 @@ -#N canvas 199 51 694 515 10; -#X obj -122 343 r obsDistance; -#X obj 40 155 r obsAngle; +#N canvas 203 146 1178 769 10; #X obj -117 35 inlet; -#X obj 265 82 r bladeLen; -#X obj 280 188 r armLength; +#X obj 296 -12 r bladeLen; +#X obj 311 94 r armLength; #X obj -117 58 s \$0_sourceNo; -#X obj 279 103 r NoOfSources; -#X obj 265 213 +; -#X obj 265 123 /; -#X obj 265 167 *; -#X obj 280 144 r \$0_sourceNo; -#X obj 25 210 / 360; -#X obj 25 232 * 6.28319; -#X floatatom -33 283 8 0 0 0 - - -; -#X obj 25 283 *; -#X floatatom -32 345 8 0 0 0 - - -; -#X obj 49 397 hsl 128 15 15 25 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 0 1; -#X obj 25 133 r currentAngle; -#X floatatom -53 403 8 0 0 0 - - -; -#X obj 25 345 t f b; -#X obj 25 178 +; -#X obj 10 376 +; -#X obj 25 257 cos; -#X obj -80 150 hsl 75 25 -360 360 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5357 1; -#X floatatom -83 182 5 0 0 0 - - -; -#X obj 10 418 outlet; -#X floatatom -19 211 5 0 0 0 - - -; -#X obj 73 211 outlet; -#X text 67 176 Combine observer angle; -#X text 67 188 and angle of swing; -#X text 291 213 Distance from centre of arc to the source; -#X obj 25 320 * -1; -#X text 61 284 Distance between the centre of the arc and source in -line between centre and observer; -#X text 54 427 Total distance between observer and the specific source -in line from centre; -#X text 91 24 This also needs to change to Audio control signal as -the angle is constantly changing throughout the swing.; -#X connect 0 0 21 0; -#X connect 1 0 20 1; -#X connect 2 0 5 0; -#X connect 3 0 8 0; -#X connect 4 0 7 1; -#X connect 6 0 8 1; -#X connect 7 0 14 1; -#X connect 8 0 9 0; -#X connect 9 0 7 0; -#X connect 10 0 9 1; -#X connect 11 0 12 0; -#X connect 12 0 22 0; -#X connect 14 0 31 0; -#X connect 17 0 20 0; -#X connect 17 0 23 0; -#X connect 19 0 21 1; -#X connect 19 1 21 0; -#X connect 20 0 11 0; -#X connect 20 0 26 0; -#X connect 20 0 27 0; -#X connect 21 0 16 0; -#X connect 21 0 18 0; -#X connect 21 0 25 0; -#X connect 22 0 13 0; -#X connect 22 0 14 0; +#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 31 0 19 0; -#X connect 31 0 15 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;
--- a/June/tenSource.pd Tue Jul 21 10:11:11 2015 +0100 +++ b/June/tenSource.pd Wed Jul 22 15:22:45 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 164 39 1259 813 10; +#N canvas 116 122 1259 813 10; #X obj 670 10 inlet; #X obj 670 31 i; #X obj 670 53 - 1; @@ -315,8 +315,6 @@ #X connect 148 1 135 3; #X connect 149 0 123 2; #X connect 149 1 123 3; -#X connect 150 0 134 2; -#X connect 150 1 134 3; #X connect 151 0 133 2; #X connect 151 1 133 3; #X connect 152 0 123 0;
--- a/June/woosh_D4.pd Tue Jul 21 10:11:11 2015 +0100 +++ b/June/woosh_D4.pd Wed Jul 22 15:22:45 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 106 32 1422 826 10; +#N canvas 386 234 893 466 10; #X obj 541 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 604 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X text 601 -194 Gain; @@ -37,7 +37,7 @@ #X connect 14 0 13 1; #X restore 540 -146 pd opLevels; #X msg 540 -197 5; -#N canvas 474 116 807 545 speedCalc 1; +#N canvas 474 116 807 545 speedCalc 0; #X obj 59 -12 inlet; #X obj 135 -11 inlet; #X obj 217 -12 inlet; @@ -134,14 +134,14 @@ #X obj 13 -71 s NoOfSources; #X obj 78 89 s topSpeed; #X obj 26 63 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 357 1; +-1 -1 100 1; #X floatatom 23 89 8 0 0 0 - - -; #X text 47 -226 Blade Length; #X text 46 -160 Arm Length; #X text 41 -94 Number of Sources; #X text 134 67 Top Speed; #X obj 23 147 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 5912 1; +-1 -1 6600 1; #X floatatom 20 179 8 0 0 0 - - -; #X obj 75 178 s sweepAngle; #X text 134 148 Sweep Angle; @@ -186,9 +186,9 @@ #X obj 372 -100 s deltaThick; #X floatatom 317 -99 8 0 0 0 - - -; #X obj 20 238 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 2805 1; +-1 -1 3135 1; #X obj 19 323 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 2475 1; +-1 -1 3168 1; #X floatatom 17 268 8 0 0 0 - - -; #X obj 71 267 s hiltThick; #X floatatom 16 351 8 0 0 0 - - -; @@ -202,9 +202,9 @@ #X obj 214 -127 s GO; #X obj 775 -93 tenSource; #X obj 19 405 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144 --1 -1 6920 1; +-1 -1 3210 1; #X obj 15 490 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 7425 1; +-262144 -1 -1 5000 1; #X floatatom 16 431 8 0 0 0 - - -; #X text 129 409 Distance to Observer; #X floatatom 12 518 8 0 0 0 - - -; @@ -313,7 +313,7 @@ #X restore 277 11 pd circumferCalc; #X obj 277 37 s circumMin; #X obj 370 36 s deltaCircum; -#N canvas 57 41 1094 768 angleCalc 1; +#N canvas 303 28 1094 768 angleCalc 0; #X obj -129 105 * 0.75; #X obj 325 234 * 0.25; #X obj -129 145 /; @@ -378,10 +378,10 @@ #X msg -144 427 0 \$1; #X obj -62 341 r setUp; #X obj 151 294 f; -#X obj -7 602 +~; +#X obj -4 549 +~; #X obj 227 342 r setUp; #X floatatom -63 474 5 0 0 0 - - -; -#X text 11 464; +#X text 11 464 comment; #X obj -63 409 f; #X floatatom -26 434 5 0 0 0 - - -; #X obj 286 343 r end; @@ -390,8 +390,14 @@ -1 -1; #X obj -144 174 f; #X obj -163 143 r GO; -#X obj -7 633 s~ swordAngle; +#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; @@ -438,8 +444,7 @@ #X connect 58 0 46 0; #X connect 59 0 65 0; #X connect 60 0 52 0; -#X connect 61 0 48 0; -#X connect 61 0 72 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; @@ -447,9 +452,13 @@ #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 431 -220 pd angleCalc; #X obj 543 -175 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 3118 1; +-1 -1 9354 1; #X msg 775 -172 10; #X obj 14 -249 loadbang; #X obj 12 -180 loadbang;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/arccos.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/arccos~.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/fcpan.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/freqCalcWooD2.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/obsPosition.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/tenSource.pd Wed Jul 22 15:22:45 2015 +0100 @@ -0,0 +1,329 @@ +#N canvas 116 122 1259 813 10; +#X obj 670 10 inlet; +#X obj 670 31 i; +#X obj 670 53 - 1; +#X obj 670 76 * 10; +#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 -158 284 r \$0_thisGroup; +#X obj -44 368 *; +#X obj -29 343 r deltaThick; +#X obj -44 279 r \$0_thisGroup; +#X obj -44 322 +; +#X obj -59 246 r hiltThick; +#X obj -59 393 -; +#X obj -95 312 r \$0_s1; +#X obj -29 300 r \$0_s1; +#X obj -155 546 r \$0_thisGroup; +#X obj -41 630 *; +#X obj -26 605 r deltaThick; +#X obj -41 541 r \$0_thisGroup; +#X obj -41 584 +; +#X obj -56 516 r hiltThick; +#X obj -56 655 -; +#X obj -92 574 r \$0_s2; +#X obj -26 562 r \$0_s2; +#X obj 77 187 r \$0_thisGroup; +#X obj 191 271 *; +#X obj 206 246 r deltaThick; +#X obj 191 182 r \$0_thisGroup; +#X obj 191 225 +; +#X obj 176 157 r hiltThick; +#X obj 176 296 -; +#X obj 140 215 r \$0_s3; +#X obj 206 203 r \$0_s3; +#X obj 80 544 r \$0_thisGroup; +#X obj 194 628 *; +#X obj 209 603 r deltaThick; +#X obj 194 539 r \$0_thisGroup; +#X obj 194 582 +; +#X obj 179 514 r hiltThick; +#X obj 179 653 -; +#X obj 209 560 r \$0_s4; +#X obj 143 572 r \$0_s4; +#X obj 313 171 r \$0_thisGroup; +#X obj 427 255 *; +#X obj 442 230 r deltaThick; +#X obj 427 166 r \$0_thisGroup; +#X obj 427 209 +; +#X obj 412 141 r hiltThick; +#X obj 412 280 -; +#X obj 376 199 r \$0_s5; +#X obj 442 187 r \$0_s5; +#X obj 303 543 r \$0_thisGroup; +#X obj 417 627 *; +#X obj 432 602 r deltaThick; +#X obj 417 538 r \$0_thisGroup; +#X obj 417 581 +; +#X obj 402 513 r hiltThick; +#X obj 402 652 -; +#X obj 366 571 r \$0_s6; +#X obj 432 559 r \$0_s6; +#X obj 537 171 r \$0_thisGroup; +#X obj 651 255 *; +#X obj 666 230 r deltaThick; +#X obj 651 166 r \$0_thisGroup; +#X obj 651 209 +; +#X obj 636 141 r hiltThick; +#X obj 636 280 -; +#X obj 600 199 r \$0_s7; +#X obj 666 187 r \$0_s7; +#X obj 541 521 r \$0_thisGroup; +#X obj 655 605 *; +#X obj 670 580 r deltaThick; +#X obj 655 516 r \$0_thisGroup; +#X obj 655 559 +; +#X obj 639 467 r hiltThick; +#X obj 640 630 -; +#X obj 604 549 r \$0_s8; +#X obj 670 537 r \$0_s8; +#X obj 772 295 r \$0_thisGroup; +#X obj 886 379 *; +#X obj 901 354 r deltaThick; +#X obj 886 290 r \$0_thisGroup; +#X obj 886 333 +; +#X obj 871 265 r hiltThick; +#X obj 871 404 -; +#X obj 835 323 r \$0_s9; +#X obj 901 311 r \$0_s9; +#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 373 353 r \$0_elev; +#X obj -158 490 woSoFreq; +#X obj 150 368 r \$0_elev; +#X obj -39 195 r \$0_elev; +#X obj -80 470 r \$0_elev; +#X obj -34 709 r \$0_elev; +#X obj 150 733 r \$0_elev; +#X obj 391 707 r \$0_elev; +#X obj 630 685 r \$0_elev; +#X obj 855 457 r \$0_elev; +#X obj 627 334 r \$0_elev; +#X obj 313 375 woSoFreq; +#X obj -159 239 woSoFreq; +#X obj -155 727 woSoFreq; +#X obj 77 385 woSoFreq; +#X obj 80 750 woSoFreq; +#X obj 303 724 woSoFreq; +#X obj 537 352 woSoFreq; +#X obj 541 702 woSoFreq; +#X obj 772 476 woSoFreq; +#X obj 99 328 obsPosition; +#X obj 559 306 obsPosition; +#X obj 794 427 obsPosition; +#X obj 563 655 obsPosition; +#X obj 325 679 obsPosition; +#X obj 102 688 obsPosition; +#X obj -138 681 obsPosition; +#X obj -133 428 obsPosition; +#X obj -137 194 obsPosition; +#X obj 335 315 obsPosition; +#X obj -158 336 freqCalcWoo; +#X obj -159 109 freqCalcWooD2; +#X obj 77 239 freqCalcWooD2; +#X obj 313 223 freqCalcWooD2; +#X obj 537 223 freqCalcWooD2; +#X obj 772 347 freqCalcWooD2; +#X obj 541 573 freqCalcWooD2; +#X obj 303 595 freqCalcWooD2; +#X obj 80 596 freqCalcWooD2; +#X obj -155 598 freqCalcWooD2; +#X connect 0 0 1 0; +#X connect 0 0 12 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 5 0 153 0; +#X connect 6 0 11 1; +#X connect 7 0 6 1; +#X connect 8 0 9 0; +#X connect 9 0 6 0; +#X connect 9 0 150 0; +#X connect 10 0 11 0; +#X connect 11 0 134 1; +#X connect 12 0 13 0; +#X connect 12 0 14 0; +#X connect 12 0 15 0; +#X connect 12 0 16 0; +#X connect 12 0 17 0; +#X connect 12 0 18 0; +#X connect 12 0 19 0; +#X connect 12 0 20 0; +#X connect 12 0 21 0; +#X connect 12 0 22 0; +#X connect 13 0 28 0; +#X connect 14 0 27 0; +#X connect 15 0 26 0; +#X connect 16 0 25 0; +#X connect 17 0 24 0; +#X connect 18 0 23 0; +#X connect 19 0 29 0; +#X connect 20 0 30 0; +#X connect 21 0 31 0; +#X connect 22 0 32 0; +#X connect 33 0 9 1; +#X connect 34 0 153 1; +#X connect 35 0 152 0; +#X connect 36 0 41 1; +#X connect 37 0 36 1; +#X connect 38 0 39 0; +#X connect 39 0 36 0; +#X connect 39 0 149 0; +#X connect 40 0 41 0; +#X connect 41 0 123 1; +#X connect 42 0 152 1; +#X connect 43 0 39 1; +#X connect 44 0 161 0; +#X connect 45 0 50 1; +#X connect 46 0 45 1; +#X connect 47 0 48 0; +#X connect 48 0 45 0; +#X connect 48 0 148 0; +#X connect 49 0 50 0; +#X connect 50 0 135 1; +#X connect 51 0 161 1; +#X connect 52 0 48 1; +#X connect 53 0 154 0; +#X connect 54 0 59 1; +#X connect 55 0 54 1; +#X connect 56 0 57 0; +#X connect 57 0 54 0; +#X connect 57 0 142 0; +#X connect 58 0 59 0; +#X connect 59 0 136 1; +#X connect 60 0 154 1; +#X connect 61 0 57 1; +#X connect 62 0 160 0; +#X connect 63 0 68 1; +#X connect 64 0 63 1; +#X connect 65 0 66 0; +#X connect 66 0 63 0; +#X connect 66 0 147 0; +#X connect 67 0 68 0; +#X connect 68 0 137 1; +#X connect 69 0 66 1; +#X connect 70 0 160 1; +#X connect 71 0 155 0; +#X connect 72 0 77 1; +#X connect 73 0 72 1; +#X connect 74 0 75 0; +#X connect 75 0 72 0; +#X connect 75 0 151 0; +#X connect 76 0 77 0; +#X connect 77 0 133 1; +#X connect 78 0 155 1; +#X connect 79 0 75 1; +#X connect 80 0 159 0; +#X connect 81 0 86 1; +#X connect 82 0 81 1; +#X connect 83 0 84 0; +#X connect 84 0 81 0; +#X connect 84 0 146 0; +#X connect 85 0 86 0; +#X connect 86 0 138 1; +#X connect 87 0 159 1; +#X connect 88 0 84 1; +#X connect 89 0 156 0; +#X connect 90 0 95 1; +#X connect 91 0 90 1; +#X connect 92 0 93 0; +#X connect 93 0 90 0; +#X connect 93 0 143 0; +#X connect 94 0 95 0; +#X connect 95 0 139 1; +#X connect 96 0 156 1; +#X connect 97 0 93 1; +#X connect 98 0 158 0; +#X connect 99 0 104 1; +#X connect 100 0 99 1; +#X connect 101 0 102 0; +#X connect 102 0 99 0; +#X connect 102 0 145 0; +#X connect 103 0 104 0; +#X connect 104 0 140 1; +#X connect 105 0 158 1; +#X connect 106 0 102 1; +#X connect 107 0 157 0; +#X connect 108 0 113 1; +#X connect 109 0 108 1; +#X connect 110 0 111 0; +#X connect 111 0 108 0; +#X connect 111 0 144 0; +#X connect 112 0 113 0; +#X connect 113 0 141 1; +#X connect 114 0 157 1; +#X connect 115 0 111 1; +#X connect 116 0 119 0; +#X connect 117 0 118 0; +#X connect 120 0 121 0; +#X connect 122 0 133 4; +#X connect 124 0 136 4; +#X connect 125 0 134 4; +#X connect 126 0 123 4; +#X connect 127 0 135 4; +#X connect 128 0 137 4; +#X connect 129 0 138 4; +#X connect 130 0 140 4; +#X connect 131 0 141 4; +#X connect 132 0 139 4; +#X connect 142 0 136 2; +#X connect 142 1 136 3; +#X connect 143 0 139 2; +#X connect 143 1 139 3; +#X connect 144 0 141 2; +#X connect 144 1 141 3; +#X connect 145 0 140 2; +#X connect 145 1 140 3; +#X connect 146 0 138 2; +#X connect 146 1 138 3; +#X connect 147 0 137 2; +#X connect 147 1 137 3; +#X connect 148 0 135 2; +#X connect 148 1 135 3; +#X connect 149 0 123 2; +#X connect 149 1 123 3; +#X connect 151 0 133 2; +#X connect 151 1 133 3; +#X connect 152 0 123 0; +#X connect 153 0 134 0; +#X connect 154 0 136 0; +#X connect 155 0 133 0; +#X connect 156 0 139 0; +#X connect 157 0 141 0; +#X connect 158 0 140 0; +#X connect 159 0 138 0; +#X connect 160 0 137 0; +#X connect 161 0 135 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/testBed.pd Wed Jul 22 15:22:45 2015 +0100 @@ -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/SwordSounds/woSoFreq.pd Wed Jul 22 15:22:45 2015 +0100 @@ -0,0 +1,617 @@ +#N canvas 47 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 278 562 fcpan; +#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 9900 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 4950 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 -110 inlet; +#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 connect 3 0 5 0; +#X connect 3 0 7 0; +#X connect 4 0 22 0; +#X connect 6 0 10 0; +#X connect 8 0 4 0; +#X connect 9 0 21 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 1 0; +#X connect 21 1 2 0; +#X connect 22 0 3 0; +#X connect 24 0 34 0; +#X connect 25 0 27 0; +#X connect 26 0 29 1; +#X connect 26 0 48 0; +#X connect 27 0 26 0; +#X connect 28 0 31 0; +#X connect 29 0 53 0; +#X connect 30 0 28 0; +#X connect 31 0 24 0; +#X connect 31 0 45 0; +#X connect 34 0 9 1; +#X connect 36 0 37 0; +#X connect 37 0 38 0; +#X connect 38 0 9 0; +#X connect 39 0 27 1; +#X connect 40 0 28 1; +#X connect 41 0 30 1; +#X connect 42 0 25 0; +#X connect 44 0 38 1; +#X connect 46 0 36 0; +#X connect 47 0 34 1; +#X connect 52 0 29 0; +#X connect 53 0 54 0; +#X connect 54 0 56 1; +#X connect 55 0 56 0; +#X connect 56 0 43 0; +#X connect 56 0 30 0; +#X connect 57 0 68 1; +#X connect 58 0 68 0; +#X connect 59 0 61 1; +#X connect 60 0 61 0; +#X connect 61 0 66 0; +#X connect 61 1 67 0; +#X connect 62 0 61 2; +#X connect 63 0 61 6; +#X connect 64 0 61 5; +#X connect 65 0 61 4; +#X connect 68 0 74 0; +#X connect 68 1 73 0; +#X connect 69 0 68 2; +#X connect 70 0 68 6; +#X connect 71 0 68 4; +#X connect 72 0 68 5; +#X connect 77 0 68 3; +#X connect 78 0 61 3; +#X connect 79 0 80 0; +#X connect 81 0 82 0; +#X connect 83 0 84 0; +#X connect 85 0 106 1; +#X connect 86 0 126 0; +#X connect 90 0 91 0; +#X connect 90 0 106 2; +#X connect 92 0 93 0; +#X connect 93 0 118 0; +#X connect 94 0 115 0; +#X connect 95 0 105 0; +#X connect 96 0 127 0; +#X connect 100 0 101 0; +#X connect 100 0 107 2; +#X connect 102 0 103 0; +#X connect 103 0 119 0; +#X connect 104 0 114 0; +#X connect 105 0 107 1; +#X connect 106 0 89 0; +#X connect 107 0 99 0; +#X connect 108 0 87 0; +#X connect 108 1 88 0; +#X connect 109 0 97 0; +#X connect 109 1 98 0; +#X connect 110 0 89 1; +#X connect 111 0 99 1; +#X connect 112 0 100 0; +#X connect 113 0 90 0; +#X connect 114 0 117 0; +#X connect 115 0 116 0; +#X connect 116 0 113 0; +#X connect 117 0 112 0; +#X connect 118 0 90 0; +#X connect 119 0 100 0; +#X connect 120 0 108 1; +#X connect 121 0 109 1; +#X connect 124 0 111 0; +#X connect 125 0 110 0; +#X connect 126 0 106 0; +#X connect 127 0 107 0; +#X connect 128 0 126 1; +#X connect 129 0 130 0; +#X connect 130 0 127 1; +#X connect 131 0 132 0; +#X connect 132 0 133 0; +#X connect 133 0 134 0; +#X connect 134 0 135 0; +#X connect 136 0 21 1;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordSounds/woosh_D5.pd Wed Jul 22 15:22:45 2015 +0100 @@ -0,0 +1,842 @@ +#N canvas 0 23 1253 824 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 30 r NoOfSources; +#X obj 155 132 /~ 1; +#X obj 30 131 /~ 1; +#X obj 155 49 / 20; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 12 0; +#X connect 4 0 13 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 14 0; +#X connect 12 0 0 1; +#X connect 12 0 6 0; +#X connect 13 0 0 0; +#X connect 13 0 5 0; +#X connect 14 0 12 1; +#X connect 14 0 13 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 4957 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 4412 1; +#X floatatom 817 -109 8 0 0 0 - - -; +#X obj -142 439 r sweepAngle; +#X obj -235 395 r bladeLen; +#X obj -189 418 r armLength; +#X obj 518 174 s firstSpeed; +#X obj 613 173 s deltaSpeed; +#X floatatom -292 490 8 0 0 0 - - -; +#X floatatom -54 488 8 0 0 0 - - -; +#N canvas 833 342 426 335 thickCalc 0; +#X obj 173 139 r NoOfSources; +#X obj 23 16 inlet; +#X obj 26 64 inlet; +#X obj 26 86 s \$0_tipThick; +#X obj 158 115 -; +#X obj 158 164 /; +#X obj 158 187 outlet; +#X obj 23 39 s \$0_hiltThick; +#X floatatom 126 147 5 0 0 0 - - -; +#X obj 173 44 r \$0_tipThick; +#X obj 158 19 r \$0_hiltThick; +#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 connect 0 0 5 1; +#X connect 1 0 7 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 4 0 8 0; +#X connect 5 0 6 0; +#X connect 5 0 11 0; +#X connect 9 0 12 0; +#X connect 10 0 4 0; +#X connect 12 0 4 1; +#X connect 12 1 13 0; +#X connect 13 0 4 0; +#X restore 382 -113 pd thickCalc; +#X obj 382 -90 s deltaThick; +#X floatatom 327 -89 8 0 0 0 - - -; +#X obj 27 202 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 2805 1; +#X obj 26 287 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 2475 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 382 -158 r hiltThick; +#X obj 451 -136 r tipThick; +#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 427 69 911 675 circumferCalc 0; +#X obj 266 13 inlet; +#X floatatom 365 172 5 0 0 0 - - -; +#X obj 80 13 inlet; +#X obj 170 13 inlet; +#X obj 247 146 +; +#X obj 316 172 / 360; +#X obj 247 171 * 3.14159; +#X obj 247 219 *; +#X obj 247 195 * 2; +#X obj 80 36 s \$0_bladeLen; +#X obj 170 36 s \$0_armLength; +#X obj 266 36 s \$0_sweepAngle; +#X obj 247 99 r \$0_bladeLen; +#X obj 262 123 r \$0_armLength; +#X obj 316 148 r \$0_sweepAngle; +#X floatatom 734 192 5 0 0 0 - - -; +#X obj 685 192 / 360; +#X floatatom 628 168 5 0 0 0 - - -; +#X obj 616 191 * 3.14159; +#X obj 616 239 *; +#X floatatom 560 267 8 0 0 0 - - -; +#X obj 616 215 * 2; +#X obj 616 143 r \$0_armLength; +#X obj 685 168 r \$0_sweepAngle; +#X obj 616 267 s \$0_minCirc; +#X obj 265 459 r \$0_minCirc; +#X obj 265 481 outlet; +#X obj 262 279 r \$0_minCirc; +#X floatatom 188 339 8 0 0 0 - - -; +#X obj 247 305 -; +#X obj 247 341 /; +#X obj 277 317 r NoOfSources; +#X floatatom 185 370 8 0 0 0 - - -; +#X obj 247 367 s \$0_deltaCirc; +#X obj 354 459 r \$0_deltaCirc; +#X obj 354 481 outlet; +#X obj 260 246 s maxCirc; +#X obj 191 172 s length; +#X text 122 176 Arc radius; +#X text 318 195 % of circle; +#X text 323 242 Circumference of arc of tip; +#X text 692 210 % of circle; +#X text 601 289 Circumference of arc of hilt; +#X floatatom 187 243 8 0 0 0 - - -; +#X text 199 390 Difference of circumference length for each source +; +#X text 199 405 based on linear spacing between sources; +#X connect 0 0 11 0; +#X connect 2 0 9 0; +#X connect 3 0 10 0; +#X connect 4 0 6 0; +#X connect 4 0 37 0; +#X connect 5 0 7 1; +#X connect 6 0 8 0; +#X connect 7 0 29 0; +#X connect 7 0 36 0; +#X connect 7 0 43 0; +#X connect 8 0 7 0; +#X connect 12 0 4 0; +#X connect 13 0 4 1; +#X connect 14 0 5 0; +#X connect 14 0 1 0; +#X connect 16 0 19 1; +#X connect 18 0 21 0; +#X connect 19 0 20 0; +#X connect 19 0 24 0; +#X connect 21 0 19 0; +#X connect 22 0 18 0; +#X connect 22 0 17 0; +#X connect 23 0 16 0; +#X connect 23 0 15 0; +#X connect 25 0 26 0; +#X connect 27 0 29 1; +#X connect 29 0 28 0; +#X connect 29 0 30 0; +#X connect 30 0 32 0; +#X connect 30 0 33 0; +#X connect 31 0 30 1; +#X connect 34 0 35 0; +#X restore -235 463 pd circumferCalc; +#X obj -235 488 s circumMin; +#X obj -142 488 s deltaCircum; +#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 441 -210 pd angleCalc; +#X obj 553 -165 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 3118 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 361 -72 Calculate thicknes delta; +#X text -244 513 Circumference calculations; +#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); +#N canvas 71 45 1255 757 sweepTime 1; +#X obj 648 -99 r presweepElev; +#X obj 741 -100 r postsweepElev; +#X obj 189 9 r presweepAzim; +#X floatatom 148 41 5 0 0 0 - - -; +#X floatatom 648 -75 5 0 0 0 - - -; +#X floatatom 741 -77 5 0 0 0 - - -; +#X obj 188 -120 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 188 -67 s GO; +#X obj 128 -120 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 128 -67 s setUp; +#X obj 309 421 line~; +#X text 236 120 start radius; +#X obj 842 -100 r start_armLength; +#X floatatom 842 -79 5 0 0 0 - - -; +#X obj 958 -100 r bladeLen; +#X floatatom 958 -77 5 0 0 0 - - -; +#X obj 204 76 r start_armLength; +#X obj 219 97 r bladeLen; +#X obj 204 121 +; +#X floatatom 222 141 5 0 0 0 - - -; +#X text 318 -99 Start calculation with elevation = 0 \, arm length +is constant \, acceleration/deceleration is constant.; +#X obj 189 54 * 6.28312; +#X obj 189 32 / 360; +#X floatatom 146 87 5 0 0 0 - - -; +#X obj 189 154 *; +#X obj 196 470 loadbang; +#X obj 196 491 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 196 509 metro 10; +#X obj 196 531 snapshot~; +#X floatatom 196 551 5 0 0 0 - - -; +#X obj 277 567 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 142 188 5 0 0 0 - - -; +#X obj 97 311 r topSpeed; +#X msg 83 383 \$1 \$2; +#X obj 83 358 pack; +#X obj 204 175 r topSpeed; +#X obj 204 200 / 2; +#X obj 189 224 /; +#X obj 189 248 * 1000; +#X floatatom 236 277 5 0 0 0 - - -; +#X msg 309 387 0; +#X obj 82 335 f; +#X obj 82 290 r GO; +#X floatatom 532 30 5 0 0 0 - - -; +#X obj 588 65 r start_armLength; +#X obj 603 86 r bladeLen; +#X obj 588 110 +; +#X floatatom 606 130 5 0 0 0 - - -; +#X obj 573 43 * 6.28312; +#X obj 573 21 / 360; +#X floatatom 530 76 5 0 0 0 - - -; +#X obj 573 143 *; +#X floatatom 526 177 5 0 0 0 - - -; +#X obj 588 164 r topSpeed; +#X obj 588 189 / 2; +#X obj 573 213 /; +#X obj 573 237 * 1000; +#X obj 573 -2 r postsweepAzim; +#X text 638 109 start radius; +#X text 673 242 Time from 0 azimuth to; +#X text 676 257 stationary at post sweep; +#X text 627 189 Assuming constant acceleration; +#X text 627 266; +#X floatatom 625 264 5 0 0 0 - - -; +#X obj 448 364 f; +#X msg 448 389 0 \$1; +#X obj 447 312 t f b; +#X obj 448 340 delay; +#X obj 201 306 f; +#X obj 309 366 r setUp; +#X obj 201 328 s preswingTime; +#X obj 587 304 f; +#X obj 587 282 r GO; +#X obj 587 326 s postswingTime; +#X obj 200 284 r GO; +#X text 239 201 Assuming constant acceleration; +#X text 15 230 Time from pre-sweep azimuth; +#X text 16 243 to centre at top speed; +#X text -2 176 Pre sweep Circumference; +#X text 386 157 Post sweep Circumference; +#X text 292 347 Start at 0 speed; +#X text 20 414 \$1 = top speed; +#X text 20 430 \$2 = time to reach top speed; +#X text 490 400 \$1 = time to reach speed of 0; +#X obj 447 282 r preswingTime; +#X text 399 262 Trigger once full speed; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 3 0; +#X connect 2 0 22 0; +#X connect 6 0 7 0; +#X connect 8 0 9 0; +#X connect 10 0 28 0; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X connect 16 0 18 0; +#X connect 17 0 18 1; +#X connect 18 0 19 0; +#X connect 18 0 24 1; +#X connect 21 0 23 0; +#X connect 21 0 24 0; +#X connect 22 0 21 0; +#X connect 24 0 31 0; +#X connect 24 0 37 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 0; +#X connect 28 0 30 0; +#X connect 32 0 41 1; +#X connect 33 0 10 0; +#X connect 34 0 33 0; +#X connect 35 0 36 0; +#X connect 36 0 37 1; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 38 0 34 1; +#X connect 38 0 68 1; +#X connect 40 0 10 0; +#X connect 41 0 34 0; +#X connect 42 0 41 0; +#X connect 44 0 46 0; +#X connect 45 0 46 1; +#X connect 46 0 47 0; +#X connect 46 0 51 1; +#X connect 48 0 50 0; +#X connect 48 0 51 0; +#X connect 49 0 48 0; +#X connect 51 0 52 0; +#X connect 51 0 55 0; +#X connect 53 0 54 0; +#X connect 54 0 55 1; +#X connect 55 0 56 0; +#X connect 56 0 63 0; +#X connect 56 0 64 1; +#X connect 56 0 71 1; +#X connect 57 0 43 0; +#X connect 57 0 49 0; +#X connect 64 0 65 0; +#X connect 65 0 10 0; +#X connect 66 0 67 1; +#X connect 66 1 67 0; +#X connect 67 0 64 0; +#X connect 68 0 70 0; +#X connect 69 0 40 0; +#X connect 71 0 73 0; +#X connect 72 0 71 0; +#X connect 74 0 68 0; +#X connect 84 0 66 0; +#X restore 293 151 pd sweepTime; +#X obj 818 -63 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 1100 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 3300 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 1100 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 363 541 allSource 0; +#X obj 67 104 r distance; +#X obj 50 83 r angle; +#X obj 33 42 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 33 14 r setUp; +#X msg 33 61 10; +#X obj 84 120 r elev; +#X obj 202 116 r distance; +#X obj 185 95 r angle; +#X obj 168 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 168 26 r setUp; +#X obj 219 132 r elev; +#X msg 168 73 9; +#X obj 66 269 r distance; +#X obj 49 248 r angle; +#X obj 32 207 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 32 179 r setUp; +#X obj 83 285 r elev; +#X obj 195 278 r distance; +#X obj 178 257 r angle; +#X obj 161 216 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 161 188 r setUp; +#X obj 212 294 r elev; +#X obj 63 420 r distance; +#X obj 46 399 r angle; +#X obj 29 358 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 29 330 r setUp; +#X obj 80 436 r elev; +#X msg 29 377 6; +#X msg 161 235 7; +#X msg 32 226 8; +#X obj 197 427 r distance; +#X obj 180 406 r angle; +#X obj 163 365 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 163 337 r setUp; +#X obj 214 443 r elev; +#X msg 163 384 5; +#X obj 27 147 tenSource; +#X obj 169 157 tenSource; +#X obj 29 305 tenSource; +#X obj 161 318 tenSource; +#X obj 32 461 tenSource; +#X obj 168 470 tenSource; +#X connect 2 0 4 0; +#X connect 3 0 2 0; +#X connect 8 0 11 0; +#X connect 9 0 8 0; +#X connect 14 0 29 0; +#X connect 15 0 14 0; +#X connect 19 0 28 0; +#X connect 20 0 19 0; +#X connect 24 0 27 0; +#X connect 25 0 24 0; +#X connect 32 0 35 0; +#X connect 33 0 32 0; +#X restore 670 -209 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 connect 3 0 5 0; +#X connect 4 0 0 0; +#X connect 4 1 1 0; +#X connect 5 0 71 0; +#X connect 6 0 7 0; +#X connect 6 0 29 0; +#X connect 6 1 8 0; +#X connect 6 1 30 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 138 0; +#X connect 26 0 67 2; +#X connect 27 0 67 0; +#X connect 28 0 67 1; +#X connect 33 0 34 0; +#X connect 33 0 35 0; +#X connect 36 0 38 0; +#X connect 36 0 39 0; +#X connect 37 0 40 0; +#X connect 37 0 41 0; +#X connect 44 0 33 0; +#X connect 45 0 33 1; +#X connect 46 0 47 0; +#X connect 48 0 50 0; +#X connect 48 0 65 0; +#X connect 49 0 52 0; +#X connect 49 0 66 0; +#X connect 54 0 55 0; +#X connect 55 0 46 0; +#X connect 56 0 55 1; +#X connect 57 0 58 0; +#X connect 59 0 18 0; +#X connect 60 0 24 0; +#X connect 61 0 36 0; +#X connect 62 0 37 0; +#X connect 63 0 48 0; +#X connect 64 0 49 0; +#X connect 67 0 31 0; +#X connect 67 0 68 0; +#X connect 67 1 32 0; +#X connect 67 1 69 0; +#X connect 71 0 4 0; +#X connect 72 0 9 0; +#X connect 73 0 141 0; +#X connect 74 0 10 0; +#X connect 75 0 76 0; +#X connect 78 0 75 0; +#X connect 86 0 18 0; +#X connect 87 0 24 0; +#X connect 88 0 36 0; +#X connect 89 0 37 0; +#X connect 90 0 48 0; +#X connect 91 0 49 0; +#X connect 92 0 71 0; +#X connect 93 0 79 0; +#X connect 93 1 80 0; +#X connect 93 2 81 0; +#X connect 93 3 82 0; +#X connect 93 4 83 0; +#X connect 93 5 84 0; +#X connect 93 6 85 0; +#X connect 94 0 75 0; +#X connect 95 0 10 0; +#X connect 96 0 141 0; +#X connect 97 0 9 0; +#X connect 102 0 93 0; +#X connect 102 0 109 0; +#X connect 103 0 93 0; +#X connect 103 0 109 0; +#X connect 104 0 93 0; +#X connect 104 0 109 0; +#X connect 106 0 103 0; +#X connect 107 0 108 0; +#X connect 108 0 57 0; +#X connect 109 0 110 0; +#X connect 111 0 112 0; +#X connect 111 0 116 0; +#X connect 114 0 111 0; +#X connect 115 0 111 0; +#X connect 119 0 120 0; +#X connect 119 0 139 0; +#X connect 121 0 119 0; +#X connect 122 0 119 0; +#X connect 123 0 124 0; +#X connect 123 0 132 0; +#X connect 125 0 123 0; +#X connect 126 0 123 0; +#X connect 127 0 128 0; +#X connect 127 0 133 0; +#X connect 129 0 127 0; +#X connect 130 0 127 0; +#X connect 141 0 140 0;