Mercurial > hg > weather-synthesis-prototyping
changeset 216:f461a0f5d471
Swordsman added
Mechanical testbed updated - have a basic working prototype
line wrap: on
line diff
--- a/MechAeolian/MA_Test.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/MechAeolian/MA_Test.pd Mon May 09 17:19:54 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 97 40 1139 792 10; +#N canvas 262 32 1139 792 10; #X obj 249 -64 loadbang; #X obj -164 205 delwrite~ varwind 3000; #X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144 @@ -8,7 +8,7 @@ #X obj 35 -90 loadbang; #X msg 35 -70 5; #X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 6205 1; +-262144 -1 -1 5505 1; #X floatatom 303 52 8 0 0 0 - - -; #X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 6350 1; @@ -17,7 +17,7 @@ -1 -1 6350 1; #X floatatom 365 213 5 0 0 0 - - -; #X obj 350 239 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 380 268 5 0 0 0 - - -; #X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 8877 1; @@ -51,7 +51,7 @@ #X restore -190 400 pd opLevels; #X msg -181 346 5; #X obj -187 371 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 1294 1; +10 -262144 -1 -1 7594 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; @@ -67,7 +67,7 @@ #X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 309 84 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 1264 1; +-1 -1 200 1; #X floatatom 331 103 8 0 0 0 - - -; #X text -8 353 No Of Sources; #X obj 422 -63 s SET_UP; @@ -82,7 +82,7 @@ #X floatatom 415 389 5 0 0 0 - - -; #X obj 460 334 r SET_UP; #X obj 391 420 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 5080 1; +-1 -1 1280 1; #X floatatom 410 447 5 0 0 0 - - -; #X obj 484 388 r SET_UP; #X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
--- a/MechAeolian/MechAeolianD1.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/MechAeolian/MechAeolianD1.pd Mon May 09 17:19:54 2016 +0100 @@ -679,7 +679,7 @@ #X obj 320 424 r~ \$0-myCor; #X obj 636 81 max 0.01; #X obj 636 104 min 0.99; -#N canvas 93 119 976 679 Dipoles 1; +#N canvas 93 119 976 679 Dipoles 0; #X obj 225 178 r~ \$0-liftDiGain; #X obj 528 138 r~ \$0-liftDiGain; #X obj 528 159 *~ 0.6; @@ -731,7 +731,6 @@ #X obj 800 87 r \$0-Qval; #X obj 658 406 r \$0-Qval; #X obj 383 407 r \$0-Qval; -#X obj 210 158 *~ 1; #X obj 480 159 *~ 1; #X obj 750 154 *~ 1; #X obj 612 469 *~ 1; @@ -749,96 +748,87 @@ #X obj 650 65 r~ \$0-myAeoFreq; #X obj 508 385 r~ \$0-myAeoFreq; #X obj 238 384 r~ \$0-myAeoFreq; -#X obj 862 387 inlet; -#X obj 861 458 swap 1; -#X obj 861 481 -; -#X floatatom 864 518 0 0 0 0 - - -; -#X obj 862 433 line; -#X msg 862 410 \$1 50; #X obj 210 251 fcpan; #X obj 480 213 fcpan; #X obj 750 204 fcpan; #X obj 338 526 fcpan; #X obj 612 524 fcpan; -#X obj 210 221 fcpan; +#X obj 210 158 *~ 1; #X connect 0 0 11 1; #X connect 1 0 2 0; #X connect 2 0 17 1; #X connect 3 0 29 0; #X connect 4 0 26 1; -#X connect 4 0 57 1; +#X connect 4 0 56 1; #X connect 5 0 20 1; -#X connect 5 0 56 1; +#X connect 5 0 55 1; #X connect 6 0 30 1; #X connect 7 0 33 1; -#X connect 7 0 59 1; +#X connect 7 0 58 1; #X connect 8 0 10 0; #X connect 9 0 39 1; -#X connect 9 0 58 1; +#X connect 9 0 57 1; #X connect 10 0 36 1; -#X connect 11 0 78 0; -#X connect 14 0 55 0; -#X connect 15 0 73 1; +#X connect 11 0 66 0; +#X connect 14 0 54 0; +#X connect 15 0 66 1; #X connect 16 0 14 0; -#X connect 20 0 56 0; -#X connect 21 0 74 1; +#X connect 17 0 67 0; +#X connect 20 0 55 0; +#X connect 21 0 67 1; #X connect 22 0 20 0; -#X connect 26 0 57 0; -#X connect 27 0 75 1; +#X connect 23 0 68 0; +#X connect 26 0 56 0; +#X connect 27 0 68 1; #X connect 28 0 26 0; #X connect 29 0 23 1; -#X connect 33 0 59 0; -#X connect 34 0 76 1; +#X connect 30 0 69 0; +#X connect 33 0 58 0; +#X connect 34 0 69 1; #X connect 35 0 33 0; -#X connect 39 0 58 0; -#X connect 40 0 77 1; +#X connect 36 0 70 0; +#X connect 39 0 57 0; +#X connect 40 0 70 1; #X connect 41 0 39 0; #X connect 44 0 14 2; -#X connect 44 0 54 0; -#X connect 44 0 55 2; +#X connect 44 0 53 0; +#X connect 44 0 54 2; #X connect 45 0 20 2; -#X connect 45 0 56 2; +#X connect 45 0 55 2; #X connect 46 0 26 2; -#X connect 46 0 57 2; +#X connect 46 0 56 2; #X connect 47 0 39 2; -#X connect 47 0 58 2; +#X connect 47 0 57 2; #X connect 48 0 33 2; -#X connect 48 0 59 2; -#X connect 49 0 11 0; -#X connect 50 0 17 0; -#X connect 51 0 23 0; -#X connect 52 0 36 0; -#X connect 53 0 30 0; +#X connect 48 0 58 2; +#X connect 49 0 17 0; +#X connect 50 0 23 0; +#X connect 51 0 36 0; +#X connect 52 0 30 0; +#X connect 54 0 71 0; #X connect 55 0 49 0; #X connect 56 0 50 0; #X connect 57 0 51 0; #X connect 58 0 52 0; -#X connect 59 0 53 0; -#X connect 60 0 61 0; -#X connect 62 0 14 1; -#X connect 62 0 55 1; -#X connect 63 0 5 0; -#X connect 64 0 4 0; -#X connect 65 0 9 0; -#X connect 66 0 7 0; -#X connect 67 0 72 0; -#X connect 68 0 69 0; -#X connect 68 1 69 1; -#X connect 69 0 70 0; -#X connect 71 0 68 0; -#X connect 72 0 71 0; -#X connect 73 0 12 0; -#X connect 73 1 13 0; -#X connect 74 0 18 0; -#X connect 74 1 19 0; -#X connect 75 0 24 0; -#X connect 75 1 25 0; -#X connect 76 0 31 0; -#X connect 76 1 32 0; -#X connect 77 0 37 0; -#X connect 77 1 38 0; -#X connect 78 1 73 0; -#X restore 582 545 pd Dipoles; +#X connect 59 0 60 0; +#X connect 61 0 14 1; +#X connect 61 0 54 1; +#X connect 62 0 5 0; +#X connect 63 0 4 0; +#X connect 64 0 9 0; +#X connect 65 0 7 0; +#X connect 66 0 12 0; +#X connect 66 1 13 0; +#X connect 67 0 18 0; +#X connect 67 1 19 0; +#X connect 68 0 24 0; +#X connect 68 1 25 0; +#X connect 69 0 31 0; +#X connect 69 1 32 0; +#X connect 70 0 37 0; +#X connect 70 1 38 0; +#X connect 71 0 11 0; +#X restore 543 535 pd Dipoles; #X obj 1088 69 noise~; #X obj 1088 92 s~ \$0-thisNoise; #X obj 1067 214 r~ \$0-thisNoise; @@ -990,8 +980,8 @@ #X obj 918 466 r myMet; #X obj 918 489 snapshot~; #X floatatom 918 513 0 0 0 0 - - -; -#N canvas 432 23 966 712 natHarmonics 1; -#X obj 181 446 r~ \$0-myFreq; +#N canvas 57 23 1368 742 natHarmonics 1; +#X obj 7 432 r~ \$0-myFreq; #X obj 24 464 r myMet; #X obj 24 484 snapshot~; #X floatatom 24 504 0 0 0 0 - - -; @@ -1200,7 +1190,7 @@ #X connect 72 0 73 0; #X restore 120 15 pd NoMatch; #X obj 472 213 r~ \$0-thisNatF; -#N canvas 348 300 750 455 limits 0; +#N canvas 204 190 904 643 limits 1; #X obj 146 235 *; #X obj 197 114 +~; #X obj 161 115 -~; @@ -1240,7 +1230,7 @@ #X connect 10 0 5 0; #X connect 10 0 3 0; #X restore 481 102 pd approxToneCalc; -#X floatatom 205 266 0 0 0 0 - - -; +#X floatatom 212 277 0 0 0 0 - - -; #X floatatom 210 234 0 0 0 0 - - -; #X floatatom 235 221 0 0 0 0 - - -; #X obj 197 310 outlet; @@ -1273,12 +1263,39 @@ #X obj 463 34 r myMet; #X obj 463 57 snapshot~; #X floatatom 463 79 0 0 0 0 - - -; -#X obj 176 48 *~ 0.1; +#X obj 610 296 sqrt~; +#X obj 610 227 *~; +#X obj 625 248 sig~ 1; +#X obj 610 273 +~; +#X obj 595 319 /~; +#X obj 679 325 r myMet; +#X obj 679 348 snapshot~; +#X floatatom 679 373 0 0 0 0 - - -; +#X obj 493 455 r myMet; +#X obj 493 478 snapshot~; +#X floatatom 493 500 0 0 0 0 - - -; +#X obj 595 415 outlet~; +#X obj 441 193 -~; +#X obj 235 455 r myMet; +#X obj 235 478 snapshot~; +#X floatatom 235 500 0 0 0 0 - - -; +#X obj 413 421 *~; +#X obj 363 249 r myMet; +#X obj 363 272 snapshot~; +#X floatatom 363 294 0 0 0 0 - - -; +#X obj 446 144 r~ \$0-myFreq; +#X obj 413 447 outlet~; +#X obj 595 387 +~ 0.5; +#X obj 595 367 *~ -1; +#X obj 595 347 *~ 0.5; +#X obj 176 48 *~ 0.05; +#X obj 595 197 *~ 10; #X connect 0 0 21 0; #X connect 0 0 24 0; #X connect 0 0 8 1; #X connect 1 0 4 1; #X connect 2 0 3 1; +#X connect 2 0 41 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 6 0; @@ -1292,9 +1309,10 @@ #X connect 9 0 1 0; #X connect 9 0 2 0; #X connect 9 0 15 0; +#X connect 9 0 45 0; #X connect 11 0 3 0; #X connect 11 0 4 0; -#X connect 12 0 29 0; +#X connect 12 0 54 0; #X connect 13 0 25 1; #X connect 14 0 15 0; #X connect 15 0 16 0; @@ -1305,11 +1323,35 @@ #X connect 25 0 1 1; #X connect 26 0 27 0; #X connect 27 0 28 0; -#X connect 29 0 25 0; +#X connect 29 0 33 1; +#X connect 30 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 29 0; +#X connect 33 0 35 0; +#X connect 33 0 53 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 41 0 47 0; +#X connect 41 0 55 0; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 45 0 43 0; +#X connect 45 0 50 0; +#X connect 46 0 47 0; +#X connect 47 0 48 0; +#X connect 49 0 41 1; +#X connect 51 0 38 0; +#X connect 51 0 40 0; +#X connect 51 0 45 1; +#X connect 52 0 51 0; +#X connect 53 0 52 0; +#X connect 54 0 25 0; +#X connect 55 0 30 1; +#X connect 55 0 30 0; +#X connect 55 0 33 0; #X restore 472 255 pd limits; -#X obj 517 277 r myMet; -#X obj 517 300 snapshot~; -#X floatatom 517 322 0 0 0 0 - - -; #X obj 392 71 r~ \$0-myFreq; #X obj 407 96 r~ \$0-thisNatF; #X obj 392 120 /~; @@ -1322,148 +1364,126 @@ #X obj 301 258 snapshot~; #X floatatom 301 278 0 0 0 0 - - -; #X obj 372 257 -~; -#X obj 298 309 r myMet; -#X obj 298 332 snapshot~; -#X floatatom 298 353 0 0 0 0 - - -; #X obj 41 227 r~ \$0-thisNatF; #X obj 53 249 r myMet; #X obj 53 272 snapshot~; #X floatatom 53 292 0 0 0 0 - - -; -#X obj 372 278 abs~; #X floatatom 452 168 0 0 0 0 - - -; #X obj 393 166 i; #X obj 393 191 + 1; #X obj 472 234 *~ 1; #X obj 387 236 r~ \$0-myFreq; #X obj 372 50 r~ \$0-thisNatF; -#X obj 108 587 outlet~; -#X obj 167 588 outlet~; -#X obj 221 588 outlet~; -#X obj 285 588 outlet~; -#X floatatom 580 263 0 0 0 0 - - -; -#X obj 584 407 spigot; -#X obj 637 406 spigot; -#X obj 670 383 > 0; -#X obj 584 362 r myMet; -#X obj 649 460 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 --1 -1; -#X obj 612 460 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 --1 -1; -#X floatatom 686 408 0 0 0 0 - - -; -#X obj 617 383 < 1; -#X obj 675 494 r myMet; -#X obj 675 517 snapshot~; -#X floatatom 675 537 0 0 0 0 - - -; -#X obj 422 303 *~ 2; +#X obj 329 674 outlet~; +#X obj 637 576 outlet~; +#X floatatom 654 415 0 0 0 0 - - -; +#X obj 184 330 r myMet; +#X obj 184 353 snapshot~; +#X floatatom 184 373 0 0 0 0 - - -; #X obj 22 553 r myMet; -#X obj 22 576 snapshot~; +#X obj 22 574 snapshot~; #X floatatom 22 596 0 0 0 0 - - -; -#X obj 345 485 *~ 1; -#X msg 366 424 0; -#X msg 374 452 1; -#X obj 244 498 *~ 1; -#X obj 181 494 *~ 1; -#X obj 471 498 *~ 1; -#X msg 520 442 1; -#X msg 486 441 0; -#X obj 751 485 outlet; -#X obj 529 498 spigot~; -#X obj 472 566 -~; -#X obj 471 597 outlet~; -#X obj 568 550 *~ 2; -#X obj 568 572 -~; -#X obj 568 598 outlet~; -#X obj 625 572 -~; -#X obj 625 598 outlet~; -#X obj 625 550 *~ 3; -#X obj 710 580 -~; -#X obj 710 606 outlet~; -#X obj 710 558 *~ 4; -#X obj 760 577 -~; -#X obj 760 603 outlet~; -#X obj 760 555 *~ 5; +#X obj 505 684 throw~ l; +#X obj 513 662 throw~ r; +#X obj 372 313 osc~; +#X obj 508 608 *~; +#X obj 523 556 +~ 1; +#X obj 523 533 line~; +#X obj 523 488 /; +#X obj 538 466 t f b; +#X floatatom 597 522 0 0 0 0 - - -; +#X obj 538 445 *; +#X obj 523 413 * 1000; +#X obj 523 389 snapshot~; +#X floatatom 570 412 0 0 0 0 - - -; +#X obj 536 365 r myMet; +#X obj 334 532 -~ 1; +#X obj 333 552 *~ -1; +#X obj 381 559 r myMet; +#X obj 381 582 snapshot~; +#X floatatom 381 602 0 0 0 0 - - -; +#X obj 326 612 *~; +#X obj 236 510 r~ \$0-myFreq; +#X obj 473 311 osc~; +#X obj 372 410 *~; +#X obj 372 340 +~ 1; +#X obj 372 383 +~ 0.5; +#X obj 523 583 *~ 0.1; +#X msg 523 512 \$1 50; +#X obj 473 337 *~; +#X obj 508 630 *~ 1e-11; +#X obj 372 361 *~ 0.1; #X connect 0 0 2 0; -#X connect 0 0 63 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 4 0 6 0; #X connect 6 0 5 0; -#X connect 8 0 36 0; -#X connect 9 0 11 0; -#X connect 9 0 64 0; -#X connect 9 1 43 0; -#X connect 9 1 46 0; -#X connect 9 1 51 0; -#X connect 10 0 11 0; -#X connect 11 0 12 0; -#X connect 13 0 15 0; -#X connect 14 0 15 1; -#X connect 15 0 17 0; -#X connect 16 0 17 0; -#X connect 17 0 33 0; -#X connect 17 0 34 0; -#X connect 20 0 22 0; -#X connect 20 0 24 0; -#X connect 20 0 62 0; -#X connect 21 0 22 0; -#X connect 22 0 23 0; -#X connect 24 0 32 0; -#X connect 25 0 26 0; -#X connect 26 0 27 0; -#X connect 28 0 30 0; -#X connect 29 0 30 0; -#X connect 30 0 31 0; -#X connect 32 0 26 0; -#X connect 32 0 55 0; -#X connect 32 0 59 0; -#X connect 32 0 68 0; -#X connect 34 0 18 0; -#X connect 34 0 35 0; -#X connect 35 0 20 1; -#X connect 35 0 19 0; -#X connect 35 0 36 1; -#X connect 36 0 9 0; -#X connect 37 0 24 1; -#X connect 38 0 20 0; -#X connect 44 0 49 0; -#X connect 44 0 66 0; -#X connect 44 0 61 0; -#X connect 45 0 48 0; -#X connect 45 0 65 0; -#X connect 45 0 60 0; -#X connect 46 0 45 1; -#X connect 46 0 50 0; +#X connect 8 0 29 0; +#X connect 9 0 62 0; +#X connect 9 1 34 0; +#X connect 9 3 52 0; +#X connect 9 3 55 0; +#X connect 10 0 12 0; +#X connect 11 0 12 1; +#X connect 12 0 14 0; +#X connect 13 0 14 0; +#X connect 14 0 26 0; +#X connect 14 0 27 0; +#X connect 17 0 19 0; +#X connect 17 0 21 0; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 21 0 43 0; +#X connect 21 0 36 0; +#X connect 22 0 24 0; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 27 0 15 0; +#X connect 27 0 28 0; +#X connect 28 0 17 1; +#X connect 28 0 16 0; +#X connect 28 0 29 1; +#X connect 28 0 50 1; +#X connect 28 0 50 0; +#X connect 29 0 9 0; +#X connect 30 0 21 1; +#X connect 31 0 17 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 43 0 64 0; +#X connect 44 0 69 0; +#X connect 45 0 66 0; +#X connect 46 0 45 0; +#X connect 46 0 58 0; #X connect 46 0 68 1; -#X connect 47 0 45 0; -#X connect 47 0 44 0; -#X connect 50 0 67 0; -#X connect 51 0 44 1; +#X connect 47 0 67 0; +#X connect 47 0 49 0; +#X connect 48 0 47 1; +#X connect 48 1 47 0; +#X connect 50 0 48 0; +#X connect 51 0 47 0; #X connect 52 0 53 0; -#X connect 53 0 54 0; -#X connect 56 0 57 0; +#X connect 52 0 51 0; +#X connect 54 0 52 0; +#X connect 55 0 56 0; +#X connect 56 0 60 1; #X connect 57 0 58 0; -#X connect 59 0 41 0; -#X connect 60 0 62 1; -#X connect 62 0 40 0; -#X connect 63 0 57 0; -#X connect 63 0 39 0; -#X connect 64 0 42 0; -#X connect 64 0 69 0; -#X connect 68 1 53 0; -#X connect 68 1 69 1; -#X connect 68 1 71 0; -#X connect 68 1 76 0; -#X connect 68 1 79 0; -#X connect 68 1 82 0; -#X connect 69 0 70 0; -#X connect 71 0 72 0; -#X connect 72 0 73 0; -#X connect 74 0 75 0; -#X connect 76 0 74 0; -#X connect 77 0 78 0; -#X connect 79 0 77 0; -#X connect 80 0 81 0; -#X connect 82 0 80 0; +#X connect 58 0 59 0; +#X connect 60 0 32 0; +#X connect 61 0 60 0; +#X connect 62 0 68 0; +#X connect 63 0 44 0; +#X connect 64 0 70 0; +#X connect 65 0 63 0; +#X connect 65 0 39 0; +#X connect 66 0 44 1; +#X connect 67 0 46 0; +#X connect 68 0 63 1; +#X connect 69 0 42 0; +#X connect 69 0 41 0; +#X connect 70 0 65 0; #X restore 582 436 pd natHarmonics; #X obj 746 110 s~ \$0-thisNatF; #N canvas 740 125 706 567 natFreqSources 0; @@ -1496,7 +1516,6 @@ #X obj 91 244 fcpan; #X obj 321 248 fcpan; #X connect 0 0 24 0; -#X connect 1 0 26 0; #X connect 4 0 10 0; #X connect 5 0 26 1; #X connect 6 0 4 0; @@ -1506,7 +1525,6 @@ #X connect 8 0 1 0; #X connect 10 0 8 0; #X connect 11 0 25 0; -#X connect 12 0 27 0; #X connect 15 0 21 0; #X connect 16 0 27 1; #X connect 17 0 15 0; @@ -1525,7 +1543,7 @@ #X connect 26 1 3 0; #X connect 27 0 13 0; #X connect 27 1 14 0; -#X restore 611 522 pd natFreqSources; +#X restore 687 511 pd natFreqSources; #X obj 868 71 r myMet; #X obj 868 94 snapshot~; #X floatatom 868 118 0 0 0 0 - - -; @@ -1562,39 +1580,39 @@ #X obj 919 256 r myMet; #X obj 919 279 snapshot~; #X floatatom 919 303 0 0 0 0 - - -; -#N canvas 347 221 976 679 NatDipoles 1; +#N canvas 347 221 976 679 NatDipoles 0; #X obj 225 160 r~ \$0-liftDiGain; #X obj 528 138 r~ \$0-liftDiGain; #X obj 798 130 r~ \$0-liftDiGain; #X obj 210 207 *~; -#X obj 210 304 throw~ l; -#X obj 237 281 throw~ r; +#X obj 210 285 throw~ l; +#X obj 237 262 throw~ r; #X obj 210 108 vcf~ 3; -#X obj 251 251 r \$0-thisPan; +#X obj 237 218 r \$0-thisPan; #X obj 210 67 r~ \$0-thisNoise; #X obj 480 192 *~; -#X obj 479 294 throw~ l; -#X obj 506 271 throw~ r; +#X obj 480 269 throw~ l; +#X obj 507 249 throw~ r; #X obj 480 116 vcf~ 3; -#X obj 506 228 r \$0-thisPan; +#X obj 507 203 r \$0-thisPan; #X obj 480 68 r~ \$0-thisNoise; #X obj 750 183 *~; -#X obj 750 291 throw~ l; -#X obj 777 268 throw~ r; +#X obj 750 261 throw~ l; +#X obj 777 238 throw~ r; #X obj 750 107 vcf~ 3; -#X obj 777 225 r \$0-thisPan; +#X obj 777 195 r \$0-thisPan; #X obj 750 65 r~ \$0-thisNoise; #X obj 338 494 *~; -#X obj 338 604 throw~ l; -#X obj 365 581 throw~ r; +#X obj 338 573 throw~ l; +#X obj 365 550 throw~ r; #X obj 338 429 vcf~ 3; -#X obj 365 538 r \$0-thisPan; +#X obj 365 507 r \$0-thisPan; #X obj 338 385 r~ \$0-thisNoise; #X obj 612 492 *~; -#X obj 612 602 throw~ l; -#X obj 639 579 throw~ r; +#X obj 612 571 throw~ l; +#X obj 639 548 throw~ r; #X obj 612 427 vcf~ 3; -#X obj 639 536 r \$0-thisPan; +#X obj 639 505 r \$0-thisPan; #X obj 612 385 r~ \$0-thisNoise; #X text 273 27 Generates the sound associated with the lift dipole. ; @@ -1622,51 +1640,42 @@ #X obj 48 197 r myMet; #X obj 48 218 snapshot~; #X floatatom 48 238 0 0 0 0 - - -; -#X obj 345 145 inlet; -#X obj 345 190 line; -#X floatatom 339 235 0 0 0 0 - - -; -#X obj 210 233 fcpan; -#X obj 210 260 fcpan; -#X obj 481 253 fcpan; -#X obj 750 247 fcpan; -#X obj 338 560 fcpan; -#X obj 612 558 fcpan; +#X obj 210 241 fcpan; +#X obj 480 226 fcpan; +#X obj 750 217 fcpan; +#X obj 338 529 fcpan; +#X obj 612 527 fcpan; #X obj 420 67 inlet~; #X obj 676 67 inlet~; #X obj 245 383 inlet~; #X obj 523 377 inlet~; -#X obj 454 225 fcpan; -#X obj 726 211 fcpan; -#X obj 309 522 fcpan; -#X obj 588 525 fcpan; #X obj 225 183 *~ 100; -#X msg 345 168 \$1 30; #X obj 798 152 *~ 1; #X obj 528 159 *~ 1; #X obj 658 470 *~ 1; #X obj 338 472 *~ 1; -#X connect 0 0 74 0; -#X connect 1 0 77 0; -#X connect 2 0 76 0; -#X connect 3 0 60 0; +#X connect 0 0 66 0; +#X connect 1 0 68 0; +#X connect 2 0 67 0; +#X connect 3 0 57 0; #X connect 6 0 44 0; -#X connect 7 0 61 1; +#X connect 7 0 57 1; #X connect 8 0 6 0; -#X connect 9 0 70 0; +#X connect 9 0 58 0; #X connect 12 0 45 0; -#X connect 13 0 62 1; +#X connect 13 0 58 1; #X connect 14 0 12 0; -#X connect 15 0 71 0; +#X connect 15 0 59 0; #X connect 18 0 46 0; -#X connect 19 0 63 1; +#X connect 19 0 59 1; #X connect 20 0 18 0; -#X connect 21 0 72 0; +#X connect 21 0 60 0; #X connect 24 0 48 0; -#X connect 25 0 64 1; +#X connect 25 0 60 1; #X connect 26 0 24 0; -#X connect 27 0 73 0; +#X connect 27 0 61 0; #X connect 30 0 47 0; -#X connect 31 0 65 1; +#X connect 31 0 61 1; #X connect 32 0 30 0; #X connect 35 0 6 2; #X connect 35 0 43 0; @@ -1686,54 +1695,46 @@ #X connect 45 0 40 0; #X connect 46 0 41 0; #X connect 47 0 42 0; -#X connect 48 0 79 0; +#X connect 48 0 70 0; #X connect 49 0 52 0; #X connect 50 0 21 1; -#X connect 51 0 78 0; +#X connect 51 0 69 0; #X connect 53 0 6 1; #X connect 53 0 44 1; #X connect 54 0 55 0; #X connect 55 0 56 0; -#X connect 57 0 75 0; -#X connect 58 0 59 0; -#X connect 60 1 61 0; -#X connect 61 0 4 0; -#X connect 61 1 5 0; -#X connect 62 0 10 0; -#X connect 62 1 11 0; -#X connect 63 0 16 0; -#X connect 63 1 17 0; -#X connect 64 0 22 0; -#X connect 64 1 23 0; -#X connect 65 0 28 0; -#X connect 65 1 29 0; -#X connect 66 0 12 1; -#X connect 66 0 45 1; -#X connect 67 0 18 1; -#X connect 67 0 46 1; -#X connect 68 0 24 1; -#X connect 68 0 48 1; -#X connect 69 0 30 1; -#X connect 69 0 47 1; -#X connect 70 1 62 0; -#X connect 71 0 63 0; -#X connect 72 1 64 0; -#X connect 73 0 65 0; -#X connect 74 0 3 1; -#X connect 75 0 58 0; -#X connect 76 0 15 1; -#X connect 77 0 9 1; -#X connect 78 0 27 1; -#X connect 79 0 21 0; -#X restore 681 489 pd NatDipoles; +#X connect 57 0 4 0; +#X connect 57 1 5 0; +#X connect 58 0 10 0; +#X connect 58 1 11 0; +#X connect 59 0 16 0; +#X connect 59 1 17 0; +#X connect 60 0 22 0; +#X connect 60 1 23 0; +#X connect 61 0 28 0; +#X connect 61 1 29 0; +#X connect 62 0 12 1; +#X connect 62 0 45 1; +#X connect 63 0 18 1; +#X connect 63 0 46 1; +#X connect 64 0 24 1; +#X connect 64 0 48 1; +#X connect 65 0 30 1; +#X connect 65 0 47 1; +#X connect 66 0 3 1; +#X connect 67 0 15 1; +#X connect 68 0 9 1; +#X connect 69 0 27 1; +#X connect 70 0 21 0; +#X restore 762 554 pd NatDipoles; #X obj 1052 359 fcpan; +#X obj 496 446 r~ \$0-myFreq; #X connect 0 0 4 0; #X connect 0 0 32 0; #X connect 3 0 19 0; #X connect 3 0 36 0; #X connect 6 0 96 0; #X connect 8 0 5 0; -#X connect 9 0 105 0; #X connect 11 0 72 0; #X connect 15 0 58 1; #X connect 16 0 58 4; @@ -1785,15 +1786,6 @@ #X connect 87 0 88 0; #X connect 88 0 89 0; #X connect 90 0 74 0; -#X connect 90 1 92 0; -#X connect 90 2 92 1; -#X connect 90 3 104 0; -#X connect 90 5 104 1; -#X connect 90 6 104 3; -#X connect 90 7 104 4; -#X connect 90 8 104 2; -#X connect 90 8 74 1; -#X connect 90 9 104 5; #X connect 93 0 94 0; #X connect 94 0 95 0; #X connect 96 0 7 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MechAeolian/mechTone1.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,119 @@ +#N canvas 0 22 904 710 10; +#X obj 457 83 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 464 109 8 0 0 0 - - -; +#X obj 510 359 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 540 388 5 0 0 0 - - -; +#X obj 489 241 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 517 270 5 0 0 0 - - -; +#X obj 499 296 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 521 324 5 0 0 0 - - -; +#X obj 478 184 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 494 213 5 0 0 0 - - -; +#X text 658 360 Pan Value; +#X obj 467 141 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 489 160 8 0 0 0 - - -; +#X obj 532 472 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 565 501 5 0 0 0 - - -; +#X obj 521 416 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 540 443 5 0 0 0 - - -; +#X msg 509 41 0.006; +#X obj 454 634 MechAeolianD1; +#X text 595 86 Diameter (m); +#X text 602 125 Length (m); +#X text 622 185 Obs Distance (m); +#X text 637 241 Obs Azimuth (degs); +#X text 650 297 Obs Elevation (degs); +#X text 682 445 Mass Desnity (kg / m^3); +#X text 671 411 Tension (N); +#X obj 165 33 inlet; +#X obj 165 563 s \$0-sourceDia; +#X obj 183 505 s \$0-sourceLen; +#X obj 201 445 s \$0-sourceDis; +#X obj 220 379 s \$0-sourceElev; +#X obj 257 254 s \$0-sourecPan; +#X obj 238 314 s \$0-sourecAzim; +#X obj 257 235 line; +#X msg 257 215 \$1 100; +#X obj 238 295 line; +#X msg 238 275 \$1 100; +#X obj 220 356 line; +#X msg 220 336 \$1 100; +#X obj 201 424 line; +#X msg 201 404 \$1 100; +#X obj 183 484 line; +#X msg 183 464 \$1 100; +#X obj 165 544 line; +#X msg 165 524 \$1 100; +#X obj 637 53 r \$0-sourceDia; +#X obj 639 106 r \$0-sourceLen; +#X obj 661 158 r \$0-sourceDis; +#X obj 657 266 r \$0-sourceElev; +#X obj 583 210 r \$0-sourecAzim; +#X obj 599 328 r \$0-sourecPan; +#X obj 165 55 unpack f f f f f f f f; +#X obj 275 172 line; +#X msg 275 152 \$1 100; +#X obj 275 191 s \$0-sourecTens; +#X obj 614 384 r \$0-sourecTens; +#X obj 294 107 line; +#X msg 294 87 \$1 100; +#X obj 294 126 s \$0-sourecMass; +#X obj 610 446 r \$0-sourecMass; +#X connect 0 0 1 0; +#X connect 0 0 18 0; +#X connect 2 0 3 0; +#X connect 2 0 18 5; +#X connect 4 0 5 0; +#X connect 4 0 18 3; +#X connect 6 0 7 0; +#X connect 6 0 18 4; +#X connect 8 0 9 0; +#X connect 8 0 18 2; +#X connect 11 0 12 0; +#X connect 11 0 18 1; +#X connect 13 0 14 0; +#X connect 13 0 18 7; +#X connect 15 0 16 0; +#X connect 15 0 18 6; +#X connect 17 0 0 0; +#X connect 26 0 51 0; +#X connect 33 0 31 0; +#X connect 34 0 33 0; +#X connect 35 0 32 0; +#X connect 36 0 35 0; +#X connect 37 0 30 0; +#X connect 38 0 37 0; +#X connect 39 0 29 0; +#X connect 40 0 39 0; +#X connect 41 0 28 0; +#X connect 42 0 41 0; +#X connect 43 0 27 0; +#X connect 44 0 43 0; +#X connect 45 0 0 0; +#X connect 46 0 11 0; +#X connect 47 0 8 0; +#X connect 48 0 6 0; +#X connect 49 0 4 0; +#X connect 50 0 2 0; +#X connect 51 0 44 0; +#X connect 51 1 42 0; +#X connect 51 2 40 0; +#X connect 51 3 38 0; +#X connect 51 4 36 0; +#X connect 51 5 34 0; +#X connect 51 6 53 0; +#X connect 51 7 57 0; +#X connect 52 0 54 0; +#X connect 53 0 52 0; +#X connect 55 0 15 0; +#X connect 56 0 58 0; +#X connect 57 0 56 0; +#X connect 59 0 13 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MechAeolian/testBedMAD1.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,212 @@ +#N canvas 294 170 1323 659 10; +#X obj -154 155 delwrite~ varwind 3000; +#X obj -44 -36 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 593 1; +#X obj -153 8 *~ 1; +#X obj -153 34 +~ 1; +#X obj -283 258 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj -220 258 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text -223 167 Gain; +#X obj -275 138 loadbang; +#N canvas 555 179 313 396 opLevels 0; +#X obj 79 184 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 connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 3 0 6 0; +#X connect 3 0 0 1; +#X connect 4 0 5 0; +#X connect 4 0 0 0; +#X connect 5 0 8 0; +#X connect 6 0 9 0; +#X connect 7 0 4 1; +#X connect 7 0 3 1; +#X restore -284 215 pd opLevels; +#X msg -275 161 5; +#X obj -281 186 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0 +10 -262144 -1 -1 9482 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; +#X obj 26 33 s~ MY_MACH; +#X obj 26 9 /~ 343.56; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X restore -219 -140 pd machCalc; +#X obj 140 -114 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1 +-1; +#X obj 140 -47 s SET_UP; +#X floatatom -6 -13 5 0 0 0 - - -; +#X obj -284 115 r GAIN; +#X obj -47 -60 r SPEED; +#X floatatom -341 216 8 0 0 0 - - -; +#N canvas 634 290 596 443 windDirection 0; +#X obj 183 0 inlet~; +#X obj 280 52 inlet; +#X obj 280 86 sig~; +#X obj 185 251 *~; +#X obj 185 279 outlet~; +#X obj 246 254 outlet~; +#X obj 200 195 cos~; +#X obj 200 135 +~; +#X obj 200 71 lop~ 1; +#X obj 246 194 *~ 360; +#X obj 200 91 lop~ 1; +#X obj 200 30 noise~; +#X obj 200 51 lop~ 1; +#X obj 200 157 /~ 360; +#X obj 200 113 *~ 800; +#X obj 200 221 abs~; +#X connect 0 0 3 0; +#X connect 1 0 2 0; +#X connect 2 0 7 1; +#X connect 3 0 4 0; +#X connect 6 0 15 0; +#X connect 7 0 13 0; +#X connect 8 0 10 0; +#X connect 9 0 5 0; +#X connect 10 0 14 0; +#X connect 11 0 12 0; +#X connect 12 0 8 0; +#X connect 13 0 6 0; +#X connect 13 0 9 0; +#X connect 14 0 7 0; +#X connect 15 0 3 1; +#X restore -362 30 pd windDirection; +#X obj -135 81 snapshot~; +#X floatatom -135 108 10 0 0 0 - - -; +#X text -138 126 Wind Speed; +#X obj -340 -14 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -339 -78 snapshot~; +#X floatatom -339 -51 10 0 0 0 - - -; +#X text -301 -31 Wind Direction; +#X obj -153 -22 WindGenD1; +#X obj -135 -125 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -135 -150 loadbang; +#X obj -135 -79 s myMet; +#X obj -339 -101 r myMet; +#X obj -135 58 r myMet; +#X obj -348 61 TUCalc2; +#X obj -84 -13 * 0.5; +#X obj -47 -13 * 0.88; +#X obj -135 -103 metro 100; +#X obj -348 85 s blust; +#X floatatom -297 83 0 0 0 0 - - -; +#X obj 140 -72 uzi 20; +#X obj -42 55 bng 35 250 50 0 empty empty empty 17 7 0 10 -261234 -1 +-1; +#X obj -42 122 s option1; +#X obj 259 -30 r option1; +#X obj 513 -29 r option1; +#X obj 294 233 r option1; +#X obj 548 234 r option1; +#X obj 26 55 bng 35 250 50 0 empty empty empty 17 7 0 10 -262130 -1 +-1; +#X obj 26 122 s option2; +#X obj 234 -74 r option2; +#X obj 488 -72 r option2; +#X obj 276 189 r option2; +#X obj 530 191 r option2; +#X obj 39 -92 r option1; +#X obj 9 -114 r option2; +#X obj 215 -115 r option3; +#X obj 469 -113 r option3; +#X obj 245 142 r option3; +#X obj 499 144 r option3; +#X obj -20 -136 r option3; +#X obj 95 55 bng 35 250 50 0 empty empty empty 17 7 0 10 -204786 -1 +-1; +#X obj 95 122 s option3; +#X obj 259 15 mechTone1; +#X obj 513 16 mechTone1; +#X obj 292 281 mechTone1; +#X obj 547 279 mechTone1; +#X msg -20 -116 7; +#X msg 9 -94 3; +#X msg 39 -72 10; +#X msg 530 213 0.009 0.8 4 90 0 0.5; +#X msg 547 254 0.0119 1.2 4 90 0 0.5; +#X msg 292 256 0.0122 1.2 4 90 0 0.5; +#X msg 276 212 0.0089 0.8 4 90 0 0.5; +#X msg 513 -9 0.012 1.2 4 90 0 0.5; +#X msg 488 -50 0.0095 0.8 4 90 0 0.5; +#X msg 234 -51 0.009 0.8 4 90 0 0.5; +#X msg 259 -10 0.012 1.2 4 90 0 0.5; +#X msg 215 -95 0.002 2.01 4 90 0 0.5 800 2000; +#X msg 469 -94 0.002 2.01 4 90 0 0.5 800 2000; +#X msg 245 163 0.002 2.01 4 90 0 0.5 800 2000; +#X msg 499 164 0.002 2.01 4 90 0 0.5 800 2000; +#X connect 1 0 14 0; +#X connect 1 0 33 0; +#X connect 1 0 34 0; +#X connect 2 0 3 0; +#X connect 3 0 0 0; +#X connect 3 0 19 0; +#X connect 7 0 9 0; +#X connect 8 0 4 0; +#X connect 8 1 5 0; +#X connect 9 0 10 0; +#X connect 10 0 8 0; +#X connect 10 0 17 0; +#X connect 12 0 38 0; +#X connect 15 0 10 0; +#X connect 16 0 1 0; +#X connect 18 0 32 0; +#X connect 18 1 23 0; +#X connect 19 0 20 0; +#X connect 22 0 18 1; +#X connect 23 0 24 0; +#X connect 26 0 2 0; +#X connect 27 0 35 0; +#X connect 28 0 27 0; +#X connect 30 0 23 0; +#X connect 31 0 19 0; +#X connect 32 0 36 0; +#X connect 32 0 37 0; +#X connect 33 0 2 1; +#X connect 34 0 3 1; +#X connect 35 0 29 0; +#X connect 38 0 13 0; +#X connect 39 0 40 0; +#X connect 41 0 74 0; +#X connect 42 0 71 0; +#X connect 43 0 69 0; +#X connect 44 0 68 0; +#X connect 45 0 46 0; +#X connect 47 0 73 0; +#X connect 48 0 72 0; +#X connect 49 0 70 0; +#X connect 50 0 67 0; +#X connect 51 0 66 0; +#X connect 52 0 65 0; +#X connect 53 0 75 0; +#X connect 54 0 76 0; +#X connect 55 0 77 0; +#X connect 56 0 78 0; +#X connect 57 0 64 0; +#X connect 58 0 59 0; +#X connect 64 0 1 0; +#X connect 65 0 1 0; +#X connect 66 0 1 0; +#X connect 67 0 63 0; +#X connect 68 0 63 0; +#X connect 69 0 62 0; +#X connect 70 0 62 0; +#X connect 71 0 61 0; +#X connect 72 0 61 0; +#X connect 73 0 60 0; +#X connect 74 0 60 0; +#X connect 75 0 60 0; +#X connect 76 0 61 0; +#X connect 77 0 62 0; +#X connect 78 0 63 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MechAeolian/weeTest.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,109 @@ +#N canvas 68 45 1339 666 10; +#X obj 262 47 hsl 100 35 0 1000 0 0 empty empty AeoFreq 5 17 0 10 -204800 +-1 -1 1700 1; +#X obj 538 44 hsl 100 35 0 1000 0 0 empty empty NatFreq 5 17 0 10 -261234 +-1 -1 2900 1; +#X floatatom 275 88 0 0 0 0 - - -; +#X floatatom 554 85 0 0 0 0 - - -; +#X obj 259 130 line~; +#X msg 259 111 \$1 50; +#X obj 535 126 line~; +#X msg 535 107 \$1 50; +#X obj 259 161 /~; +#X obj 535 158 /~; +#X obj 604 150 snapshot~; +#X obj 604 106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 604 126 metro 1; +#X obj 604 173 < 1; +#X obj 630 173 >= 1; +#X obj 565 196 spigot~; +#X obj 307 161 snapshot~; +#X obj 307 117 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 307 137 metro 1; +#X obj 307 184 < 1; +#X obj 268 207 spigot~; +#X obj 333 184 >= 1; +#X obj 307 240 *~; +#X obj 461 353 snapshot~; +#X obj 461 309 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 461 329 metro 1; +#X floatatom 461 374 0 0 0 0 - - -; +#X floatatom 666 171 0 0 0 0 - - -; +#X floatatom 365 183 0 0 0 0 - - -; +#X obj 689 249 snapshot~; +#X obj 689 205 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 689 225 metro 1; +#X floatatom 689 271 0 0 0 0 - - -; +#X obj 424 458 snapshot~; +#X obj 424 414 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 424 434 metro 1; +#X floatatom 424 480 0 0 0 0 - - -; +#X obj 604 231 *~; +#X obj 400 329 min~ 1; +#X obj 385 383 osc~; +#X obj 385 456 osc~; +#X obj 386 503 dac~; +#X obj 385 428 +~ 1; +#X obj 385 477 *~; +#X obj 385 359 sig~ 130; +#X obj 385 404 *~ 30; +#X connect 0 0 2 0; +#X connect 0 0 5 0; +#X connect 0 0 42 1; +#X connect 1 0 3 0; +#X connect 1 0 7 0; +#X connect 4 0 8 0; +#X connect 4 0 9 1; +#X connect 5 0 4 0; +#X connect 6 0 9 0; +#X connect 6 0 8 1; +#X connect 7 0 6 0; +#X connect 8 0 16 0; +#X connect 8 0 15 0; +#X connect 9 0 10 0; +#X connect 9 0 20 0; +#X connect 10 0 13 0; +#X connect 10 0 14 0; +#X connect 10 0 27 0; +#X connect 11 0 12 0; +#X connect 12 0 10 0; +#X connect 13 0 15 1; +#X connect 14 0 15 1; +#X connect 15 1 29 0; +#X connect 15 1 37 0; +#X connect 15 1 37 1; +#X connect 16 0 19 0; +#X connect 16 0 21 0; +#X connect 16 0 28 0; +#X connect 17 0 18 0; +#X connect 18 0 16 0; +#X connect 19 0 20 1; +#X connect 20 1 22 0; +#X connect 20 1 22 1; +#X connect 21 0 20 1; +#X connect 22 0 38 0; +#X connect 23 0 26 0; +#X connect 24 0 25 0; +#X connect 25 0 23 0; +#X connect 29 0 32 0; +#X connect 30 0 31 0; +#X connect 31 0 29 0; +#X connect 33 0 36 0; +#X connect 34 0 35 0; +#X connect 35 0 33 0; +#X connect 37 0 38 0; +#X connect 38 0 23 0; +#X connect 38 0 43 1; +#X connect 39 0 45 0; +#X connect 40 0 43 0; +#X connect 42 0 40 0; +#X connect 42 0 33 0; +#X connect 43 0 41 1; +#X connect 43 0 41 0; +#X connect 44 0 39 0; +#X connect 45 0 42 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MechAeolian/weeTest2.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,271 @@ +#N canvas 0 23 806 732 10; +#X obj 54 22 hsl 100 35 0 1000 0 0 empty empty AeoFreq 5 17 0 10 -204800 +-1 -1 1700 1; +#X obj 170 22 hsl 100 35 0 300 0 0 empty empty NatFreq 5 17 0 10 -261234 +-1 -1 800 1; +#X floatatom 93 67 0 0 0 0 - - -; +#X floatatom 209 65 0 0 0 0 - - -; +#X obj 51 85 line~; +#X msg 51 66 \$1 50; +#X obj 167 83 line~; +#X msg 167 64 \$1 50; +#X obj 113 487 snapshot~; +#X floatatom 113 508 0 0 0 0 - - -; +#X obj 425 411 snapshot~; +#X floatatom 425 433 0 0 0 0 - - -; +#X obj 897 16 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 897 36 metro 1; +#X obj 178 408 osc~; +#N canvas 483 96 911 635 limits 0; +#X obj 146 235 *; +#X obj 197 114 +~; +#X obj 161 115 -~; +#X obj 146 167 >~; +#X obj 182 165 <~; +#X obj 217 167 r myMet; +#X obj 183 188 snapshot~; +#X obj 146 209 snapshot~; +#X obj 107 286 spigot~; +#X obj 107 21 inlet~; +#X obj 146 310 outlet~; +#X obj 37 18 r myMet; +#X obj 37 41 snapshot~; +#X floatatom 37 63 0 0 0 0 - - -; +#X obj 262 84 r myMet; +#X obj 262 107 snapshot~; +#X floatatom 262 129 0 0 0 0 - - -; +#X floatatom 205 266 0 0 0 0 - - -; +#X floatatom 210 234 0 0 0 0 - - -; +#X floatatom 235 221 0 0 0 0 - - -; +#X obj 196 310 outlet; +#X obj 394 543 r myMet; +#X obj 394 566 snapshot~; +#X floatatom 394 588 0 0 0 0 - - -; +#X obj 182 19 inlet~; +#X obj 680 98 hsl 128 15 -5 5 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 5000 1; +#X msg 677 123 \$1 20; +#X obj 677 145 line~; +#X obj 692 269 sqrt~; +#X obj 692 200 *~; +#X obj 707 221 sig~ 1; +#X obj 692 246 +~; +#X obj 677 292 /~; +#X obj 761 298 r myMet; +#X obj 761 321 snapshot~; +#X floatatom 761 343 0 0 0 0 - - -; +#X obj 677 320 +~ 1; +#X obj 10 540 r myMet; +#X obj 10 563 snapshot~; +#X floatatom 10 585 0 0 0 0 - - -; +#X obj 85 542 r myMet; +#X obj 85 565 snapshot~; +#X floatatom 85 587 0 0 0 0 - - -; +#X obj 263 18 r myMet; +#X obj 263 41 snapshot~; +#X floatatom 263 63 0 0 0 0 - - -; +#X obj 547 322 r myMet; +#X obj 547 345 snapshot~; +#X floatatom 547 367 0 0 0 0 - - -; +#X obj 176 56 *~ 0.05; +#X obj 212 76 *~ 0.05; +#X obj 152 544 r myMet; +#X obj 152 567 snapshot~; +#X floatatom 152 589 0 0 0 0 - - -; +#X obj 253 543 r myMet; +#X obj 253 566 snapshot~; +#X floatatom 253 588 0 0 0 0 - - -; +#X obj 677 170 *~ 1; +#X floatatom 721 123 0 0 0 0 - - -; +#X obj 421 219 -~; +#X obj 677 361 +~ 1; +#X obj 677 341 *~ -0.5; +#X obj 677 388 outlet~; +#X obj 301 403 *~; +#X connect 0 0 17 0; +#X connect 0 0 20 0; +#X connect 0 0 8 1; +#X connect 1 0 4 1; +#X connect 1 0 41 0; +#X connect 2 0 3 1; +#X connect 2 0 38 0; +#X connect 2 0 59 0; +#X connect 3 0 7 0; +#X connect 4 0 6 0; +#X connect 5 0 6 0; +#X connect 5 0 7 0; +#X connect 6 0 0 1; +#X connect 6 0 19 0; +#X connect 7 0 0 0; +#X connect 7 0 18 0; +#X connect 8 1 10 0; +#X connect 9 0 8 0; +#X connect 9 0 1 0; +#X connect 9 0 2 0; +#X connect 9 0 12 0; +#X connect 9 0 63 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 24 0 3 0; +#X connect 24 0 4 0; +#X connect 24 0 44 0; +#X connect 24 0 49 0; +#X connect 24 0 50 0; +#X connect 24 0 59 1; +#X connect 25 0 26 0; +#X connect 25 0 58 0; +#X connect 26 0 27 0; +#X connect 28 0 32 1; +#X connect 29 0 31 0; +#X connect 30 0 31 1; +#X connect 31 0 28 0; +#X connect 32 0 34 0; +#X connect 32 0 36 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 36 0 61 0; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 46 0 47 0; +#X connect 47 0 48 0; +#X connect 49 0 2 1; +#X connect 50 0 1 1; +#X connect 50 0 15 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 54 0 55 0; +#X connect 55 0 56 0; +#X connect 57 0 29 1; +#X connect 57 0 29 0; +#X connect 57 0 32 0; +#X connect 59 0 22 0; +#X connect 59 0 57 0; +#X connect 60 0 47 0; +#X connect 60 0 62 0; +#X connect 60 0 63 1; +#X connect 61 0 60 0; +#X connect 63 0 55 0; +#X restore 278 380 pd limits; +#X obj 198 245 /~; +#X obj 198 268 snapshot~; +#X floatatom 225 316 0 0 0 0 - - -; +#X floatatom 226 337 0 0 0 0 - - -; +#X obj 178 339 *~ 1; +#X obj 178 382 -~; +#X floatatom 225 291 0 0 0 0 - - -; +#X obj 199 291 i; +#X obj 199 316 + 1; +#X obj 278 359 *~ 1; +#X obj 167 105 s~ natFreq; +#X obj 51 108 s~ AeoFreq; +#X obj 198 199 r~ AeoFreq; +#X obj 213 223 r~ natFreq; +#X obj 178 178 r~ natFreq; +#X obj 897 59 s myMet; +#X obj 223 245 r myMet; +#X obj 425 389 r myMet; +#X obj 113 466 r myMet; +#X obj 329 357 r~ AeoFreq; +#X obj 193 361 r~ AeoFreq; +#X obj 278 332 r~ natFreq; +#X obj 107 401 snapshot~; +#X floatatom 107 423 0 0 0 0 - - -; +#X obj 107 379 r myMet; +#X obj 347 468 r~ AeoFreq; +#X obj 347 494 osc~; +#X obj 278 475 osc~; +#X obj 431 498 osc~; +#X obj 431 472 r~ natFreq; +#X floatatom 337 411 0 0 0 0 - - -; +#X obj 215 553 *~; +#X obj 597 533 *~; +#X obj 608 481 *~ 0.1; +#X obj 608 454 +~ 1; +#X obj 608 431 line~; +#X obj 656 400 /; +#X obj 671 378 t f b; +#X floatatom 682 420 0 0 0 0 - - -; +#X obj 671 357 *; +#X obj 608 355 * 1000; +#X obj 582 563 *~; +#X obj 742 498 snapshot~; +#X floatatom 742 520 0 0 0 0 - - -; +#X obj 742 476 r myMet; +#X obj 208 460 *~ 0.1; +#X obj 215 521 +~ 0.5; +#X msg -16 61 500 5000; +#X msg -12 83 0 100; +#X msg 608 410 \$1 10; +#X connect 0 0 2 0; +#X connect 0 0 5 0; +#X connect 1 0 3 0; +#X connect 1 0 7 0; +#X connect 4 0 27 0; +#X connect 5 0 4 0; +#X connect 6 0 26 0; +#X connect 7 0 6 0; +#X connect 8 0 9 0; +#X connect 10 0 11 0; +#X connect 12 0 13 0; +#X connect 13 0 31 0; +#X connect 14 0 8 0; +#X connect 14 0 61 0; +#X connect 15 0 10 0; +#X connect 15 0 43 0; +#X connect 15 1 46 0; +#X connect 15 1 56 0; +#X connect 16 0 17 0; +#X connect 17 0 22 0; +#X connect 17 0 23 0; +#X connect 20 0 21 0; +#X connect 21 0 38 0; +#X connect 21 0 14 0; +#X connect 23 0 18 0; +#X connect 23 0 24 0; +#X connect 24 0 20 1; +#X connect 24 0 19 0; +#X connect 24 0 25 1; +#X connect 24 0 55 0; +#X connect 24 0 55 1; +#X connect 25 0 15 0; +#X connect 28 0 16 0; +#X connect 29 0 16 1; +#X connect 30 0 20 0; +#X connect 32 0 17 0; +#X connect 33 0 10 0; +#X connect 34 0 8 0; +#X connect 35 0 15 1; +#X connect 36 0 21 1; +#X connect 37 0 25 0; +#X connect 38 0 39 0; +#X connect 40 0 38 0; +#X connect 41 0 42 0; +#X connect 43 0 47 1; +#X connect 45 0 44 0; +#X connect 47 0 48 0; +#X connect 49 0 48 1; +#X connect 49 0 58 0; +#X connect 50 0 49 0; +#X connect 51 0 50 0; +#X connect 52 0 65 0; +#X connect 52 0 54 0; +#X connect 53 0 52 1; +#X connect 53 1 52 0; +#X connect 55 0 53 0; +#X connect 56 0 52 0; +#X connect 58 0 59 0; +#X connect 60 0 58 0; +#X connect 61 0 62 0; +#X connect 62 0 47 0; +#X connect 63 0 4 0; +#X connect 64 0 4 0; +#X connect 65 0 51 0;
--- a/Propellor/Propellor.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/Propellor/Propellor.pd Mon May 09 17:19:54 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 329 53 1182 795 10; +#N canvas 171 35 1182 795 10; #X obj 315 22 loadbang; #X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; @@ -22,9 +22,9 @@ #X obj 83 21 loadbang; #X obj 83 45 delay 13; #X obj -275 52 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 6454 1; +-1 -1 7654 1; #X obj -276 146 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5540 1; +-262144 -1 -1 5440 1; #X obj -276 237 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 4999 1; #X obj -278 75 s Xobs; @@ -70,7 +70,7 @@ #X connect 7 0 3 1; #X restore 427 102 pd opLevels; #X obj 430 73 hsl 100 25 0.001 1e+12 1 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 4159 1; +10 -262144 -1 -1 3959 1; #X obj 427 2 r GAIN; #X floatatom 370 103 8 0 0 0 - - -; #N canvas 361 203 1002 525 sources 0; @@ -3848,7 +3848,7 @@ #X restore 223 254 pd sources; #X msg 436 48 2000; #X obj 1 152 line; -#N canvas 534 388 542 473 myMotor 1; +#N canvas 534 388 542 473 myMotor 0; #X obj 170 159 phasor~; #X obj 173 116 hsl 64 12 0 1 0 1 empty empty engine-speed -2 6 1 8 -262144 -1 -1 0 1; @@ -4041,9 +4041,9 @@ #X floatatom 274 258 0 0 0 0 - - -; #X msg 198 20 0.95 500; #X obj 170 136 * 15; -#X obj 220 311 * 0.05; #X msg 99 80 0.7 1500; #X obj 10 244 * 85; +#X obj 220 311 * 0.1; #X connect 0 0 3 1; #X connect 1 0 3 0; #X connect 1 0 21 0; @@ -4060,7 +4060,7 @@ #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 12 1; -#X connect 12 0 22 0; +#X connect 12 0 24 0; #X connect 13 0 14 0; #X connect 13 0 14 1; #X connect 14 0 1 0; @@ -4070,11 +4070,11 @@ #X connect 20 0 13 0; #X connect 21 0 0 0; #X connect 21 0 4 0; -#X connect 21 0 24 0; -#X connect 22 0 9 0; -#X connect 22 0 7 1; -#X connect 23 0 13 0; -#X connect 24 0 18 0; +#X connect 21 0 23 0; +#X connect 22 0 13 0; +#X connect 23 0 18 0; +#X connect 24 0 9 0; +#X connect 24 0 7 1; #X restore 0 328 pd myMotor; #X msg -231 29 -4; #X msg -78 119 -1;
--- a/SwordCorInterp/SwordCorInterp.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/SwordCorInterp/SwordCorInterp.pd Mon May 09 17:19:54 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 138 40 1146 851 10; +#N canvas 232 51 1146 699 10; #X obj 315 22 loadbang; #X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; @@ -1215,7 +1215,7 @@ #X connect 48 0 13 0; #X connect 49 0 12 0; #X restore 41 13 pd sourceHiltPositions; -#N canvas 647 139 633 561 sourceSpeed 0; +#N canvas 573 263 633 561 sourceSpeed 0; #X obj 23 182 r~ tipSpeed; #X obj 36 280 *~ 1; #X obj 36 302 outlet~; @@ -1248,6 +1248,10 @@ #X obj 150 188 t f f; #X obj 23 231 spigot~; #X floatatom 188 285 5 0 0 0 - - -; +#X floatatom 274 352 0 0 0 0 - - -; +#X floatatom 328 375 0 0 0 0 - - -; +#X floatatom 490 228 0 0 0 0 - - -; +#X floatatom 548 273 0 0 0 0 - - -; #X connect 0 0 30 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -1258,16 +1262,20 @@ #X connect 9 0 8 1; #X connect 9 1 8 0; #X connect 10 0 6 0; +#X connect 10 0 33 0; #X connect 11 0 10 1; #X connect 11 1 10 0; #X connect 12 0 14 0; #X connect 13 0 8 0; #X connect 13 0 19 0; #X connect 13 0 29 0; +#X connect 13 0 32 0; #X connect 14 0 13 1; #X connect 14 1 13 0; #X connect 15 0 9 0; +#X connect 15 0 34 0; #X connect 16 0 11 0; +#X connect 16 0 35 0; #X connect 18 0 13 0; #X connect 26 0 27 1; #X connect 27 0 28 0; @@ -1622,6 +1630,8 @@ #X obj 309 112 +; #X obj 309 133 * 0.5; #X floatatom 189 271 0 0 0 0 - - -; +#X floatatom 258 315 0 0 0 0 - - -; +#X floatatom 273 352 0 0 0 0 - - -; #X connect 0 0 22 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -1631,6 +1641,7 @@ #X connect 8 0 7 1; #X connect 8 1 7 0; #X connect 9 0 6 0; +#X connect 9 0 27 0; #X connect 10 0 9 1; #X connect 10 1 9 0; #X connect 11 0 8 0; @@ -1647,6 +1658,7 @@ #X connect 23 0 24 0; #X connect 24 0 21 0; #X connect 24 0 7 0; +#X connect 24 0 26 0; #X restore 27 75 pd halfSourceSpeed; #N canvas 140 383 1130 580 halfSourcePositions 0; #X obj 271 193 r Zobs; @@ -1980,7 +1992,7 @@ #X connect 56 0 57 0; #X connect 57 0 55 0; #X restore 39 107 pd halfSourcePositions; -#N canvas 647 139 633 561 sourceSpeed 0; +#N canvas 655 197 633 561 sourceSpeed 1; #X obj 23 182 r~ tipSpeed; #X obj 36 280 *~ 1; #X obj 36 302 outlet~; @@ -2013,6 +2025,8 @@ #X obj 150 188 t f f; #X obj 23 231 spigot~; #X floatatom 341 376 0 0 0 0 - - -; +#X floatatom 351 213 0 0 0 0 - - -; +#X floatatom 182 313 5 0 0 0 - - -; #X connect 0 0 30 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -2030,6 +2044,7 @@ #X connect 13 0 8 0; #X connect 13 0 19 0; #X connect 13 0 29 0; +#X connect 13 0 32 0; #X connect 14 0 13 1; #X connect 14 1 13 0; #X connect 15 0 9 0; @@ -2038,6 +2053,7 @@ #X connect 26 0 27 1; #X connect 27 0 28 0; #X connect 28 0 30 1; +#X connect 28 0 33 0; #X connect 29 0 5 0; #X connect 29 1 27 0; #X connect 30 0 1 0; @@ -2393,6 +2409,8 @@ #X obj 150 188 t f f; #X obj 23 231 spigot~; #X floatatom 182 289 5 0 0 0 - - -; +#X floatatom 292 264 0 0 0 0 - - -; +#X floatatom 326 356 0 0 0 0 - - -; #X connect 0 0 30 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -2403,12 +2421,14 @@ #X connect 9 0 8 1; #X connect 9 1 8 0; #X connect 10 0 6 0; +#X connect 10 0 33 0; #X connect 11 0 10 1; #X connect 11 1 10 0; #X connect 12 0 14 0; #X connect 13 0 8 0; #X connect 13 0 19 0; #X connect 13 0 29 0; +#X connect 13 0 32 0; #X connect 14 0 13 1; #X connect 14 1 13 0; #X connect 15 0 9 0; @@ -2740,7 +2760,7 @@ #X connect 50 0 22 0; #X connect 50 1 21 0; #X restore 478 206 pd sourcePositions; -#N canvas 42 225 549 568 sourceQuantity 0; +#N canvas 4 173 549 568 sourceQuantity 0; #X obj 93 81 t f b; #X obj 78 104 -; #X obj 108 167 t f b; @@ -2762,6 +2782,7 @@ #X obj 224 262 * -1; #X obj 78 270 s bladeGrad; #X obj 224 432 s bladeConst; +#X floatatom 40 306 0 0 0 0 - - -; #X connect 0 0 1 1; #X connect 0 1 1 0; #X connect 1 0 6 0; @@ -2772,6 +2793,7 @@ #X connect 5 0 2 0; #X connect 6 0 12 0; #X connect 6 0 19 0; +#X connect 6 0 21 0; #X connect 7 0 6 1; #X connect 8 0 1 0; #X connect 9 0 0 0; @@ -3452,6 +3474,8 @@ #X obj 150 188 t f f; #X obj 23 231 spigot~; #X floatatom 188 285 5 0 0 0 - - -; +#X floatatom 282 331 0 0 0 0 - - -; +#X floatatom 321 361 0 0 0 0 - - -; #X connect 0 0 30 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -3462,12 +3486,14 @@ #X connect 9 0 8 1; #X connect 9 1 8 0; #X connect 10 0 6 0; +#X connect 10 0 33 0; #X connect 11 0 10 1; #X connect 11 1 10 0; #X connect 12 0 14 0; #X connect 13 0 8 0; #X connect 13 0 19 0; #X connect 13 0 29 0; +#X connect 13 0 32 0; #X connect 14 0 13 1; #X connect 14 1 13 0; #X connect 15 0 9 0; @@ -3832,6 +3858,8 @@ #X obj 150 188 t f f; #X obj 23 231 spigot~; #X floatatom 188 285 5 0 0 0 - - -; +#X floatatom 234 332 0 0 0 0 - - -; +#X floatatom 295 378 0 0 0 0 - - -; #X connect 0 0 30 0; #X connect 1 0 2 0; #X connect 4 0 5 1; @@ -3842,12 +3870,14 @@ #X connect 9 0 8 1; #X connect 9 1 8 0; #X connect 10 0 6 0; +#X connect 10 0 33 0; #X connect 11 0 10 1; #X connect 11 1 10 0; #X connect 12 0 14 0; #X connect 13 0 8 0; #X connect 13 0 19 0; #X connect 13 0 29 0; +#X connect 13 0 32 0; #X connect 14 0 13 1; #X connect 14 1 13 0; #X connect 15 0 9 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordCorInterpS/freqCalcCyl3No_D4Mach.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,808 @@ +#N canvas 142 23 1326 739 10; +#X obj 519 469 /~ 1; +#X obj 519 445 *~; +#X obj 233 73 inlet; +#X text 399 462 Strouhal Number; +#X obj 240 96 s \$0-diameter; +#X obj 587 450 r \$0-diameter; +#X obj 130 95 s~ \$0-windSpeed; +#X obj 586 427 r~ \$0-windSpeed; +#X obj 519 493 s~ \$0-myFreq; +#X obj 772 349 *~; +#X obj 646 67 inlet; +#X text 483 512 Calculates the frequency; +#X text 484 524 based on the physics of; +#X obj 123 439 r~ \$0-windSpeed; +#X obj 171 501 r \$0-diameter; +#X text 107 382 Calculates the gain of the dipole source; +#X text 469 47 Azimuth; +#X text 651 49 Pan; +#X text 543 51 Elevation; +#X text 394 52 Distance; +#X text 228 52 Diameter; +#X text 143 51 Wind Speed; +#X obj 519 416 newStrou; +#X obj 772 418 throw~ l; +#X obj 799 396 throw~ r; +#X obj 772 374 fcpan; +#X obj 214 346 s~ \$0-dragDiGain; +#X obj 127 367 s~ \$0-liftDiGain; +#X obj 108 420 r~ \$0-str; +#X obj 108 595 s~ \$0-liftNoiseGain; +#X obj 419 447 s~ \$0-str; +#X obj 646 136 s \$0-thisPan; +#X obj 772 206 r~ \$0-liftNoiseGain; +#X obj 799 349 r \$0-thisPan; +#X obj 741 76 inlet; +#X obj 813 75 inlet; +#X obj 887 74 inlet; +#X obj 746 99 s \$0-rotaX; +#X obj 820 97 s \$0-rotaY; +#X obj 895 97 s \$0-rotaZ; +#X text 737 57 X Rotation; +#X text 807 56 Y Rotation; +#X text 882 55 Z Rotation; +#X text 753 180 Noise spectrum calculation; +#X obj 787 297 hip~; +#X obj 787 252 rpole~ 0.99; +#X obj 136 196 r~ \$0-windSpeed; +#X obj 146 217 r \$0-diameter; +#X obj 127 174 r~ \$0-str; +#N canvas 158 107 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 218 145 pd pow6; +#X obj 172 135 *~; +#X obj 218 171 *~; +#X text 533 2 Distance; +#X text 724 595 Calculates Drag Dipole gain; +#X text 48 508 Calculates Lift Dipole gain; +#X obj 172 95 inlet~; +#X obj 218 112 inlet~; +#X text 327 165 Diameter; +#X obj 290 164 inlet; +#X obj 219 528 outlet~; +#X obj 758 523 outlet~; +#X text 314 259 Length; +#X obj 219 284 *~ 1; +#X obj 234 391 /~ 360; +#X obj 234 440 *~; +#X obj 219 463 *~; +#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 73 95 Strouhal number; +#X text 268 112 Wind speed; +#X text 265 206 Corr Length; +#X obj 219 310 *~ 2.50663; +#X obj 218 233 *~ 1.225; +#X text 92 229 Mass Density of Air; +#X text 147 312 Sqrt(2xpi); +#X obj 283 415 /~ 360; +#X obj 283 461 *~; +#X obj 283 437 cos~; +#X obj 219 502 *~; +#X text 370 104 Speed of Sound to power 3; +#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 298 *~; +#X obj 219 346 /~; +#X obj 132 346 s~ \$0-aGainG; +#X obj 872 290 r~ \$0-aGainG; +#X obj 758 500 *~ 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 text 892 379 Speed of Sound to power 3; +#X obj 872 423 /~; +#X text 588 167 Remember - Goldstein moves cylinder; +#X obj 518 170 /~ 360; +#X obj 758 475 *~; +#X obj 424 40 s~ \$0-thisColL; +#X obj 269 145 r~ \$0-thisColL; +#X obj 269 185 *~ 1; +#X obj 218 205 *~; +#X obj 424 17 inlet~; +#X obj 234 417 sin~; +#X obj 404 167 *~; +#X obj 404 141 r~ \$0-thisDist; +#X obj 520 40 s~ \$0-thisDist; +#X obj 513 18 inlet~; +#X obj 404 220 *~ 32; +#X obj 404 193 *~ 4.05513e+07; +#X obj 773 336 r~ \$0-this_azim; +#X obj 713 19 inlet~; +#X obj 720 44 s~ \$0-gain_azim; +#X obj 283 392 r~ \$0-gain_azim; +#X obj 611 21 inlet~; +#X obj 887 312 r~ \$0-thisDist; +#X obj 887 336 *~; +#X obj 887 361 *~ 4.05513e+07; +#X obj 887 399 *~ 32; +#X obj 616 44 s~ \$0-gain_elev; +#X obj 518 130 r~ \$0-gain_elev; +#X obj 723 315 r~ \$0-gain_elev; +#X obj 234 369 r~ \$0-gain_elev; +#X obj 550 190 r~ \$0-sourceRe; +#X obj 240 258 r bladeLen; +#X connect 0 0 2 0; +#X connect 1 0 2 1; +#X connect 2 0 69 0; +#X connect 6 0 1 0; +#X connect 6 0 1 1; +#X connect 7 0 0 0; +#X connect 9 0 68 1; +#X connect 13 0 32 0; +#X connect 14 0 71 0; +#X connect 15 0 16 1; +#X connect 16 0 39 0; +#X connect 17 0 20 0; +#X connect 17 0 26 0; +#X connect 18 0 21 0; +#X connect 18 0 27 0; +#X connect 19 0 22 0; +#X connect 19 0 28 0; +#X connect 32 0 47 0; +#X connect 32 0 48 0; +#X connect 33 0 13 0; +#X connect 36 0 38 0; +#X connect 37 0 39 1; +#X connect 38 0 37 0; +#X connect 38 0 37 1; +#X connect 39 0 10 0; +#X connect 41 0 42 0; +#X connect 42 0 44 1; +#X connect 43 0 44 0; +#X connect 44 0 45 0; +#X connect 45 0 46 1; +#X connect 46 0 47 1; +#X connect 47 0 16 0; +#X connect 49 0 62 0; +#X connect 50 0 11 0; +#X connect 51 0 52 0; +#X connect 52 0 54 0; +#X connect 53 0 58 0; +#X connect 54 0 53 0; +#X connect 54 0 53 1; +#X connect 55 0 57 0; +#X connect 56 0 58 1; +#X connect 57 0 56 0; +#X connect 57 0 56 1; +#X connect 58 0 65 0; +#X connect 62 0 65 1; +#X connect 64 0 41 0; +#X connect 65 0 50 0; +#X connect 67 0 68 0; +#X connect 68 0 69 1; +#X connect 69 0 33 0; +#X connect 70 0 66 0; +#X connect 71 0 15 0; +#X connect 71 0 15 1; +#X connect 72 0 77 0; +#X connect 73 0 72 0; +#X connect 73 0 72 1; +#X connect 75 0 74 0; +#X connect 76 0 46 0; +#X connect 77 0 76 0; +#X connect 78 0 55 0; +#X connect 79 0 80 0; +#X connect 81 0 36 0; +#X connect 82 0 87 0; +#X connect 83 0 84 0; +#X connect 83 0 84 1; +#X connect 84 0 85 0; +#X connect 85 0 86 0; +#X connect 86 0 62 1; +#X connect 88 0 64 0; +#X connect 89 0 51 0; +#X connect 90 0 14 0; +#X connect 91 0 42 1; +#X connect 92 0 13 1; +#X restore 127 322 pd GoldfreqGain; +#N canvas 534 206 861 633 GoldnoiseGain 0; +#X text -21029 218 Mass Density of Air \, squared; +#X text -20831 411 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 98 pd pow8; +#X obj -20846 72 inlet~; +#X obj -20801 145 inlet; +#X obj -20846 560 outlet~; +#X text -20915 17 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20765 146 Diameter; +#X text -20798 63 Wind speed; +#X text -21027 546 Calculates wake gain; +#X text -20399 16 Azimuth; +#X text -20343 16 Elevation; +#X obj -20398 96 s~ \$0-this_azim; +#X obj -20342 77 s~ \$0-this_elev; +#X obj -20846 221 *~ 1.225; +#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 -20760 433 pd pow5; +#X obj -20760 409 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 -20725 359 pd pow5; +#X obj -20679 209 /~ 360; +#X obj -20679 236 cos~; +#X obj -20679 307 *~; +#X obj -20725 306 sig~ 1; +#X obj -20725 333 -~; +#X obj -20760 283 sig~ 3.1416; +#X obj -20760 308 *~; +#X obj -20775 260 sig~ 16; +#X obj -20775 332 *~; +#X obj -20775 387 *~; +#X obj -20775 460 *~; +#X obj -20831 486 *~; +#X obj -20846 514 /~; +#X obj -20679 187 -~; +#X text -20627 194 Angle goes with the flow in Goldstein hence 90 - +theta so that theta is same angle as dipole angles.; +#X obj -20679 142 sig~ 180; +#X obj -20616 146 r~ \$0-this_elev; +#X obj -20905 110 inlet~; +#X obj -20905 137 *~; +#X obj -20822 123 inlet~; +#X obj -20822 170 *~ 1; +#X obj -20846 170 *~; +#X obj -20846 194 *~; +#X obj -20846 268 *~ 1; +#X obj -20846 294 *~ 2.50663; +#X text -20776 124 Corrolation Length; +#X text -20753 232 Length; +#X obj -20831 432 inlet~; +#X obj -20831 458 *~; +#X obj -20398 33 inlet~; +#X obj -20342 33 inlet~; +#X obj -20846 536 *~ 1; +#X obj -20664 286 r~ \$0-sourceRe; +#X obj -20825 240 r bladeLen; +#X connect 2 0 39 0; +#X connect 3 0 2 0; +#X connect 4 0 38 1; +#X connect 14 0 41 0; +#X connect 15 0 28 1; +#X connect 16 0 15 0; +#X connect 17 0 27 1; +#X connect 18 0 19 0; +#X connect 19 0 20 0; +#X connect 20 0 22 1; +#X connect 21 0 22 0; +#X connect 22 0 17 0; +#X connect 23 0 24 0; +#X connect 23 0 24 1; +#X connect 24 0 26 1; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 0; +#X connect 28 0 29 1; +#X connect 29 0 30 1; +#X connect 30 0 49 0; +#X connect 31 0 18 0; +#X connect 33 0 31 0; +#X connect 34 0 31 1; +#X connect 35 0 36 0; +#X connect 35 0 36 1; +#X connect 36 0 39 1; +#X connect 37 0 38 0; +#X connect 38 0 40 1; +#X connect 39 0 40 0; +#X connect 40 0 14 0; +#X connect 41 0 42 0; +#X connect 42 0 30 0; +#X connect 45 0 46 0; +#X connect 45 0 46 1; +#X connect 46 0 29 0; +#X connect 47 0 12 0; +#X connect 48 0 13 0; +#X connect 49 0 5 0; +#X connect 50 0 20 1; +#X connect 51 0 41 1; +#X restore 108 567 pd GoldnoiseGain; +#X text 99 614 Calculates the gain of the wake; +#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 966 94 pd corrLen Calc; +#X obj 966 118 s~ \$0-myCor; +#X obj 156 237 r~ \$0-myCor; +#X obj 787 324 hip~; +#X obj 154 481 r~ \$0-myCor; +#X obj 646 91 max 0.01; +#X obj 646 114 min 0.99; +#X obj 1076 69 noise~; +#X obj 1076 92 s~ \$0-thisNoise; +#X obj 787 229 r~ \$0-thisNoise; +#X text 484 537 the object and environment; +#X obj 130 75 inlet~; +#X obj 398 71 inlet~; +#X obj 403 94 s~ \$0-dist; +#X obj 165 256 r~ \$0-dist; +#X obj 139 459 r~ \$0-dist; +#X obj 470 70 inlet~; +#X obj 477 92 s~ \$0-azim; +#X obj 185 298 r~ \$0-azim; +#X obj 185 522 r~ \$0-azim; +#X obj 544 69 inlet~; +#X obj 552 92 s~ \$0-elev; +#X obj 175 277 r~ \$0-elev; +#X obj 201 542 r~ \$0-elev; +#N canvas 339 112 976 679 Dipoles 0; +#X obj 76 62 r~ \$0-myFreq; +#X obj 91 107 r~ \$0-liftDiGain; +#X obj 353 69 r~ \$0-myFreq; +#X obj 368 135 r~ \$0-liftDiGain; +#X obj 368 157 *~ 0.6; +#X obj 621 62 r~ \$0-myFreq; +#X obj 636 125 r~ \$0-liftDiGain; +#X obj 621 86 *~ 5; +#X obj 353 93 *~ 3; +#X obj 215 359 r~ \$0-myFreq; +#X obj 230 432 r~ \$0-dragDiGain; +#X obj 215 387 *~ 2; +#X obj 494 358 r~ \$0-myFreq; +#X obj 528 406 r~ \$0-dragDiGain; +#X obj 494 386 *~ 4; +#X obj 528 429 *~ 0.125; +#X obj 210 199 *~; +#X obj 210 264 throw~ l; +#X obj 237 241 throw~ r; +#X obj 210 220 fcpan; +#X obj 210 108 vcf~ 3; +#X obj 237 198 r \$0-thisPan; +#X obj 210 67 r~ \$0-thisNoise; +#X obj 480 192 *~; +#X obj 480 257 throw~ l; +#X obj 507 234 throw~ r; +#X obj 480 213 fcpan; +#X obj 480 116 vcf~ 3; +#X obj 507 191 r \$0-thisPan; +#X obj 480 68 r~ \$0-thisNoise; +#X obj 750 183 *~; +#X obj 750 248 throw~ l; +#X obj 777 225 throw~ r; +#X obj 750 204 fcpan; +#X obj 750 107 vcf~ 3; +#X obj 777 182 r \$0-thisPan; +#X obj 750 65 r~ \$0-thisNoise; +#X obj 636 147 *~ 0.1; +#X obj 360 478 *~; +#X obj 360 543 throw~ l; +#X obj 387 520 throw~ r; +#X obj 360 499 fcpan; +#X obj 360 402 vcf~ 3; +#X obj 387 477 r \$0-thisPan; +#X obj 360 358 r~ \$0-thisNoise; +#X obj 634 476 *~; +#X obj 634 541 throw~ l; +#X obj 661 518 throw~ r; +#X obj 634 497 fcpan; +#X obj 634 400 vcf~ 3; +#X obj 661 475 r \$0-thisPan; +#X obj 634 358 r~ \$0-thisNoise; +#X text 273 27 Generates the sound associated with the lift dipole. +; +#X text 318 326 Generates the sound associated with the drag dipole. +; +#X obj 243 88 r \$0-Qval; +#X obj 513 94 r \$0-Qval; +#X obj 783 86 r \$0-Qval; +#X obj 667 378 r \$0-Qval; +#X obj 393 380 r \$0-Qval; +#X obj 210 158 *~ 1; +#X obj 480 159 *~ 1; +#X obj 750 154 *~ 1; +#X obj 634 442 *~ 1; +#X obj 360 445 *~ 1; +#X floatatom 277 122 5 0 0 0 - - -; +#X obj 210 134 vcf~ 3; +#X obj 480 138 vcf~ 3; +#X obj 750 131 vcf~ 3; +#X obj 634 421 vcf~ 3; +#X obj 360 423 vcf~ 3; +#X connect 0 0 20 1; +#X connect 0 0 65 1; +#X connect 1 0 16 1; +#X connect 2 0 8 0; +#X connect 3 0 4 0; +#X connect 4 0 23 1; +#X connect 5 0 7 0; +#X connect 6 0 37 0; +#X connect 7 0 34 1; +#X connect 7 0 67 1; +#X connect 8 0 27 1; +#X connect 8 0 66 1; +#X connect 9 0 11 0; +#X connect 10 0 38 1; +#X connect 11 0 42 1; +#X connect 11 0 69 1; +#X connect 12 0 14 0; +#X connect 13 0 15 0; +#X connect 14 0 49 1; +#X connect 14 0 68 1; +#X connect 15 0 45 1; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 1 18 0; +#X connect 20 0 65 0; +#X connect 21 0 19 1; +#X connect 22 0 20 0; +#X connect 23 0 26 0; +#X connect 26 0 24 0; +#X connect 26 1 25 0; +#X connect 27 0 66 0; +#X connect 28 0 26 1; +#X connect 29 0 27 0; +#X connect 30 0 33 0; +#X connect 33 0 31 0; +#X connect 33 1 32 0; +#X connect 34 0 67 0; +#X connect 35 0 33 1; +#X connect 36 0 34 0; +#X connect 37 0 30 1; +#X connect 38 0 41 0; +#X connect 41 0 39 0; +#X connect 41 1 40 0; +#X connect 42 0 69 0; +#X connect 43 0 41 1; +#X connect 44 0 42 0; +#X connect 45 0 48 0; +#X connect 48 0 46 0; +#X connect 48 1 47 0; +#X connect 49 0 68 0; +#X connect 50 0 48 1; +#X connect 51 0 49 0; +#X connect 54 0 20 2; +#X connect 54 0 64 0; +#X connect 54 0 65 2; +#X connect 55 0 27 2; +#X connect 55 0 66 2; +#X connect 56 0 34 2; +#X connect 56 0 67 2; +#X connect 57 0 49 2; +#X connect 57 0 68 2; +#X connect 58 0 42 2; +#X connect 58 0 69 2; +#X connect 59 0 16 0; +#X connect 60 0 23 0; +#X connect 61 0 30 0; +#X connect 62 0 45 0; +#X connect 63 0 38 0; +#X connect 65 0 59 0; +#X connect 66 0 60 0; +#X connect 67 0 61 0; +#X connect 68 0 62 0; +#X connect 69 0 63 0; +#X restore 774 538 pd Dipoles; +#X obj 32 72 inlet~; +#X obj 32 92 s~ \$0-sourceRe; +#X obj 519 394 r~ \$0-sourceRe; +#X obj 740 621 r myMet; +#X obj 740 642 snapshot~; +#X floatatom 740 663 0 0 0 0 - - -; +#X obj 438 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 438 221 s GO; +#X obj 378 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 378 245 s setUp; +#X obj 378 221 Uzi 20; +#N canvas 308 58 1027 635 StBandwidth 0; +#X obj 460 365 swap 1; +#X obj 460 391 /; +#X obj 460 342 / 100; +#X obj 461 434 outlet; +#X text 437 453 Q value; +#X obj 477 -36 r myMet; +#X obj 477 -14 snapshot~; +#X obj 203 164 spigot; +#X obj 219 187 spigot; +#X obj 236 140 > 0; +#X obj 219 233 + 0.9797; +#X obj 219 208 * 4.624e-05; +#X obj 602 150 spigot; +#X obj 618 173 spigot; +#X obj 651 149 < 1e+06; +#X obj 618 216 * 1.227e-10; +#X obj 618 196 *; +#X obj 690 215 * -8.553e-05; +#X obj 618 261 + 16.5; +#X obj 618 238 +; +#X text -84 298 First section of the Reynolds number - DeltaF/F relationship +is linear and did not appear to be reliant on current TU values; +#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship +is linear and did not appear to be reliant on current TU values; +#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship +is also linear but depends on TU Value; +#X obj 461 412 max 0.005; +#X obj 635 126 > 193260; +#X obj 252 163 < 193260; +#X obj 531 -36 r~ \$0-sourceRe; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 23 0; +#X connect 2 0 0 0; +#X connect 5 0 6 0; +#X connect 6 0 14 0; +#X connect 6 0 12 0; +#X connect 6 0 9 0; +#X connect 6 0 7 0; +#X connect 6 0 24 0; +#X connect 6 0 25 0; +#X connect 7 0 8 0; +#X connect 8 0 11 0; +#X connect 9 0 7 1; +#X connect 10 0 2 0; +#X connect 11 0 10 0; +#X connect 12 0 13 0; +#X connect 13 0 17 0; +#X connect 13 0 16 1; +#X connect 13 0 16 0; +#X connect 14 0 13 1; +#X connect 15 0 19 0; +#X connect 16 0 15 0; +#X connect 17 0 19 1; +#X connect 18 0 2 0; +#X connect 19 0 18 0; +#X connect 23 0 3 0; +#X connect 24 0 12 1; +#X connect 25 0 8 1; +#X connect 26 0 6 0; +#X restore 1189 82 pd StBandwidth; +#X obj 1189 105 s \$0-Qval; +#X obj 966 71 r~ \$0-sourceRe; +#X obj 875 273 r myMet; +#X obj 863 296 snapshot~; +#X obj 863 252 r~ \$0-myFreq; +#X connect 0 0 8 0; +#X connect 0 0 81 0; +#X connect 1 0 0 0; +#X connect 2 0 4 0; +#X connect 5 0 0 1; +#X connect 7 0 1 1; +#X connect 9 0 25 0; +#X connect 10 0 57 0; +#X connect 13 0 50 1; +#X connect 14 0 50 4; +#X connect 22 0 30 0; +#X connect 22 0 1 0; +#X connect 25 0 23 0; +#X connect 25 1 24 0; +#X connect 28 0 50 0; +#X connect 32 0 9 0; +#X connect 33 0 25 1; +#X connect 34 0 37 0; +#X connect 35 0 38 0; +#X connect 36 0 39 0; +#X connect 44 0 55 0; +#X connect 45 0 44 0; +#X connect 46 0 49 1; +#X connect 47 0 49 2; +#X connect 48 0 49 0; +#X connect 49 0 27 0; +#X connect 49 1 26 0; +#X connect 50 0 29 0; +#X connect 52 0 53 0; +#X connect 54 0 49 3; +#X connect 55 0 9 1; +#X connect 56 0 50 3; +#X connect 57 0 58 0; +#X connect 58 0 31 0; +#X connect 59 0 60 0; +#X connect 61 0 45 0; +#X connect 63 0 6 0; +#X connect 64 0 65 0; +#X connect 66 0 49 4; +#X connect 67 0 50 2; +#X connect 68 0 69 0; +#X connect 70 0 49 6; +#X connect 71 0 50 5; +#X connect 72 0 73 0; +#X connect 74 0 49 5; +#X connect 75 0 50 6; +#X connect 77 0 78 0; +#X connect 79 0 22 0; +#X connect 80 0 81 0; +#X connect 81 0 82 0; +#X connect 83 0 84 0; +#X connect 85 0 87 0; +#X connect 87 0 86 0; +#X connect 88 0 89 0; +#X connect 90 0 52 0; +#X connect 91 0 92 0; +#X connect 92 0 44 1; +#X connect 92 0 55 1; +#X connect 93 0 92 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordCorInterpS/freqCalcCyl4HiFi.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,858 @@ +#N canvas 36 69 1370 784 10; +#X text 587 178 Mass Density of Air; +#X obj 709 179 *~ 1.225; +#X obj 709 254 /~ 1.81e-05; +#X obj 709 209 *~ 1; +#X obj 709 372 /~ 1; +#X obj 709 348 *~; +#X obj 223 63 inlet; +#X text 742 298 Reynolds Number; +#X text 589 365 Strouhal Number; +#X text 739 234 Viscosity; +#X obj 230 86 s \$0-diameter; +#X obj 770 178 r \$0-diameter; +#X obj 777 353 r \$0-diameter; +#X obj 709 441 s~ \$0-myFreq; +#X obj 1052 334 *~; +#X obj 722 278 s~ \$0-myRey; +#X obj 636 57 inlet; +#X floatatom 581 126 8 0 0 0 - - -; +#X text 673 460 Calculates the frequency; +#X text 674 472 based on the physics of; +#X obj 354 469 r \$0-diameter; +#X text 294 352 Calculates the gain of the dipole source; +#X text 530 40 Azimuth; +#X text 641 39 Pan; +#X text 453 39 Elevation; +#X text 384 42 Distance; +#X text 218 42 Diameter; +#X obj 709 319 newStrou; +#X floatatom 223 107 0 0 0 0 - - -; +#X obj 1052 403 throw~ l; +#X obj 1079 381 throw~ r; +#X obj 1052 359 fcpan; +#X obj 430 329 s~ \$0-dragDiGain; +#X obj 313 329 s~ \$0-liftDiGain; +#X obj 294 404 r~ \$0-str; +#X obj 294 580 s~ \$0-liftNoiseGain; +#X obj 609 350 s~ \$0-str; +#X obj 636 126 s \$0-thisPan; +#X obj 1052 190 r~ \$0-liftNoiseGain; +#X obj 1079 334 r \$0-thisPan; +#X text 1033 164 Noise spectrum calculation; +#X obj 1067 282 hip~; +#X obj 1067 237 rpole~ 0.99; +#X obj 350 205 r \$0-diameter; +#X obj 313 163 r~ \$0-str; +#X text 285 599 Calculates the gain of the wake; +#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 761 65 pd corrLen Calc; +#X obj 761 42 r~ \$0-myRey; +#X obj 761 89 s~ \$0-myCor; +#X obj 371 224 r~ \$0-myCor; +#X obj 1067 309 hip~; +#X obj 335 448 r~ \$0-myCor; +#X obj 636 81 max 0.01; +#X obj 636 104 min 0.99; +#N canvas 93 119 976 679 Dipoles 0; +#X obj 131 67 r~ \$0-myFreq; +#X obj 225 178 r~ \$0-liftDiGain; +#X obj 389 58 r~ \$0-myFreq; +#X obj 528 138 r~ \$0-liftDiGain; +#X obj 528 159 *~ 0.6; +#X obj 657 57 r~ \$0-myFreq; +#X obj 798 130 r~ \$0-liftDiGain; +#X obj 657 81 *~ 5; +#X obj 389 82 *~ 3; +#X obj 258 385 r~ \$0-myFreq; +#X obj 371 472 r~ \$0-dragDiGain; +#X obj 258 407 *~ 2; +#X obj 528 385 r~ \$0-myFreq; +#X obj 658 447 r~ \$0-dragDiGain; +#X obj 528 413 *~ 4; +#X obj 658 470 *~ 0.125; +#X obj 210 199 *~; +#X obj 210 264 throw~ l; +#X obj 237 241 throw~ r; +#X obj 210 220 fcpan; +#X obj 210 108 vcf~ 3; +#X obj 237 198 r \$0-thisPan; +#X obj 210 67 r~ \$0-thisNoise; +#X obj 480 192 *~; +#X obj 480 257 throw~ l; +#X obj 507 234 throw~ r; +#X obj 480 213 fcpan; +#X obj 480 116 vcf~ 3; +#X obj 507 191 r \$0-thisPan; +#X obj 480 68 r~ \$0-thisNoise; +#X obj 750 183 *~; +#X obj 750 248 throw~ l; +#X obj 777 225 throw~ r; +#X obj 750 204 fcpan; +#X obj 750 107 vcf~ 3; +#X obj 777 182 r \$0-thisPan; +#X obj 750 65 r~ \$0-thisNoise; +#X obj 798 152 *~ 0.1; +#X obj 338 505 *~; +#X obj 338 570 throw~ l; +#X obj 365 547 throw~ r; +#X obj 338 526 fcpan; +#X obj 338 429 vcf~ 3; +#X obj 365 504 r \$0-thisPan; +#X obj 338 385 r~ \$0-thisNoise; +#X obj 612 503 *~; +#X obj 612 568 throw~ l; +#X obj 639 545 throw~ r; +#X obj 612 524 fcpan; +#X obj 612 427 vcf~ 3; +#X obj 639 502 r \$0-thisPan; +#X obj 612 385 r~ \$0-thisNoise; +#X text 273 27 Generates the sound associated with the lift dipole. +; +#X text 296 353 Generates the sound associated with the drag dipole. +; +#X obj 270 87 r \$0-Qval; +#X obj 530 92 r \$0-Qval; +#X obj 800 87 r \$0-Qval; +#X obj 658 406 r \$0-Qval; +#X obj 383 407 r \$0-Qval; +#X obj 210 158 *~ 1; +#X obj 480 159 *~ 1; +#X obj 750 154 *~ 1; +#X obj 612 469 *~ 1; +#X obj 338 472 *~ 1; +#X floatatom 277 122 5 0 0 0 - - -; +#X obj 210 131 vcf~ 3; +#X obj 480 137 vcf~ 3; +#X obj 750 130 vcf~ 3; +#X obj 612 449 vcf~ 3; +#X obj 338 450 vcf~ 3; +#X connect 0 0 20 1; +#X connect 0 0 65 1; +#X connect 1 0 16 1; +#X connect 2 0 8 0; +#X connect 3 0 4 0; +#X connect 4 0 23 1; +#X connect 5 0 7 0; +#X connect 6 0 37 0; +#X connect 7 0 34 1; +#X connect 7 0 67 1; +#X connect 8 0 27 1; +#X connect 8 0 66 1; +#X connect 9 0 11 0; +#X connect 10 0 38 1; +#X connect 11 0 42 1; +#X connect 11 0 69 1; +#X connect 12 0 14 0; +#X connect 13 0 15 0; +#X connect 14 0 49 1; +#X connect 14 0 68 1; +#X connect 15 0 45 1; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 1 18 0; +#X connect 20 0 65 0; +#X connect 21 0 19 1; +#X connect 22 0 20 0; +#X connect 23 0 26 0; +#X connect 26 0 24 0; +#X connect 26 1 25 0; +#X connect 27 0 66 0; +#X connect 28 0 26 1; +#X connect 29 0 27 0; +#X connect 30 0 33 0; +#X connect 33 0 31 0; +#X connect 33 1 32 0; +#X connect 34 0 67 0; +#X connect 35 0 33 1; +#X connect 36 0 34 0; +#X connect 37 0 30 1; +#X connect 38 0 41 0; +#X connect 41 0 39 0; +#X connect 41 1 40 0; +#X connect 42 0 69 0; +#X connect 43 0 41 1; +#X connect 44 0 42 0; +#X connect 45 0 48 0; +#X connect 48 0 46 0; +#X connect 48 1 47 0; +#X connect 49 0 68 0; +#X connect 50 0 48 1; +#X connect 51 0 49 0; +#X connect 54 0 20 2; +#X connect 54 0 64 0; +#X connect 55 0 27 2; +#X connect 55 0 66 2; +#X connect 56 0 34 2; +#X connect 56 0 67 2; +#X connect 57 0 49 2; +#X connect 57 0 68 2; +#X connect 58 0 42 2; +#X connect 58 0 69 2; +#X connect 59 0 16 0; +#X connect 60 0 23 0; +#X connect 61 0 30 0; +#X connect 62 0 45 0; +#X connect 63 0 38 0; +#X connect 65 0 59 0; +#X connect 66 0 60 0; +#X connect 67 0 61 0; +#X connect 68 0 62 0; +#X connect 69 0 63 0; +#X restore 649 549 pd Dipoles; +#X obj 893 49 noise~; +#X obj 893 72 s~ \$0-thisNoise; +#X obj 1067 214 r~ \$0-thisNoise; +#X text 674 485 the object and environment; +#N canvas 308 58 1027 635 StBandwidth 0; +#X obj 460 365 swap 1; +#X obj 460 391 /; +#X obj 460 342 / 100; +#X obj 461 434 outlet; +#X text 437 453 Q value; +#X obj 531 -36 r~ \$0-myRey; +#X obj 477 -36 r myMet; +#X obj 477 -14 snapshot~; +#X obj 203 164 spigot; +#X obj 219 187 spigot; +#X obj 236 140 > 0; +#X obj 219 233 + 0.9797; +#X obj 219 208 * 4.624e-05; +#X obj 602 150 spigot; +#X obj 618 173 spigot; +#X obj 651 149 < 1e+06; +#X obj 618 216 * 1.227e-10; +#X obj 618 196 *; +#X obj 690 215 * -8.553e-05; +#X obj 618 261 + 16.5; +#X obj 618 238 +; +#X text -84 298 First section of the Reynolds number - DeltaF/F relationship +is linear and did not appear to be reliant on current TU values; +#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship +is linear and did not appear to be reliant on current TU values; +#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship +is also linear but depends on TU Value; +#X obj 461 412 max 0.005; +#X obj 635 126 > 193260; +#X obj 252 163 < 193260; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 24 0; +#X connect 2 0 0 0; +#X connect 5 0 7 0; +#X connect 6 0 7 0; +#X connect 7 0 15 0; +#X connect 7 0 13 0; +#X connect 7 0 10 0; +#X connect 7 0 8 0; +#X connect 7 0 25 0; +#X connect 7 0 26 0; +#X connect 8 0 9 0; +#X connect 9 0 12 0; +#X connect 10 0 8 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 14 0; +#X connect 14 0 18 0; +#X connect 14 0 17 1; +#X connect 14 0 17 0; +#X connect 15 0 14 1; +#X connect 16 0 20 0; +#X connect 17 0 16 0; +#X connect 18 0 20 1; +#X connect 19 0 2 0; +#X connect 20 0 19 0; +#X connect 24 0 3 0; +#X connect 25 0 13 1; +#X connect 26 0 9 1; +#X restore 994 71 pd StBandwidth; +#X obj 994 94 s \$0-Qval; +#X obj 1153 257 r myMet; +#X obj 1143 278 snapshot~; +#X obj 1143 237 r~ \$0-myFreq; +#X text 133 41 Source Speed; +#X obj 388 61 inlet~; +#X obj 460 60 inlet~; +#X obj 534 59 inlet~; +#X obj 393 84 s~ \$0-dist; +#X obj 120 65 inlet~; +#X obj 52 88 /~ 343.56; +#X obj 52 111 s~ \$0-MY_MACH; +#X obj 391 245 r~ \$0-dist; +#X obj 410 266 r~ \$0-elev; +#X obj 430 285 r~ \$0-azim; +#N canvas 205 88 1238 721 GoldfreqGainSword 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 150 pd pow6; +#X obj 173 152 *~; +#X obj 219 176 *~; +#X text 587 57 Distance; +#X text 724 548 Calculates Drag Dipole gain; +#X text 48 531 Calculates Lift Dipole gain; +#X obj 173 112 inlet~; +#X obj 219 116 inlet~; +#X text 328 170 Diameter; +#X obj 291 169 inlet; +#X obj 219 590 outlet~; +#X obj 758 523 outlet~; +#X text 311 262 Length; +#X obj 219 289 *~ 1; +#X obj 234 469 /~ 360; +#X obj 234 518 *~; +#X obj 219 541 *~; +#X text 74 112 Strouhal number; +#X text 266 211 Corr Length; +#X obj 219 348 *~ 2.50663; +#X obj 219 238 *~ 1.225; +#X text 93 234 Mass Density of Air; +#X text 145 343 Sqrt(2xpi); +#X obj 332 470 /~ 360; +#X obj 332 516 *~; +#X obj 332 492 cos~; +#X obj 219 567 *~; +#X text 362 210 Speed of Sound to power 3; +#X obj 525 213 cos~; +#X obj 525 236 *~; +#X obj 473 237 sig~ 1; +#X obj 510 267 -~; +#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 510 290 pd pow4; +#X obj 411 322 *~; +#X obj 219 385 /~; +#X obj 133 375 s~ \$0-aGainG; +#X obj 872 246 r~ \$0-aGainG; +#X obj 758 498 *~ 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 763 56 Azimuth; +#X text 662 58 Elevation; +#X text 892 335 Speed of Sound to power 3; +#X obj 872 423 /~; +#X text 595 191 Remember - Goldstein moves cylinder; +#X obj 525 194 /~ 360; +#X obj 758 475 *~; +#X obj 478 95 s~ \$0-thisColL; +#X obj 270 190 *~ 1; +#X obj 219 210 *~; +#X obj 478 72 inlet~; +#X obj 234 495 sin~; +#X obj 219 317 /~ 400; +#X text -53 316 Scale factor to bring in line with CFD calcs; +#X obj 559 214 r~ \$0-MY_MACH; +#X obj 567 73 inlet~; +#X obj 665 76 inlet~; +#X obj 767 74 inlet~; +#X obj 670 99 s~ \$0-this_elev; +#X obj 574 95 s~ \$0-thisDist; +#X obj 525 166 r~ \$0-this_elev; +#X obj 411 135 r~ \$0-thisDist; +#X obj 411 161 *~; +#X obj 411 191 *~ 4.05513e+07; +#X obj 411 244 *~ 32; +#X obj 234 443 r~ \$0-this_elev; +#X obj 723 273 r~ \$0-this_elev; +#X obj 887 292 *~; +#X obj 887 317 *~ 4.05513e+07; +#X obj 887 370 *~ 32; +#X obj 887 268 r~ \$0-thisDist; +#X text 273 110 Source speed; +#X obj 240 263 r bladeLen; +#X obj 774 99 s~ \$0-gain_azim; +#X obj 332 444 r~ \$0-gain_azim; +#X obj 773 294 r~ \$0-gain_azim; +#X obj 270 150 sig~ 7; +#X text 293 139 Set Corr Length; +#X connect 0 0 2 0; +#X connect 1 0 2 1; +#X connect 2 0 55 0; +#X connect 6 0 1 0; +#X connect 6 0 1 1; +#X connect 7 0 0 0; +#X connect 9 0 54 1; +#X connect 13 0 58 0; +#X connect 14 0 57 0; +#X connect 15 0 16 1; +#X connect 16 0 26 0; +#X connect 19 0 34 0; +#X connect 19 0 35 0; +#X connect 20 0 13 0; +#X connect 23 0 25 0; +#X connect 24 0 26 1; +#X connect 25 0 24 0; +#X connect 25 0 24 1; +#X connect 26 0 10 0; +#X connect 28 0 29 0; +#X connect 29 0 31 1; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 32 0 33 1; +#X connect 33 0 34 1; +#X connect 34 0 16 0; +#X connect 36 0 49 0; +#X connect 37 0 11 0; +#X connect 38 0 39 0; +#X connect 39 0 41 0; +#X connect 40 0 45 0; +#X connect 41 0 40 0; +#X connect 41 0 40 1; +#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 52 0; +#X connect 49 0 52 1; +#X connect 51 0 28 0; +#X connect 52 0 37 0; +#X connect 54 0 55 1; +#X connect 55 0 20 0; +#X connect 56 0 53 0; +#X connect 57 0 15 0; +#X connect 57 0 15 1; +#X connect 58 0 19 0; +#X connect 60 0 29 1; +#X connect 61 0 65 0; +#X connect 62 0 64 0; +#X connect 63 0 79 0; +#X connect 66 0 51 0; +#X connect 67 0 68 0; +#X connect 67 0 68 1; +#X connect 68 0 69 0; +#X connect 69 0 70 0; +#X connect 70 0 33 0; +#X connect 71 0 14 0; +#X connect 72 0 38 0; +#X connect 73 0 74 0; +#X connect 74 0 75 0; +#X connect 75 0 49 1; +#X connect 76 0 73 0; +#X connect 76 0 73 1; +#X connect 78 0 13 1; +#X connect 80 0 23 0; +#X connect 81 0 42 0; +#X connect 82 0 54 0; +#X restore 313 307 pd GoldfreqGainSword; +#N canvas 300 30 1006 797 GoldnoiseGainSword 0; +#X text -21037 364 Mass Density of Air \, squared; +#X text -20777 412 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 224 pd pow8; +#X obj -20846 195 inlet~; +#X obj -20807 286 inlet; +#X obj -20861 617 outlet~; +#X text -20858 648 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20771 287 Diameter; +#X text -21027 627 Calculates wake gain; +#X text -20423 235 Azimuth; +#X text -20367 235 Elevation; +#X obj -20422 296 s~ \$0-this_azim; +#X obj -20861 371 *~ 1.225; +#X obj -20587 239 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 -20705 475 pd pow5; +#X obj -20705 451 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 -20670 401 pd pow5; +#X obj -20624 216 /~ 360; +#X obj -20624 243 cos~; +#X obj -20624 349 *~; +#X obj -20670 348 sig~ 1; +#X obj -20670 375 -~; +#X obj -20705 322 sig~ 3.1416; +#X obj -20705 347 *~; +#X obj -20720 299 sig~ 16; +#X obj -20720 371 *~; +#X obj -20720 429 *~; +#X obj -20720 502 *~; +#X obj -20777 530 *~; +#X obj -20861 574 /~; +#X obj -20624 194 -~; +#X text -20533 187 Angle goes with the flow in Goldstein hence 90 - +theta so that theta is same angle as dipole angles.; +#X obj -20624 149 sig~ 180; +#X obj -20894 195 inlet~; +#X obj -20894 222 *~; +#X obj -20828 253 inlet~; +#X obj -20828 312 *~ 1; +#X obj -20861 251 *~; +#X obj -20861 347 *~; +#X obj -20861 444 *~ 1; +#X obj -20861 528 *~ 2.50663; +#X text -20782 254 Corrolation Length; +#X text -20806 371 Length; +#X obj -20587 285 cos~; +#X obj -20861 595 *~ 1; +#X obj -20587 262 /~ 360; +#X obj -20624 306 *~; +#X text -21131 486 Scale factor to bring in line with CFD calcs; +#X text -20929 530 Sqrt(2*pi); +#X obj -20609 328 r~ \$0-MY_MACH; +#X obj -20809 392 r bladeLen; +#X obj -20422 252 inlet~; +#X obj -20366 252 inlet~; +#X obj -20777 433 inlet~; +#X obj -20777 459 *~; +#X text -20847 176 Source speed; +#X obj -20366 274 s~ \$0-wake_elev; +#X obj -20609 172 r~ \$0-wake_elev; +#X obj -20861 488 /~ 10000; +#X connect 2 0 37 1; +#X connect 3 0 2 0; +#X connect 4 0 36 1; +#X connect 12 0 39 0; +#X connect 13 0 45 0; +#X connect 14 0 27 1; +#X connect 15 0 14 0; +#X connect 16 0 26 1; +#X connect 17 0 18 0; +#X connect 18 0 46 0; +#X connect 19 0 21 1; +#X connect 20 0 21 0; +#X connect 21 0 16 0; +#X connect 22 0 23 0; +#X connect 22 0 23 1; +#X connect 23 0 25 1; +#X connect 24 0 25 0; +#X connect 25 0 26 0; +#X connect 26 0 27 0; +#X connect 27 0 28 1; +#X connect 28 0 29 1; +#X connect 29 0 44 0; +#X connect 30 0 17 0; +#X connect 32 0 30 0; +#X connect 33 0 34 0; +#X connect 33 0 34 1; +#X connect 34 0 37 0; +#X connect 35 0 36 0; +#X connect 36 0 38 1; +#X connect 37 0 38 0; +#X connect 38 0 12 0; +#X connect 39 0 58 0; +#X connect 40 0 29 0; +#X connect 43 0 46 1; +#X connect 44 0 5 0; +#X connect 45 0 43 0; +#X connect 46 0 19 0; +#X connect 49 0 19 1; +#X connect 50 0 39 1; +#X connect 51 0 11 0; +#X connect 52 0 56 0; +#X connect 53 0 54 0; +#X connect 53 0 54 1; +#X connect 54 0 28 0; +#X connect 57 0 30 1; +#X connect 58 0 40 0; +#X restore 294 552 pd GoldnoiseGainSword; +#X obj 417 531 r~ \$0-elev; +#X obj 396 510 r~ \$0-azim; +#X obj 376 490 r~ \$0-dist; +#X obj 332 184 r~ \$0-sourceSpeed; +#X obj 120 85 s~ \$0-sourceSpeed; +#X obj 709 151 r~ \$0-sourceSpeed; +#X obj 314 426 r~ \$0-sourceSpeed; +#X obj 776 330 r~ \$0-sourceSpeed; +#N canvas 8 111 823 563 doppler 0; +#X obj 88 329 inlet~; +#X obj 88 467 outlet~; +#X obj 186 256 r~ \$0-azim; +#X obj 186 279 /~ 360; +#X obj 171 233 r~ \$0-sourceSpeed; +#X obj 186 301 cos~; +#X obj 171 322 *~; +#X obj 286 114 atan; +#X obj 286 93 /; +#X obj 286 137 * 57.2958; +#X floatatom 326 161 0 0 0 0 - - -; +#X obj 286 183 line~; +#X msg 286 161 \$1 15; +#X obj 286 247 -~; +#X obj 286 267 >~ 0; +#X obj 286 289 snapshot~; +#X floatatom 286 311 0 0 0 0 - - -; +#X obj 301 227 r~ currentAzim; +#X obj 286 207 +~ 90; +#X obj 210 370 *~ -1; +#X obj 171 349 spigot~; +#X obj 96 359 sig~ 323.56; +#X obj 156 389 +~; +#X obj 141 411 /~; +#X obj 88 435 *~; +#X obj 333 267 r myMet; +#X obj 286 53 r conProX; +#X obj 301 73 r conProY; +#X text 423 61 Calculate the azimuth angle from the projected position +of the oberver in the plane of the sword. Peak position is when the +current azimuth is the same as the observer azimuth.; +#X connect 0 0 24 0; +#X connect 2 0 3 0; +#X connect 3 0 5 0; +#X connect 4 0 6 0; +#X connect 5 0 6 1; +#X connect 6 0 20 0; +#X connect 7 0 9 0; +#X connect 8 0 7 0; +#X connect 9 0 10 0; +#X connect 9 0 12 0; +#X connect 11 0 18 0; +#X connect 12 0 11 0; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 16 0; +#X connect 15 0 20 1; +#X connect 17 0 13 1; +#X connect 18 0 13 0; +#X connect 19 0 22 1; +#X connect 20 0 22 1; +#X connect 20 1 19 0; +#X connect 21 0 22 0; +#X connect 21 0 23 0; +#X connect 22 0 23 1; +#X connect 23 0 24 1; +#X connect 24 0 1 0; +#X connect 25 0 15 0; +#X connect 26 0 8 0; +#X connect 27 0 8 1; +#X restore 709 410 pd doppler; +#X obj 467 82 s~ \$0-elev; +#X obj 542 82 s~ \$0-azim; +#X connect 1 0 3 0; +#X connect 2 0 15 0; +#X connect 2 0 27 0; +#X connect 3 0 2 0; +#X connect 4 0 85 0; +#X connect 5 0 4 0; +#X connect 6 0 10 0; +#X connect 6 0 28 0; +#X connect 11 0 3 1; +#X connect 12 0 4 1; +#X connect 14 0 31 0; +#X connect 16 0 52 0; +#X connect 20 0 76 3; +#X connect 27 0 36 0; +#X connect 27 0 5 0; +#X connect 31 0 29 0; +#X connect 31 1 30 0; +#X connect 34 0 76 0; +#X connect 38 0 14 0; +#X connect 39 0 31 1; +#X connect 41 0 50 0; +#X connect 42 0 41 0; +#X connect 43 0 75 2; +#X connect 44 0 75 0; +#X connect 46 0 48 0; +#X connect 47 0 46 0; +#X connect 49 0 75 3; +#X connect 50 0 14 1; +#X connect 51 0 76 2; +#X connect 52 0 53 0; +#X connect 53 0 17 0; +#X connect 53 0 37 0; +#X connect 55 0 56 0; +#X connect 57 0 42 0; +#X connect 59 0 60 0; +#X connect 61 0 62 0; +#X connect 62 0 41 1; +#X connect 62 0 50 1; +#X connect 63 0 62 0; +#X connect 65 0 68 0; +#X connect 66 0 86 0; +#X connect 67 0 87 0; +#X connect 69 0 70 0; +#X connect 69 0 81 0; +#X connect 70 0 71 0; +#X connect 72 0 75 4; +#X connect 73 0 75 5; +#X connect 74 0 75 6; +#X connect 75 0 33 0; +#X connect 75 1 32 0; +#X connect 76 0 35 0; +#X connect 77 0 76 6; +#X connect 78 0 76 5; +#X connect 79 0 76 4; +#X connect 80 0 75 1; +#X connect 82 0 1 0; +#X connect 83 0 76 1; +#X connect 84 0 5 1; +#X connect 85 0 13 0;
--- a/SwordCorInterpS/freqCalcCyl4HiFiS.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/SwordCorInterpS/freqCalcCyl4HiFiS.pd Mon May 09 17:19:54 2016 +0100 @@ -291,7 +291,6 @@ #X obj 534 59 inlet~; #X obj 393 84 s~ \$0-dist; #X obj 120 65 inlet~; -#X obj 52 88 /~ 343.56; #X obj 52 111 s~ \$0-MY_MACH; #X obj 391 245 r~ \$0-dist; #X obj 410 266 r~ \$0-elev; @@ -455,7 +454,6 @@ #X obj 525 166 r~ \$0-this_elev; #X obj 411 135 r~ \$0-thisDist; #X obj 411 161 *~; -#X obj 411 191 *~ 4.05513e+07; #X obj 411 244 *~ 32; #X obj 234 443 r~ \$0-this_elev; #X obj 723 273 r~ \$0-this_elev; @@ -470,6 +468,7 @@ #X obj 773 294 r~ \$0-gain_azim; #X obj 270 150 sig~ 7; #X text 293 139 Set Corr Length; +#X obj 411 191 *~ 6.8921e+07; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 55 0; @@ -520,24 +519,24 @@ #X connect 60 0 29 1; #X connect 61 0 65 0; #X connect 62 0 64 0; -#X connect 63 0 79 0; +#X connect 63 0 78 0; #X connect 66 0 51 0; #X connect 67 0 68 0; #X connect 67 0 68 1; -#X connect 68 0 69 0; -#X connect 69 0 70 0; -#X connect 70 0 33 0; -#X connect 71 0 14 0; -#X connect 72 0 38 0; +#X connect 68 0 83 0; +#X connect 69 0 33 0; +#X connect 70 0 14 0; +#X connect 71 0 38 0; +#X connect 72 0 73 0; #X connect 73 0 74 0; -#X connect 74 0 75 0; -#X connect 75 0 49 1; -#X connect 76 0 73 0; -#X connect 76 0 73 1; -#X connect 78 0 13 1; -#X connect 80 0 23 0; -#X connect 81 0 42 0; -#X connect 82 0 54 0; +#X connect 74 0 49 1; +#X connect 75 0 72 0; +#X connect 75 0 72 1; +#X connect 77 0 13 1; +#X connect 79 0 23 0; +#X connect 80 0 42 0; +#X connect 81 0 54 0; +#X connect 83 0 69 0; #X restore 313 307 pd GoldfreqGainSword; #N canvas 300 30 1006 797 GoldnoiseGainSword 0; #X text -21037 364 Mass Density of Air \, squared; @@ -607,7 +606,6 @@ #X connect 9 0 2 0; #X connect 9 0 3 0; #X restore -20705 475 pd pow5; -#X obj -20705 451 sig~ 343.56; #N canvas 875 261 250 309 pow5 0; #X obj 47 67 *~; #X obj 76 35 inlet~; @@ -676,52 +674,53 @@ #X obj -20366 274 s~ \$0-wake_elev; #X obj -20609 172 r~ \$0-wake_elev; #X obj -20861 488 /~ 10000; -#X connect 2 0 37 1; +#X obj -20705 451 sig~ 410; +#X connect 2 0 36 1; #X connect 3 0 2 0; -#X connect 4 0 36 1; -#X connect 12 0 39 0; -#X connect 13 0 45 0; -#X connect 14 0 27 1; -#X connect 15 0 14 0; -#X connect 16 0 26 1; -#X connect 17 0 18 0; -#X connect 18 0 46 0; -#X connect 19 0 21 1; -#X connect 20 0 21 0; -#X connect 21 0 16 0; -#X connect 22 0 23 0; -#X connect 22 0 23 1; -#X connect 23 0 25 1; +#X connect 4 0 35 1; +#X connect 12 0 38 0; +#X connect 13 0 44 0; +#X connect 14 0 26 1; +#X connect 15 0 25 1; +#X connect 16 0 17 0; +#X connect 17 0 45 0; +#X connect 18 0 20 1; +#X connect 19 0 20 0; +#X connect 20 0 15 0; +#X connect 21 0 22 0; +#X connect 21 0 22 1; +#X connect 22 0 24 1; +#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 26 0 27 1; #X connect 27 0 28 1; -#X connect 28 0 29 1; -#X connect 29 0 44 0; -#X connect 30 0 17 0; -#X connect 32 0 30 0; -#X connect 33 0 34 0; -#X connect 33 0 34 1; -#X connect 34 0 37 0; -#X connect 35 0 36 0; -#X connect 36 0 38 1; -#X connect 37 0 38 0; -#X connect 38 0 12 0; -#X connect 39 0 58 0; -#X connect 40 0 29 0; -#X connect 43 0 46 1; -#X connect 44 0 5 0; -#X connect 45 0 43 0; -#X connect 46 0 19 0; -#X connect 49 0 19 1; -#X connect 50 0 39 1; -#X connect 51 0 11 0; -#X connect 52 0 56 0; -#X connect 53 0 54 0; -#X connect 53 0 54 1; -#X connect 54 0 28 0; -#X connect 57 0 30 1; -#X connect 58 0 40 0; +#X connect 28 0 43 0; +#X connect 29 0 16 0; +#X connect 31 0 29 0; +#X connect 32 0 33 0; +#X connect 32 0 33 1; +#X connect 33 0 36 0; +#X connect 34 0 35 0; +#X connect 35 0 37 1; +#X connect 36 0 37 0; +#X connect 37 0 12 0; +#X connect 38 0 57 0; +#X connect 39 0 28 0; +#X connect 42 0 45 1; +#X connect 43 0 5 0; +#X connect 44 0 42 0; +#X connect 45 0 18 0; +#X connect 48 0 18 1; +#X connect 49 0 38 1; +#X connect 50 0 11 0; +#X connect 51 0 55 0; +#X connect 52 0 53 0; +#X connect 52 0 53 1; +#X connect 53 0 27 0; +#X connect 56 0 29 1; +#X connect 57 0 39 0; +#X connect 58 0 14 0; #X restore 294 552 pd GoldnoiseGainSword; #X obj 417 531 r~ \$0-elev; #X obj 396 510 r~ \$0-azim; @@ -731,7 +730,7 @@ #X obj 709 151 r~ \$0-sourceSpeed; #X obj 314 426 r~ \$0-sourceSpeed; #X obj 776 330 r~ \$0-sourceSpeed; -#N canvas 8 111 823 563 doppler 0; +#N canvas 8 111 823 563 doppler 1; #X obj 88 329 inlet~; #X obj 88 467 outlet~; #X obj 186 256 r~ \$0-azim; @@ -753,7 +752,6 @@ #X obj 286 207 +~ 90; #X obj 210 370 *~ -1; #X obj 171 349 spigot~; -#X obj 96 359 sig~ 323.56; #X obj 156 389 +~; #X obj 141 411 /~; #X obj 88 435 *~; @@ -763,7 +761,8 @@ #X text 423 61 Calculate the azimuth angle from the projected position of the oberver in the plane of the sword. Peak position is when the current azimuth is the same as the observer azimuth.; -#X connect 0 0 24 0; +#X obj 96 359 sig~ 410; +#X connect 0 0 23 0; #X connect 2 0 3 0; #X connect 3 0 5 0; #X connect 4 0 6 0; @@ -781,24 +780,25 @@ #X connect 15 0 20 1; #X connect 17 0 13 1; #X connect 18 0 13 0; -#X connect 19 0 22 1; -#X connect 20 0 22 1; +#X connect 19 0 21 1; +#X connect 20 0 21 1; #X connect 20 1 19 0; -#X connect 21 0 22 0; -#X connect 21 0 23 0; +#X connect 21 0 22 1; #X connect 22 0 23 1; -#X connect 23 0 24 1; -#X connect 24 0 1 0; -#X connect 25 0 15 0; -#X connect 26 0 8 0; -#X connect 27 0 8 1; +#X connect 23 0 1 0; +#X connect 24 0 15 0; +#X connect 25 0 8 0; +#X connect 26 0 8 1; +#X connect 28 0 21 0; +#X connect 28 0 22 0; #X restore 709 410 pd doppler; #X obj 467 82 s~ \$0-elev; #X obj 542 82 s~ \$0-azim; #X obj 709 179 *~ 64.8; #X obj 709 254 /~ 3.47e-05; -#X connect 1 0 87 0; -#X connect 2 0 83 0; +#X obj 52 88 /~ 410; +#X connect 1 0 86 0; +#X connect 2 0 82 0; #X connect 3 0 2 0; #X connect 4 0 8 0; #X connect 4 0 26 0; @@ -806,23 +806,23 @@ #X connect 10 0 2 1; #X connect 12 0 29 0; #X connect 14 0 50 0; -#X connect 18 0 74 3; +#X connect 18 0 73 3; #X connect 25 0 34 0; #X connect 25 0 3 0; #X connect 29 0 27 0; #X connect 29 1 28 0; -#X connect 32 0 74 0; +#X connect 32 0 73 0; #X connect 36 0 12 0; #X connect 37 0 29 1; #X connect 39 0 48 0; #X connect 40 0 39 0; -#X connect 41 0 73 2; -#X connect 42 0 73 0; +#X connect 41 0 72 2; +#X connect 42 0 72 0; #X connect 44 0 46 0; #X connect 45 0 44 0; -#X connect 47 0 73 3; +#X connect 47 0 72 3; #X connect 48 0 12 1; -#X connect 49 0 74 2; +#X connect 49 0 73 2; #X connect 50 0 51 0; #X connect 51 0 15 0; #X connect 51 0 35 0; @@ -834,25 +834,25 @@ #X connect 60 0 48 1; #X connect 61 0 60 0; #X connect 63 0 66 0; -#X connect 64 0 84 0; -#X connect 65 0 85 0; -#X connect 67 0 68 0; -#X connect 67 0 79 0; -#X connect 68 0 69 0; -#X connect 70 0 73 4; -#X connect 71 0 73 5; -#X connect 72 0 73 6; -#X connect 73 0 31 0; -#X connect 73 1 30 0; -#X connect 74 0 33 0; -#X connect 75 0 74 6; -#X connect 76 0 74 5; -#X connect 77 0 74 4; -#X connect 78 0 73 1; -#X connect 80 0 86 0; -#X connect 81 0 74 1; -#X connect 82 0 3 1; -#X connect 83 0 11 0; -#X connect 86 0 1 0; -#X connect 87 0 13 0; -#X connect 87 0 25 0; +#X connect 64 0 83 0; +#X connect 65 0 84 0; +#X connect 67 0 78 0; +#X connect 67 0 87 0; +#X connect 69 0 72 4; +#X connect 70 0 72 5; +#X connect 71 0 72 6; +#X connect 72 0 31 0; +#X connect 72 1 30 0; +#X connect 73 0 33 0; +#X connect 74 0 73 6; +#X connect 75 0 73 5; +#X connect 76 0 73 4; +#X connect 77 0 72 1; +#X connect 79 0 85 0; +#X connect 80 0 73 1; +#X connect 81 0 3 1; +#X connect 82 0 11 0; +#X connect 85 0 1 0; +#X connect 86 0 13 0; +#X connect 86 0 25 0; +#X connect 87 0 68 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/SwordCorInterpS/freqCalcCyl4_Lofi.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,433 @@ +#N canvas 337 23 1326 739 10; +#X obj 519 467 /~ 1; +#X obj 519 427 *~; +#X obj 233 73 inlet; +#X obj 240 96 s \$0-diameter; +#X obj 540 445 r \$0-diameter; +#X obj 130 95 s~ \$0-windSpeed; +#X obj 534 406 r~ \$0-windSpeed; +#X obj 519 493 s~ \$0-myFreq; +#X obj 646 67 inlet; +#X text 483 512 Calculates the frequency; +#X text 484 524 based on the physics of; +#X text 107 382 Calculates the gain of the dipole source; +#X text 469 47 Azimuth; +#X text 651 49 Pan; +#X text 543 51 Elevation; +#X text 394 52 Distance; +#X text 228 52 Diameter; +#X text 143 51 Wind Speed; +#X obj 238 346 s~ \$0-dragDiGain; +#X obj 127 367 s~ \$0-liftDiGain; +#X obj 646 136 s \$0-thisPan; +#X obj 127 215 r~ \$0-windSpeed; +#X obj 154 236 r \$0-diameter; +#X obj 646 91 max 0.01; +#X obj 646 114 min 0.99; +#X text 484 537 the object and environment; +#X obj 130 75 inlet~; +#X obj 398 71 inlet~; +#X obj 403 94 s~ \$0-dist; +#X obj 182 257 r~ \$0-dist; +#X obj 470 70 inlet~; +#X obj 477 92 s~ \$0-azim; +#X obj 238 298 r~ \$0-azim; +#X obj 544 69 inlet~; +#X obj 552 92 s~ \$0-elev; +#X obj 210 277 r~ \$0-elev; +#N canvas 339 112 976 679 Dipoles 0; +#X obj 76 62 r~ \$0-myFreq; +#X obj 91 107 r~ \$0-liftDiGain; +#X obj 353 69 r~ \$0-myFreq; +#X obj 368 135 r~ \$0-liftDiGain; +#X obj 368 157 *~ 0.6; +#X obj 621 62 r~ \$0-myFreq; +#X obj 636 125 r~ \$0-liftDiGain; +#X obj 621 86 *~ 5; +#X obj 353 93 *~ 3; +#X obj 215 359 r~ \$0-myFreq; +#X obj 230 432 r~ \$0-dragDiGain; +#X obj 215 387 *~ 2; +#X obj 494 358 r~ \$0-myFreq; +#X obj 528 406 r~ \$0-dragDiGain; +#X obj 494 386 *~ 4; +#X obj 528 429 *~ 0.125; +#X obj 210 199 *~; +#X obj 210 264 throw~ l; +#X obj 237 241 throw~ r; +#X obj 210 220 fcpan; +#X obj 237 198 r \$0-thisPan; +#X obj 210 67 r~ \$0-thisNoise; +#X obj 480 192 *~; +#X obj 480 257 throw~ l; +#X obj 507 234 throw~ r; +#X obj 480 213 fcpan; +#X obj 507 191 r \$0-thisPan; +#X obj 480 68 r~ \$0-thisNoise; +#X obj 750 183 *~; +#X obj 750 248 throw~ l; +#X obj 777 225 throw~ r; +#X obj 750 204 fcpan; +#X obj 777 182 r \$0-thisPan; +#X obj 750 65 r~ \$0-thisNoise; +#X obj 636 147 *~ 0.1; +#X obj 360 478 *~; +#X obj 360 543 throw~ l; +#X obj 387 520 throw~ r; +#X obj 360 499 fcpan; +#X obj 387 477 r \$0-thisPan; +#X obj 360 358 r~ \$0-thisNoise; +#X obj 634 476 *~; +#X obj 634 541 throw~ l; +#X obj 661 518 throw~ r; +#X obj 634 497 fcpan; +#X obj 661 475 r \$0-thisPan; +#X obj 634 358 r~ \$0-thisNoise; +#X text 273 27 Generates the sound associated with the lift dipole. +; +#X text 318 326 Generates the sound associated with the drag dipole. +; +#X obj 210 158 *~ 1; +#X obj 480 159 *~ 1; +#X obj 750 154 *~ 1; +#X obj 634 442 *~ 1; +#X obj 360 445 *~ 1; +#X obj 210 108 vcf~ 10; +#X obj 210 134 vcf~ 10; +#X obj 480 116 vcf~ 10; +#X obj 480 138 vcf~ 10; +#X obj 750 107 vcf~ 10; +#X obj 750 131 vcf~ 10; +#X obj 360 402 vcf~ 10; +#X obj 360 423 vcf~ 10; +#X obj 634 400 vcf~ 10; +#X obj 634 421 vcf~ 10; +#X obj 53 291 noise~; +#X obj 53 314 s~ \$0-thisNoise; +#X connect 0 0 54 1; +#X connect 0 0 55 1; +#X connect 1 0 16 1; +#X connect 2 0 8 0; +#X connect 3 0 4 0; +#X connect 4 0 22 1; +#X connect 5 0 7 0; +#X connect 6 0 34 0; +#X connect 7 0 58 1; +#X connect 7 0 59 1; +#X connect 8 0 56 1; +#X connect 8 0 57 1; +#X connect 9 0 11 0; +#X connect 10 0 35 1; +#X connect 11 0 60 1; +#X connect 11 0 61 1; +#X connect 12 0 14 0; +#X connect 13 0 15 0; +#X connect 14 0 62 1; +#X connect 14 0 63 1; +#X connect 15 0 41 1; +#X connect 16 0 19 0; +#X connect 19 0 17 0; +#X connect 19 1 18 0; +#X connect 20 0 19 1; +#X connect 21 0 54 0; +#X connect 22 0 25 0; +#X connect 25 0 23 0; +#X connect 25 1 24 0; +#X connect 26 0 25 1; +#X connect 27 0 56 0; +#X connect 28 0 31 0; +#X connect 31 0 29 0; +#X connect 31 1 30 0; +#X connect 32 0 31 1; +#X connect 33 0 58 0; +#X connect 34 0 28 1; +#X connect 35 0 38 0; +#X connect 38 0 36 0; +#X connect 38 1 37 0; +#X connect 39 0 38 1; +#X connect 40 0 60 0; +#X connect 41 0 44 0; +#X connect 44 0 42 0; +#X connect 44 1 43 0; +#X connect 45 0 44 1; +#X connect 46 0 62 0; +#X connect 49 0 16 0; +#X connect 50 0 22 0; +#X connect 51 0 28 0; +#X connect 52 0 41 0; +#X connect 53 0 35 0; +#X connect 54 0 55 0; +#X connect 55 0 49 0; +#X connect 56 0 57 0; +#X connect 57 0 50 0; +#X connect 58 0 59 0; +#X connect 59 0 51 0; +#X connect 60 0 61 0; +#X connect 61 0 53 0; +#X connect 62 0 63 0; +#X connect 63 0 52 0; +#X connect 64 0 65 0; +#X restore 774 538 pd Dipoles; +#X obj 404 480 r myMet; +#X obj 404 501 snapshot~; +#X floatatom 404 522 0 0 0 0 - - -; +#X obj 438 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj 438 221 s GO; +#X obj 378 168 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj 378 245 s setUp; +#X obj 378 221 Uzi 20; +#N canvas 181 90 1238 721 GoldfreqGainLoFi 1; +#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 218 145 pd pow6; +#X text 533 2 Distance; +#X text 724 595 Calculates Drag Dipole gain; +#X text 48 508 Calculates Lift Dipole gain; +#X obj 218 112 inlet~; +#X text 327 152 Diameter; +#X obj 292 150 inlet; +#X obj 219 528 outlet~; +#X obj 758 523 outlet~; +#X text 314 259 Length; +#X obj 219 284 *~ 1; +#X obj 234 391 /~ 360; +#X obj 234 440 *~; +#X obj 219 463 *~; +#X text 268 112 Wind speed; +#X text 321 196 Corr Length; +#X obj 283 415 /~ 360; +#X obj 283 461 *~; +#X obj 283 437 cos~; +#X obj 219 502 *~; +#X text 370 104 Speed of Sound to power 3; +#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 298 *~; +#X obj 219 346 /~; +#X obj 132 346 s~ \$0-aGainG; +#X obj 872 290 r~ \$0-aGainG; +#X obj 758 500 *~ 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 text 892 379 Speed of Sound to power 3; +#X obj 872 423 /~; +#X text 588 167 Remember - Goldstein moves cylinder; +#X obj 518 170 /~ 360; +#X obj 758 475 *~; +#X obj 218 205 *~; +#X obj 234 417 sin~; +#X obj 404 167 *~; +#X obj 404 141 r~ \$0-thisDist; +#X obj 520 40 s~ \$0-thisDist; +#X obj 513 18 inlet~; +#X obj 404 220 *~ 32; +#X obj 404 193 *~ 4.05513e+07; +#X obj 713 19 inlet~; +#X obj 720 44 s~ \$0-gain_azim; +#X obj 283 392 r~ \$0-gain_azim; +#X obj 611 21 inlet~; +#X obj 887 312 r~ \$0-thisDist; +#X obj 887 336 *~; +#X obj 887 361 *~ 4.05513e+07; +#X obj 887 399 *~ 32; +#X obj 616 44 s~ \$0-gain_elev; +#X obj 518 130 r~ \$0-gain_elev; +#X obj 723 315 r~ \$0-gain_elev; +#X obj 234 369 r~ \$0-gain_elev; +#X obj 240 258 r bladeLen; +#X text 25 173 St ^2 * mass air * sqrt(2*pi); +#X obj 218 171 *~ 0.1228; +#X obj 293 192 *~ 5; +#X obj 293 170 sig~; +#X obj 551 191 /~ 343.56; +#X obj 773 336 r~ \$0-gain_azim; +#X connect 0 0 68 0; +#X connect 4 0 0 0; +#X connect 4 0 71 0; +#X connect 6 0 70 0; +#X connect 10 0 27 0; +#X connect 10 0 28 0; +#X connect 11 0 47 0; +#X connect 12 0 13 1; +#X connect 13 0 19 0; +#X connect 16 0 18 0; +#X connect 17 0 19 1; +#X connect 18 0 17 0; +#X connect 18 0 17 1; +#X connect 19 0 7 0; +#X connect 21 0 22 0; +#X connect 22 0 24 1; +#X connect 23 0 24 0; +#X connect 24 0 25 0; +#X connect 25 0 26 1; +#X connect 26 0 27 1; +#X connect 27 0 13 0; +#X connect 29 0 42 0; +#X connect 30 0 8 0; +#X connect 31 0 32 0; +#X connect 32 0 34 0; +#X connect 33 0 38 0; +#X connect 34 0 33 0; +#X connect 34 0 33 1; +#X connect 35 0 37 0; +#X connect 36 0 38 1; +#X connect 37 0 36 0; +#X connect 37 0 36 1; +#X connect 38 0 45 0; +#X connect 42 0 45 1; +#X connect 44 0 21 0; +#X connect 45 0 30 0; +#X connect 46 0 10 0; +#X connect 47 0 12 0; +#X connect 47 0 12 1; +#X connect 48 0 53 0; +#X connect 49 0 48 0; +#X connect 49 0 48 1; +#X connect 51 0 50 0; +#X connect 52 0 26 0; +#X connect 53 0 52 0; +#X connect 54 0 55 0; +#X connect 56 0 16 0; +#X connect 57 0 62 0; +#X connect 58 0 59 0; +#X connect 58 0 59 1; +#X connect 59 0 60 0; +#X connect 60 0 61 0; +#X connect 61 0 42 1; +#X connect 63 0 44 0; +#X connect 64 0 31 0; +#X connect 65 0 11 0; +#X connect 66 0 10 1; +#X connect 68 0 46 0; +#X connect 69 0 46 1; +#X connect 70 0 69 0; +#X connect 71 0 22 1; +#X connect 72 0 35 0; +#X restore 127 322 pd GoldfreqGainLoFi; +#X obj 519 387 sig~ 0.2; +#X connect 0 0 7 0; +#X connect 0 0 38 0; +#X connect 1 0 0 0; +#X connect 2 0 3 0; +#X connect 4 0 0 1; +#X connect 6 0 1 1; +#X connect 8 0 23 0; +#X connect 21 0 45 0; +#X connect 22 0 45 1; +#X connect 23 0 24 0; +#X connect 24 0 20 0; +#X connect 26 0 5 0; +#X connect 27 0 28 0; +#X connect 29 0 45 2; +#X connect 30 0 31 0; +#X connect 32 0 45 4; +#X connect 33 0 34 0; +#X connect 35 0 45 3; +#X connect 37 0 38 0; +#X connect 38 0 39 0; +#X connect 40 0 41 0; +#X connect 42 0 44 0; +#X connect 44 0 43 0; +#X connect 45 0 19 0; +#X connect 45 1 18 0; +#X connect 46 0 1 0;
--- a/SwordCorInterpWii/SwordCorInterpWii.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/SwordCorInterpWii/SwordCorInterpWii.pd Mon May 09 17:19:54 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 26 23 1378 838 10; +#N canvas 0 22 1280 699 10; #X declare -lib mrpeach; #X obj 315 22 loadbang; #X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 @@ -7,7 +7,7 @@ #X text -165 346 Blade Length; #X text -9 37 Arm Length; #X obj 21 251 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 8233 1; +-1 -1 6421 1; #X floatatom 18 280 0 0 0 0 - - -; #X obj -270 444 hsl 100 20 0 0.1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1505 1; @@ -39,7 +39,7 @@ #X obj 83 21 loadbang; #X obj 83 45 delay 13; #X obj 15 336 hsl 100 20 0 180 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 1834 1; +-1 -1 9111 1; #X floatatom 12 368 0 0 0 0 - - -; #X obj -46 316 r setUp; #X obj -43 59 s start_armLength;
--- a/Swordsman/SwordSceneD1.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/Swordsman/SwordSceneD1.pd Mon May 09 17:19:54 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 187 134 1222 849 10; +#N canvas 136 47 1222 849 10; #X declare -lib mrpeach; #X obj 786 27 import mrpeach; #X obj 785 72 udpreceive 9004; @@ -18,9 +18,9 @@ -1 -1 1650 1; #X floatatom 28 290 8 0 0 0 - - -; #X obj -269 526 hsl 100 20 0 0.09 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 1760 1; +-262144 -1 -1 2260 1; #X obj -270 611 hsl 100 20 0.0001 0.1 0 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 1278 1; +10 -262144 -1 -1 1378 1; #X floatatom -272 556 8 0 0 0 - - -; #X floatatom -273 639 8 0 0 0 - - -; #X obj -215 638 s tipThick; @@ -70,11 +70,11 @@ #X obj 95 368 s postsweepAzim; #X obj -33 69 s start_armLength; #X obj -265 62 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4970 1; +-1 -1 4997 1; #X obj -266 156 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 4999 1; +-262144 -1 -1 5157 1; #X obj -266 247 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5049 1; +-262144 -1 -1 5314 1; #X obj -268 85 s Xobs; #X obj -269 180 s Yobs; #X obj -269 274 s Zobs; @@ -127,7 +127,7 @@ #X connect 7 0 3 1; #X restore 437 112 pd opLevels; #X obj 440 83 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 7622 1; +-262144 -1 -1 8422 1; #X obj 437 12 r GAIN; #X floatatom 380 113 8 0 0 0 - - -; #X obj -217 555 s hiltThick; @@ -140,7 +140,7 @@ #X msg -161 130 1; #X floatatom 237 62 5 0 0 0 - - -; #X obj -266 355 hsl 100 20 0.1 3 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 3755 1; +-1 -1 2755 1; #X floatatom -309 378 5 0 0 0 - - -; #X obj -314 329 r setUp; #X obj -269 310 r thisLength; @@ -223,9 +223,9 @@ #X msg 435 474 Xpos 0.2 \, Ypos 1 \, Zpos 1 \, Len 1.118 \, TopSpeed 36 \, HiltThick 0.013 \, TipThick 0.008 \, PreAzim 112 \, PostAzim 235 \, PreElev 90 \, PostElev 90 \, Gain 2e+07 \, Trigger bang; -#N canvas 262 197 928 460 sources 0; +#N canvas 312 373 928 460 sources 0; #X obj 187 -121 centreAngles; -#N canvas 250 351 1052 473 HiltPositions 0; +#N canvas 136 215 1062 626 HiltPositions 0; #X text -8592 93 z coordinate of tip; #X text -8908 239 x coordinate of tip; #X text -8680 51 y coordinate of tip; @@ -260,16 +260,15 @@ #X obj -8375 238 *~; #X obj -8291 241 *~; #X obj -8256 187 r start_armLength; -#X obj -8375 262 s~ hiltX; -#X obj -8291 263 s~ hiltY; -#X obj -8205 236 s~ hiltZ; +#X obj -8412 571 s~ hiltX; +#X obj -8328 572 s~ hiltY; +#X obj -8261 571 s~ hiltZ; #X obj -8660 185 r length; #X text -8276 53 y coordinate of hilt; #X text -8188 95 z coordinate of hilt; #X text -8504 241 x coordinate of hilt; -#X obj -8609 234 s~ tipZ; -#X obj -8695 261 s~ tipY; -#X obj -8779 260 s~ tipX; +#X obj -8534 568 s~ tipZ; +#X obj -8599 568 s~ tipY; #X obj -8081 322 r myMet; #X obj -8081 343 snapshot~; #X floatatom -8081 364 0 0 0 0 - - -; @@ -288,6 +287,26 @@ #X obj -8797 304 r myMet; #X obj -8797 325 snapshot~; #X floatatom -8797 346 0 0 0 0 - - -; +#X obj -8667 567 s~ tipX; +#X obj -8476 363 r OSCdata; +#X msg -8667 526 \$1 50; +#X obj -8667 547 line~; +#X msg -8599 526 \$1 50; +#X obj -8599 547 line~; +#X msg -8534 527 \$1 50; +#X obj -8534 548 line~; +#X msg -8412 530 \$1 50; +#X obj -8412 551 line~; +#X msg -8328 530 \$1 50; +#X obj -8328 551 line~; +#X msg -8261 530 \$1 50; +#X obj -8261 551 line~; +#X obj -8667 459 OSCroute /tipX; +#X obj -8599 480 OSCroute /tipY; +#X obj -8534 505 OSCroute /tipZ; +#X obj -8261 507 OSCroute /hiltZ; +#X obj -8328 482 OSCroute /hiltY; +#X obj -8412 461 OSCroute /hiltX; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 4 0 6 0; @@ -305,12 +324,9 @@ #X connect 12 0 15 0; #X connect 13 0 16 1; #X connect 14 0 17 1; -#X connect 15 0 41 0; -#X connect 15 0 54 0; -#X connect 16 0 43 0; -#X connect 16 0 60 0; -#X connect 17 0 42 0; -#X connect 17 0 57 0; +#X connect 15 0 53 0; +#X connect 16 0 59 0; +#X connect 17 0 56 0; #X connect 18 0 4 1; #X connect 19 0 7 0; #X connect 19 0 22 0; @@ -326,30 +342,46 @@ #X connect 27 0 30 0; #X connect 28 0 31 1; #X connect 29 0 32 1; -#X connect 30 0 36 0; -#X connect 30 0 45 0; -#X connect 31 0 34 0; -#X connect 31 0 51 0; -#X connect 32 0 35 0; -#X connect 32 0 48 0; +#X connect 30 0 44 0; +#X connect 31 0 50 0; +#X connect 32 0 47 0; #X connect 33 0 29 1; #X connect 33 0 30 1; #X connect 33 0 28 1; #X connect 37 0 14 1; #X connect 37 0 15 1; #X connect 37 0 13 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 connect 47 0 48 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 52 0 53 0; #X connect 53 0 54 0; -#X connect 54 0 55 0; +#X connect 55 0 56 0; #X connect 56 0 57 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 75 0; +#X connect 62 0 76 0; +#X connect 62 0 77 0; +#X connect 62 0 80 0; +#X connect 62 0 79 0; +#X connect 62 0 78 0; +#X connect 63 0 64 0; +#X connect 64 0 61 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0; +#X connect 69 0 70 0; +#X connect 71 0 72 0; +#X connect 73 0 74 0; +#X connect 75 0 63 0; +#X connect 76 0 65 0; +#X connect 77 0 67 0; +#X connect 78 0 73 0; +#X connect 79 0 71 0; +#X connect 80 0 69 0; #X restore 187 -99 pd HiltPositions; #N canvas 500 151 410 255 sourceHiltSpeed 0; #X obj 84 136 *~ 1; @@ -362,7 +394,7 @@ #X connect 3 0 4 0; #X connect 5 0 0 0; #X restore 29 -19 pd sourceHiltSpeed; -#N canvas 680 188 517 457 sourceTipSpeed 0; +#N canvas 434 455 517 457 sourceTipSpeed 0; #X obj 74 171 *~ 1; #X obj 74 193 outlet~; #X text 60 219 Source Speed; @@ -371,13 +403,11 @@ #X obj 279 135 r tipThick; #X obj 279 169 outlet; #X obj 95 97 r length; -#X obj 196 208 outlet; -#X obj 196 162 *; +#X obj 197 232 outlet; +#X obj 197 186 *; #X obj 211 140 t f b; -#X floatatom 229 186 0 0 0 0 - - -; -#X obj 74 73 r~ hiltSpeed; +#X floatatom 230 210 0 0 0 0 - - -; #X obj 110 118 r start_armLength; -#X obj 192 288 s~ tipSpeed; #X obj 348 228 outlet; #X obj 348 200 spigot; #X obj 303 199 spigot; @@ -392,40 +422,39 @@ #X obj 363 63 r MLB; #X obj 375 115 t b b; #X msg 348 176 0.06; -#X connect 0 0 1 0; -#X connect 0 0 14 0; +#X obj 23 82 r~ tipSpeed; #X connect 3 0 4 0; #X connect 3 0 0 1; #X connect 3 0 9 0; #X connect 5 0 6 0; -#X connect 5 0 17 0; +#X connect 5 0 15 0; #X connect 7 0 3 0; #X connect 9 0 11 0; #X connect 9 0 8 0; #X connect 10 0 9 1; #X connect 10 1 9 0; -#X connect 12 0 0 0; -#X connect 13 0 3 1; -#X connect 13 0 10 0; -#X connect 16 0 18 0; -#X connect 16 0 15 0; -#X connect 17 0 18 0; -#X connect 17 0 15 0; -#X connect 19 0 16 1; -#X connect 20 0 17 1; -#X connect 21 0 27 0; -#X connect 22 0 17 1; -#X connect 23 0 16 1; -#X connect 24 0 22 0; -#X connect 24 0 23 0; -#X connect 25 0 22 0; -#X connect 25 0 23 0; -#X connect 26 0 23 0; -#X connect 26 0 22 0; -#X connect 27 0 20 0; -#X connect 27 0 19 0; -#X connect 27 1 28 0; -#X connect 28 0 16 0; +#X connect 12 0 3 1; +#X connect 12 0 10 0; +#X connect 14 0 16 0; +#X connect 14 0 13 0; +#X connect 15 0 16 0; +#X connect 15 0 13 0; +#X connect 17 0 14 1; +#X connect 18 0 15 1; +#X connect 19 0 25 0; +#X connect 20 0 15 1; +#X connect 21 0 14 1; +#X connect 22 0 20 0; +#X connect 22 0 21 0; +#X connect 23 0 20 0; +#X connect 23 0 21 0; +#X connect 24 0 21 0; +#X connect 24 0 20 0; +#X connect 25 0 18 0; +#X connect 25 0 17 0; +#X connect 25 1 26 0; +#X connect 26 0 14 0; +#X connect 27 0 1 0; #X restore 745 174 pd sourceTipSpeed; #N canvas 144 122 1130 580 sourceTipPositions 0; #X obj 271 193 r Zobs; @@ -1095,57 +1124,170 @@ #X connect 29 1 27 0; #X connect 30 0 1 0; #X restore 315 177 pd sourceSpeed; -#N canvas 144 122 1130 580 sourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; +#N canvas 521 89 616 521 halfSourceSpeed 0; +#X obj 23 188 r~ tipSpeed; +#X obj 36 286 *~ 1; +#X obj 36 308 outlet~; +#X text 21 331 Source Speed; +#X obj 72 209 r length; +#X obj 57 261 /; +#X obj 309 372 outlet; +#X obj 309 229 *; +#X obj 324 206 t f b; +#X obj 309 301 +; +#X obj 324 278 t f b; +#X obj 324 179 r bladeGrad; +#X obj 324 252 r bladeConst; +#X obj 193 426 outlet; +#X obj 324 68 inlet; +#X text 303 50 Previous Source Position; +#X text 356 371 Current Source Diameter; +#X text 97 459 Current source speed as a fraction of tip speed; +#X obj 192 68 r start_armLength; +#X obj 177 192 -; +#X obj 177 216 <= 0; +#X obj 150 157 t f f; +#X obj 23 237 spigot~; +#X obj 309 112 +; +#X obj 309 133 * 0.5; +#X floatatom 189 271 0 0 0 0 - - -; +#X connect 0 0 22 0; +#X connect 1 0 2 0; +#X connect 4 0 5 1; +#X connect 5 0 1 1; +#X connect 5 0 13 0; +#X connect 7 0 9 0; +#X connect 8 0 7 1; +#X connect 8 1 7 0; +#X connect 9 0 6 0; +#X connect 10 0 9 1; +#X connect 10 1 9 0; +#X connect 11 0 8 0; +#X connect 12 0 10 0; +#X connect 14 0 23 1; +#X connect 18 0 19 1; +#X connect 18 0 23 0; +#X connect 19 0 20 0; +#X connect 19 0 25 0; +#X connect 20 0 22 1; +#X connect 21 0 5 0; +#X connect 21 1 19 0; +#X connect 22 0 1 0; +#X connect 23 0 24 0; +#X connect 24 0 21 0; +#X connect 24 0 7 0; +#X restore 27 75 pd halfSourceSpeed; +#N canvas 366 181 633 561 sourceSpeed 0; +#X obj 23 182 r~ tipSpeed; +#X obj 36 280 *~ 1; +#X obj 36 302 outlet~; +#X text 21 325 Source Speed; +#X obj 72 203 r length; +#X obj 57 255 /; +#X obj 405 379 outlet; +#X obj 420 97 inlet; +#X obj 405 236 *; +#X obj 420 213 t f b; +#X obj 405 308 +; +#X obj 420 285 t f b; +#X obj 420 119 * 7; +#X obj 405 165 -; +#X obj 420 141 t f b; +#X obj 420 186 r bladeGrad; +#X obj 420 259 r bladeConst; +#X obj 193 426 outlet; +#X obj 405 76 inlet; +#X obj 353 279 outlet; +#X text 384 58 Previous Source Position; +#X text 457 97 Previous Source Diameter; +#X text 452 378 Current Source Diameter; +#X text 261 303 Current Source Position; +#X text 97 459 Current source speed as a fraction of tip speed; +#X text 451 118 Averaged correlation length; +#X obj 192 201 r start_armLength; +#X obj 177 223 -; +#X obj 177 247 <= 0; +#X obj 150 188 t f f; +#X obj 23 231 spigot~; +#X connect 0 0 30 0; +#X connect 1 0 2 0; +#X connect 4 0 5 1; +#X connect 5 0 1 1; +#X connect 5 0 17 0; +#X connect 7 0 12 0; +#X connect 8 0 10 0; +#X connect 9 0 8 1; +#X connect 9 1 8 0; +#X connect 10 0 6 0; +#X connect 11 0 10 1; +#X connect 11 1 10 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 13 0 19 0; +#X connect 13 0 29 0; +#X connect 14 0 13 1; +#X connect 14 1 13 0; +#X connect 15 0 9 0; +#X connect 16 0 11 0; +#X connect 18 0 13 0; +#X connect 26 0 27 1; +#X connect 27 0 28 0; +#X connect 28 0 30 1; +#X connect 29 0 5 0; +#X connect 29 1 27 0; +#X connect 30 0 1 0; +#X restore 594 174 pd sourceSpeed; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; #N canvas 260 123 1003 782 SourceAngles 0; #X obj -8305 185 *~; #X obj -8274 186 *~; @@ -1343,7 +1485,19 @@ #X connect 86 0 2 0; #X connect 86 0 2 1; #X connect 86 0 40 1; -#X restore 434 387 pd SourceAngles; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; #X connect 0 0 13 0; #X connect 1 0 15 0; #X connect 2 0 17 0; @@ -1369,12 +1523,9 @@ #X connect 15 0 14 0; #X connect 16 0 3 1; #X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 50 0; -#X connect 19 0 5 0; -#X connect 19 0 50 1; -#X connect 20 0 7 0; -#X connect 20 0 50 2; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; #X connect 27 0 28 0; #X connect 28 0 39 0; #X connect 29 0 30 0; @@ -1392,753 +1543,29 @@ #X connect 42 0 33 1; #X connect 43 0 44 0; #X connect 44 0 37 1; -#X connect 45 0 18 0; -#X connect 46 0 19 0; -#X connect 47 0 20 0; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; #X connect 48 0 20 1; #X connect 48 0 19 1; #X connect 48 0 18 1; #X connect 50 0 22 0; #X connect 50 1 21 0; -#X restore 335 210 pd sourcePositions; -#N canvas 521 89 616 521 halfSourceSpeed 0; -#X obj 23 188 r~ tipSpeed; -#X obj 36 286 *~ 1; -#X obj 36 308 outlet~; -#X text 21 331 Source Speed; -#X obj 72 209 r length; -#X obj 57 261 /; -#X obj 309 372 outlet; -#X obj 309 229 *; -#X obj 324 206 t f b; -#X obj 309 301 +; -#X obj 324 278 t f b; -#X obj 324 179 r bladeGrad; -#X obj 324 252 r bladeConst; -#X obj 193 426 outlet; -#X obj 324 68 inlet; -#X text 303 50 Previous Source Position; -#X text 356 371 Current Source Diameter; -#X text 97 459 Current source speed as a fraction of tip speed; -#X obj 192 68 r start_armLength; -#X obj 177 192 -; -#X obj 177 216 <= 0; -#X obj 150 157 t f f; -#X obj 23 237 spigot~; -#X obj 309 112 +; -#X obj 309 133 * 0.5; -#X floatatom 189 271 0 0 0 0 - - -; -#X connect 0 0 22 0; -#X connect 1 0 2 0; -#X connect 4 0 5 1; -#X connect 5 0 1 1; -#X connect 5 0 13 0; -#X connect 7 0 9 0; -#X connect 8 0 7 1; -#X connect 8 1 7 0; -#X connect 9 0 6 0; -#X connect 10 0 9 1; -#X connect 10 1 9 0; -#X connect 11 0 8 0; -#X connect 12 0 10 0; -#X connect 14 0 23 1; -#X connect 18 0 19 1; -#X connect 18 0 23 0; -#X connect 19 0 20 0; -#X connect 19 0 25 0; -#X connect 20 0 22 1; -#X connect 21 0 5 0; -#X connect 21 1 19 0; -#X connect 22 0 1 0; -#X connect 23 0 24 0; -#X connect 24 0 21 0; -#X connect 24 0 7 0; -#X restore 27 75 pd halfSourceSpeed; -#N canvas 186 253 1130 580 halfSourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X floatatom 899 391 0 0 0 0 - - -; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; -#X floatatom 601 418 0 0 0 0 - - -; -#X obj 601 369 r myMet; -#X obj 601 394 snapshot~; -#X floatatom 333 424 0 0 0 0 - - -; -#X obj 333 375 r myMet; -#X obj 333 400 snapshot~; -#N canvas 260 123 1003 782 SourceAngles 0; -#X obj -8305 185 *~; -#X obj -8274 186 *~; -#X obj -8245 185 *~; -#X obj -8289 220 +~; -#X obj -8289 252 +~; -#X obj -8289 279 sqrt~; -#X obj -8571 236 -~; -#X obj -8571 260 *~; -#X obj -8535 235 -~; -#X obj -8535 264 *~; -#X obj -8499 235 -~; -#X obj -8499 259 *~; -#X obj -8550 298 +~; -#X obj -8550 330 +~; -#X obj -8550 357 sqrt~; -#X obj -8569 47 inlet~; -#X obj -8522 48 inlet~; -#X obj -8475 49 inlet~; -#X obj -8132 43 r Xobs; -#X obj -8132 83 line~; -#X obj -8088 84 line~; -#X obj -8041 84 line~; -#X obj -8088 44 r Yobs; -#X obj -8041 44 r Zobs; -#X text -8567 24 a; -#X text -8517 29 b; -#X text -8471 26 c; -#X obj -8134 214 -~; -#X obj -8134 238 *~; -#X obj -8098 213 -~; -#X obj -8098 242 *~; -#X obj -8062 213 -~; -#X obj -8062 237 *~; -#X obj -8113 276 +~; -#X obj -8113 304 +~; -#X obj -8113 335 sqrt~; -#X obj -7937 219 -~; -#X obj -7937 243 *~; -#X obj -7901 218 -~; -#X obj -7901 247 *~; -#X obj -7865 218 -~; -#X obj -7865 242 *~; -#X obj -7916 281 +~; -#X obj -7916 313 +~; -#X obj -7916 340 sqrt~; -#X text -8578 360 U; -#X text -8309 279 W; -#X text -8130 337 d; -#X obj -8722 229 *~; -#X obj -8691 230 *~; -#X obj -8662 229 *~; -#X obj -8706 264 +~; -#X obj -8706 296 +~; -#X obj -8706 323 sqrt~; -#X text -8726 323 l; -#X obj -8517 559 arccos~; -#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 --1; -#X obj -7909 83 s GO; -#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 --1 -1; -#X obj -7969 83 s setUp; -#X text -7936 341 m; -#X obj -8517 606 outlet~; -#X obj -8096 655 outlet~; -#X text -8574 642 Tip - Obs Elevation; -#X text -8145 680 Tip - Obs Azimuth; -#X obj -8517 445 +~; -#X obj -8517 474 -~; -#X obj -8487 481 *~ 2; -#X obj -8502 504 *~; -#X obj -8517 534 /~; -#X obj -8096 606 arccos~; -#X obj -8096 465 +~; -#X obj -8096 494 -~; -#X obj -8066 501 *~ 2; -#X obj -8081 524 *~; -#X obj -8096 554 /~; -#X text -8520 626 comment; -#X obj -8096 629 +~ 90; -#X obj -8417 592 snapshot~; -#X floatatom -8417 616 0 0 0 0 - - -; -#X obj -8417 569 r myMet; -#X msg -8132 64 \$1 15; -#X msg -8088 65 \$1 15; -#X msg -8041 65 \$1 15; -#X obj -8344 72 r~ proX; -#X obj -8274 73 r~ proY; -#X obj -8208 76 r~ proZ; -#X connect 0 0 3 0; -#X connect 1 0 3 1; -#X connect 2 0 4 1; -#X connect 3 0 4 0; -#X connect 4 0 5 0; -#X connect 4 0 72 1; -#X connect 6 0 7 0; -#X connect 6 0 7 1; -#X connect 7 0 12 0; -#X connect 8 0 9 0; -#X connect 8 0 9 1; -#X connect 9 0 12 1; -#X connect 10 0 11 0; -#X connect 10 0 11 1; -#X connect 11 0 13 1; -#X connect 12 0 13 0; -#X connect 13 0 14 0; -#X connect 13 0 65 1; -#X connect 13 0 71 1; -#X connect 14 0 68 0; -#X connect 14 0 74 0; -#X connect 15 0 6 1; -#X connect 15 0 27 1; -#X connect 15 0 48 0; -#X connect 15 0 48 1; -#X connect 16 0 8 1; -#X connect 16 0 29 1; -#X connect 16 0 49 0; -#X connect 16 0 49 1; -#X connect 17 0 10 1; -#X connect 17 0 31 1; -#X connect 17 0 50 0; -#X connect 17 0 50 1; -#X connect 18 0 81 0; -#X connect 19 0 27 0; -#X connect 19 0 36 0; -#X connect 20 0 29 0; -#X connect 20 0 38 0; -#X connect 21 0 31 0; -#X connect 21 0 40 0; -#X connect 22 0 82 0; -#X connect 23 0 83 0; -#X connect 27 0 28 0; -#X connect 27 0 28 1; -#X connect 28 0 33 0; -#X connect 29 0 30 0; -#X connect 29 0 30 1; -#X connect 30 0 33 1; -#X connect 31 0 32 0; -#X connect 31 0 32 1; -#X connect 32 0 34 1; -#X connect 33 0 34 0; -#X connect 34 0 35 0; -#X connect 34 0 65 0; -#X connect 35 0 67 0; -#X connect 36 0 37 0; -#X connect 36 0 37 1; -#X connect 37 0 42 0; -#X connect 38 0 39 0; -#X connect 38 0 39 1; -#X connect 39 0 42 1; -#X connect 40 0 41 0; -#X connect 40 0 41 1; -#X connect 41 0 43 1; -#X connect 42 0 43 0; -#X connect 43 0 44 0; -#X connect 43 0 66 1; -#X connect 48 0 51 0; -#X connect 49 0 51 1; -#X connect 50 0 52 1; -#X connect 51 0 52 0; -#X connect 52 0 53 0; -#X connect 52 0 71 0; -#X connect 53 0 73 0; -#X connect 55 0 61 0; -#X connect 56 0 57 0; -#X connect 58 0 59 0; -#X connect 65 0 66 0; -#X connect 66 0 69 0; -#X connect 67 0 68 1; -#X connect 68 0 69 1; -#X connect 69 0 55 0; -#X connect 70 0 77 0; -#X connect 71 0 72 0; -#X connect 72 0 75 0; -#X connect 73 0 74 1; -#X connect 74 0 75 1; -#X connect 75 0 70 0; -#X connect 77 0 62 0; -#X connect 77 0 78 0; -#X connect 78 0 79 0; -#X connect 80 0 78 0; -#X connect 81 0 19 0; -#X connect 82 0 20 0; -#X connect 83 0 21 0; -#X connect 84 0 6 0; -#X connect 84 0 0 0; -#X connect 84 0 0 1; -#X connect 84 0 36 1; -#X connect 85 0 1 0; -#X connect 85 0 1 1; -#X connect 85 0 38 1; -#X connect 85 0 8 0; -#X connect 86 0 10 0; -#X connect 86 0 2 0; -#X connect 86 0 2 1; -#X connect 86 0 40 1; -#X restore 433 390 pd SourceAngles; -#X connect 0 0 13 0; -#X connect 1 0 15 0; -#X connect 2 0 17 0; -#X connect 3 0 4 0; -#X connect 3 0 4 1; -#X connect 3 0 30 0; -#X connect 4 0 9 0; -#X connect 5 0 6 0; -#X connect 5 0 6 1; -#X connect 5 0 30 1; -#X connect 5 0 35 0; -#X connect 5 0 39 0; -#X connect 6 0 9 1; -#X connect 7 0 8 0; -#X connect 7 0 8 1; -#X connect 8 0 10 1; -#X connect 9 0 10 0; -#X connect 10 0 11 0; -#X connect 11 0 23 0; -#X connect 12 0 7 1; -#X connect 13 0 12 0; -#X connect 14 0 5 1; -#X connect 15 0 14 0; -#X connect 16 0 3 1; -#X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 57 0; -#X connect 19 0 5 0; -#X connect 19 0 57 1; -#X connect 20 0 7 0; -#X connect 20 0 57 2; -#X connect 27 0 28 0; -#X connect 28 0 29 0; -#X connect 28 0 40 0; -#X connect 30 0 31 0; -#X connect 31 0 32 0; -#X connect 32 0 33 0; -#X connect 33 0 38 0; -#X connect 33 0 37 1; -#X connect 34 1 28 0; -#X connect 35 0 43 0; -#X connect 36 0 37 0; -#X connect 37 0 34 0; -#X connect 38 1 28 0; -#X connect 39 0 45 0; -#X connect 42 0 43 0; -#X connect 43 0 34 1; -#X connect 44 0 45 0; -#X connect 45 0 38 1; -#X connect 46 0 18 0; -#X connect 47 0 19 0; -#X connect 48 0 20 0; -#X connect 49 0 20 1; -#X connect 49 0 19 1; -#X connect 49 0 18 1; -#X connect 52 0 53 0; -#X connect 53 0 51 0; -#X connect 55 0 56 0; -#X connect 56 0 54 0; -#X connect 57 0 22 0; -#X connect 57 0 56 0; -#X connect 57 1 21 0; -#X connect 57 1 53 0; -#X restore 39 107 pd halfSourcePositions; -#N canvas 647 139 633 561 sourceSpeed 0; -#X obj 23 182 r~ tipSpeed; -#X obj 36 280 *~ 1; -#X obj 36 302 outlet~; -#X text 21 325 Source Speed; -#X obj 72 203 r length; -#X obj 57 255 /; -#X obj 405 379 outlet; -#X obj 420 97 inlet; -#X obj 405 236 *; -#X obj 420 213 t f b; -#X obj 405 308 +; -#X obj 420 285 t f b; -#X obj 420 119 * 7; -#X obj 405 165 -; -#X obj 420 141 t f b; -#X obj 420 186 r bladeGrad; -#X obj 420 259 r bladeConst; -#X obj 193 426 outlet; -#X obj 405 76 inlet; -#X obj 353 279 outlet; -#X text 384 58 Previous Source Position; -#X text 457 97 Previous Source Diameter; -#X text 452 378 Current Source Diameter; -#X text 261 303 Current Source Position; -#X text 97 459 Current source speed as a fraction of tip speed; -#X text 451 118 Averaged correlation length; -#X obj 192 201 r start_armLength; -#X obj 177 223 -; -#X obj 177 247 <= 0; -#X obj 150 188 t f f; -#X obj 23 231 spigot~; -#X connect 0 0 30 0; -#X connect 1 0 2 0; -#X connect 4 0 5 1; -#X connect 5 0 1 1; -#X connect 5 0 17 0; -#X connect 7 0 12 0; -#X connect 8 0 10 0; -#X connect 9 0 8 1; -#X connect 9 1 8 0; -#X connect 10 0 6 0; -#X connect 11 0 10 1; -#X connect 11 1 10 0; -#X connect 12 0 14 0; -#X connect 13 0 8 0; -#X connect 13 0 19 0; -#X connect 13 0 29 0; -#X connect 14 0 13 1; -#X connect 14 1 13 0; -#X connect 15 0 9 0; -#X connect 16 0 11 0; -#X connect 18 0 13 0; -#X connect 26 0 27 1; -#X connect 27 0 28 0; -#X connect 28 0 30 1; -#X connect 29 0 5 0; -#X connect 29 1 27 0; -#X connect 30 0 1 0; -#X restore 594 174 pd sourceSpeed; -#N canvas 144 122 1130 580 sourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; -#N canvas 260 123 1003 782 SourceAngles 0; -#X obj -8305 185 *~; -#X obj -8274 186 *~; -#X obj -8245 185 *~; -#X obj -8289 220 +~; -#X obj -8289 252 +~; -#X obj -8289 279 sqrt~; -#X obj -8571 236 -~; -#X obj -8571 260 *~; -#X obj -8535 235 -~; -#X obj -8535 264 *~; -#X obj -8499 235 -~; -#X obj -8499 259 *~; -#X obj -8550 298 +~; -#X obj -8550 330 +~; -#X obj -8550 357 sqrt~; -#X obj -8569 47 inlet~; -#X obj -8522 48 inlet~; -#X obj -8475 49 inlet~; -#X obj -8132 43 r Xobs; -#X obj -8132 83 line~; -#X obj -8088 84 line~; -#X obj -8041 84 line~; -#X obj -8088 44 r Yobs; -#X obj -8041 44 r Zobs; -#X text -8567 24 a; -#X text -8517 29 b; -#X text -8471 26 c; -#X obj -8134 214 -~; -#X obj -8134 238 *~; -#X obj -8098 213 -~; -#X obj -8098 242 *~; -#X obj -8062 213 -~; -#X obj -8062 237 *~; -#X obj -8113 276 +~; -#X obj -8113 304 +~; -#X obj -8113 335 sqrt~; -#X obj -7937 219 -~; -#X obj -7937 243 *~; -#X obj -7901 218 -~; -#X obj -7901 247 *~; -#X obj -7865 218 -~; -#X obj -7865 242 *~; -#X obj -7916 281 +~; -#X obj -7916 313 +~; -#X obj -7916 340 sqrt~; -#X text -8578 360 U; -#X text -8309 279 W; -#X text -8130 337 d; -#X obj -8722 229 *~; -#X obj -8691 230 *~; -#X obj -8662 229 *~; -#X obj -8706 264 +~; -#X obj -8706 296 +~; -#X obj -8706 323 sqrt~; -#X text -8726 323 l; -#X obj -8517 559 arccos~; -#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 --1; -#X obj -7909 83 s GO; -#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 --1 -1; -#X obj -7969 83 s setUp; -#X text -7936 341 m; -#X obj -8517 606 outlet~; -#X obj -8096 655 outlet~; -#X text -8574 642 Tip - Obs Elevation; -#X text -8145 680 Tip - Obs Azimuth; -#X obj -8517 445 +~; -#X obj -8517 474 -~; -#X obj -8487 481 *~ 2; -#X obj -8502 504 *~; -#X obj -8517 534 /~; -#X obj -8096 606 arccos~; -#X obj -8096 465 +~; -#X obj -8096 494 -~; -#X obj -8066 501 *~ 2; -#X obj -8081 524 *~; -#X obj -8096 554 /~; -#X text -8520 626 comment; -#X obj -8096 629 +~ 90; -#X obj -8417 592 snapshot~; -#X floatatom -8417 616 0 0 0 0 - - -; -#X obj -8417 569 r myMet; -#X msg -8132 64 \$1 15; -#X msg -8088 65 \$1 15; -#X msg -8041 65 \$1 15; -#X obj -8344 72 r~ proX; -#X obj -8274 73 r~ proY; -#X obj -8208 76 r~ proZ; -#X connect 0 0 3 0; -#X connect 1 0 3 1; -#X connect 2 0 4 1; -#X connect 3 0 4 0; -#X connect 4 0 5 0; -#X connect 4 0 72 1; -#X connect 6 0 7 0; -#X connect 6 0 7 1; -#X connect 7 0 12 0; -#X connect 8 0 9 0; -#X connect 8 0 9 1; -#X connect 9 0 12 1; -#X connect 10 0 11 0; -#X connect 10 0 11 1; -#X connect 11 0 13 1; -#X connect 12 0 13 0; -#X connect 13 0 14 0; -#X connect 13 0 65 1; -#X connect 13 0 71 1; -#X connect 14 0 68 0; -#X connect 14 0 74 0; -#X connect 15 0 6 1; -#X connect 15 0 27 1; -#X connect 15 0 48 0; -#X connect 15 0 48 1; -#X connect 16 0 8 1; -#X connect 16 0 29 1; -#X connect 16 0 49 0; -#X connect 16 0 49 1; -#X connect 17 0 10 1; -#X connect 17 0 31 1; -#X connect 17 0 50 0; -#X connect 17 0 50 1; -#X connect 18 0 81 0; -#X connect 19 0 27 0; -#X connect 19 0 36 0; -#X connect 20 0 29 0; -#X connect 20 0 38 0; -#X connect 21 0 31 0; -#X connect 21 0 40 0; -#X connect 22 0 82 0; -#X connect 23 0 83 0; -#X connect 27 0 28 0; -#X connect 27 0 28 1; -#X connect 28 0 33 0; -#X connect 29 0 30 0; -#X connect 29 0 30 1; -#X connect 30 0 33 1; -#X connect 31 0 32 0; -#X connect 31 0 32 1; -#X connect 32 0 34 1; -#X connect 33 0 34 0; -#X connect 34 0 35 0; -#X connect 34 0 65 0; -#X connect 35 0 67 0; -#X connect 36 0 37 0; -#X connect 36 0 37 1; -#X connect 37 0 42 0; -#X connect 38 0 39 0; -#X connect 38 0 39 1; -#X connect 39 0 42 1; -#X connect 40 0 41 0; -#X connect 40 0 41 1; -#X connect 41 0 43 1; -#X connect 42 0 43 0; -#X connect 43 0 44 0; -#X connect 43 0 66 1; -#X connect 48 0 51 0; -#X connect 49 0 51 1; -#X connect 50 0 52 1; -#X connect 51 0 52 0; -#X connect 52 0 53 0; -#X connect 52 0 71 0; -#X connect 53 0 73 0; -#X connect 55 0 61 0; -#X connect 56 0 57 0; -#X connect 58 0 59 0; -#X connect 65 0 66 0; -#X connect 66 0 69 0; -#X connect 67 0 68 1; -#X connect 68 0 69 1; -#X connect 69 0 55 0; -#X connect 70 0 77 0; -#X connect 71 0 72 0; -#X connect 72 0 75 0; -#X connect 73 0 74 1; -#X connect 74 0 75 1; -#X connect 75 0 70 0; -#X connect 77 0 62 0; -#X connect 77 0 78 0; -#X connect 78 0 79 0; -#X connect 80 0 78 0; -#X connect 81 0 19 0; -#X connect 82 0 20 0; -#X connect 83 0 21 0; -#X connect 84 0 6 0; -#X connect 84 0 0 0; -#X connect 84 0 0 1; -#X connect 84 0 36 1; -#X connect 85 0 1 0; -#X connect 85 0 1 1; -#X connect 85 0 38 1; -#X connect 85 0 8 0; -#X connect 86 0 10 0; -#X connect 86 0 2 0; -#X connect 86 0 2 1; -#X connect 86 0 40 1; -#X restore 434 392 pd SourceAngles; -#X connect 0 0 13 0; -#X connect 1 0 15 0; -#X connect 2 0 17 0; -#X connect 3 0 4 0; -#X connect 3 0 4 1; -#X connect 3 0 29 0; -#X connect 4 0 9 0; -#X connect 5 0 6 0; -#X connect 5 0 6 1; -#X connect 5 0 29 1; -#X connect 5 0 34 0; -#X connect 5 0 38 0; -#X connect 6 0 9 1; -#X connect 7 0 8 0; -#X connect 7 0 8 1; -#X connect 8 0 10 1; -#X connect 9 0 10 0; -#X connect 10 0 11 0; -#X connect 11 0 23 0; -#X connect 12 0 7 1; -#X connect 13 0 12 0; -#X connect 14 0 5 1; -#X connect 15 0 14 0; -#X connect 16 0 3 1; -#X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 50 0; -#X connect 19 0 5 0; -#X connect 19 0 50 1; -#X connect 20 0 7 0; -#X connect 20 0 50 2; -#X connect 27 0 28 0; -#X connect 28 0 39 0; -#X connect 29 0 30 0; -#X connect 30 0 31 0; -#X connect 31 0 32 0; -#X connect 32 0 37 0; -#X connect 32 0 36 1; -#X connect 33 1 28 0; -#X connect 34 0 42 0; -#X connect 35 0 36 0; -#X connect 36 0 33 0; -#X connect 37 1 28 0; -#X connect 38 0 44 0; -#X connect 41 0 42 0; -#X connect 42 0 33 1; -#X connect 43 0 44 0; -#X connect 44 0 37 1; -#X connect 45 0 18 0; -#X connect 46 0 19 0; -#X connect 47 0 20 0; -#X connect 48 0 20 1; -#X connect 48 0 19 1; -#X connect 48 0 18 1; -#X connect 50 0 22 0; -#X connect 50 1 21 0; +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; #X restore 614 207 pd sourcePositions; #N canvas 647 139 633 561 sourceSpeed 0; #X obj 23 182 r~ tipSpeed; @@ -2202,312 +1629,6 @@ #X connect 29 1 27 0; #X connect 30 0 1 0; #X restore 458 173 pd sourceSpeed; -#N canvas 144 122 1130 580 sourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; -#N canvas 260 123 1003 782 SourceAngles 0; -#X obj -8305 185 *~; -#X obj -8274 186 *~; -#X obj -8245 185 *~; -#X obj -8289 220 +~; -#X obj -8289 252 +~; -#X obj -8289 279 sqrt~; -#X obj -8571 236 -~; -#X obj -8571 260 *~; -#X obj -8535 235 -~; -#X obj -8535 264 *~; -#X obj -8499 235 -~; -#X obj -8499 259 *~; -#X obj -8550 298 +~; -#X obj -8550 330 +~; -#X obj -8550 357 sqrt~; -#X obj -8569 47 inlet~; -#X obj -8522 48 inlet~; -#X obj -8475 49 inlet~; -#X obj -8132 43 r Xobs; -#X obj -8132 83 line~; -#X obj -8088 84 line~; -#X obj -8041 84 line~; -#X obj -8088 44 r Yobs; -#X obj -8041 44 r Zobs; -#X text -8567 24 a; -#X text -8517 29 b; -#X text -8471 26 c; -#X obj -8134 214 -~; -#X obj -8134 238 *~; -#X obj -8098 213 -~; -#X obj -8098 242 *~; -#X obj -8062 213 -~; -#X obj -8062 237 *~; -#X obj -8113 276 +~; -#X obj -8113 304 +~; -#X obj -8113 335 sqrt~; -#X obj -7937 219 -~; -#X obj -7937 243 *~; -#X obj -7901 218 -~; -#X obj -7901 247 *~; -#X obj -7865 218 -~; -#X obj -7865 242 *~; -#X obj -7916 281 +~; -#X obj -7916 313 +~; -#X obj -7916 340 sqrt~; -#X text -8578 360 U; -#X text -8309 279 W; -#X text -8130 337 d; -#X obj -8722 229 *~; -#X obj -8691 230 *~; -#X obj -8662 229 *~; -#X obj -8706 264 +~; -#X obj -8706 296 +~; -#X obj -8706 323 sqrt~; -#X text -8726 323 l; -#X obj -8517 559 arccos~; -#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 --1; -#X obj -7909 83 s GO; -#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 --1 -1; -#X obj -7969 83 s setUp; -#X text -7936 341 m; -#X obj -8517 606 outlet~; -#X obj -8096 655 outlet~; -#X text -8574 642 Tip - Obs Elevation; -#X text -8145 680 Tip - Obs Azimuth; -#X obj -8517 445 +~; -#X obj -8517 474 -~; -#X obj -8487 481 *~ 2; -#X obj -8502 504 *~; -#X obj -8517 534 /~; -#X obj -8096 606 arccos~; -#X obj -8096 465 +~; -#X obj -8096 494 -~; -#X obj -8066 501 *~ 2; -#X obj -8081 524 *~; -#X obj -8096 554 /~; -#X text -8520 626 comment; -#X obj -8096 629 +~ 90; -#X obj -8417 592 snapshot~; -#X floatatom -8417 616 0 0 0 0 - - -; -#X obj -8417 569 r myMet; -#X msg -8132 64 \$1 15; -#X msg -8088 65 \$1 15; -#X msg -8041 65 \$1 15; -#X obj -8344 72 r~ proX; -#X obj -8274 73 r~ proY; -#X obj -8208 76 r~ proZ; -#X connect 0 0 3 0; -#X connect 1 0 3 1; -#X connect 2 0 4 1; -#X connect 3 0 4 0; -#X connect 4 0 5 0; -#X connect 4 0 72 1; -#X connect 6 0 7 0; -#X connect 6 0 7 1; -#X connect 7 0 12 0; -#X connect 8 0 9 0; -#X connect 8 0 9 1; -#X connect 9 0 12 1; -#X connect 10 0 11 0; -#X connect 10 0 11 1; -#X connect 11 0 13 1; -#X connect 12 0 13 0; -#X connect 13 0 14 0; -#X connect 13 0 65 1; -#X connect 13 0 71 1; -#X connect 14 0 68 0; -#X connect 14 0 74 0; -#X connect 15 0 6 1; -#X connect 15 0 27 1; -#X connect 15 0 48 0; -#X connect 15 0 48 1; -#X connect 16 0 8 1; -#X connect 16 0 29 1; -#X connect 16 0 49 0; -#X connect 16 0 49 1; -#X connect 17 0 10 1; -#X connect 17 0 31 1; -#X connect 17 0 50 0; -#X connect 17 0 50 1; -#X connect 18 0 81 0; -#X connect 19 0 27 0; -#X connect 19 0 36 0; -#X connect 20 0 29 0; -#X connect 20 0 38 0; -#X connect 21 0 31 0; -#X connect 21 0 40 0; -#X connect 22 0 82 0; -#X connect 23 0 83 0; -#X connect 27 0 28 0; -#X connect 27 0 28 1; -#X connect 28 0 33 0; -#X connect 29 0 30 0; -#X connect 29 0 30 1; -#X connect 30 0 33 1; -#X connect 31 0 32 0; -#X connect 31 0 32 1; -#X connect 32 0 34 1; -#X connect 33 0 34 0; -#X connect 34 0 35 0; -#X connect 34 0 65 0; -#X connect 35 0 67 0; -#X connect 36 0 37 0; -#X connect 36 0 37 1; -#X connect 37 0 42 0; -#X connect 38 0 39 0; -#X connect 38 0 39 1; -#X connect 39 0 42 1; -#X connect 40 0 41 0; -#X connect 40 0 41 1; -#X connect 41 0 43 1; -#X connect 42 0 43 0; -#X connect 43 0 44 0; -#X connect 43 0 66 1; -#X connect 48 0 51 0; -#X connect 49 0 51 1; -#X connect 50 0 52 1; -#X connect 51 0 52 0; -#X connect 52 0 53 0; -#X connect 52 0 71 0; -#X connect 53 0 73 0; -#X connect 55 0 61 0; -#X connect 56 0 57 0; -#X connect 58 0 59 0; -#X connect 65 0 66 0; -#X connect 66 0 69 0; -#X connect 67 0 68 1; -#X connect 68 0 69 1; -#X connect 69 0 55 0; -#X connect 70 0 77 0; -#X connect 71 0 72 0; -#X connect 72 0 75 0; -#X connect 73 0 74 1; -#X connect 74 0 75 1; -#X connect 75 0 70 0; -#X connect 77 0 62 0; -#X connect 77 0 78 0; -#X connect 78 0 79 0; -#X connect 80 0 78 0; -#X connect 81 0 19 0; -#X connect 82 0 20 0; -#X connect 83 0 21 0; -#X connect 84 0 6 0; -#X connect 84 0 0 0; -#X connect 84 0 0 1; -#X connect 84 0 36 1; -#X connect 85 0 1 0; -#X connect 85 0 1 1; -#X connect 85 0 38 1; -#X connect 85 0 8 0; -#X connect 86 0 10 0; -#X connect 86 0 2 0; -#X connect 86 0 2 1; -#X connect 86 0 40 1; -#X restore 434 390 pd SourceAngles; -#X connect 0 0 13 0; -#X connect 1 0 15 0; -#X connect 2 0 17 0; -#X connect 3 0 4 0; -#X connect 3 0 4 1; -#X connect 3 0 29 0; -#X connect 4 0 9 0; -#X connect 5 0 6 0; -#X connect 5 0 6 1; -#X connect 5 0 29 1; -#X connect 5 0 34 0; -#X connect 5 0 38 0; -#X connect 6 0 9 1; -#X connect 7 0 8 0; -#X connect 7 0 8 1; -#X connect 8 0 10 1; -#X connect 9 0 10 0; -#X connect 10 0 11 0; -#X connect 11 0 23 0; -#X connect 12 0 7 1; -#X connect 13 0 12 0; -#X connect 14 0 5 1; -#X connect 15 0 14 0; -#X connect 16 0 3 1; -#X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 50 0; -#X connect 19 0 5 0; -#X connect 19 0 50 1; -#X connect 20 0 7 0; -#X connect 20 0 50 2; -#X connect 27 0 28 0; -#X connect 28 0 39 0; -#X connect 29 0 30 0; -#X connect 30 0 31 0; -#X connect 31 0 32 0; -#X connect 32 0 37 0; -#X connect 32 0 36 1; -#X connect 33 1 28 0; -#X connect 34 0 42 0; -#X connect 35 0 36 0; -#X connect 36 0 33 0; -#X connect 37 1 28 0; -#X connect 38 0 44 0; -#X connect 41 0 42 0; -#X connect 42 0 33 1; -#X connect 43 0 44 0; -#X connect 44 0 37 1; -#X connect 45 0 18 0; -#X connect 46 0 19 0; -#X connect 47 0 20 0; -#X connect 48 0 20 1; -#X connect 48 0 19 1; -#X connect 48 0 18 1; -#X connect 50 0 22 0; -#X connect 50 1 21 0; -#X restore 478 206 pd sourcePositions; #N canvas 42 225 549 568 sourceQuantity 0; #X obj 93 81 t f b; #X obj 78 104 -; @@ -3291,57 +2412,683 @@ #X connect 29 1 27 0; #X connect 30 0 1 0; #X restore 170 176 pd sourceSpeed; -#N canvas 144 122 1130 580 sourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; +#N canvas 647 139 633 561 sourceSpeed 0; +#X obj 23 182 r~ tipSpeed; +#X obj 36 280 *~ 1; +#X obj 36 302 outlet~; +#X text 21 325 Source Speed; +#X obj 72 203 r length; +#X obj 57 255 /; +#X obj 405 379 outlet; +#X obj 420 97 inlet; +#X obj 405 236 *; +#X obj 420 213 t f b; +#X obj 405 308 +; +#X obj 420 285 t f b; +#X obj 420 119 * 7; +#X obj 405 165 -; +#X obj 420 141 t f b; +#X obj 420 186 r bladeGrad; +#X obj 420 259 r bladeConst; +#X obj 193 426 outlet; +#X obj 405 76 inlet; +#X obj 353 279 outlet; +#X text 384 58 Previous Source Position; +#X text 457 97 Previous Source Diameter; +#X text 452 378 Current Source Diameter; +#X text 261 303 Current Source Position; +#X text 97 459 Current source speed as a fraction of tip speed; +#X text 451 118 Averaged correlation length; +#X obj 192 201 r start_armLength; +#X obj 177 223 -; +#X obj 177 247 <= 0; +#X obj 150 188 t f f; +#X obj 23 231 spigot~; +#X floatatom 188 285 5 0 0 0 - - -; +#X connect 0 0 30 0; +#X connect 1 0 2 0; +#X connect 4 0 5 1; +#X connect 5 0 1 1; +#X connect 5 0 17 0; +#X connect 7 0 12 0; +#X connect 8 0 10 0; +#X connect 9 0 8 1; +#X connect 9 1 8 0; +#X connect 10 0 6 0; +#X connect 11 0 10 1; +#X connect 11 1 10 0; +#X connect 12 0 14 0; +#X connect 13 0 8 0; +#X connect 13 0 19 0; +#X connect 13 0 29 0; +#X connect 14 0 13 1; +#X connect 14 1 13 0; +#X connect 15 0 9 0; +#X connect 16 0 11 0; +#X connect 18 0 13 0; +#X connect 26 0 27 1; +#X connect 27 0 28 0; +#X connect 28 0 30 1; +#X connect 28 0 31 0; +#X connect 29 0 5 0; +#X connect 29 1 27 0; +#X connect 30 0 1 0; +#X restore 29 177 pd sourceSpeed; +#X text 480 -91 Patch that holds all the sources that are used to produce +the basic aeolian tone.; +#N canvas 140 207 556 362 strike 0; +#X obj 129 185 line~; +#X obj 129 21 r strike; +#X obj 129 120 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 204 213 *~; +#X obj 204 310 throw~ l; +#X obj 255 287 throw~ r; +#X obj 204 266 fcpan; +#X msg 268 238 0.5; +#X obj 323 217 *~; +#X obj 323 314 throw~ l; +#X obj 374 291 throw~ r; +#X obj 323 270 fcpan; +#X msg 387 242 0.5; +#X obj 204 181 *~; +#X obj 323 188 *~; +#X obj 129 98 spigot; +#X msg 251 79 0; +#X msg 333 82 1; +#X obj 333 62 r PGA; +#X obj 202 60 r MLB; +#X obj 246 58 r SWD1; +#X obj 288 58 r SWD2; +#X obj 338 165 osc~ 50; +#X obj 323 143 osc~ 45; +#X msg 72 164 0 10; +#X obj 73 143 delay 10; +#X msg 129 158 0.01 10; +#X obj 219 155 osc~ 500; +#X obj 204 135 osc~ 4000; +#X obj 439 194 loadbang; +#X obj 323 242 *~ 1e-06; +#X obj 129 70 spigot; +#X obj 162 46 < 1; +#X obj 204 238 *~ 1e-05; +#X connect 0 0 3 1; +#X connect 0 0 8 1; +#X connect 1 0 32 0; +#X connect 1 0 31 0; +#X connect 2 0 26 0; +#X connect 2 0 25 0; +#X connect 3 0 33 0; +#X connect 6 0 4 0; +#X connect 6 1 5 0; +#X connect 7 0 6 1; +#X connect 8 0 30 0; +#X connect 11 0 9 0; +#X connect 11 1 10 0; +#X connect 12 0 11 1; +#X connect 13 0 3 0; +#X connect 14 0 8 0; +#X connect 15 0 2 0; +#X connect 16 0 15 1; +#X connect 17 0 15 1; +#X connect 18 0 17 0; +#X connect 19 0 16 0; +#X connect 20 0 16 0; +#X connect 21 0 16 0; +#X connect 22 0 14 1; +#X connect 23 0 14 0; +#X connect 24 0 0 0; +#X connect 25 0 24 0; +#X connect 26 0 0 0; +#X connect 27 0 13 1; +#X connect 28 0 13 0; +#X connect 29 0 12 0; +#X connect 29 0 7 0; +#X connect 30 0 11 0; +#X connect 31 0 15 0; +#X connect 32 0 31 1; +#X connect 33 0 6 0; +#X restore 369 -11 pd strike; +#X obj 593 1 r start_armLength; +#X obj 608 21 r bladeLen; +#X obj 593 64 +; +#X obj 593 88 s length; +#X obj 608 41 t f b; +#N canvas 520 280 768 533 PlaneFind 0; +#N canvas 2 23 1440 824 baseFind 0; +#X text -8461 291 x coordinate of tip; +#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -8837 78 s GO; +#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -8897 78 s setUp; +#X text -8767 21 The start position of the sword and the mid point +are then vectors that describe plane of the sword. From this we can +project to a point that is the closest point to the observer and calculate +the elevation and azimuth between source and observer.; +#X obj -8773 126 inlet~; +#X obj -8719 126 inlet~; +#X obj -8613 123 inlet~; +#X text -8774 109 a11; +#X text -8716 108 a21; +#X text -8612 105 a31; +#X text -8188 263 a32; +#X text -8269 298 a22; +#X text -8312 234 a12; +#X obj -8773 167 *~; +#X obj -8719 165 *~; +#X obj -8613 164 *~; +#X obj -8719 195 +~; +#X obj -8734 219 +~; +#X obj -8563 353 *~; +#X obj -8532 354 *~; +#X obj -8502 355 *~; +#X obj -8532 380 +~; +#X obj -8547 404 +~; +#X obj -8332 333 *~; +#X obj -8248 339 *~; +#X obj -8162 339 *~; +#X obj -8248 371 +~; +#X obj -8263 395 +~; +#X text -8761 219 b11; +#X text -8620 396 b12 & b21; +#X text -8291 393 b22; +#X obj -8278 423 *~; +#X obj -8546 439 *~; +#X obj -8278 449 -~; +#X obj -8321 463 sig~ 1; +#X obj -8293 486 /~; +#X text -8250 451 Determinant; +#X obj -8592 442 *~ -1; +#X text -8669 442 -b12 & -b21; +#X text -8873 287 Martix a is original; +#X text -8873 317 Martix c is inverse b; +#X text -8873 302 Martix b is a' * a; +#X obj -8263 517 *~; +#X text -8233 516 c11; +#X obj -8749 522 *~; +#X obj -8460 525 *~; +#X text -8522 525 c12 & c21; +#X obj -8773 617 *~; +#X obj -8758 642 *~; +#X text -8774 510 c22; +#X obj -8773 667 +~; +#X obj -8643 619 *~; +#X obj -8628 644 *~; +#X obj -8643 669 +~; +#X obj -8518 629 *~; +#X obj -8503 654 *~; +#X obj -8518 679 +~; +#X obj -8383 638 *~; +#X obj -8368 663 *~; +#X obj -8383 688 +~; +#X obj -8253 640 *~; +#X obj -8238 665 *~; +#X obj -8253 690 +~; +#X obj -8128 650 *~; +#X obj -8113 675 *~; +#X obj -8128 700 +~; +#X text -8875 331 Matrix d is a * b; +#X text -8802 665 d11; +#X text -8669 666 d21; +#X text -8545 678 d31; +#X text -8409 687 d12; +#X text -8280 686 d22; +#X text -8150 697 d32; +#X obj -7912 206 *~; +#X obj -7897 231 *~; +#X obj -7912 256 +~; +#X obj -7912 329 *~; +#X obj -7897 354 *~; +#X obj -7912 379 +~; +#X obj -7914 448 *~; +#X obj -7899 473 *~; +#X obj -7914 498 +~; +#X obj -7797 207 *~; +#X obj -7782 232 *~; +#X obj -7797 257 +~; +#X obj -7797 330 *~; +#X obj -7782 355 *~; +#X obj -7797 380 +~; +#X obj -7799 449 *~; +#X obj -7784 474 *~; +#X obj -7799 499 +~; +#X obj -7672 204 *~; +#X obj -7657 229 *~; +#X obj -7672 254 +~; +#X obj -7672 327 *~; +#X obj -7657 352 *~; +#X obj -7672 377 +~; +#X obj -7674 446 *~; +#X obj -7659 471 *~; +#X obj -7674 496 +~; +#X text -7955 132 Under all this is the projection matrix onto the +plane of the sword; +#X text -7640 256 p13; +#X text -7769 255 p12; +#X text -7887 256 p11; +#X text -7641 375 p23; +#X text -7772 380 p22; +#X text -7890 384 p21; +#X text -7644 498 p33; +#X text -7772 499 p32; +#X text -7888 493 p31; +#N canvas 285 176 638 403 ProjectionPoint 0; +#X obj -140 119 inlet~; +#X obj -101 140 inlet~; +#X obj -65 160 inlet~; +#X obj 62 112 inlet~; +#X obj 102 134 inlet~; +#X obj 138 156 inlet~; +#X obj 69 19 r Xobs; +#X obj 154 19 r Zobs; +#X obj 112 19 r Yobs; +#X msg 69 41 \$1 5; +#X obj 69 63 line~; +#X obj -101 192 *~; +#X obj -65 193 *~; +#X obj -140 192 *~; +#X obj -116 217 +~; +#X obj -116 242 +~; +#X msg 112 41 \$1 5; +#X obj 112 63 line~; +#X obj 102 183 *~; +#X obj 138 184 *~; +#X obj 63 183 *~; +#X obj 87 213 +~; +#X obj 87 241 +~; +#X msg 153 43 \$1 5; +#X obj 153 65 line~; +#X obj 260 117 inlet~; +#X obj 299 137 inlet~; +#X obj 335 158 inlet~; +#X obj 299 186 *~; +#X obj 335 187 *~; +#X obj 260 186 *~; +#X obj 284 219 +~; +#X obj 284 250 +~; +#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -136 85 s GO; +#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -196 85 s setUp; +#X obj -116 266 outlet~; +#X obj 87 266 outlet~; +#X obj 284 275 outlet~; +#X text -80 315 x' \, y' & z' relates to the point in the plane of +the sword when the observer position is projected on; +#X text -89 244 x'; +#X text 114 243 y'; +#X text 307 248 z'; +#X connect 0 0 13 0; +#X connect 1 0 11 0; +#X connect 2 0 12 0; +#X connect 3 0 20 0; +#X connect 4 0 18 0; +#X connect 5 0 19 0; +#X connect 6 0 9 0; +#X connect 7 0 23 0; +#X connect 8 0 16 0; +#X connect 9 0 10 0; +#X connect 10 0 13 1; +#X connect 10 0 20 1; +#X connect 10 0 30 1; +#X connect 11 0 14 1; +#X connect 12 0 15 1; +#X connect 13 0 14 0; +#X connect 14 0 15 0; +#X connect 15 0 37 0; +#X connect 16 0 17 0; +#X connect 17 0 11 1; +#X connect 17 0 18 1; +#X connect 17 0 28 1; +#X connect 18 0 21 1; +#X connect 19 0 22 1; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 22 0 38 0; +#X connect 23 0 24 0; +#X connect 24 0 12 1; +#X connect 24 0 19 1; +#X connect 24 0 29 1; +#X connect 25 0 30 0; +#X connect 26 0 28 0; +#X connect 27 0 29 0; +#X connect 28 0 31 1; +#X connect 29 0 32 1; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 32 0 39 0; +#X connect 33 0 34 0; +#X connect 35 0 36 0; +#X restore -7676 685 pd ProjectionPoint; +#X obj -7676 705 outlet~; +#X obj -7624 705 outlet~; +#X obj -7571 705 outlet~; +#X text -8327 41 Calculates the previous tip point \, 0.01 secs ago. +This is above a threshold value.; +#X obj -8214 68 r OSCdata; +#X obj -8395 148 line~; +#X obj -8278 150 line~; +#X text -8149 178 line~ coordinate of tip; +#X obj -8161 150 line~; +#X msg -8278 123 \$1 50; +#X msg -8161 123 \$1 50; +#X obj -8395 101 OSCroute /lastTipX; +#X msg -8395 123 \$1 50; +#X obj -8278 101 OSCroute /lastTipY; +#X obj -8161 101 OSCroute /lastTipZ; +#X connect 1 0 2 0; +#X connect 3 0 4 0; +#X connect 6 0 15 0; +#X connect 6 0 15 1; +#X connect 6 0 20 0; +#X connect 6 0 49 0; +#X connect 6 0 59 0; +#X connect 6 0 75 1; +#X connect 6 0 78 1; +#X connect 6 0 81 1; +#X connect 7 0 16 0; +#X connect 7 0 16 1; +#X connect 7 0 21 0; +#X connect 7 0 53 0; +#X connect 7 0 62 0; +#X connect 7 0 84 1; +#X connect 7 0 87 1; +#X connect 7 0 90 1; +#X connect 8 0 17 0; +#X connect 8 0 17 1; +#X connect 8 0 22 0; +#X connect 8 0 56 0; +#X connect 8 0 65 0; +#X connect 8 0 93 1; +#X connect 8 0 96 1; +#X connect 8 0 99 1; +#X connect 15 0 19 0; +#X connect 16 0 18 0; +#X connect 17 0 18 1; +#X connect 18 0 19 1; +#X connect 19 0 33 0; +#X connect 19 0 46 1; +#X connect 20 0 24 0; +#X connect 21 0 23 0; +#X connect 22 0 23 1; +#X connect 23 0 24 1; +#X connect 24 0 34 0; +#X connect 24 0 34 1; +#X connect 24 0 39 0; +#X connect 25 0 29 0; +#X connect 26 0 28 0; +#X connect 27 0 28 1; +#X connect 28 0 29 1; +#X connect 29 0 33 1; +#X connect 29 0 44 0; +#X connect 33 0 35 0; +#X connect 34 0 35 1; +#X connect 35 0 37 1; +#X connect 36 0 37 0; +#X connect 37 0 44 1; +#X connect 37 0 46 0; +#X connect 37 0 47 1; +#X connect 39 0 47 0; +#X connect 44 0 49 1; +#X connect 44 0 53 1; +#X connect 44 0 56 1; +#X connect 46 0 60 0; +#X connect 46 0 63 0; +#X connect 46 0 66 0; +#X connect 47 0 50 1; +#X connect 47 0 54 1; +#X connect 47 0 57 1; +#X connect 47 0 59 1; +#X connect 47 0 62 1; +#X connect 47 0 65 1; +#X connect 49 0 52 0; +#X connect 50 0 52 1; +#X connect 52 0 75 0; +#X connect 52 0 84 0; +#X connect 52 0 93 0; +#X connect 53 0 55 0; +#X connect 54 0 55 1; +#X connect 55 0 78 0; +#X connect 55 0 87 0; +#X connect 55 0 96 0; +#X connect 56 0 58 0; +#X connect 57 0 58 1; +#X connect 58 0 81 0; +#X connect 58 0 90 0; +#X connect 58 0 99 0; +#X connect 59 0 61 0; +#X connect 60 0 61 1; +#X connect 61 0 76 0; +#X connect 61 0 85 0; +#X connect 61 0 94 0; +#X connect 62 0 64 0; +#X connect 63 0 64 1; +#X connect 64 0 79 0; +#X connect 64 0 88 0; +#X connect 64 0 97 0; +#X connect 65 0 67 0; +#X connect 66 0 67 1; +#X connect 67 0 82 0; +#X connect 67 0 91 0; +#X connect 67 0 100 0; +#X connect 75 0 77 0; +#X connect 76 0 77 1; +#X connect 77 0 112 0; +#X connect 78 0 80 0; +#X connect 79 0 80 1; +#X connect 80 0 112 3; +#X connect 81 0 83 0; +#X connect 82 0 83 1; +#X connect 83 0 112 6; +#X connect 84 0 86 0; +#X connect 85 0 86 1; +#X connect 86 0 112 1; +#X connect 87 0 89 0; +#X connect 88 0 89 1; +#X connect 89 0 112 4; +#X connect 90 0 92 0; +#X connect 91 0 92 1; +#X connect 92 0 112 7; +#X connect 93 0 95 0; +#X connect 94 0 95 1; +#X connect 95 0 112 2; +#X connect 96 0 98 0; +#X connect 97 0 98 1; +#X connect 98 0 112 5; +#X connect 99 0 101 0; +#X connect 100 0 101 1; +#X connect 101 0 112 8; +#X connect 112 0 113 0; +#X connect 112 1 114 0; +#X connect 112 2 115 0; +#X connect 117 0 124 0; +#X connect 117 0 126 0; +#X connect 117 0 127 0; +#X connect 118 0 20 1; +#X connect 118 0 25 0; +#X connect 118 0 25 1; +#X connect 118 0 50 0; +#X connect 118 0 60 1; +#X connect 118 0 76 1; +#X connect 118 0 79 1; +#X connect 118 0 82 1; +#X connect 119 0 21 1; +#X connect 119 0 26 0; +#X connect 119 0 26 1; +#X connect 119 0 54 0; +#X connect 119 0 63 1; +#X connect 119 0 85 1; +#X connect 119 0 88 1; +#X connect 121 0 22 1; +#X connect 121 0 27 1; +#X connect 121 0 27 0; +#X connect 121 0 57 0; +#X connect 121 0 66 1; +#X connect 121 0 91 1; +#X connect 121 0 94 1; +#X connect 121 0 97 1; +#X connect 121 0 100 1; +#X connect 122 0 119 0; +#X connect 123 0 121 0; +#X connect 124 0 125 0; +#X connect 125 0 118 0; +#X connect 126 0 122 0; +#X connect 127 0 123 0; +#X restore -8131 307 pd baseFind; +#X obj -7748 215 line~; +#X obj -7907 131 line~; +#X text -8190 -46 Start Coordinates of tip; +#X text -8035 361 XYZ of the projection point; +#X obj -8131 370 s~ proX; +#X obj -8100 349 s~ proY; +#X obj -8068 329 s~ proZ; +#X obj -7855 -73 r sweepAzim; +#X obj -7907 -33 f; +#X obj -7875 18 -; +#X obj -7875 40 abs; +#X obj -7875 60 > 1; +#X obj -7907 -74 r myMet; +#X obj -7908 82 spigot; +#X obj -7715 108 -; +#X obj -7715 130 abs; +#X obj -7715 150 > 1; +#X obj -7749 -63 r myMet; +#X obj -7748 172 spigot; +#X obj -7686 -63 r sweepElev; +#X obj -7908 152 lop~ 100; +#X obj -7748 238 lop~ 100; +#X obj -7922 -11 f; +#X obj -7967 -32 delay 10; +#X obj -7967 -59 t b b; +#X obj -7740 -6 f; +#X obj -7755 16 f; +#X obj -7800 -5 delay 10; +#X obj -7800 -32 t b b; +#X obj -7755 40 t f f; +#X obj -7922 11 t f f; +#X msg -7908 109 \$1 15; +#X msg -7748 193 \$1 15; +#X obj -8131 142 line~; +#X obj -8100 209 line~; +#X obj -8068 281 line~; +#X msg -8068 257 \$1 50; +#X obj -8068 235 OSCroute /tipZ; +#X msg -8100 189 \$1 50; +#X msg -8131 119 \$1 50; +#X obj -8100 167 OSCroute /tipY; +#X obj -8131 97 OSCroute /tipX; +#X obj -8050 61 r OSCdata; +#X connect 0 0 5 0; +#X connect 0 1 6 0; +#X connect 0 2 7 0; +#X connect 1 0 22 0; +#X connect 2 0 21 0; +#X connect 8 0 9 1; +#X connect 8 0 10 0; +#X connect 9 0 23 1; +#X connect 10 0 11 0; +#X connect 11 0 12 0; +#X connect 12 0 14 1; +#X connect 13 0 25 0; +#X connect 14 0 32 0; +#X connect 15 0 16 0; +#X connect 16 0 17 0; +#X connect 17 0 19 1; +#X connect 18 0 29 0; +#X connect 19 0 33 0; +#X connect 20 0 15 0; +#X connect 20 0 26 1; +#X connect 23 0 31 0; +#X connect 24 0 23 0; +#X connect 25 0 24 0; +#X connect 25 1 9 0; +#X connect 26 0 27 1; +#X connect 27 0 30 0; +#X connect 28 0 27 0; +#X connect 29 0 28 0; +#X connect 29 1 26 0; +#X connect 30 0 15 1; +#X connect 30 1 19 0; +#X connect 31 0 10 1; +#X connect 31 1 14 0; +#X connect 32 0 2 0; +#X connect 33 0 1 0; +#X connect 34 0 0 0; +#X connect 35 0 0 1; +#X connect 36 0 0 2; +#X connect 37 0 36 0; +#X connect 38 0 37 0; +#X connect 39 0 35 0; +#X connect 40 0 34 0; +#X connect 41 0 39 0; +#X connect 42 0 40 0; +#X connect 43 0 42 0; +#X connect 43 0 41 0; +#X connect 43 0 38 0; +#X restore 345 -59 pd PlaneFind; +#X obj 745 233 freqCalcCyl4HiFi; +#X obj 29 40 freqCalcCyl4HiFi; +#X obj 458 232 freqCalcCyl4HiFi; +#X obj 315 236 freqCalcCyl4HiFi; +#X obj 27 134 freqCalcCyl4HiFi; +#X obj 594 233 freqCalcCyl4HiFi; +#X obj 170 235 freqCalcCyl4HiFi; +#X obj 29 236 freqCalcCyl4HiFi; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; #N canvas 260 123 1003 782 SourceAngles 0; #X obj -8305 185 *~; #X obj -8274 186 *~; @@ -3539,7 +3286,19 @@ #X connect 86 0 2 0; #X connect 86 0 2 1; #X connect 86 0 40 1; -#X restore 434 392 pd SourceAngles; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; #X connect 0 0 13 0; #X connect 1 0 15 0; #X connect 2 0 17 0; @@ -3565,12 +3324,9 @@ #X connect 15 0 14 0; #X connect 16 0 3 1; #X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 50 0; -#X connect 19 0 5 0; -#X connect 19 0 50 1; -#X connect 20 0 7 0; -#X connect 20 0 50 2; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; #X connect 27 0 28 0; #X connect 28 0 39 0; #X connect 29 0 30 0; @@ -3588,128 +3344,81 @@ #X connect 42 0 33 1; #X connect 43 0 44 0; #X connect 44 0 37 1; -#X connect 45 0 18 0; -#X connect 46 0 19 0; -#X connect 47 0 20 0; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; #X connect 48 0 20 1; #X connect 48 0 19 1; #X connect 48 0 18 1; #X connect 50 0 22 0; #X connect 50 1 21 0; -#X restore 190 209 pd sourcePositions; -#N canvas 647 139 633 561 sourceSpeed 0; -#X obj 23 182 r~ tipSpeed; -#X obj 36 280 *~ 1; -#X obj 36 302 outlet~; -#X text 21 325 Source Speed; -#X obj 72 203 r length; -#X obj 57 255 /; -#X obj 405 379 outlet; -#X obj 420 97 inlet; -#X obj 405 236 *; -#X obj 420 213 t f b; -#X obj 405 308 +; -#X obj 420 285 t f b; -#X obj 420 119 * 7; -#X obj 405 165 -; -#X obj 420 141 t f b; -#X obj 420 186 r bladeGrad; -#X obj 420 259 r bladeConst; -#X obj 193 426 outlet; -#X obj 405 76 inlet; -#X obj 353 279 outlet; -#X text 384 58 Previous Source Position; -#X text 457 97 Previous Source Diameter; -#X text 452 378 Current Source Diameter; -#X text 261 303 Current Source Position; -#X text 97 459 Current source speed as a fraction of tip speed; -#X text 451 118 Averaged correlation length; -#X obj 192 201 r start_armLength; -#X obj 177 223 -; -#X obj 177 247 <= 0; -#X obj 150 188 t f f; -#X obj 23 231 spigot~; -#X floatatom 188 285 5 0 0 0 - - -; -#X connect 0 0 30 0; -#X connect 1 0 2 0; -#X connect 4 0 5 1; -#X connect 5 0 1 1; -#X connect 5 0 17 0; -#X connect 7 0 12 0; -#X connect 8 0 10 0; -#X connect 9 0 8 1; -#X connect 9 1 8 0; -#X connect 10 0 6 0; -#X connect 11 0 10 1; -#X connect 11 1 10 0; -#X connect 12 0 14 0; -#X connect 13 0 8 0; -#X connect 13 0 19 0; -#X connect 13 0 29 0; -#X connect 14 0 13 1; -#X connect 14 1 13 0; -#X connect 15 0 9 0; -#X connect 16 0 11 0; -#X connect 18 0 13 0; -#X connect 26 0 27 1; -#X connect 27 0 28 0; -#X connect 28 0 30 1; -#X connect 28 0 31 0; -#X connect 29 0 5 0; -#X connect 29 1 27 0; -#X connect 30 0 1 0; -#X restore 29 177 pd sourceSpeed; -#N canvas 144 122 1130 580 sourcePositions 0; -#X obj 271 193 r Zobs; -#X obj 185 191 r Yobs; -#X obj 101 183 r Xobs; -#X obj 86 252 -~; -#X obj 86 276 *~; -#X obj 170 254 -~; -#X obj 170 283 *~; -#X obj 256 254 -~; -#X obj 256 278 *~; -#X obj 155 317 +~; -#X obj 155 349 +~; -#X obj 155 376 sqrt~; -#X obj 271 235 line~; -#X msg 271 213 \$1 5; -#X obj 185 233 line~; -#X msg 185 212 \$1 5; -#X obj 101 229 line~; -#X msg 101 207 \$1 5; -#X obj 86 163 *~ 1; -#X obj 170 169 *~ 1; -#X obj 256 173 *~ 1; -#X obj 521 414 outlet~; -#X obj 434 414 outlet~; -#X obj 155 401 outlet~; -#X text 150 439 source distance from Observer; -#X text 360 440 source - Obs Elevation; -#X text 515 441 source - Obs Azimuth; -#X obj 831 345 r myMet; -#X obj 830 370 snapshot~; -#X obj 738 149 /~; -#X obj 738 172 atan~; -#X obj 738 195 /~ 3.14159; -#X obj 738 219 abs~; -#X obj 723 285 spigot~; -#X obj 762 242 >~ 0; -#X obj 690 230 sig~ 1; -#X obj 723 262 -~; -#X obj 858 309 spigot~; -#X obj 897 265 <~ 0; -#X obj 830 396 outlet; -#X text 822 423 Pan Value; -#X obj 797 242 r myMet; -#X obj 762 263 snapshot~; -#X obj 930 264 r myMet; -#X obj 897 287 snapshot~; -#X obj 86 136 r~ tipX; -#X obj 170 145 r~ tipY; -#X obj 256 150 r~ tipZ; -#X obj 191 107 inlet; -#X text 171 33 Calculates position of the source.; +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; +#X restore 476 204 pd sourcePositions; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; #N canvas 260 123 1003 782 SourceAngles 0; #X obj -8305 185 *~; #X obj -8274 186 *~; @@ -3907,7 +3616,19 @@ #X connect 86 0 2 0; #X connect 86 0 2 1; #X connect 86 0 40 1; -#X restore 434 391 pd SourceAngles; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; #X connect 0 0 13 0; #X connect 1 0 15 0; #X connect 2 0 17 0; @@ -3933,12 +3654,9 @@ #X connect 15 0 14 0; #X connect 16 0 3 1; #X connect 17 0 16 0; -#X connect 18 0 3 0; -#X connect 18 0 50 0; -#X connect 19 0 5 0; -#X connect 19 0 50 1; -#X connect 20 0 7 0; -#X connect 20 0 50 2; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; #X connect 27 0 28 0; #X connect 28 0 39 0; #X connect 29 0 30 0; @@ -3956,736 +3674,1114 @@ #X connect 42 0 33 1; #X connect 43 0 44 0; #X connect 44 0 37 1; -#X connect 45 0 18 0; -#X connect 46 0 19 0; -#X connect 47 0 20 0; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; #X connect 48 0 20 1; #X connect 48 0 19 1; #X connect 48 0 18 1; #X connect 50 0 22 0; #X connect 50 1 21 0; -#X restore 49 210 pd sourcePositions; -#X text 480 -91 Patch that holds all the sources that are used to produce -the basic aeolian tone.; -#N canvas 140 207 556 362 strike 0; -#X obj 129 185 line~; -#X obj 129 21 r strike; -#X obj 129 120 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; +#X restore 332 207 pd sourcePositions; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; +#N canvas 260 123 1003 782 SourceAngles 0; +#X obj -8305 185 *~; +#X obj -8274 186 *~; +#X obj -8245 185 *~; +#X obj -8289 220 +~; +#X obj -8289 252 +~; +#X obj -8289 279 sqrt~; +#X obj -8571 236 -~; +#X obj -8571 260 *~; +#X obj -8535 235 -~; +#X obj -8535 264 *~; +#X obj -8499 235 -~; +#X obj -8499 259 *~; +#X obj -8550 298 +~; +#X obj -8550 330 +~; +#X obj -8550 357 sqrt~; +#X obj -8569 47 inlet~; +#X obj -8522 48 inlet~; +#X obj -8475 49 inlet~; +#X obj -8132 43 r Xobs; +#X obj -8132 83 line~; +#X obj -8088 84 line~; +#X obj -8041 84 line~; +#X obj -8088 44 r Yobs; +#X obj -8041 44 r Zobs; +#X text -8567 24 a; +#X text -8517 29 b; +#X text -8471 26 c; +#X obj -8134 214 -~; +#X obj -8134 238 *~; +#X obj -8098 213 -~; +#X obj -8098 242 *~; +#X obj -8062 213 -~; +#X obj -8062 237 *~; +#X obj -8113 276 +~; +#X obj -8113 304 +~; +#X obj -8113 335 sqrt~; +#X obj -7937 219 -~; +#X obj -7937 243 *~; +#X obj -7901 218 -~; +#X obj -7901 247 *~; +#X obj -7865 218 -~; +#X obj -7865 242 *~; +#X obj -7916 281 +~; +#X obj -7916 313 +~; +#X obj -7916 340 sqrt~; +#X text -8578 360 U; +#X text -8309 279 W; +#X text -8130 337 d; +#X obj -8722 229 *~; +#X obj -8691 230 *~; +#X obj -8662 229 *~; +#X obj -8706 264 +~; +#X obj -8706 296 +~; +#X obj -8706 323 sqrt~; +#X text -8726 323 l; +#X obj -8517 559 arccos~; +#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -7909 83 s GO; +#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; -#X obj 204 213 *~; -#X obj 204 310 throw~ l; -#X obj 255 287 throw~ r; -#X obj 204 266 fcpan; -#X msg 268 238 0.5; -#X obj 323 217 *~; -#X obj 323 314 throw~ l; -#X obj 374 291 throw~ r; -#X obj 323 270 fcpan; -#X msg 387 242 0.5; -#X obj 204 181 *~; -#X obj 323 188 *~; -#X obj 129 98 spigot; -#X msg 251 79 0; -#X msg 333 82 1; -#X obj 333 62 r PGA; -#X obj 202 60 r MLB; -#X obj 246 58 r SWD1; -#X obj 288 58 r SWD2; -#X obj 338 165 osc~ 50; -#X obj 323 143 osc~ 45; -#X msg 72 164 0 10; -#X obj 73 143 delay 10; -#X msg 129 158 0.01 10; -#X obj 219 155 osc~ 500; -#X obj 204 135 osc~ 4000; -#X obj 439 194 loadbang; -#X obj 323 242 *~ 1e-06; -#X obj 129 70 spigot; -#X obj 162 46 < 1; -#X obj 204 238 *~ 1e-05; -#X connect 0 0 3 1; -#X connect 0 0 8 1; -#X connect 1 0 32 0; -#X connect 1 0 31 0; -#X connect 2 0 26 0; -#X connect 2 0 25 0; -#X connect 3 0 33 0; -#X connect 6 0 4 0; -#X connect 6 1 5 0; -#X connect 7 0 6 1; -#X connect 8 0 30 0; -#X connect 11 0 9 0; -#X connect 11 1 10 0; -#X connect 12 0 11 1; -#X connect 13 0 3 0; -#X connect 14 0 8 0; -#X connect 15 0 2 0; -#X connect 16 0 15 1; -#X connect 17 0 15 1; -#X connect 18 0 17 0; -#X connect 19 0 16 0; -#X connect 20 0 16 0; -#X connect 21 0 16 0; -#X connect 22 0 14 1; -#X connect 23 0 14 0; -#X connect 24 0 0 0; -#X connect 25 0 24 0; -#X connect 26 0 0 0; -#X connect 27 0 13 1; -#X connect 28 0 13 0; -#X connect 29 0 12 0; -#X connect 29 0 7 0; -#X connect 30 0 11 0; -#X connect 31 0 15 0; -#X connect 32 0 31 1; -#X connect 33 0 6 0; -#X restore 369 -11 pd strike; -#X obj 593 1 r start_armLength; -#X obj 608 21 r bladeLen; -#X obj 593 64 +; -#X obj 593 88 s length; -#X obj 608 41 t f b; -#N canvas 454 212 768 533 PlaneFind 0; -#N canvas 2 23 1440 824 baseFind 0; -#X text -8140 262 z coordinate of tip; -#X text -8461 291 x coordinate of tip; -#X text -8264 135 y coordinate of tip; -#X obj -8297 237 r length; -#X obj -8212 237 r length; -#X obj -8141 241 r length; -#X obj -8332 105 sig~ 180; -#X obj -8332 149 -~; -#X obj -8332 169 *~ 0.002778; -#X obj -8248 167 *~ 0.002778; -#X obj -8162 190 *~ 0.002778; -#X obj -8332 193 cos~; -#X obj -8248 191 sin~; -#X obj -8317 215 sin~; -#X obj -8233 215 sin~; -#X obj -8162 217 cos~; -#X obj -8317 260 *~ 1; -#X obj -8233 260 *~ 1; -#X obj -8162 264 *~ 1; -#X obj -8332 304 *~; -#X obj -8248 291 *~; -#X obj -8317 126 inlet~; -#X obj -8162 168 inlet~; -#X obj -8837 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 --1; -#X obj -8837 78 s GO; -#X obj -8897 25 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 --1 -1; -#X obj -8897 78 s setUp; -#X text -8767 21 The start position of the sword and the mid point -are then vectors that describe plane of the sword. From this we can -project to a point that is the closest point to the observer and calculate -the elevation and azimuth between source and observer.; -#X obj -8773 126 inlet~; -#X obj -8719 126 inlet~; -#X obj -8613 123 inlet~; -#X text -8774 109 a11; -#X text -8716 108 a21; -#X text -8612 105 a31; -#X text -8188 263 a32; -#X text -8269 298 a22; -#X text -8310 292 a12; -#X obj -8773 167 *~; -#X obj -8719 165 *~; -#X obj -8613 164 *~; -#X obj -8719 195 +~; -#X obj -8734 219 +~; -#X obj -8563 353 *~; -#X obj -8532 354 *~; -#X obj -8502 355 *~; -#X obj -8532 380 +~; -#X obj -8547 404 +~; -#X obj -8332 333 *~; -#X obj -8248 339 *~; -#X obj -8162 339 *~; -#X obj -8248 371 +~; -#X obj -8263 395 +~; -#X text -8761 219 b11; -#X text -8620 396 b12 & b21; -#X text -8291 393 b22; -#X obj -8278 423 *~; -#X obj -8546 439 *~; -#X obj -8278 449 -~; -#X obj -8321 463 sig~ 1; -#X obj -8293 486 /~; -#X text -8250 451 Determinant; -#X obj -8592 442 *~ -1; -#X text -8669 442 -b12 & -b21; -#X text -8873 287 Martix a is original; -#X text -8873 317 Martix c is inverse b; -#X text -8873 302 Martix b is a' * a; -#X obj -8263 517 *~; -#X text -8233 516 c11; -#X obj -8749 522 *~; -#X obj -8460 525 *~; -#X text -8522 525 c12 & c21; -#X obj -8773 617 *~; -#X obj -8758 642 *~; -#X text -8774 510 c22; -#X obj -8773 667 +~; -#X obj -8643 619 *~; -#X obj -8628 644 *~; -#X obj -8643 669 +~; -#X obj -8518 629 *~; -#X obj -8503 654 *~; -#X obj -8518 679 +~; -#X obj -8383 638 *~; -#X obj -8368 663 *~; -#X obj -8383 688 +~; -#X obj -8253 640 *~; -#X obj -8238 665 *~; -#X obj -8253 690 +~; -#X obj -8128 650 *~; -#X obj -8113 675 *~; -#X obj -8128 700 +~; -#X text -8875 331 Matrix d is a * b; -#X text -8802 665 d11; -#X text -8669 666 d21; -#X text -8545 678 d31; -#X text -8409 687 d12; -#X text -8280 686 d22; -#X text -8150 697 d32; -#X obj -7912 206 *~; -#X obj -7897 231 *~; -#X obj -7912 256 +~; -#X obj -7912 329 *~; -#X obj -7897 354 *~; -#X obj -7912 379 +~; -#X obj -7914 448 *~; -#X obj -7899 473 *~; -#X obj -7914 498 +~; -#X obj -7797 207 *~; -#X obj -7782 232 *~; -#X obj -7797 257 +~; -#X obj -7797 330 *~; -#X obj -7782 355 *~; -#X obj -7797 380 +~; -#X obj -7799 449 *~; -#X obj -7784 474 *~; -#X obj -7799 499 +~; -#X obj -7672 204 *~; -#X obj -7657 229 *~; -#X obj -7672 254 +~; -#X obj -7672 327 *~; -#X obj -7657 352 *~; -#X obj -7672 377 +~; -#X obj -7674 446 *~; -#X obj -7659 471 *~; -#X obj -7674 496 +~; -#X text -7955 132 Under all this is the projection matrix onto the -plane of the sword; -#X text -7640 256 p13; -#X text -7769 255 p12; -#X text -7887 256 p11; -#X text -7641 375 p23; -#X text -7772 380 p22; -#X text -7890 384 p21; -#X text -7644 498 p33; -#X text -7772 499 p32; -#X text -7888 493 p31; -#N canvas 285 176 638 403 ProjectionPoint 0; -#X obj -140 119 inlet~; -#X obj -101 140 inlet~; -#X obj -65 160 inlet~; -#X obj 62 112 inlet~; -#X obj 102 134 inlet~; -#X obj 138 156 inlet~; -#X obj 69 19 r Xobs; -#X obj 154 19 r Zobs; -#X obj 112 19 r Yobs; -#X msg 69 41 \$1 5; -#X obj 69 63 line~; -#X obj -101 192 *~; -#X obj -65 193 *~; -#X obj -140 192 *~; -#X obj -116 217 +~; -#X obj -116 242 +~; -#X msg 112 41 \$1 5; -#X obj 112 63 line~; -#X obj 102 183 *~; -#X obj 138 184 *~; -#X obj 63 183 *~; -#X obj 87 213 +~; -#X obj 87 241 +~; -#X msg 153 43 \$1 5; -#X obj 153 65 line~; -#X obj 260 117 inlet~; -#X obj 299 137 inlet~; -#X obj 335 158 inlet~; -#X obj 299 186 *~; -#X obj 335 187 *~; -#X obj 260 186 *~; -#X obj 284 219 +~; -#X obj 284 250 +~; -#X obj -136 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 --1; -#X obj -136 85 s GO; -#X obj -196 32 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 --1 -1; -#X obj -196 85 s setUp; -#X obj -116 266 outlet~; -#X obj 87 266 outlet~; -#X obj 284 275 outlet~; -#X text -80 315 x' \, y' & z' relates to the point in the plane of -the sword when the observer position is projected on; -#X text -89 244 x'; -#X text 114 243 y'; -#X text 307 248 z'; +#X obj -7969 83 s setUp; +#X text -7936 341 m; +#X obj -8517 606 outlet~; +#X obj -8096 655 outlet~; +#X text -8574 642 Tip - Obs Elevation; +#X text -8145 680 Tip - Obs Azimuth; +#X obj -8517 445 +~; +#X obj -8517 474 -~; +#X obj -8487 481 *~ 2; +#X obj -8502 504 *~; +#X obj -8517 534 /~; +#X obj -8096 606 arccos~; +#X obj -8096 465 +~; +#X obj -8096 494 -~; +#X obj -8066 501 *~ 2; +#X obj -8081 524 *~; +#X obj -8096 554 /~; +#X text -8520 626 comment; +#X obj -8096 629 +~ 90; +#X obj -8417 592 snapshot~; +#X floatatom -8417 616 0 0 0 0 - - -; +#X obj -8417 569 r myMet; +#X msg -8132 64 \$1 15; +#X msg -8088 65 \$1 15; +#X msg -8041 65 \$1 15; +#X obj -8344 72 r~ proX; +#X obj -8274 73 r~ proY; +#X obj -8208 76 r~ proZ; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 2 0 4 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 0 72 1; +#X connect 6 0 7 0; +#X connect 6 0 7 1; +#X connect 7 0 12 0; +#X connect 8 0 9 0; +#X connect 8 0 9 1; +#X connect 9 0 12 1; +#X connect 10 0 11 0; +#X connect 10 0 11 1; +#X connect 11 0 13 1; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 13 0 65 1; +#X connect 13 0 71 1; +#X connect 14 0 68 0; +#X connect 14 0 74 0; +#X connect 15 0 6 1; +#X connect 15 0 27 1; +#X connect 15 0 48 0; +#X connect 15 0 48 1; +#X connect 16 0 8 1; +#X connect 16 0 29 1; +#X connect 16 0 49 0; +#X connect 16 0 49 1; +#X connect 17 0 10 1; +#X connect 17 0 31 1; +#X connect 17 0 50 0; +#X connect 17 0 50 1; +#X connect 18 0 81 0; +#X connect 19 0 27 0; +#X connect 19 0 36 0; +#X connect 20 0 29 0; +#X connect 20 0 38 0; +#X connect 21 0 31 0; +#X connect 21 0 40 0; +#X connect 22 0 82 0; +#X connect 23 0 83 0; +#X connect 27 0 28 0; +#X connect 27 0 28 1; +#X connect 28 0 33 0; +#X connect 29 0 30 0; +#X connect 29 0 30 1; +#X connect 30 0 33 1; +#X connect 31 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 34 1; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 34 0 65 0; +#X connect 35 0 67 0; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 42 0; +#X connect 38 0 39 0; +#X connect 38 0 39 1; +#X connect 39 0 42 1; +#X connect 40 0 41 0; +#X connect 40 0 41 1; +#X connect 41 0 43 1; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 43 0 66 1; +#X connect 48 0 51 0; +#X connect 49 0 51 1; +#X connect 50 0 52 1; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 52 0 71 0; +#X connect 53 0 73 0; +#X connect 55 0 61 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 65 0 66 0; +#X connect 66 0 69 0; +#X connect 67 0 68 1; +#X connect 68 0 69 1; +#X connect 69 0 55 0; +#X connect 70 0 77 0; +#X connect 71 0 72 0; +#X connect 72 0 75 0; +#X connect 73 0 74 1; +#X connect 74 0 75 1; +#X connect 75 0 70 0; +#X connect 77 0 62 0; +#X connect 77 0 78 0; +#X connect 78 0 79 0; +#X connect 80 0 78 0; +#X connect 81 0 19 0; +#X connect 82 0 20 0; +#X connect 83 0 21 0; +#X connect 84 0 6 0; +#X connect 84 0 0 0; +#X connect 84 0 0 1; +#X connect 84 0 36 1; +#X connect 85 0 1 0; +#X connect 85 0 1 1; +#X connect 85 0 38 1; +#X connect 85 0 8 0; +#X connect 86 0 10 0; +#X connect 86 0 2 0; +#X connect 86 0 2 1; +#X connect 86 0 40 1; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; #X connect 0 0 13 0; -#X connect 1 0 11 0; -#X connect 2 0 12 0; -#X connect 3 0 20 0; -#X connect 4 0 18 0; -#X connect 5 0 19 0; -#X connect 6 0 9 0; -#X connect 7 0 23 0; -#X connect 8 0 16 0; +#X connect 1 0 15 0; +#X connect 2 0 17 0; +#X connect 3 0 4 0; +#X connect 3 0 4 1; +#X connect 3 0 29 0; +#X connect 4 0 9 0; +#X connect 5 0 6 0; +#X connect 5 0 6 1; +#X connect 5 0 29 1; +#X connect 5 0 34 0; +#X connect 5 0 38 0; +#X connect 6 0 9 1; +#X connect 7 0 8 0; +#X connect 7 0 8 1; +#X connect 8 0 10 1; #X connect 9 0 10 0; -#X connect 10 0 13 1; -#X connect 10 0 20 1; -#X connect 10 0 30 1; -#X connect 11 0 14 1; -#X connect 12 0 15 1; -#X connect 13 0 14 0; -#X connect 14 0 15 0; -#X connect 15 0 37 0; -#X connect 16 0 17 0; -#X connect 17 0 11 1; -#X connect 17 0 18 1; -#X connect 17 0 28 1; -#X connect 18 0 21 1; -#X connect 19 0 22 1; -#X connect 20 0 21 0; -#X connect 21 0 22 0; -#X connect 22 0 38 0; -#X connect 23 0 24 0; -#X connect 24 0 12 1; -#X connect 24 0 19 1; -#X connect 24 0 29 1; -#X connect 25 0 30 0; -#X connect 26 0 28 0; -#X connect 27 0 29 0; -#X connect 28 0 31 1; -#X connect 29 0 32 1; +#X connect 10 0 11 0; +#X connect 11 0 23 0; +#X connect 12 0 7 1; +#X connect 13 0 12 0; +#X connect 14 0 5 1; +#X connect 15 0 14 0; +#X connect 16 0 3 1; +#X connect 17 0 16 0; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; +#X connect 27 0 28 0; +#X connect 28 0 39 0; +#X connect 29 0 30 0; #X connect 30 0 31 0; #X connect 31 0 32 0; -#X connect 32 0 39 0; -#X connect 33 0 34 0; +#X connect 32 0 37 0; +#X connect 32 0 36 1; +#X connect 33 1 28 0; +#X connect 34 0 42 0; #X connect 35 0 36 0; -#X restore -7676 685 pd ProjectionPoint; -#X obj -7676 705 outlet~; -#X obj -7624 705 outlet~; -#X obj -7571 705 outlet~; -#X text -8327 41 Calculates the previous tip point \, 0.01 secs ago. -This is above a threshold value.; -#X connect 3 0 16 1; -#X connect 4 0 17 1; -#X connect 5 0 18 1; +#X connect 36 0 33 0; +#X connect 37 1 28 0; +#X connect 38 0 44 0; +#X connect 41 0 42 0; +#X connect 42 0 33 1; +#X connect 43 0 44 0; +#X connect 44 0 37 1; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; +#X connect 48 0 20 1; +#X connect 48 0 19 1; +#X connect 48 0 18 1; +#X connect 50 0 22 0; +#X connect 50 1 21 0; +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; +#X restore 191 210 pd sourcePositions; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; +#N canvas 260 123 1003 782 SourceAngles 0; +#X obj -8305 185 *~; +#X obj -8274 186 *~; +#X obj -8245 185 *~; +#X obj -8289 220 +~; +#X obj -8289 252 +~; +#X obj -8289 279 sqrt~; +#X obj -8571 236 -~; +#X obj -8571 260 *~; +#X obj -8535 235 -~; +#X obj -8535 264 *~; +#X obj -8499 235 -~; +#X obj -8499 259 *~; +#X obj -8550 298 +~; +#X obj -8550 330 +~; +#X obj -8550 357 sqrt~; +#X obj -8569 47 inlet~; +#X obj -8522 48 inlet~; +#X obj -8475 49 inlet~; +#X obj -8132 43 r Xobs; +#X obj -8132 83 line~; +#X obj -8088 84 line~; +#X obj -8041 84 line~; +#X obj -8088 44 r Yobs; +#X obj -8041 44 r Zobs; +#X text -8567 24 a; +#X text -8517 29 b; +#X text -8471 26 c; +#X obj -8134 214 -~; +#X obj -8134 238 *~; +#X obj -8098 213 -~; +#X obj -8098 242 *~; +#X obj -8062 213 -~; +#X obj -8062 237 *~; +#X obj -8113 276 +~; +#X obj -8113 304 +~; +#X obj -8113 335 sqrt~; +#X obj -7937 219 -~; +#X obj -7937 243 *~; +#X obj -7901 218 -~; +#X obj -7901 247 *~; +#X obj -7865 218 -~; +#X obj -7865 242 *~; +#X obj -7916 281 +~; +#X obj -7916 313 +~; +#X obj -7916 340 sqrt~; +#X text -8578 360 U; +#X text -8309 279 W; +#X text -8130 337 d; +#X obj -8722 229 *~; +#X obj -8691 230 *~; +#X obj -8662 229 *~; +#X obj -8706 264 +~; +#X obj -8706 296 +~; +#X obj -8706 323 sqrt~; +#X text -8726 323 l; +#X obj -8517 559 arccos~; +#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -7909 83 s GO; +#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -7969 83 s setUp; +#X text -7936 341 m; +#X obj -8517 606 outlet~; +#X obj -8096 655 outlet~; +#X text -8574 642 Tip - Obs Elevation; +#X text -8145 680 Tip - Obs Azimuth; +#X obj -8517 445 +~; +#X obj -8517 474 -~; +#X obj -8487 481 *~ 2; +#X obj -8502 504 *~; +#X obj -8517 534 /~; +#X obj -8096 606 arccos~; +#X obj -8096 465 +~; +#X obj -8096 494 -~; +#X obj -8066 501 *~ 2; +#X obj -8081 524 *~; +#X obj -8096 554 /~; +#X text -8520 626 comment; +#X obj -8096 629 +~ 90; +#X obj -8417 592 snapshot~; +#X floatatom -8417 616 0 0 0 0 - - -; +#X obj -8417 569 r myMet; +#X msg -8132 64 \$1 15; +#X msg -8088 65 \$1 15; +#X msg -8041 65 \$1 15; +#X obj -8344 72 r~ proX; +#X obj -8274 73 r~ proY; +#X obj -8208 76 r~ proZ; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 2 0 4 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 0 72 1; #X connect 6 0 7 0; -#X connect 7 0 8 0; -#X connect 7 0 9 0; -#X connect 8 0 11 0; -#X connect 9 0 12 0; -#X connect 10 0 13 0; -#X connect 10 0 14 0; -#X connect 10 0 15 0; -#X connect 11 0 19 0; -#X connect 12 0 20 0; -#X connect 13 0 16 0; -#X connect 14 0 17 0; -#X connect 15 0 18 0; -#X connect 16 0 19 1; -#X connect 17 0 20 1; -#X connect 18 0 44 1; -#X connect 18 0 49 1; -#X connect 18 0 49 0; -#X connect 18 0 79 0; -#X connect 18 0 88 1; -#X connect 18 0 113 1; -#X connect 18 0 116 1; -#X connect 18 0 119 1; -#X connect 18 0 122 1; -#X connect 19 0 42 1; -#X connect 19 0 47 0; -#X connect 19 0 47 1; -#X connect 19 0 72 0; -#X connect 19 0 82 1; -#X connect 19 0 98 1; -#X connect 19 0 101 1; -#X connect 19 0 104 1; -#X connect 20 0 43 1; -#X connect 20 0 48 0; -#X connect 20 0 48 1; -#X connect 20 0 76 0; -#X connect 20 0 85 1; -#X connect 20 0 107 1; -#X connect 20 0 110 1; -#X connect 21 0 7 1; -#X connect 22 0 10 0; -#X connect 23 0 24 0; -#X connect 25 0 26 0; -#X connect 28 0 37 0; -#X connect 28 0 37 1; -#X connect 28 0 42 0; -#X connect 28 0 71 0; -#X connect 28 0 81 0; -#X connect 28 0 97 1; -#X connect 28 0 100 1; -#X connect 28 0 103 1; -#X connect 29 0 38 0; -#X connect 29 0 38 1; -#X connect 29 0 43 0; -#X connect 29 0 75 0; -#X connect 29 0 84 0; -#X connect 29 0 106 1; -#X connect 29 0 109 1; -#X connect 29 0 112 1; -#X connect 30 0 39 0; -#X connect 30 0 39 1; -#X connect 30 0 44 0; -#X connect 30 0 78 0; -#X connect 30 0 87 0; -#X connect 30 0 115 1; -#X connect 30 0 118 1; -#X connect 30 0 121 1; -#X connect 37 0 41 0; -#X connect 38 0 40 0; -#X connect 39 0 40 1; -#X connect 40 0 41 1; -#X connect 41 0 55 0; -#X connect 41 0 68 1; -#X connect 42 0 46 0; -#X connect 43 0 45 0; -#X connect 44 0 45 1; -#X connect 45 0 46 1; -#X connect 46 0 56 0; -#X connect 46 0 56 1; -#X connect 46 0 61 0; -#X connect 47 0 51 0; -#X connect 48 0 50 0; -#X connect 49 0 50 1; -#X connect 50 0 51 1; -#X connect 51 0 55 1; -#X connect 51 0 66 0; -#X connect 55 0 57 0; -#X connect 56 0 57 1; -#X connect 57 0 59 1; -#X connect 58 0 59 0; -#X connect 59 0 66 1; -#X connect 59 0 68 0; -#X connect 59 0 69 1; -#X connect 61 0 69 0; -#X connect 66 0 71 1; -#X connect 66 0 75 1; -#X connect 66 0 78 1; -#X connect 68 0 82 0; -#X connect 68 0 85 0; -#X connect 68 0 88 0; -#X connect 69 0 72 1; -#X connect 69 0 76 1; -#X connect 69 0 79 1; -#X connect 69 0 81 1; -#X connect 69 0 84 1; -#X connect 69 0 87 1; -#X connect 71 0 74 0; -#X connect 72 0 74 1; -#X connect 74 0 97 0; -#X connect 74 0 106 0; -#X connect 74 0 115 0; -#X connect 75 0 77 0; -#X connect 76 0 77 1; -#X connect 77 0 100 0; -#X connect 77 0 109 0; -#X connect 77 0 118 0; -#X connect 78 0 80 0; -#X connect 79 0 80 1; -#X connect 80 0 103 0; -#X connect 80 0 112 0; -#X connect 80 0 121 0; -#X connect 81 0 83 0; -#X connect 82 0 83 1; -#X connect 83 0 98 0; -#X connect 83 0 107 0; -#X connect 83 0 116 0; -#X connect 84 0 86 0; -#X connect 85 0 86 1; -#X connect 86 0 101 0; -#X connect 86 0 110 0; -#X connect 86 0 119 0; -#X connect 87 0 89 0; -#X connect 88 0 89 1; -#X connect 89 0 104 0; -#X connect 89 0 113 0; -#X connect 89 0 122 0; -#X connect 97 0 99 0; -#X connect 98 0 99 1; -#X connect 99 0 134 0; -#X connect 100 0 102 0; -#X connect 101 0 102 1; -#X connect 102 0 134 3; -#X connect 103 0 105 0; -#X connect 104 0 105 1; -#X connect 105 0 134 6; -#X connect 106 0 108 0; -#X connect 107 0 108 1; -#X connect 108 0 134 1; -#X connect 109 0 111 0; -#X connect 110 0 111 1; -#X connect 111 0 134 4; -#X connect 112 0 114 0; -#X connect 113 0 114 1; -#X connect 114 0 134 7; -#X connect 115 0 117 0; -#X connect 116 0 117 1; -#X connect 117 0 134 2; -#X connect 118 0 120 0; -#X connect 119 0 120 1; -#X connect 120 0 134 5; -#X connect 121 0 123 0; -#X connect 122 0 123 1; -#X connect 123 0 134 8; -#X connect 134 0 135 0; -#X connect 134 1 136 0; -#X connect 134 2 137 0; -#X restore -8131 307 pd baseFind; -#X obj -7748 215 line~; -#X obj -7907 131 line~; -#X floatatom -8218 219 5 0 0 0 - - -; -#X obj -8229 196 r length; -#X obj -8144 196 r length; -#X obj -8068 212 r length; -#X obj -8264 -13 sig~ 180; -#X obj -8264 108 -~; -#X obj -8264 128 *~ 0.002778; -#X obj -8180 126 *~ 0.002778; -#X obj -8089 151 *~ 0.002778; -#X obj -8264 152 cos~; -#X obj -8180 150 sin~; -#X obj -8249 174 sin~; -#X obj -8165 174 sin~; -#X obj -8089 188 cos~; -#X obj -8249 219 *~ 1; -#X obj -8165 219 *~ 1; -#X obj -8089 235 *~ 1; -#X obj -8264 247 *~; -#X obj -8180 250 *~; -#X obj -8249 53 line~; -#X obj -8089 96 line~; -#X text -8190 -46 Start Coordinates of tip; -#X text -8035 361 XYZ of the projection point; -#X obj -8131 370 s~ proX; -#X obj -8100 349 s~ proY; -#X obj -8068 329 s~ proZ; -#X obj -8249 8 r sweepAzim; -#X obj -8089 51 r sweepElev; -#X obj -7855 -73 r sweepAzim; -#X obj -7907 -33 f; -#X obj -7875 18 -; -#X obj -7875 40 abs; -#X obj -7875 60 > 1; -#X obj -7907 -74 r myMet; -#X obj -7908 82 spigot; -#X obj -7715 108 -; -#X obj -7715 130 abs; -#X obj -7715 150 > 1; -#X obj -7749 -63 r myMet; -#X obj -7748 172 spigot; -#X obj -7686 -63 r sweepElev; -#X obj -7908 152 lop~ 100; -#X obj -7748 238 lop~ 100; -#X obj -8249 78 lop~ 100; -#X obj -8089 122 lop~ 100; -#X obj -7922 -11 f; -#X obj -7967 -32 delay 10; -#X obj -7967 -59 t b b; -#X obj -7740 -6 f; -#X obj -7755 16 f; -#X obj -7800 -5 delay 10; -#X obj -7800 -32 t b b; -#X obj -7755 40 t f f; -#X obj -7922 11 t f f; -#X msg -7908 109 \$1 15; -#X msg -7748 193 \$1 15; -#X msg -8089 74 \$1 15; -#X msg -8249 31 \$1 15; -#X connect 0 0 26 0; -#X connect 0 1 27 0; -#X connect 0 2 28 0; -#X connect 1 0 45 0; -#X connect 2 0 44 0; -#X connect 4 0 3 0; -#X connect 4 0 17 1; -#X connect 5 0 18 1; -#X connect 6 0 19 1; -#X connect 7 0 8 0; +#X connect 6 0 7 1; +#X connect 7 0 12 0; #X connect 8 0 9 0; -#X connect 8 0 10 0; -#X connect 9 0 12 0; -#X connect 10 0 13 0; -#X connect 11 0 14 0; -#X connect 11 0 15 0; -#X connect 11 0 16 0; -#X connect 12 0 20 0; -#X connect 13 0 21 0; -#X connect 14 0 17 0; -#X connect 15 0 18 0; -#X connect 16 0 19 0; -#X connect 17 0 20 1; -#X connect 18 0 21 1; -#X connect 19 0 0 2; -#X connect 20 0 0 0; -#X connect 21 0 0 1; -#X connect 22 0 46 0; -#X connect 23 0 47 0; -#X connect 29 0 60 0; -#X connect 30 0 59 0; +#X connect 8 0 9 1; +#X connect 9 0 12 1; +#X connect 10 0 11 0; +#X connect 10 0 11 1; +#X connect 11 0 13 1; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 13 0 65 1; +#X connect 13 0 71 1; +#X connect 14 0 68 0; +#X connect 14 0 74 0; +#X connect 15 0 6 1; +#X connect 15 0 27 1; +#X connect 15 0 48 0; +#X connect 15 0 48 1; +#X connect 16 0 8 1; +#X connect 16 0 29 1; +#X connect 16 0 49 0; +#X connect 16 0 49 1; +#X connect 17 0 10 1; +#X connect 17 0 31 1; +#X connect 17 0 50 0; +#X connect 17 0 50 1; +#X connect 18 0 81 0; +#X connect 19 0 27 0; +#X connect 19 0 36 0; +#X connect 20 0 29 0; +#X connect 20 0 38 0; +#X connect 21 0 31 0; +#X connect 21 0 40 0; +#X connect 22 0 82 0; +#X connect 23 0 83 0; +#X connect 27 0 28 0; +#X connect 27 0 28 1; +#X connect 28 0 33 0; +#X connect 29 0 30 0; +#X connect 29 0 30 1; +#X connect 30 0 33 1; +#X connect 31 0 32 0; #X connect 31 0 32 1; -#X connect 31 0 33 0; -#X connect 32 0 48 1; +#X connect 32 0 34 1; #X connect 33 0 34 0; #X connect 34 0 35 0; -#X connect 35 0 37 1; -#X connect 36 0 50 0; -#X connect 37 0 57 0; +#X connect 34 0 65 0; +#X connect 35 0 67 0; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 42 0; #X connect 38 0 39 0; -#X connect 39 0 40 0; -#X connect 40 0 42 1; -#X connect 41 0 54 0; -#X connect 42 0 58 0; -#X connect 43 0 38 0; -#X connect 43 0 51 1; -#X connect 44 0 0 3; -#X connect 45 0 0 4; -#X connect 46 0 8 1; -#X connect 47 0 11 0; -#X connect 48 0 56 0; -#X connect 49 0 48 0; -#X connect 50 0 49 0; -#X connect 50 1 32 0; -#X connect 51 0 52 1; -#X connect 52 0 55 0; -#X connect 53 0 52 0; -#X connect 54 0 53 0; -#X connect 54 1 51 0; -#X connect 55 0 38 1; -#X connect 55 1 42 0; -#X connect 56 0 33 1; -#X connect 56 1 37 0; -#X connect 57 0 2 0; -#X connect 58 0 1 0; -#X connect 59 0 23 0; -#X connect 60 0 22 0; -#X restore 345 -59 pd PlaneFind; -#X obj 745 233 freqCalcCyl4HiFi; -#X obj 29 40 freqCalcCyl4HiFi; -#X obj 458 232 freqCalcCyl4HiFi; -#X obj 315 236 freqCalcCyl4HiFi; -#X obj 27 134 freqCalcCyl4HiFi; -#X obj 594 233 freqCalcCyl4HiFi; -#X obj 170 235 freqCalcCyl4HiFi; -#X obj 29 236 freqCalcCyl4HiFi; +#X connect 38 0 39 1; +#X connect 39 0 42 1; +#X connect 40 0 41 0; +#X connect 40 0 41 1; +#X connect 41 0 43 1; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 43 0 66 1; +#X connect 48 0 51 0; +#X connect 49 0 51 1; +#X connect 50 0 52 1; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 52 0 71 0; +#X connect 53 0 73 0; +#X connect 55 0 61 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 65 0 66 0; +#X connect 66 0 69 0; +#X connect 67 0 68 1; +#X connect 68 0 69 1; +#X connect 69 0 55 0; +#X connect 70 0 77 0; +#X connect 71 0 72 0; +#X connect 72 0 75 0; +#X connect 73 0 74 1; +#X connect 74 0 75 1; +#X connect 75 0 70 0; +#X connect 77 0 62 0; +#X connect 77 0 78 0; +#X connect 78 0 79 0; +#X connect 80 0 78 0; +#X connect 81 0 19 0; +#X connect 82 0 20 0; +#X connect 83 0 21 0; +#X connect 84 0 6 0; +#X connect 84 0 0 0; +#X connect 84 0 0 1; +#X connect 84 0 36 1; +#X connect 85 0 1 0; +#X connect 85 0 1 1; +#X connect 85 0 38 1; +#X connect 85 0 8 0; +#X connect 86 0 10 0; +#X connect 86 0 2 0; +#X connect 86 0 2 1; +#X connect 86 0 40 1; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; +#X connect 0 0 13 0; +#X connect 1 0 15 0; +#X connect 2 0 17 0; +#X connect 3 0 4 0; +#X connect 3 0 4 1; +#X connect 3 0 29 0; +#X connect 4 0 9 0; +#X connect 5 0 6 0; +#X connect 5 0 6 1; +#X connect 5 0 29 1; +#X connect 5 0 34 0; +#X connect 5 0 38 0; +#X connect 6 0 9 1; +#X connect 7 0 8 0; +#X connect 7 0 8 1; +#X connect 8 0 10 1; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 23 0; +#X connect 12 0 7 1; +#X connect 13 0 12 0; +#X connect 14 0 5 1; +#X connect 15 0 14 0; +#X connect 16 0 3 1; +#X connect 17 0 16 0; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; +#X connect 27 0 28 0; +#X connect 28 0 39 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 32 0 37 0; +#X connect 32 0 36 1; +#X connect 33 1 28 0; +#X connect 34 0 42 0; +#X connect 35 0 36 0; +#X connect 36 0 33 0; +#X connect 37 1 28 0; +#X connect 38 0 44 0; +#X connect 41 0 42 0; +#X connect 42 0 33 1; +#X connect 43 0 44 0; +#X connect 44 0 37 1; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; +#X connect 48 0 20 1; +#X connect 48 0 19 1; +#X connect 48 0 18 1; +#X connect 50 0 22 0; +#X connect 50 1 21 0; +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; +#X restore 48 207 pd sourcePositions; +#N canvas 144 122 1135 723 sourcePositions 0; +#X obj 271 290 r Zobs; +#X obj 185 288 r Yobs; +#X obj 101 280 r Xobs; +#X obj 86 349 -~; +#X obj 86 373 *~; +#X obj 170 351 -~; +#X obj 170 380 *~; +#X obj 256 351 -~; +#X obj 256 375 *~; +#X obj 155 414 +~; +#X obj 155 446 +~; +#X obj 155 473 sqrt~; +#X obj 271 332 line~; +#X msg 271 310 \$1 5; +#X obj 185 330 line~; +#X msg 185 309 \$1 5; +#X obj 101 326 line~; +#X msg 101 304 \$1 5; +#X obj 86 149 *~ 1; +#X obj 169 147 *~ 1; +#X obj 256 154 *~ 1; +#X obj 521 511 outlet~; +#X obj 434 511 outlet~; +#X obj 155 498 outlet~; +#X text 150 536 source distance from Observer; +#X text 360 537 source - Obs Elevation; +#X text 515 538 source - Obs Azimuth; +#X obj 831 442 r myMet; +#X obj 830 467 snapshot~; +#X obj 738 246 /~; +#X obj 738 269 atan~; +#X obj 738 292 /~ 3.14159; +#X obj 738 316 abs~; +#X obj 723 382 spigot~; +#X obj 762 339 >~ 0; +#X obj 690 327 sig~ 1; +#X obj 723 359 -~; +#X obj 858 406 spigot~; +#X obj 897 362 <~ 0; +#X obj 830 493 outlet; +#X text 822 520 Pan Value; +#X obj 797 339 r myMet; +#X obj 762 360 snapshot~; +#X obj 930 361 r myMet; +#X obj 897 384 snapshot~; +#X obj 86 77 r~ tipX; +#X obj 170 75 r~ tipY; +#X obj 256 80 r~ tipZ; +#X obj 191 37 inlet; +#X text 408 15 Calculates position of the source.; +#N canvas 260 123 1003 782 SourceAngles 0; +#X obj -8305 185 *~; +#X obj -8274 186 *~; +#X obj -8245 185 *~; +#X obj -8289 220 +~; +#X obj -8289 252 +~; +#X obj -8289 279 sqrt~; +#X obj -8571 236 -~; +#X obj -8571 260 *~; +#X obj -8535 235 -~; +#X obj -8535 264 *~; +#X obj -8499 235 -~; +#X obj -8499 259 *~; +#X obj -8550 298 +~; +#X obj -8550 330 +~; +#X obj -8550 357 sqrt~; +#X obj -8569 47 inlet~; +#X obj -8522 48 inlet~; +#X obj -8475 49 inlet~; +#X obj -8132 43 r Xobs; +#X obj -8132 83 line~; +#X obj -8088 84 line~; +#X obj -8041 84 line~; +#X obj -8088 44 r Yobs; +#X obj -8041 44 r Zobs; +#X text -8567 24 a; +#X text -8517 29 b; +#X text -8471 26 c; +#X obj -8134 214 -~; +#X obj -8134 238 *~; +#X obj -8098 213 -~; +#X obj -8098 242 *~; +#X obj -8062 213 -~; +#X obj -8062 237 *~; +#X obj -8113 276 +~; +#X obj -8113 304 +~; +#X obj -8113 335 sqrt~; +#X obj -7937 219 -~; +#X obj -7937 243 *~; +#X obj -7901 218 -~; +#X obj -7901 247 *~; +#X obj -7865 218 -~; +#X obj -7865 242 *~; +#X obj -7916 281 +~; +#X obj -7916 313 +~; +#X obj -7916 340 sqrt~; +#X text -8578 360 U; +#X text -8309 279 W; +#X text -8130 337 d; +#X obj -8722 229 *~; +#X obj -8691 230 *~; +#X obj -8662 229 *~; +#X obj -8706 264 +~; +#X obj -8706 296 +~; +#X obj -8706 323 sqrt~; +#X text -8726 323 l; +#X obj -8517 559 arccos~; +#X obj -7909 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 +-1; +#X obj -7909 83 s GO; +#X obj -7969 30 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 +-1 -1; +#X obj -7969 83 s setUp; +#X text -7936 341 m; +#X obj -8517 606 outlet~; +#X obj -8096 655 outlet~; +#X text -8574 642 Tip - Obs Elevation; +#X text -8145 680 Tip - Obs Azimuth; +#X obj -8517 445 +~; +#X obj -8517 474 -~; +#X obj -8487 481 *~ 2; +#X obj -8502 504 *~; +#X obj -8517 534 /~; +#X obj -8096 606 arccos~; +#X obj -8096 465 +~; +#X obj -8096 494 -~; +#X obj -8066 501 *~ 2; +#X obj -8081 524 *~; +#X obj -8096 554 /~; +#X text -8520 626 comment; +#X obj -8096 629 +~ 90; +#X obj -8417 592 snapshot~; +#X floatatom -8417 616 0 0 0 0 - - -; +#X obj -8417 569 r myMet; +#X msg -8132 64 \$1 15; +#X msg -8088 65 \$1 15; +#X msg -8041 65 \$1 15; +#X obj -8344 72 r~ proX; +#X obj -8274 73 r~ proY; +#X obj -8208 76 r~ proZ; +#X connect 0 0 3 0; +#X connect 1 0 3 1; +#X connect 2 0 4 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 4 0 72 1; +#X connect 6 0 7 0; +#X connect 6 0 7 1; +#X connect 7 0 12 0; +#X connect 8 0 9 0; +#X connect 8 0 9 1; +#X connect 9 0 12 1; +#X connect 10 0 11 0; +#X connect 10 0 11 1; +#X connect 11 0 13 1; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X connect 13 0 65 1; +#X connect 13 0 71 1; +#X connect 14 0 68 0; +#X connect 14 0 74 0; +#X connect 15 0 6 1; +#X connect 15 0 27 1; +#X connect 15 0 48 0; +#X connect 15 0 48 1; +#X connect 16 0 8 1; +#X connect 16 0 29 1; +#X connect 16 0 49 0; +#X connect 16 0 49 1; +#X connect 17 0 10 1; +#X connect 17 0 31 1; +#X connect 17 0 50 0; +#X connect 17 0 50 1; +#X connect 18 0 81 0; +#X connect 19 0 27 0; +#X connect 19 0 36 0; +#X connect 20 0 29 0; +#X connect 20 0 38 0; +#X connect 21 0 31 0; +#X connect 21 0 40 0; +#X connect 22 0 82 0; +#X connect 23 0 83 0; +#X connect 27 0 28 0; +#X connect 27 0 28 1; +#X connect 28 0 33 0; +#X connect 29 0 30 0; +#X connect 29 0 30 1; +#X connect 30 0 33 1; +#X connect 31 0 32 0; +#X connect 31 0 32 1; +#X connect 32 0 34 1; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 34 0 65 0; +#X connect 35 0 67 0; +#X connect 36 0 37 0; +#X connect 36 0 37 1; +#X connect 37 0 42 0; +#X connect 38 0 39 0; +#X connect 38 0 39 1; +#X connect 39 0 42 1; +#X connect 40 0 41 0; +#X connect 40 0 41 1; +#X connect 41 0 43 1; +#X connect 42 0 43 0; +#X connect 43 0 44 0; +#X connect 43 0 66 1; +#X connect 48 0 51 0; +#X connect 49 0 51 1; +#X connect 50 0 52 1; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 52 0 71 0; +#X connect 53 0 73 0; +#X connect 55 0 61 0; +#X connect 56 0 57 0; +#X connect 58 0 59 0; +#X connect 65 0 66 0; +#X connect 66 0 69 0; +#X connect 67 0 68 1; +#X connect 68 0 69 1; +#X connect 69 0 55 0; +#X connect 70 0 77 0; +#X connect 71 0 72 0; +#X connect 72 0 75 0; +#X connect 73 0 74 1; +#X connect 74 0 75 1; +#X connect 75 0 70 0; +#X connect 77 0 62 0; +#X connect 77 0 78 0; +#X connect 78 0 79 0; +#X connect 80 0 78 0; +#X connect 81 0 19 0; +#X connect 82 0 20 0; +#X connect 83 0 21 0; +#X connect 84 0 6 0; +#X connect 84 0 0 0; +#X connect 84 0 0 1; +#X connect 84 0 36 1; +#X connect 85 0 1 0; +#X connect 85 0 1 1; +#X connect 85 0 38 1; +#X connect 85 0 8 0; +#X connect 86 0 10 0; +#X connect 86 0 2 0; +#X connect 86 0 2 1; +#X connect 86 0 40 1; +#X restore 434 489 pd SourceAngles; +#X obj 271 103 r~ hiltZ; +#X obj 184 95 r~ hiltY; +#X obj 101 99 r~ hiltX; +#X obj 86 122 -~; +#X obj 169 118 -~; +#X obj 256 125 -~; +#X obj 271 176 r~ hiltZ; +#X obj 184 170 r~ hiltY; +#X obj 101 171 r~ hiltX; +#X obj 86 196 +~; +#X obj 169 197 +~; +#X obj 256 200 +~; +#X connect 0 0 13 0; +#X connect 1 0 15 0; +#X connect 2 0 17 0; +#X connect 3 0 4 0; +#X connect 3 0 4 1; +#X connect 3 0 29 0; +#X connect 4 0 9 0; +#X connect 5 0 6 0; +#X connect 5 0 6 1; +#X connect 5 0 29 1; +#X connect 5 0 34 0; +#X connect 5 0 38 0; +#X connect 6 0 9 1; +#X connect 7 0 8 0; +#X connect 7 0 8 1; +#X connect 8 0 10 1; +#X connect 9 0 10 0; +#X connect 10 0 11 0; +#X connect 11 0 23 0; +#X connect 12 0 7 1; +#X connect 13 0 12 0; +#X connect 14 0 5 1; +#X connect 15 0 14 0; +#X connect 16 0 3 1; +#X connect 17 0 16 0; +#X connect 18 0 60 0; +#X connect 19 0 61 0; +#X connect 20 0 62 0; +#X connect 27 0 28 0; +#X connect 28 0 39 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 32 0 37 0; +#X connect 32 0 36 1; +#X connect 33 1 28 0; +#X connect 34 0 42 0; +#X connect 35 0 36 0; +#X connect 36 0 33 0; +#X connect 37 1 28 0; +#X connect 38 0 44 0; +#X connect 41 0 42 0; +#X connect 42 0 33 1; +#X connect 43 0 44 0; +#X connect 44 0 37 1; +#X connect 45 0 54 0; +#X connect 46 0 55 0; +#X connect 47 0 56 0; +#X connect 48 0 20 1; +#X connect 48 0 19 1; +#X connect 48 0 18 1; +#X connect 50 0 22 0; +#X connect 50 1 21 0; +#X connect 51 0 56 1; +#X connect 52 0 55 1; +#X connect 53 0 54 1; +#X connect 54 0 18 0; +#X connect 55 0 19 0; +#X connect 56 0 20 0; +#X connect 57 0 62 1; +#X connect 58 0 61 1; +#X connect 59 0 60 1; +#X connect 60 0 3 0; +#X connect 60 0 50 0; +#X connect 61 0 5 0; +#X connect 61 0 50 1; +#X connect 62 0 7 0; +#X connect 62 0 50 2; +#X restore 55 103 pd sourcePositions; #X connect 0 0 1 0; #X connect 0 1 1 1; -#X connect 2 0 29 0; -#X connect 2 1 29 1; -#X connect 3 0 28 0; -#X connect 3 1 10 0; -#X connect 3 2 10 1; -#X connect 3 3 28 1; -#X connect 4 0 28 2; -#X connect 4 1 28 3; -#X connect 4 2 28 4; -#X connect 4 3 28 5; -#X connect 5 0 29 2; -#X connect 5 1 29 3; -#X connect 5 2 29 4; -#X connect 5 3 29 5; -#X connect 6 0 31 0; -#X connect 6 1 7 0; -#X connect 6 2 16 0; -#X connect 6 3 16 1; -#X connect 6 3 31 1; -#X connect 7 0 31 2; -#X connect 7 1 31 3; -#X connect 7 2 31 4; -#X connect 7 3 31 5; -#X connect 8 0 32 0; +#X connect 2 0 24 0; +#X connect 2 1 24 1; +#X connect 3 0 23 0; +#X connect 3 1 8 0; +#X connect 3 2 8 1; +#X connect 3 3 23 1; +#X connect 4 0 23 2; +#X connect 4 1 23 3; +#X connect 4 2 23 4; +#X connect 4 3 23 5; +#X connect 5 0 24 2; +#X connect 5 1 24 3; +#X connect 5 2 24 4; +#X connect 5 3 24 5; +#X connect 6 0 26 0; +#X connect 6 1 32 0; +#X connect 6 2 13 0; +#X connect 6 3 13 1; +#X connect 6 3 26 1; +#X connect 7 0 27 0; +#X connect 7 1 35 0; +#X connect 7 2 27 1; +#X connect 8 0 28 0; #X connect 8 1 9 0; -#X connect 8 2 32 1; -#X connect 9 0 32 2; -#X connect 9 1 32 3; -#X connect 9 2 32 4; -#X connect 9 3 32 5; -#X connect 10 0 33 0; -#X connect 10 1 11 0; -#X connect 10 2 12 0; -#X connect 10 3 12 1; -#X connect 10 3 33 1; -#X connect 11 0 33 2; -#X connect 11 1 33 3; -#X connect 11 2 33 4; -#X connect 11 3 33 5; -#X connect 12 0 30 0; -#X connect 12 1 13 0; -#X connect 12 2 6 0; -#X connect 12 3 6 1; -#X connect 12 3 30 1; -#X connect 13 0 30 2; -#X connect 13 1 30 3; -#X connect 13 2 30 4; -#X connect 13 3 30 5; -#X connect 16 0 34 0; -#X connect 16 1 17 0; -#X connect 16 2 18 0; -#X connect 16 3 18 1; -#X connect 16 3 34 1; -#X connect 17 0 34 2; -#X connect 17 1 34 3; -#X connect 17 2 34 4; -#X connect 17 3 34 5; -#X connect 18 0 35 0; -#X connect 18 1 19 0; -#X connect 18 2 8 0; -#X connect 18 3 35 1; -#X connect 19 0 35 2; -#X connect 19 1 35 3; -#X connect 19 2 35 4; -#X connect 19 3 35 5; -#X connect 22 0 24 0; -#X connect 23 0 26 0; -#X connect 24 0 25 0; -#X connect 26 0 24 1; -#X connect 26 1 24 0; +#X connect 8 2 10 0; +#X connect 8 3 10 1; +#X connect 8 3 28 1; +#X connect 9 0 28 2; +#X connect 9 1 28 3; +#X connect 9 2 28 4; +#X connect 9 3 28 5; +#X connect 10 0 25 0; +#X connect 10 1 31 0; +#X connect 10 2 6 0; +#X connect 10 3 6 1; +#X connect 10 3 25 1; +#X connect 13 0 29 0; +#X connect 13 1 33 0; +#X connect 13 2 14 0; +#X connect 13 3 14 1; +#X connect 13 3 29 1; +#X connect 14 0 30 0; +#X connect 14 1 34 0; +#X connect 14 2 7 0; +#X connect 14 3 30 1; +#X connect 17 0 19 0; +#X connect 18 0 21 0; +#X connect 19 0 20 0; +#X connect 21 0 19 1; +#X connect 21 1 19 0; +#X connect 31 0 25 2; +#X connect 31 1 25 3; +#X connect 31 2 25 4; +#X connect 31 3 25 5; +#X connect 32 0 26 2; +#X connect 32 1 26 3; +#X connect 32 2 26 4; +#X connect 32 3 26 5; +#X connect 33 0 29 2; +#X connect 33 1 29 3; +#X connect 33 2 29 4; +#X connect 33 3 29 5; +#X connect 34 0 30 2; +#X connect 34 1 30 3; +#X connect 34 2 30 4; +#X connect 34 3 30 5; +#X connect 35 0 27 2; +#X connect 35 1 27 3; +#X connect 35 2 27 4; +#X connect 35 3 27 5; #X restore 246 158 pd sources; #X floatatom 359 211 7 0 0 0 - - -; #X obj 296 189 OSCroute /angVel; #X obj 296 211 s angVel; -#N canvas 335 402 450 300 HiltVel 0; -#X obj 87 48 \$1 50; -#X obj 87 71 line~; -#X obj 87 25 r angVel; -#X obj 286 103 r myMet; -#X obj 286 125 snapshot~; -#X floatatom 286 148 0 0 0 0 - - -; -#X obj 260 211 s~ hiltSpeed; -#X obj 136 92 r start_armLength; -#X obj 87 141 *~ 0.01; -#X obj 87 95 lop~ 2; -#X obj 87 120 *~ 0.3; +#N canvas 268 421 708 369 HiltVel 0; +#X obj 143 162 \$1 50; +#X obj 143 185 line~; +#X obj 342 217 r myMet; +#X obj 342 239 snapshot~; +#X floatatom 342 262 0 0 0 0 - - -; +#X obj 316 325 s~ hiltSpeed; +#X obj 143 114 r OSCdata; +#X obj 143 138 OSCroute /hiltS; +#X obj 143 209 lop~ 1; #X connect 0 0 1 0; -#X connect 1 0 9 0; -#X connect 2 0 0 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; #X connect 3 0 4 0; -#X connect 4 0 5 0; -#X connect 7 0 10 1; -#X connect 8 0 4 0; -#X connect 8 0 6 0; -#X connect 9 0 10 0; -#X connect 10 0 8 0; +#X connect 6 0 7 0; +#X connect 7 0 0 0; +#X connect 8 0 5 0; +#X connect 8 0 3 0; #X restore 645 234 pd HiltVel; #X msg -33 48 0.3; #X msg -222 332 1; @@ -4698,13 +4794,36 @@ #X obj 102 113 outlet; #X obj 214 109 outlet; #X obj 327 110 outlet; +#X obj 447 113 outlet; +#X obj 447 89 OSCroute /elbow; #X connect 0 0 1 0; #X connect 0 0 2 0; #X connect 0 0 3 0; +#X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 2 0 5 0; #X connect 3 0 6 0; +#X connect 8 0 7 0; #X restore -158 4 pd cameraPosition; +#N canvas 793 372 708 369 TipVel 1; +#X obj 143 162 \$1 50; +#X obj 143 185 line~; +#X obj 342 217 r myMet; +#X obj 342 239 snapshot~; +#X floatatom 342 262 0 0 0 0 - - -; +#X obj 143 114 r OSCdata; +#X obj 143 138 OSCroute /tipS; +#X obj 143 254 s~ tipSpeed; +#X obj 143 209 lop~ 1; +#X connect 0 0 1 0; +#X connect 1 0 8 0; +#X connect 2 0 3 0; +#X connect 3 0 4 0; +#X connect 5 0 6 0; +#X connect 6 0 0 0; +#X connect 8 0 3 0; +#X connect 8 0 7 0; +#X restore 732 236 pd TipVel; #X connect 1 0 2 0; #X connect 2 0 179 0; #X connect 3 0 4 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSword/motionplus.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,210 @@ +#N canvas 325 242 656 565 10; +#X obj 51 48 inlet wiimotionplus; +#X obj 51 70 route wiimotionplus; +#X text 196 39 just in case somebody uses the [wiimote]s output directly +; +#N canvas 676 229 450 300 slowfast 0; +#X obj 105 55 inlet; +#X obj 105 77 route angle_rate low_speed; +#X obj 105 107 unpack 0 0 0; +#X obj 194 107 unpack 0 0 0; +#X obj 105 232 pack; +#X obj 105 254 outlet pitch; +#X obj 195 232 pack; +#X obj 278 232 pack; +#X obj 195 254 outlet roll; +#X obj 278 254 outlet yaw; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X connect 2 0 4 0; +#X connect 2 1 6 0; +#X connect 2 2 7 0; +#X connect 3 0 4 1; +#X connect 3 1 6 1; +#X connect 3 2 7 1; +#X connect 4 0 5 0; +#X connect 6 0 8 0; +#X connect 7 0 9 0; +#X restore 51 98 pd slowfast; +#X obj 51 297 pack 0 0 0; +#X obj 51 120 motionplus_rate2angle; +#X obj 51 319 outlet yaw roll pitch; +#X obj 218 230 pack 0 0 0; +#X obj 242 118 t a a a; +#X msg 242 85 reset; +#X msg 300 95 deadzone \$1; +#X floatatom 300 75 5 0 0 0 - - -; +#X obj 218 322 outlet dYaw dRoll dPitch; +#X obj 88 150 motionplus_rate2angle; +#X obj 125 180 motionplus_rate2angle; +#N canvas 0 0 450 300 angleaxis 0; +#X obj 142 209 mtx_*; +#X obj 142 231 t a a; +#X obj 273 154 loadbang; +#X msg 142 155 \$1 0 0; +#N canvas 295 417 569 550 angleaxis2mtx 0; +#X obj 73 43 inlet dYaw dRoll dPitch; +#N canvas 0 0 450 300 length 0; +#X obj 84 59 t f f; +#X obj 84 81 *; +#X obj 84 103 +; +#X obj 84 125 outlet; +#X obj 134 59 t f f; +#X obj 134 81 *; +#X obj 134 103 +; +#X obj 184 59 t f f; +#X obj 184 81 *; +#X obj 84 37 unpack 0 0 0; +#X obj 84 15 inlet; +#X connect 0 0 1 0; +#X connect 0 1 1 1; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 6 0 2 1; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 8 0 6 1; +#X connect 9 0 0 0; +#X connect 9 1 4 0; +#X connect 9 2 7 0; +#X connect 10 0 9 0; +#X restore 105 84 pd length; +#X obj 73 65 t l l; +#N canvas 0 0 450 300 normalize 0; +#X obj 74 36 inlet; +#X obj 74 58 unpack 0 0 0; +#X obj 74 102 pack 0 0 0; +#X obj 74 124 outlet; +#X obj 74 80 * 1; +#X obj 114 80 * 1; +#X obj 155 80 * 1; +#X obj 261 33 inlet length; +#X msg 261 55 1 \$1; +#X obj 261 77 /; +#X obj 165 57 t f f f; +#X connect 0 0 1 0; +#X connect 1 0 4 0; +#X connect 1 1 5 0; +#X connect 1 2 6 0; +#X connect 2 0 3 0; +#X connect 4 0 2 0; +#X connect 5 0 2 1; +#X connect 6 0 2 2; +#X connect 7 0 8 0; +#X connect 8 0 9 0; +#X connect 9 0 10 0; +#X connect 10 0 4 1; +#X connect 10 1 5 1; +#X connect 10 2 6 1; +#X restore 73 145 pd normalize; +#X obj 105 106 t f f; +#N canvas 0 0 450 300 deg2rad 0; +#X obj 109 112 inlet deg; +#X obj 109 231 outlet rad; +#X obj 181 179 / 45; +#X obj 181 113 loadbang; +#X obj 109 202 * 0.0174533; +#X obj 109 178 f; +#X text 93 282 rad=deg*pi/180; +#X obj 181 156 atan; +#X msg 181 135 1; +#X text 225 36 part of zexy; +#X text 63 66 convert DEGree to RADiant; +#X connect 0 0 5 0; +#X connect 2 0 4 1; +#X connect 3 0 8 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 7 0 2 0; +#X connect 8 0 7 0; +#X restore 171 146 pd deg2rad; +#X obj 171 168 t f f; +#X obj 171 190 cos; +#X obj 171 212 t f f; +#X obj 203 234 * -1; +#X obj 203 256 + 1; +#X obj 203 190 sin; +#X text 297 81 c=cos() \, s=sin() \, C=1-c; +#X text 297 141 [ z*x*C-y*s y*z*C+x*s z*z*C+c ]; +#X text 297 100 [ x*x*C+c x*y*C-z*s z*x*C+y*s ]; +#X text 297 121 [ x*y*C+z*s y*y*C+c y*z*C-x*s ]; +#X obj 73 282 pack 0 0 0 0 0 0; +#X obj 310 255 expr; +#X obj 73 305 expr $f1*$f1*$f6+$f4 \; $f1*$f2*$f6-$f3*$f5 \; $f1*$f3*$f6+$f2*$f5 +\; $f1*$f2*$f6+$f3*$f5 \; $f2*$f2*$f6+$f4 \; $f2*$f3*$f6-$f1*$f5 \; +$f1*$f3*$f6-$f2*$f5 \; $f2*$f3*$f6+$f1*$f5 \; $f3*$f3*$f6+$f4; +#X obj 73 430 pack 0 0 0 0 0 0 0 0 0; +#X obj 73 452 list prepend matrix 3 3; +#X obj 73 474 list trim; +#X obj 73 496 outlet Rot; +#X connect 0 0 2 0; +#X connect 1 0 4 0; +#X connect 2 0 3 0; +#X connect 2 1 1 0; +#X connect 3 0 16 0; +#X connect 4 0 3 1; +#X connect 4 1 5 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 6 1 11 0; +#X connect 7 0 8 0; +#X connect 8 0 16 3; +#X connect 8 1 9 0; +#X connect 9 0 10 0; +#X connect 10 0 16 5; +#X connect 11 0 16 4; +#X connect 16 0 18 0; +#X connect 18 0 19 0; +#X connect 18 1 19 1; +#X connect 18 2 19 2; +#X connect 18 3 19 3; +#X connect 18 4 19 4; +#X connect 18 5 19 5; +#X connect 18 6 19 6; +#X connect 18 7 19 7; +#X connect 18 8 19 8; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X restore 142 182 pd angleaxis2mtx; +#X text 170 22 doesn't really work; +#X msg 273 181 matrix 3 3 1 0 0 0 1 0 0 0 1; +#X connect 0 0 1 0; +#X connect 1 1 0 1; +#X connect 2 0 6 0; +#X connect 3 0 4 0; +#X connect 4 0 0 0; +#X connect 6 0 0 1; +#X restore 485 276 pd angleaxis; +#X obj 412 79 inlet; +#X obj 51 237 wrap -180 180; +#X obj 88 257 wrap -180 180; +#X obj 125 277 wrap -180 180; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 1 1 3 0; +#X connect 3 0 5 0; +#X connect 3 1 13 0; +#X connect 3 2 14 0; +#X connect 4 0 6 0; +#X connect 5 0 17 0; +#X connect 5 1 7 0; +#X connect 7 0 12 0; +#X connect 8 0 5 1; +#X connect 8 1 13 1; +#X connect 8 2 14 1; +#X connect 9 0 8 0; +#X connect 10 0 8 0; +#X connect 11 0 10 0; +#X connect 13 0 18 0; +#X connect 13 1 7 1; +#X connect 14 0 19 0; +#X connect 14 1 7 2; +#X connect 16 0 8 0; +#X connect 17 0 4 0; +#X connect 18 0 4 1; +#X connect 19 0 4 2;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSword/motionplus_rate2angle.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,120 @@ +#N canvas 0 0 450 357 10; +#N canvas 0 0 704 467 anglespeed 0; +#X obj 149 57 loadbang; +#X obj 95 108 t l l; +#X msg 95 85 \$2 \$1; +#X obj 127 151 route 1; +#X obj 95 232 unpack; +#X obj 95 255 pack; +#X obj 95 277 route 0 1; +#X obj 95 299 / 4; +#X obj 95 321 t f; +#X obj 125 299 / 20; +#X obj 149 78 t b b; +#X obj 149 100 f 8063; +#X obj 134 254 - 8063; +#X msg 149 122 set \$1; +#X obj 95 36 inlet <angle_rate> <low_speed>; +#X obj 95 393 outlet; +#X obj 127 173 mavg 1000; +#X obj 346 58 r \$0-reset; +#X obj 173 223 t f f; +#X obj 173 201 f 8063; +#X connect 0 0 10 0; +#X connect 1 0 4 0; +#X connect 1 1 3 0; +#X connect 2 0 1 0; +#X connect 3 0 16 0; +#X connect 4 0 5 0; +#X connect 4 1 12 0; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 6 1 9 0; +#X connect 7 0 8 0; +#X connect 8 0 15 0; +#X connect 9 0 8 0; +#X connect 10 0 11 0; +#X connect 10 1 19 0; +#X connect 11 0 13 0; +#X connect 12 0 5 1; +#X connect 13 0 16 0; +#X connect 14 0 2 0; +#X connect 16 0 19 1; +#X connect 17 0 10 0; +#X connect 18 0 12 1; +#X connect 18 1 11 1; +#X connect 19 0 18 0; +#X restore 51 155 pd anglespeed; +#N canvas 0 0 450 300 deadzone 0; +#X obj 90 101 t f; +#X obj 90 123 moses -0.5; +#X obj 157 144 moses 0.5; +#X msg 157 166 0; +#X obj 158 104 * -1; +#X obj 157 188 t f; +#X obj 157 210 outlet; +#X obj 158 82 t f f; +#X obj 90 46 inlet dphi; +#X obj 225 45 r \$0-deadzone; +#X connect 0 0 1 0; +#X connect 1 0 5 0; +#X connect 1 1 2 0; +#X connect 2 0 3 0; +#X connect 2 1 5 0; +#X connect 3 0 5 0; +#X connect 4 0 1 1; +#X connect 5 0 6 0; +#X connect 7 0 4 0; +#X connect 7 1 2 1; +#X connect 8 0 0 0; +#X connect 9 0 7 0; +#X restore 51 202 pd deadzone; +#N canvas 0 0 450 300 accumulate 0; +#X obj 95 179 t f; +#X obj 95 201 +; +#X obj 95 223 t f f; +#X msg 143 180 0; +#X obj 95 156 inlet; +#X obj 95 245 outlet; +#X obj 143 161 r \$0-reset; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 5 0; +#X connect 2 1 1 1; +#X connect 3 0 1 1; +#X connect 4 0 0 0; +#X connect 6 0 3 0; +#X restore 51 257 pd accumulate; +#N canvas 0 0 1087 300 pertime 0; +#X obj 83 53 inlet; +#X obj 83 75 t f; +#X obj 83 97 / 100; +#X obj 83 119 outlet; +#X text 137 96 <-- currently hardcoded to 10 fps \; LATER make use +of the timetags in the cwiid message and see whether this helps; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 51 177 pd pertime; +#X obj 268 137 route reset deadzone; +#X obj 268 159 t b; +#X obj 268 181 s \$0-reset; +#X obj 268 115 inlet control; +#X obj 51 128 inlet angle_rate; +#X obj 51 279 outlet angle; +#X obj 336 212 t f; +#X obj 336 234 s \$0-deadzone; +#X obj 183 279 outlet dAngle; +#X obj 51 229 t f f; +#X connect 0 0 3 0; +#X connect 1 0 13 0; +#X connect 2 0 9 0; +#X connect 3 0 1 0; +#X connect 4 0 5 0; +#X connect 4 1 10 0; +#X connect 5 0 6 0; +#X connect 7 0 4 0; +#X connect 8 0 0 0; +#X connect 10 0 11 0; +#X connect 13 0 2 0; +#X connect 13 1 12 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSword/wiimote-0.3.2/wiimote-help.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,668 @@ +#N struct IR-blobs float x float y symbol s; +#N struct NC-stick float x float y; +#N struct cc-left-stick float x float y; +#N struct cc-right-stick float x float y; +#N canvas 432 145 830 538 10; +#X text 8 9 IN ORDER TO CONNECT: First put the wiimote into discover +mode (press buttons 1 and 2 simultaneously).; +#X text 16 364 You can also specify the address as a creation argument: +; +#X text 15 380 (make sure to enable discover mode before creation) +; +#X obj 435 5 cnv 15 375 460 empty empty Wiimote: 10 15 0 14 -261689 +-143491 0; +#X floatatom 577 159 7 0 0 1 _X #0-wii-accX-set #0-wii-accX; +#X floatatom 577 173 7 0 0 1 _Y #0-wii-accY-set #0-wii-accY; +#X floatatom 577 187 7 0 0 1 _Z #0-wii-accZ-set #0-wii-accZ; +#X obj 447 159 hsl 128 14 -1 1 0 0 \$0-wii-accX \$0-wii-accX-set empty +-2 -8 0 10 -204786 -1 -1 0 1; +#X obj 447 173 hsl 128 14 -1 1 0 0 \$0-wii-accY \$0-wii-accY-set empty +-2 -8 0 10 -204786 -1 -1 0 1; +#X obj 447 187 hsl 128 14 -1 1 0 0 \$0-wii-accZ \$0-wii-accZ-set empty +-2 -8 0 10 -204786 -1 -1 0 1; +#N canvas 525 243 481 416 IR-data 0; +#X scalar IR-blobs 128 384 blob1 \;; +#X scalar IR-blobs 384 384 blob2 \;; +#X scalar IR-blobs 640 384 blob3 \;; +#X scalar IR-blobs 896 384 blob4 \;; +#X coords 0 0 1024 768 256 196 1; +#X restore 443 260 pd IR-data; +#X text 444 242 IR Blobs (1024x768):; +#X floatatom 577 207 7 0 0 1 _PITCH #0-wii-pitch-set #0-wii-pitch; +#X obj 447 207 hsl 128 14 -3.14156 3.14159 0 0 \$0-wii-pitch \$0-wii-pitch-set +empty -2 -8 0 10 -204786 -1 -1 0 1; +#X floatatom 577 221 7 0 0 1 _ROLL #0-wii-roll-set #0-wii-roll; +#X obj 447 221 hsl 128 14 -3.14156 3.14159 0 0 \$0-wii-roll \$0-wii-roll-set +empty -2 -8 0 10 -204786 -1 -1 0 1; +#X text 447 142 Acceleration (-1 to 1):; +#X text 722 150 Buttons:; +#X obj 15 427 print; +#X obj 13 193 s \$0.to.wiimote; +#X msg 28 121 discover; +#X msg 13 74 connect 00:1F:C5:0B:1F:86; +#X msg 39 164 disconnect; +#X obj 500 36 tgl 25 0 empty empty IR 6 12 0 10 -4160 -1 -1 0 1; +#X msg 500 90 report ir \$1; +#X msg 441 69 report acceleration \$1; +#X obj 441 35 tgl 25 0 empty empty Acc 4 12 0 10 -204786 -1 -1 0 1 +; +#X obj 709 40 tgl 25 0 empty empty empty 17 7 0 10 -232576 -1 -1 0 +1; +#X msg 611 92 setLED \$1; +#X obj 611 39 tgl 15 0 empty empty empty 17 7 0 10 -4032 -1 -1 0 1 +; +#X obj 635 39 tgl 15 0 empty empty empty 17 7 0 10 -4032 -1 -1 0 1 +; +#X obj 660 39 tgl 15 0 empty empty empty 17 7 0 10 -4032 -1 -1 0 1 +; +#X obj 685 40 tgl 15 0 empty empty empty 17 7 0 10 -4032 -1 -1 0 1 +; +#X text 606 15 LEDs:; +#N canvas 0 0 409 401 bytemask 0; +#X obj 269 332 outlet; +#X obj 269 279 float; +#X obj 318 183 |; +#X obj 110 239 -; +#X obj 110 204 float; +#X obj 110 184 trigger bang float; +#X obj 231 204 &; +#X obj 183 142 route 0 1; +#X msg 36 56 \$1 1; +#X msg 106 56 \$1 2; +#X msg 176 56 \$1 4; +#X msg 246 56 \$1 8; +#X obj 36 15 inlet; +#X obj 106 15 inlet; +#X obj 176 15 inlet; +#X obj 246 15 inlet; +#X obj 36 35 change; +#X obj 106 35 change; +#X obj 176 35 change; +#X obj 246 35 change; +#X connect 1 0 2 1; +#X connect 1 0 4 1; +#X connect 1 0 6 1; +#X connect 1 0 0 0; +#X connect 2 0 1 0; +#X connect 3 0 1 0; +#X connect 4 0 3 0; +#X connect 5 0 4 0; +#X connect 5 1 6 0; +#X connect 6 0 3 1; +#X connect 7 0 5 0; +#X connect 7 1 2 0; +#X connect 8 0 7 0; +#X connect 9 0 7 0; +#X connect 10 0 7 0; +#X connect 11 0 7 0; +#X connect 12 0 16 0; +#X connect 13 0 17 0; +#X connect 14 0 18 0; +#X connect 15 0 19 0; +#X connect 16 0 8 0; +#X connect 17 0 9 0; +#X connect 18 0 10 0; +#X connect 19 0 11 0; +#X restore 611 69 pd bytemask; +#X msg 709 91 setRumble \$1; +#X obj 441 113 s \$0.to.wiimote; +#X text 708 17 Rumble; +#X obj 611 116 s \$0.to.wiimote; +#N canvas 26 157 554 440 buttons 0; +#X obj 11 11 r \$0.from.wiimote; +#X obj 11 33 route button; +#X obj 33 387 s \$0.button.up; +#X obj 66 363 s \$0.button.down; +#X obj 103 338 s \$0.button.left; +#X obj 138 313 s \$0.button.right; +#X obj 177 286 s \$0.button.a; +#X obj 212 261 s \$0.button.b; +#X obj 243 235 s \$0.button.minus; +#X obj 280 208 s \$0.button.home; +#X obj 325 180 s \$0.button.plus; +#X obj 372 151 s \$0.button.1; +#X obj 404 122 s \$0.button.2; +#X obj 11 79 unpack f f; +#X obj 11 56 list; +#X obj 33 359 & 8; +#X obj 66 335 & 4; +#X obj 103 310 & 1; +#X obj 138 285 & 2; +#X obj 177 258 & 8; +#X obj 212 233 & 4; +#X obj 243 207 & 16; +#X obj 280 180 & 128; +#X obj 325 152 & 16; +#X obj 372 123 & 2; +#X obj 404 94 & 1; +#X connect 0 0 1 0; +#X connect 1 0 14 0; +#X connect 13 0 15 0; +#X connect 13 0 16 0; +#X connect 13 0 17 0; +#X connect 13 0 18 0; +#X connect 13 0 23 0; +#X connect 13 1 19 0; +#X connect 13 1 20 0; +#X connect 13 1 21 0; +#X connect 13 1 22 0; +#X connect 13 1 24 0; +#X connect 13 1 25 0; +#X connect 14 0 13 0; +#X connect 15 0 2 0; +#X connect 16 0 3 0; +#X connect 17 0 4 0; +#X connect 18 0 5 0; +#X connect 19 0 6 0; +#X connect 20 0 7 0; +#X connect 21 0 8 0; +#X connect 22 0 9 0; +#X connect 23 0 10 0; +#X connect 24 0 11 0; +#X connect 25 0 12 0; +#X restore 711 385 pd buttons; +#N canvas 12 0 677 674 accel 0; +#X obj 359 239 unpack 0 0 0; +#X obj 92 612 expr sqrt(pow($f1 \, 2) + pow($f2 \, 2) + pow($f3 \, +2)); +#X obj 350 298 atan; +#X obj 350 277 expr $f1 / $f2; +#X obj 383 322 expr if ($f1 > 0 \, 3.14159 \, -3.14159); +#X obj 350 349 pack 0 0 0; +#X obj 350 371 expr if ($f3 <= 0 \, $f1 + $f2 \, $f1); +#X obj 350 393 * -1; +#X obj 299 128 unpack 0 0 0; +#X obj 35 461 s \$0-wii-pitch-set; +#X obj 350 463 s \$0-wii-roll-set; +#X obj 378 148 s \$0-wii-accZ-set; +#X obj 338 167 s \$0-wii-accY-set; +#X obj 299 186 s \$0-wii-accX-set; +#X text 75 514 The pitch and roll are only accurate if there are no +extra accelerations due to hand movement. We can check if the total +acceleration is close to gravity and only use pitch and roll in that +case. The total acceleration is given by:; +#X text 311 106 raw accerlation:; +#X obj 24 239 unpack 0 0 0; +#X obj 35 298 atan; +#X obj 35 277 expr $f1 / $f2; +#X obj 67 322 expr if ($f1 > 0 \, 3.14159 \, -3.14159); +#X obj 35 349 pack 0 0 0; +#X obj 35 371 expr if ($f3 <= 0 \, $f1 + $f2 \, $f1); +#X obj 35 393 * -1; +#X obj 225 578 unpack 0 0 0; +#X obj 126 71 t a; +#X obj 126 20 r \$0.from.wiimote; +#X obj 126 44 route acceleration; +#X connect 0 0 3 0; +#X connect 0 0 4 0; +#X connect 0 2 3 1; +#X connect 0 2 5 2; +#X connect 2 0 5 0; +#X connect 3 0 2 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 10 0; +#X connect 8 0 13 0; +#X connect 8 1 12 0; +#X connect 8 2 11 0; +#X connect 16 1 18 0; +#X connect 16 1 19 0; +#X connect 16 2 18 1; +#X connect 16 2 20 2; +#X connect 17 0 20 0; +#X connect 18 0 17 0; +#X connect 19 0 20 1; +#X connect 20 0 21 0; +#X connect 21 0 22 0; +#X connect 22 0 9 0; +#X connect 23 0 1 0; +#X connect 23 1 1 1; +#X connect 23 2 1 2; +#X connect 24 0 8 0; +#X connect 24 0 16 0; +#X connect 24 0 0 0; +#X connect 25 0 26 0; +#X connect 26 0 24 0; +#X restore 711 410 pd accel; +#N canvas 195 75 568 473 ir 0; +#N canvas 631 449 342 204 IR-blobs 0; +#X obj 39 34 struct IR-blobs float x float y symbol s; +#X obj 39 71 filledcurve 9 30 0 0 -30 -30 0 0 30 30 0; +#X obj 48 112 drawsymbol s -60 -75 0 1 blob; +#X restore 8 19 pd IR-blobs; +#X obj 227 420 pointer; +#X msg 227 398 traverse pd-IR-data \, next; +#X obj 134 63 route 0 1 2 3; +#X obj 134 422 unpack 0 0 0; +#X obj 134 443 set IR-blobs x y; +#X obj 245 350 pointer; +#X obj 152 352 unpack 0 0 0; +#X obj 152 373 set IR-blobs x y; +#X msg 245 328 traverse pd-IR-data \, next \, next; +#X obj 264 272 pointer; +#X obj 171 266 unpack 0 0 0; +#X obj 171 292 set IR-blobs x y; +#X msg 264 250 traverse pd-IR-data \, next \, next \, next; +#X obj 283 197 pointer; +#X obj 190 199 unpack 0 0 0; +#X obj 190 220 set IR-blobs x y; +#X msg 283 175 traverse pd-IR-data \, next \, next \, next \, next +; +#X obj 134 18 r \$0.from.wiimote; +#X obj 134 40 route ir; +#X msg 249 99 \$1 \$2 384 0; +#X obj 249 40 t f f; +#X obj 249 80 pack; +#X msg 249 20 0 \, 1 \, 2 \, 3; +#X obj 279 60 * 256; +#X obj 279 80 + 128; +#X obj 431 32 loadbang; +#X obj 431 54 t b b; +#X obj 228 147 t b b b b; +#X connect 1 0 5 2; +#X connect 2 0 1 0; +#X connect 3 0 4 0; +#X connect 3 1 7 0; +#X connect 3 2 11 0; +#X connect 3 3 15 0; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 6 0 8 2; +#X connect 7 0 8 0; +#X connect 7 1 8 1; +#X connect 9 0 6 0; +#X connect 10 0 12 2; +#X connect 11 0 12 0; +#X connect 11 1 12 1; +#X connect 13 0 10 0; +#X connect 14 0 16 2; +#X connect 15 0 16 0; +#X connect 15 1 16 1; +#X connect 17 0 14 0; +#X connect 18 0 19 0; +#X connect 19 0 3 0; +#X connect 20 0 3 0; +#X connect 21 0 22 0; +#X connect 21 1 24 0; +#X connect 22 0 20 0; +#X connect 23 0 21 0; +#X connect 24 0 25 0; +#X connect 25 0 22 1; +#X connect 26 0 27 0; +#X connect 27 0 23 0; +#X connect 27 1 28 0; +#X connect 28 0 2 0; +#X connect 28 1 9 0; +#X connect 28 2 13 0; +#X connect 28 3 17 0; +#X restore 710 436 pd ir; +#X obj 735 189 tgl 13 0 \$0.bli \$0.button.left empty 17 7 0 10 -191407 +-1 -1 0 1; +#X obj 763 189 tgl 13 0 \$0.bli \$0.button.right empty 17 7 0 10 -191407 +-1 -1 0 2; +#X obj 749 203 tgl 13 0 \$0.bli \$0.button.down empty 17 7 0 10 -191407 +-1 -1 0 4; +#X obj 749 175 tgl 13 0 \$0.bli \$0.button.up empty 17 7 0 10 -191407 +-1 -1 0 8; +#X obj 726 288 tgl 13 0 \$0.bli \$0.button.minus - 5 8 0 10 -191407 +-1 -1 0 16; +#X obj 750 288 tgl 13 0 \$0.bli \$0.button.home empty 17 7 0 10 -191407 +-1 -1 0 128; +#X obj 774 288 tgl 13 0 \$0.bli \$0.button.plus + 5 8 0 10 -191407 +-1 -1 0 16; +#X obj 747 228 tgl 18 0 \$0.bli \$0.button.b B 5 9 1 13 -191407 -1 +-1 0 4; +#X obj 747 240 tgl 18 0 \$0.bli \$0.button.a A 5 9 1 13 -191407 -1 +-1 0 8; +#X obj 749 322 tgl 16 0 \$0.bli \$0.button.1 1 5 9 1 11 -191407 -1 +-1 0 2; +#X obj 749 349 tgl 16 0 \$0.bli \$0.button.2 2 5 9 1 11 -191407 -1 +-1 0 1; +#X obj 215 317 spigot; +#X obj 215 339 print WIIMOTE; +#X obj 215 280 r \$0.from.wiimote; +#X obj 254 299 tgl 15 0 empty empty print_data 19 7 0 13 -261234 -1 +-1 0 1; +#X obj 15 401 wiimote 00:1F:C5:0B:1F:86; +#X text 10 221 By default \, the wiimote does not report acceleration +data \, IR data \, or any data from an attached extension (eg \, nunchuck). +You must specifically enable each reporting mode.; +#X obj 16 279 cnv 15 140 70 empty empty empty 20 12 0 14 -228856 -66577 +0; +#X obj 21 305 wiimote; +#X obj 21 283 r \$0.to.wiimote; +#X obj 21 327 s \$0.from.wiimote; +#X text 10 55 Then you can connect to a specific address:; +#X text 27 103 Or you can try to automatically detect a wiimote:; +#X obj 435 469 cnv 15 375 60 empty empty Extensions: 20 12 0 14 -204786 +-66577 0; +#N canvas 3 45 418 236 Nunchuck 0; +#X obj 16 11 cnv 15 375 180 empty empty Nunchuk: 10 15 0 14 -228992 +-355 0; +#X floatatom 163 133 7 0 0 1 _X #0-nc-accX-set #0-nc-accX; +#X floatatom 163 147 7 0 0 1 _Y #0-nc-accY-set #0-nc-accY; +#X floatatom 163 161 7 0 0 1 _Z #0-nc-accZ-set #0-nc-accZ; +#X obj 33 133 hsl 128 14 -1 1 0 0 \$0-nc-accX \$0-nc-accX-set empty +-2 -8 0 10 -261681 -1 -1 0 1; +#X obj 33 147 hsl 128 14 -1 1 0 0 \$0-nc-accY \$0-nc-accY-set empty +-2 -8 0 10 -261681 -1 -1 0 1; +#X obj 33 161 hsl 128 14 -1 1 0 0 \$0-nc-accZ \$0-nc-accZ-set empty +-2 -8 0 10 -261681 -1 -1 0 1; +#X obj 298 51 nbx 3 16 -1e+37 1e+37 0 0 empty \$0-nc-btn-set empty +-80 8 0 10 -261681 -1 -1 0 256; +#X text 29 117 Acceleration:; +#X text 231 48 Buttons:; +#X text 297 84 Stick:; +#N canvas 185 133 481 416 NC-data 0; +#X scalar NC-stick 130 133 \;; +#X coords 0 0 256 256 80 80 1; +#X restore 296 101 pd NC-data; +#X obj 32 38 tgl 25 0 empty empty empty 17 7 0 10 -261682 -1 -1 0 1 +; +#X msg 32 68 report nunchuk \$1; +#X obj 32 89 s \$0.to.wiimote; +#N canvas 3 217 743 313 nunchuk 0; +#X obj 15 55 route button acceleration stick; +#X obj 494 184 pointer; +#X obj 494 141 loadbang; +#X obj 387 153 unpack 0 0; +#X obj 387 229 set NC-stick x y; +#X obj 160 148 unpack 0 0 0; +#X obj 240 169 s \$0-nc-accZ-set; +#X obj 200 188 s \$0-nc-accY-set; +#X obj 160 211 s \$0-nc-accX-set; +#X obj 15 169 s \$0-nc-btn-set; +#X msg 494 162 traverse pd-NC-data \, next; +#X obj 15 11 r \$0.from.wiimote; +#X obj 15 33 route nunchuk; +#N canvas 154 209 610 221 NC-stick 0; +#X obj 39 34 struct NC-stick float x float y; +#X obj 44 71 filledpolygon 900 20 0 5 -5 0 -20 -5 -5 -20 0 -5 5 0 20 +5 5 20 0; +#X restore 386 262 pd NC-stick; +#X connect 0 0 9 0; +#X connect 0 1 5 0; +#X connect 0 2 3 0; +#X connect 1 0 4 2; +#X connect 2 0 10 0; +#X connect 3 0 4 0; +#X connect 3 1 4 1; +#X connect 5 0 8 0; +#X connect 5 1 7 0; +#X connect 5 2 6 0; +#X connect 10 0 1 0; +#X connect 11 0 12 0; +#X connect 12 0 0 0; +#X restore 180 89 pd nunchuk; +#X connect 12 0 13 0; +#X connect 13 0 14 0; +#X restore 570 482 pd Nunchuck; +#N canvas 161 144 450 300 MotionPlus 0; +#X obj 56 55 cnv 15 375 160 empty empty MotionPlus: 10 15 0 14 -262130 +-83269 0; +#X obj 67 86 tgl 25 0 empty empty empty 17 7 0 10 -203904 -1 -1 0 1 +; +#X msg 67 116 report motionplus \$1; +#X obj 67 137 s \$0.to.wiimote; +#X floatatom 198 165 7 0 0 1 _pitch #0-wii-mp-pitch-set #0-wii-mp-pitch +; +#X floatatom 198 179 7 0 0 1 _roll #0-wii-mp-roll-set #0-wii-mp-roll +; +#X obj 68 165 hsl 128 14 0 16000 0 0 \$0-wii-mp-pitch \$0-wii-mp-pitch-set +empty -2 -8 0 10 -203904 -1 -1 0 1; +#X obj 68 179 hsl 128 14 0 16000 0 0 \$0-wii-mp-roll \$0-wii-mp-roll-set +empty -2 -8 0 10 -203904 -1 -1 0 1; +#N canvas 0 0 308 266 motionplus 0; +#X obj 8 51 route motionplus; +#X obj 8 73 route angle_rate low_speed; +#X obj 97 98 unpack f f f; +#X obj 8 134 unpack f f f; +#X obj 8 20 r \$0.from.wiimote; +#X obj 8 209 s \$0-wii-mp-pitch-set; +#X obj 48 187 s \$0-wii-mp-roll-set; +#X obj 89 162 s \$0-wii-mp-yaw-set; +#X connect 0 0 1 0; +#X connect 1 0 3 0; +#X connect 1 1 2 0; +#X connect 3 0 5 0; +#X connect 3 1 6 0; +#X connect 3 2 7 0; +#X connect 4 0 0 0; +#X restore 279 116 pd motionplus; +#X floatatom 198 193 7 0 0 1 _yaw #0-wii-mp-yaw-set #0-wii-mp-yaw; +#X obj 68 193 hsl 128 14 0 16000 0 0 \$0-wii-mp-yaw \$0-wii-mp-yaw-set +empty -2 -8 0 10 -203904 -1 -1 0 1; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X restore 570 502 pd MotionPlus; +#N canvas 3 45 450 300 ClassicController 0; +#X obj 17 21 cnv 15 375 260 empty empty ClassicController: 10 15 0 +14 -204786 -13381 0; +#X obj 38 140 tgl 14 0 \$0.bli \$0.cc.button.L empty 17 7 0 10 -228856 +-1 -1 0 32; +#X obj 52 140 nbx 2 14 -1e+37 1e+37 0 0 \$0.bli \$0.cc.analog.L empty +0 -8 0 10 -228856 -1 -1 0 256; +#X obj 121 130 tgl 14 0 \$0.bli \$0.cc.button.zl empty 17 7 0 10 -228856 +-1 -1 0 128; +#X obj 291 140 tgl 14 0 \$0.bli \$0.cc.button.R empty 17 7 0 10 -228856 +-1 -1 0 2; +#X obj 305 140 nbx 2 14 -1e+37 1e+37 0 0 \$0.bli \$0.cc.analog.R empty +0 -8 0 10 -228856 -1 -1 0 256; +#X obj 236 130 tgl 14 0 \$0.bli \$0.cc.button.zr empty 17 7 0 10 -228856 +-1 -1 0 4; +#X obj 61 184 tgl 14 0 \$0.bli \$0.cc.button.up empty 17 7 0 10 -228856 +-1 -1 0 1; +#X obj 80 203 tgl 14 0 \$0.bli \$0.cc.button.right empty 17 7 0 10 +-228856 -1 -1 0 128; +#X obj 42 203 tgl 14 0 \$0.bli \$0.cc.button.left empty 17 7 0 10 -228856 +-1 -1 0 2; +#X obj 61 222 tgl 14 0 \$0.bli \$0.cc.button.down empty 17 7 0 10 -228856 +-1 -1 0 64; +#X obj 153 182 tgl 13 0 \$0.bli \$0.cc.button.minus - 5 8 0 10 -228856 +-1 -1 0 16; +#X obj 177 182 tgl 13 0 \$0.bli \$0.cc.button.home empty 17 7 0 10 +-228856 -1 -1 0 8; +#X obj 201 182 tgl 13 0 \$0.bli \$0.cc.button.plus + 5 8 0 10 -228856 +-1 -1 0 4; +#X obj 300 181 tgl 16 0 \$0.bli \$0.cc.button.x x 5 8 0 10 -228856 +-1 -1 0 8; +#X obj 321 202 tgl 16 0 \$0.bli \$0.cc.button.a a 5 8 0 10 -228856 +-1 -1 0 16; +#X obj 279 202 tgl 16 0 \$0.bli \$0.cc.button.y y 5 8 0 10 -228856 +-1 -1 0 32; +#X obj 300 223 tgl 16 0 \$0.bli \$0.cc.button.b b 5 8 0 10 -228856 +-1 -1 0 64; +#X msg 28 80 report classic \$1; +#X obj 28 50 tgl 25 0 empty empty empty 17 7 0 10 -228856 -1 -1 0 1 +; +#X obj 28 103 s \$0.to.wiimote; +#N canvas 99 0 677 676 classic 0; +#X obj 9 11 r \$0.from.wiimote; +#X obj 9 33 route classic; +#X obj 9 55 route button right_stick left_stick left right; +#X obj 9 215 unpack f f; +#X obj 7 642 s \$0.cc.button.left; +#X obj 38 621 s \$0.cc.button.right; +#X obj 83 599 s \$0.cc.button.down; +#X obj 120 577 s \$0.cc.button.up; +#X obj 152 554 s \$0.cc.button.x; +#X obj 183 533 s \$0.cc.button.y; +#X obj 293 467 s \$0.cc.button.L; +#X obj 331 445 s \$0.cc.button.zl; +#X obj 378 423 s \$0.cc.button.zr; +#X obj 409 402 s \$0.cc.button.R; +#X obj 440 379 s \$0.cc.button.minus; +#X obj 476 357 s \$0.cc.button.home; +#X obj 507 336 s \$0.cc.button.plus; +#X obj 7 620 & 2; +#X obj 38 599 & 128; +#X obj 120 555 & 1; +#X obj 83 577 & 64; +#X obj 152 532 & 8; +#X obj 183 511 & 32; +#X obj 219 489 & 64; +#X obj 219 511 s \$0.cc.button.b; +#X obj 256 489 s \$0.cc.button.a; +#X obj 256 467 & 16; +#X obj 293 445 & 32; +#X obj 331 423 & 128; +#X obj 378 401 & 4; +#X obj 409 380 & 2; +#X obj 440 357 & 16; +#X obj 476 335 & 8; +#X obj 507 314 & 4; +#X obj 200 99 s \$0.cc.analog.L; +#X obj 264 77 s \$0.cc.analog.R; +#N canvas 0 0 456 304 left_stick 0; +#X obj 132 150 pointer; +#X obj 132 107 loadbang; +#X obj 25 80 unpack 0 0; +#X msg 132 128 traverse pd-cc.l \, next; +#X obj 25 195 set cc-left-stick x y; +#N canvas 302 445 610 221 cc-left-stick 0; +#X obj 39 68 filledpolygon 900 20 0 5 -5 0 -20 -5 -5 -20 0 -5 5 0 20 +5 5 20 0; +#X obj 39 34 struct cc-left-stick float x float y; +#X restore 24 228 pd cc-left-stick; +#X obj 25 31 inlet; +#X obj 92 105 * -1; +#X obj 92 127 + 64; +#X obj 25 153 * 2; +#X obj 92 159 * 2; +#X connect 0 0 4 2; +#X connect 1 0 3 0; +#X connect 2 0 9 0; +#X connect 2 1 7 0; +#X connect 3 0 0 0; +#X connect 6 0 2 0; +#X connect 7 0 8 0; +#X connect 8 0 10 0; +#X connect 9 0 4 0; +#X connect 10 0 4 1; +#X restore 136 131 pd left_stick; +#N canvas 0 0 456 304 right_stick 0; +#X obj 176 144 pointer; +#X obj 177 101 loadbang; +#X obj 25 79 unpack 0 0; +#X obj 25 31 inlet; +#X obj 92 104 * -1; +#X msg 177 122 traverse pd-cc.r \, next; +#X obj 25 192 set cc-right-stick x y; +#N canvas 302 445 610 221 cc-right-stick 0; +#X obj 39 68 filledpolygon 900 20 0 5 -5 0 -20 -5 -5 -20 0 -5 5 0 20 +5 5 20 0; +#X obj 39 34 struct cc-right-stick float x float y; +#X restore 24 228 pd cc-right-stick; +#X obj 92 126 + 32; +#X obj 25 159 * 4; +#X obj 92 157 * 4; +#X connect 0 0 6 2; +#X connect 1 0 5 0; +#X connect 2 0 9 0; +#X connect 2 1 4 0; +#X connect 3 0 2 0; +#X connect 4 0 8 0; +#X connect 5 0 0 0; +#X connect 8 0 10 0; +#X connect 9 0 6 0; +#X connect 10 0 6 1; +#X restore 72 156 pd right_stick; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 37 0; +#X connect 2 2 36 0; +#X connect 2 3 34 0; +#X connect 2 4 35 0; +#X connect 3 0 20 0; +#X connect 3 0 18 0; +#X connect 3 0 27 0; +#X connect 3 0 30 0; +#X connect 3 0 31 0; +#X connect 3 0 32 0; +#X connect 3 0 33 0; +#X connect 3 1 17 0; +#X connect 3 1 19 0; +#X connect 3 1 21 0; +#X connect 3 1 22 0; +#X connect 3 1 23 0; +#X connect 3 1 26 0; +#X connect 3 1 28 0; +#X connect 3 1 29 0; +#X connect 17 0 4 0; +#X connect 18 0 5 0; +#X connect 19 0 7 0; +#X connect 20 0 6 0; +#X connect 21 0 8 0; +#X connect 22 0 9 0; +#X connect 23 0 24 0; +#X connect 26 0 25 0; +#X connect 27 0 10 0; +#X connect 28 0 11 0; +#X connect 29 0 12 0; +#X connect 30 0 13 0; +#X connect 31 0 14 0; +#X connect 32 0 15 0; +#X connect 33 0 16 0; +#X restore 238 69 pd classic; +#N canvas 325 377 481 416 cc.l 0; +#X scalar cc-left-stick 62 66 \;; +#X coords 0 0 128 128 50 50 1; +#X restore 121 215 pd cc.l; +#N canvas 185 133 481 416 cc.r 0; +#X scalar cc-right-stick 64 64 \;; +#X coords 0 0 128 128 50 50 1; +#X restore 203 214 pd cc.r; +#X connect 18 0 20 0; +#X connect 19 0 18 0; +#X restore 667 482 pd ClassicController; +#N canvas 203 133 450 300 Balance 0; +#X obj 37 56 cnv 15 375 215 empty empty Balance: 10 15 0 14 -232576 +-13381 0; +#X obj 46 85 tgl 25 0 empty empty empty 17 7 0 10 -261234 -1 -1 0 1 +; +#X obj 46 138 s \$0.to.wiimote; +#X msg 46 115 report balance \$1; +#N canvas 475 229 445 263 balance 0; +#X obj 8 20 r \$0.from.wiimote; +#X obj 8 51 route balance; +#X obj 8 73 unpack; +#X obj 8 95 s \$0-bal-X-set; +#X obj 41 115 s \$0-bal-Y-set; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 2 0 3 0; +#X connect 2 1 4 0; +#X restore 249 98 pd balance; +#X text 228 144 ! Untested !; +#X text 232 164 (but might work); +#X floatatom 97 211 7 0 0 1 _X #0-bal-X-set #0-bal-X; +#X floatatom 227 211 7 0 0 1 _Y #0-bal-Y-set #0-bal-Y; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X restore 667 502 pd Balance; +#X text 18 472 (c) 2007-2010 Mike Wozniewski \, IOhannes m zmoelnig +& Roman Haefeli; +#X connect 20 0 19 0; +#X connect 21 0 19 0; +#X connect 22 0 19 0; +#X connect 23 0 24 0; +#X connect 24 0 36 0; +#X connect 25 0 36 0; +#X connect 26 0 25 0; +#X connect 27 0 35 0; +#X connect 28 0 38 0; +#X connect 29 0 34 0; +#X connect 30 0 34 1; +#X connect 31 0 34 2; +#X connect 32 0 34 3; +#X connect 34 0 28 0; +#X connect 35 0 38 0; +#X connect 53 0 54 0; +#X connect 55 0 53 0; +#X connect 56 0 53 1; +#X connect 57 0 18 0; +#X connect 60 0 62 0; +#X connect 61 0 60 0; +#X coords 0 0 1 1 50 50 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/newSword/wiimote-0.3.2/wiimote-meta.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,8 @@ +#N canvas 16 114 200 200 10; +#N canvas 488 184 420 300 META 1; +#X text 13 41 NAME wiimote; +#X text 10 25 AUTHOR Mike Wozniewski + Florian Krebs + IOhannes m zmoelnig +; +#X text 10 10 VERSION 0.3.2; +#X obj 163 144 wiimote; +#X restore 10 10 pd META;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/DraftAeolianTone/WindGenD1.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,144 @@ +#N canvas 551 105 597 538 10; +#X obj 131 202 +~ 1; +#X obj 131 297 +~; +#X obj 131 224 *~ 0.25; +#X obj 147 274 +~; +#X obj 131 319 clip~ 0 1; +#N canvas 939 160 373 400 squall 1; +#X obj 113 208 noise~; +#X obj 113 271 hip~ 0; +#X obj 113 229 lop~ 3; +#X obj 113 250 lop~ 3; +#X obj 50 274 *~; +#X obj 72 318 *~; +#X obj 50 252 *~ 8; +#X obj 113 292 *~ 20; +#X obj 50 188 inlet~; +#X obj 72 342 outlet~; +#X obj 50 208 max~ 0.42; +#X obj 50 230 -~ 0.42; +#X obj 39 107 noise~; +#X obj 101 182 Snapshot~; +#X obj 101 133 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 166 206 5 0 0 0 - - -; +#X obj 39 128 lop~ 100; +#X obj 100 106 loadbang; +#X obj 101 156 metro 1000; +#X obj 39 150 +~ 0.4; +#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 connect 12 0 16 0; +#X connect 13 0 15 0; +#X connect 14 0 18 0; +#X connect 16 0 19 0; +#X connect 17 0 14 0; +#X connect 18 0 13 0; +#X connect 19 0 13 0; +#X restore 205 249 pd squall; +#N canvas 493 23 202 229 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 146 250 pd gust; +#X obj 131 341 outlet~; +#X obj 131 180 osc~ 0.01; +#X obj 87 384 osc~; +#X obj 87 341 *~ 200; +#X obj 87 363 +~ 600; +#X obj 110 -42 noise~; +#X obj 131 155 line; +#X floatatom 79 185 8 0 0 0 - - -; +#X obj 193 58 snapshot~; +#X obj 192 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X floatatom 245 83 8 0 0 0 - - -; +#X obj 87 408 dac~; +#X obj 191 129 unpack; +#X floatatom 191 152 5 0 0 0 - - -; +#X floatatom 224 170 5 0 0 0 - - -; +#X msg 192 107 \$1 500; +#X obj 110 -16 lop~ 2000; +#X obj 110 8 +~ 0.6; +#X obj 84 162 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj -8 221 loadbang; +#X obj 192 -15 loadbang; +#X obj -8 321 snapshot~; +#X obj -8 274 metro 100; +#X obj -8 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom -6 374 8 0 0 0 - - -; +#X obj 193 83 * 0.2; +#X msg 132 128 \$1 10; +#X obj 192 34 metro 2000; +#X obj 13 298 abs~; +#X obj -52 373 outlet; +#X obj -6 347 * 0.1; +#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 3 0 35 0; +#X connect 4 0 7 0; +#X connect 4 0 10 0; +#X connect 5 0 3 1; +#X connect 6 0 3 0; +#X connect 8 0 0 0; +#X connect 10 0 11 0; +#X connect 11 0 9 0; +#X connect 12 0 23 0; +#X connect 13 0 8 0; +#X connect 13 0 14 0; +#X connect 15 0 17 0; +#X connect 15 0 32 0; +#X connect 16 0 34 0; +#X connect 19 0 20 0; +#X connect 19 1 21 0; +#X connect 22 0 19 0; +#X connect 23 0 24 0; +#X connect 24 0 15 0; +#X connect 26 0 30 0; +#X connect 27 0 16 0; +#X connect 28 0 37 0; +#X connect 29 0 28 0; +#X connect 30 0 29 0; +#X connect 32 0 22 0; +#X connect 32 0 33 0; +#X connect 33 0 13 0; +#X connect 33 0 25 0; +#X connect 34 0 15 0; +#X connect 35 0 28 0; +#X connect 37 0 36 0; +#X connect 37 0 31 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/DraftAeolianTone/fcpan.pd Mon May 09 17:19:54 2016 +0100 @@ -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/scene demo/DraftAeolianTone/freqCalcCyl3No_D1Mach.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,1546 @@ +#N canvas 9 24 1396 823 10; +#X text 567 158 Mass Density of Air; +#X text 96 418 Frequency (Hz); +#X obj 689 159 *~ 1.225; +#X obj 689 234 /~ 1.81e-05; +#X obj 689 189 *~ 1; +#X obj 689 352 /~ 1; +#X floatatom 192 396 10 0 0 0 - - -; +#X obj 689 328 *~; +#X obj 203 43 inlet; +#X text 722 278 Reynolds Number; +#X text 569 345 Strouhal Number; +#X obj 368 41 inlet; +#X text 719 214 Viscosity; +#X obj 210 66 s \$0-diameter; +#X obj 750 158 r \$0-diameter; +#X obj 757 333 r \$0-diameter; +#X obj 120 105 s~ \$0-windSpeed; +#X obj 134 640 r~ \$0-windSpeed; +#X obj 756 310 r~ \$0-windSpeed; +#X obj 689 131 r~ \$0-windSpeed; +#X obj 689 376 s~ \$0-myFreq; +#X obj 1103 474 r~ \$0-myFreq; +#X obj 120 63 sig~; +#X obj 120 85 vd~ varwind; +#X obj 120 39 inlet; +#X obj 1040 310 *~; +#X obj 114 218 snapshot~; +#X obj 114 193 metro 100; +#X obj 114 171 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 114 244 10 0 0 0 - - -; +#X obj 114 145 loadbang; +#X obj 28 193 r~ \$0-myRey; +#X obj 702 258 s~ \$0-myRey; +#X text 99 266 Reynolds Number; +#X obj 616 37 inlet; +#X floatatom 561 106 8 0 0 0 - - -; +#X obj 616 61 max 0.1; +#X obj 616 84 min 0.9; +#X text 653 395 Calculates the frequency; +#X text 654 407 based on the physics of; +#X text 654 420 the object and environment; +#X obj 274 384 r~ \$0-windSpeed; +#X obj 115 540 snapshot~; +#X obj 115 515 metro 100; +#X obj 115 493 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 115 566 10 0 0 0 - - -; +#X obj 115 467 loadbang; +#X obj 292 437 r \$0-diameter; +#N canvas 299 77 1040 691 freqGain 0; +#X text 36 127 Mass Density of Air \, squared; +#X text 411 123 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 404 71 *; +#X obj 404 96 * 118033; +#X obj 219 224 /~ 1; +#X obj 219 497 *~ 0.27; +#X text 424 30 Distance; +#X obj 319 473 *~ 0.27; +#X floatatom 369 72 5 0 0 0 - - -; +#X text 304 556 Calculates Drag Dipole gain; +#X text 48 504 Calculates Lift Dipole gain; +#X obj 319 498 *~ 0.1; +#X obj 173 8 inlet~; +#X obj 219 7 inlet~; +#X text 256 54 Diameter; +#X obj 250 69 inlet; +#X obj 404 46 inlet; +#X obj 219 524 outlet~; +#X obj 319 523 outlet~; +#X obj 240 159 inlet; +#X text 278 154 Length; +#X obj 219 202 *~ 1; +#X text 397 195 Add in MACH deflection; +#X obj 236 253 s~ \$0-aGain; +#X obj 347 424 r~ \$0-aGain; +#X text 257 278 Azimuth; +#X text 318 240 Elevation; +#X obj 258 295 inlet; +#X obj 315 256 inlet; +#X obj 258 318 sig~; +#X obj 315 318 sig~; +#X obj 315 298 spigot; +#X text 414 265 End Source; +#X text 415 284 Mid Source; +#X obj 432 343 loadbang; +#X obj 432 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 432 382 metro 10; +#X msg 349 322 0; +#X obj 386 303 t f b; +#X msg 386 283 0; +#X msg 386 263 1; +#X obj 234 382 +~ 90; +#X obj 234 403 /~ 360; +#X obj 234 425 cos~; +#X obj 234 449 *~; +#X obj 219 472 *~; +#X obj 319 377 /~ 360; +#X obj 319 400 cos~; +#X obj 319 424 *~; +#X obj 319 449 *~; +#X obj 432 403 snapshot~; +#X floatatom 432 423 5 0 0 0 - - -; +#X obj 466 450 loadbang; +#X obj 466 471 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 466 489 metro 10; +#X obj 466 510 snapshot~; +#X floatatom 466 530 5 0 0 0 - - -; +#X obj 149 366 loadbang; +#X obj 149 387 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 149 405 metro 10; +#X obj 149 426 snapshot~; +#X floatatom 149 446 5 0 0 0 - - -; +#X obj 651 38 inlet; +#X obj 750 40 inlet; +#X obj 846 43 inlet; +#X floatatom 651 85 5 0 0 0 - - -; +#X floatatom 750 86 5 0 0 0 - - -; +#X floatatom 847 87 5 0 0 0 - - -; +#X text 647 19 X Rotation; +#X text 744 21 Y Rotation; +#X text 841 24 Z Rotation; +#X obj 656 61 s \$0-this_rotaX; +#X obj 757 62 s \$0-thisrotaY; +#X obj 854 66 s \$0-thisrotaZ; +#X obj 258 337 angleCalc~; +#X text 74 8 Strouhal number; +#X text 269 7 Wind speed; +#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 26 0; +#X connect 7 0 8 0; +#X connect 8 0 9 1; +#X connect 9 0 28 0; +#X connect 9 0 50 0; +#X connect 10 0 22 0; +#X connect 12 0 16 0; +#X connect 16 0 23 0; +#X connect 17 0 3 0; +#X connect 17 0 3 1; +#X connect 18 0 2 0; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 21 0 7 0; +#X connect 21 0 13 0; +#X connect 24 0 26 1; +#X connect 26 0 9 0; +#X connect 29 0 54 1; +#X connect 32 0 34 0; +#X connect 33 0 36 0; +#X connect 34 0 79 0; +#X connect 35 0 79 1; +#X connect 36 0 35 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 55 0; +#X connect 42 0 35 0; +#X connect 43 0 36 1; +#X connect 43 1 42 0; +#X connect 44 0 43 0; +#X connect 45 0 36 1; +#X connect 46 0 47 0; +#X connect 47 0 48 0; +#X connect 48 0 49 0; +#X connect 48 0 49 1; +#X connect 49 0 50 1; +#X connect 49 0 65 0; +#X connect 50 0 10 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 52 0 53 1; +#X connect 53 0 54 0; +#X connect 53 0 60 0; +#X connect 54 0 12 0; +#X connect 55 0 56 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 70 0; +#X connect 67 0 76 0; +#X connect 68 0 71 0; +#X connect 68 0 77 0; +#X connect 69 0 72 0; +#X connect 69 0 78 0; +#X connect 79 0 46 0; +#X connect 79 0 51 0; +#X connect 79 0 55 0; +#X restore 125 784 pd freqGain; +#X obj 440 40 inlet; +#X obj 155 679 r \$0-diameter; +#X obj 514 39 inlet; +#X floatatom 368 88 5 0 0 0 - - -; +#X floatatom 440 86 5 0 0 0 - - -; +#X floatatom 515 83 5 0 0 0 - - -; +#X obj 63 396 outlet; +#X obj 107 369 snapshot~; +#X obj 107 322 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 107 296 loadbang; +#X obj 107 344 metro 10; +#X obj 28 346 r~ \$0-myFreq; +#X text 114 595 Strouhal Number; +#X text 273 347 Calculates the gain of the dipole source; +#X text 439 17 Azimuth; +#X text 621 19 Pan; +#X text 513 21 Elevation; +#X text 364 22 Distance; +#X text 198 22 Diameter; +#X text 113 21 Wind Speed; +#X obj 295 40 inlet; +#X floatatom 295 84 5 0 0 0 - - -; +#X text 291 21 Length; +#X obj 689 299 newStrou; +#X floatatom 63 79 5 0 0 0 - - -; +#X floatatom 203 87 5 0 0 0 - - -; +#X obj 1040 379 throw~ l; +#X obj 1067 357 throw~ r; +#X obj 1040 335 fcpan; +#X obj 305 63 s \$0-leng; +#X obj 373 64 s \$0-dist; +#X obj 124 619 r~ \$0-str; +#X obj 145 659 r \$0-leng; +#X obj 166 699 r \$0-azim; +#X obj 176 720 r \$0-elev; +#X obj 187 741 r \$0-dist; +#X obj 380 311 s~ \$0-dragDiGain; +#X obj 293 332 s~ \$0-liftDiGain; +#X obj 372 405 r~ \$0-str; +#X obj 293 410 r \$0-leng; +#X obj 311 458 r \$0-dist; +#X obj 274 555 s~ \$0-liftNoiseGain; +#X obj 1076 454 r~ \$0-dragDiGain; +#X obj 589 330 s~ \$0-str; +#X obj 616 106 s \$0-thisPan; +#X obj 1076 262 r \$0-contFreq; +#X obj 107 396 s \$0-contFreq; +#X obj 30 515 r~ \$0-str; +#X obj 1040 182 r~ \$0-liftNoiseGain; +#X obj 1067 310 r \$0-thisPan; +#X obj 711 46 inlet; +#X obj 783 45 inlet; +#X obj 857 44 inlet; +#X floatatom 711 93 5 0 0 0 - - -; +#X floatatom 783 91 5 0 0 0 - - -; +#X floatatom 858 88 5 0 0 0 - - -; +#X obj 716 69 s \$0-rotaX; +#X obj 790 67 s \$0-rotaY; +#X obj 865 67 s \$0-rotaZ; +#X text 707 27 X Rotation; +#X text 777 26 Y Rotation; +#X text 852 25 Z Rotation; +#X text 1021 156 Noise spectrum calculation; +#X obj 1055 286 hip~; +#X obj 1130 494 r \$0-thisPan; +#X obj 1055 241 rpole~ 0.99; +#X obj 1055 215 noise~; +#X obj 72 246 outlet; +#X obj 302 143 r~ \$0-windSpeed; +#X obj 322 182 r \$0-diameter; +#X obj 292 122 r~ \$0-str; +#X obj 312 162 r \$0-leng; +#X obj 331 204 r \$0-dist; +#N canvas 336 65 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 30 pd pow6; +#X obj 173 32 *~; +#X obj 219 68 *~; +#X obj 219 102 *~ 1; +#X obj 404 71 *; +#X text 471 2 Distance; +#X floatatom 451 62 5 0 0 0 - - -; +#X text 724 562 Calculates Drag Dipole gain; +#X text 48 626 Calculates Lift Dipole gain; +#X obj 173 8 inlet~; +#X obj 219 7 inlet~; +#X text 283 38 Diameter; +#X obj 277 53 inlet; +#X obj 451 18 inlet; +#X obj 219 646 outlet~; +#X obj 758 537 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 287 563 loadbang; +#X obj 287 584 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 287 602 metro 10; +#X obj 234 468 /~ 360; +#X obj 234 517 *~; +#X obj 219 540 *~; +#X obj 287 623 snapshot~; +#X floatatom 287 643 10 0 0 0 - - -; +#X obj 398 512 loadbang; +#X obj 398 533 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 398 551 metro 10; +#X obj 398 572 snapshot~; +#X floatatom 398 592 10 0 0 0 - - -; +#X obj 149 419 loadbang; +#X obj 149 440 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 149 458 metro 10; +#X obj 149 479 snapshot~; +#X floatatom 112 524 10 0 0 0 - - -; +#X obj 752 19 inlet; +#X obj 851 21 inlet; +#X obj 947 24 inlet; +#X floatatom 752 66 5 0 0 0 - - -; +#X floatatom 851 67 5 0 0 0 - - -; +#X floatatom 948 68 5 0 0 0 - - -; +#X text 748 0 X Rotation; +#X text 845 2 Y Rotation; +#X text 942 5 Z Rotation; +#X obj 757 42 s \$0-this_rotaX; +#X obj 858 43 s \$0-thisrotaY; +#X obj 955 47 s \$0-thisrotaZ; +#X text 74 8 Strouhal number; +#X text 269 7 Wind speed; +#X obj 275 84 * 8; +#X text 276 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 234 493 sin~; +#X obj 322 466 /~ 360; +#X obj 322 512 *~; +#X obj 322 488 cos~; +#X obj 219 566 *~; +#X obj 404 96 * 4.05513e+07; +#X text 355 115 Speed of Sound to power 3; +#X obj 404 149 * 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 177 sig~; +#X obj 404 298 *~; +#X obj 429 316 loadbang; +#X obj 429 337 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 429 355 metro 10; +#X obj 429 376 snapshot~; +#X floatatom 429 396 10 0 0 0 - - -; +#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 647 1 Azimuth; +#X text 546 3 Elevation; +#X obj 549 21 inlet; +#X obj 651 19 inlet; +#X floatatom 549 68 5 0 0 0 - - -; +#X floatatom 651 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 text 297 695 comment; +#X obj 844 146 r~ plotElev; +#X obj 818 120 r~ plotElev; +#X obj 150 588 s~ plotOPF; +#X obj 676 541 s~ plotOPD; +#X obj 554 44 s \$0-this_elev; +#X obj 658 44 s \$0-this_azim; +#X obj 518 117 r \$0-this_elev; +#X obj 458 40 s \$0-thisDist; +#X obj 887 268 r \$0-thisDist; +#X obj 370 39 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 893 122 r~ plotElev; +#X floatatom 359 98 5 0 0 0 - - -; +#X obj 518 170 /~ 360; +#X text 684 638 comment; +#X obj 758 475 *~; +#X connect 0 0 2 0; +#X connect 1 0 2 1; +#X connect 2 0 3 0; +#X connect 3 0 56 0; +#X connect 4 0 64 0; +#X connect 4 0 124 0; +#X connect 9 0 1 0; +#X connect 9 0 1 1; +#X connect 10 0 0 0; +#X connect 12 0 53 0; +#X connect 13 0 6 0; +#X connect 13 0 113 0; +#X connect 16 0 18 1; +#X connect 18 0 55 0; +#X connect 19 0 24 0; +#X connect 20 0 60 0; +#X connect 21 0 22 0; +#X connect 22 0 23 0; +#X connect 23 0 27 0; +#X connect 24 0 59 0; +#X connect 25 0 26 1; +#X connect 26 0 63 0; +#X connect 27 0 28 0; +#X connect 29 0 30 0; +#X connect 30 0 31 0; +#X connect 31 0 32 0; +#X connect 32 0 33 0; +#X connect 34 0 35 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 38 0; +#X connect 39 0 42 0; +#X connect 39 0 48 0; +#X connect 40 0 43 0; +#X connect 40 0 49 0; +#X connect 41 0 44 0; +#X connect 41 0 50 0; +#X connect 53 0 3 1; +#X connect 55 0 80 0; +#X connect 55 0 81 0; +#X connect 56 0 18 0; +#X connect 59 0 25 0; +#X connect 59 0 25 1; +#X connect 60 0 62 0; +#X connect 61 0 63 1; +#X connect 62 0 61 0; +#X connect 62 0 61 1; +#X connect 63 0 14 0; +#X connect 63 0 27 0; +#X connect 63 0 108 0; +#X connect 64 0 66 0; +#X connect 66 0 73 0; +#X connect 67 0 69 1; +#X connect 68 0 69 0; +#X connect 69 0 71 1; +#X connect 70 0 71 0; +#X connect 71 0 72 0; +#X connect 72 0 74 1; +#X connect 73 0 74 0; +#X connect 74 0 80 1; +#X connect 74 0 78 0; +#X connect 75 0 76 0; +#X connect 76 0 77 0; +#X connect 77 0 78 0; +#X connect 78 0 79 0; +#X connect 80 0 26 0; +#X connect 82 0 121 0; +#X connect 83 0 15 0; +#X connect 83 0 109 0; +#X connect 84 0 85 0; +#X connect 85 0 87 0; +#X connect 86 0 91 0; +#X connect 87 0 86 0; +#X connect 87 0 86 1; +#X connect 88 0 90 0; +#X connect 89 0 91 1; +#X connect 90 0 89 0; +#X connect 90 0 89 1; +#X connect 91 0 127 0; +#X connect 94 0 96 0; +#X connect 94 0 110 0; +#X connect 95 0 97 0; +#X connect 95 0 111 0; +#X connect 98 0 20 0; +#X connect 99 0 19 0; +#X connect 100 0 103 0; +#X connect 101 0 102 0; +#X connect 102 0 84 0; +#X connect 103 0 88 0; +#X connect 104 0 125 0; +#X connect 112 0 104 0; +#X connect 114 0 116 0; +#X connect 114 0 116 1; +#X connect 115 0 4 0; +#X connect 115 0 4 1; +#X connect 116 0 117 0; +#X connect 117 0 119 0; +#X connect 119 0 120 0; +#X connect 120 0 121 1; +#X connect 121 0 127 1; +#X connect 125 0 68 0; +#X connect 127 0 83 0; +#X restore 293 287 pd GoldfreqGain; +#N canvas 732 187 570 435 Qvalues 0; +#X obj 50 93 inlet~; +#X obj 95 118 snapshot~; +#X obj 95 93 metro 100; +#X obj 95 71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X floatatom 26 142 10 0 0 0 - - -; +#X obj 95 45 loadbang; +#X text 8 162 Reynolds Number; +#X obj 132 159 < 1000; +#X obj 244 139 > 1000; +#X obj 128 202 spigot; +#X obj 209 206 spigot; +#X floatatom 217 338 5 0 0 0 - - -; +#X obj 211 70 hsl 128 15 100 30000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 3805 1; +#X floatatom 174 128 8 0 0 0 - - -; +#X obj 336 192 spigot; +#X obj 382 165 spigot; +#X obj 260 163 spigot; +#X obj 215 369 outlet; +#X obj 293 139 < 20000; +#X obj 369 142 > 20000; +#X obj 209 237 * -0.0015789; +#X msg 128 228 40; +#X msg 339 225 10; +#X obj 210 270 + 41.5789; +#X connect 0 0 1 0; +#X connect 1 0 4 0; +#X connect 1 0 12 0; +#X connect 2 0 1 0; +#X connect 3 0 2 0; +#X connect 5 0 3 0; +#X connect 7 0 9 1; +#X connect 7 0 9 0; +#X connect 8 0 10 1; +#X connect 8 0 16 0; +#X connect 9 0 21 0; +#X connect 10 0 20 0; +#X connect 11 0 17 0; +#X connect 12 0 13 0; +#X connect 12 0 8 0; +#X connect 12 0 10 0; +#X connect 12 0 7 0; +#X connect 12 0 18 0; +#X connect 12 0 19 0; +#X connect 14 0 22 0; +#X connect 15 0 14 0; +#X connect 16 0 10 0; +#X connect 18 0 16 1; +#X connect 19 0 14 1; +#X connect 19 0 15 0; +#X connect 20 0 23 0; +#X connect 21 0 11 0; +#X connect 22 0 11 0; +#X connect 23 0 11 0; +#X restore 943 71 pd Qvalues; +#X obj 943 48 r~ \$0-myRey; +#X obj 943 95 s \$0-sourceQ; +#X floatatom 908 96 5 0 0 0 - - -; +#X obj 954 494 r \$0-thisPan; +#X obj 908 451 r~ \$0-myFreq; +#X obj 931 473 r~ \$0-dragDiGain; +#X obj 279 660 r~ \$0-windSpeed; +#N canvas 335 23 1006 797 noiseGain 0; +#X text -21029 166 Mass Density of Air \, squared; +#X text -20589 179 Speed of Sound to power 2; +#X obj -20894 66 *~; +#X obj -20846 107 *~; +#X obj -20846 141 *~ 1; +#X obj -20846 169 *~ 1.50063; +#X obj -20591 133 *; +#X obj -20591 156 * 118033; +#X obj -20846 296 /~ 1; +#X obj -20846 636 *~ 0.27; +#X text -20591 86 Distance; +#X text -21027 643 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 -20846 69 pd pow8; +#X obj -20894 44 inlet~; +#X obj -20846 44 inlet~; +#X obj -20810 118 inlet; +#X obj -20591 107 inlet; +#X obj -20846 679 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20805 102 Diameter; +#X obj -20815 200 inlet; +#X obj -20815 224 *; +#X obj -20846 246 *~ 1; +#X text -20774 199 Length; +#X obj -20829 325 s~ \$0-nGain; +#X text -20741 328 Azimuth; +#X text -20680 290 Elevation; +#X obj -20740 345 inlet; +#X obj -20683 306 inlet; +#X obj -20740 368 sig~; +#X obj -20683 368 sig~; +#X obj -20683 348 spigot; +#X text -20581 312 End Source; +#X obj -20831 456 +~ 90; +#X obj -20831 477 /~ 360; +#X obj -20831 499 cos~; +#X obj -20846 611 *~; +#X obj -20831 523 *~; +#X obj -20631 395 loadbang; +#X obj -20631 416 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20631 434 metro 10; +#X obj -20631 455 snapshot~; +#X floatatom -20631 475 5 0 0 0 - - -; +#X obj -20943 498 loadbang; +#X obj -20943 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20943 537 metro 10; +#X obj -20943 558 snapshot~; +#X floatatom -20943 578 8 0 0 0 - - -; +#X msg -20649 372 0; +#X obj -20612 353 t f b; +#X msg -20612 333 0; +#X msg -20612 313 1; +#X obj -20787 455 +~ 90; +#X obj -20787 476 /~ 360; +#X obj -20787 498 sin~; +#X text -20833 411 Quadrupole; +#X obj -20740 391 angleCalcN~; +#X text -20992 36 Strouhal number; +#X text -20798 35 Wind speed; +#X text -20580 332 Mid Source; +#X text -20813 430 comment; +#X obj -20846 658 *~ 5e-08; +#X connect 2 0 3 1; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 22 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 24 0; +#X connect 8 0 36 0; +#X connect 9 0 61 0; +#X connect 12 0 3 0; +#X connect 13 0 2 0; +#X connect 13 0 2 1; +#X connect 14 0 12 0; +#X connect 15 0 4 1; +#X connect 16 0 6 0; +#X connect 16 0 6 1; +#X connect 20 0 21 0; +#X connect 20 0 21 1; +#X connect 21 0 22 1; +#X connect 22 0 8 0; +#X connect 27 0 29 0; +#X connect 28 0 31 0; +#X connect 29 0 56 0; +#X connect 30 0 56 1; +#X connect 31 0 30 0; +#X connect 33 0 34 0; +#X connect 34 0 35 0; +#X connect 35 0 37 0; +#X connect 36 0 9 0; +#X connect 37 0 36 1; +#X connect 37 0 46 0; +#X connect 38 0 39 0; +#X connect 39 0 40 0; +#X connect 40 0 41 0; +#X connect 41 0 42 0; +#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 connect 48 0 30 0; +#X connect 49 0 31 1; +#X connect 49 1 48 0; +#X connect 50 0 49 0; +#X connect 51 0 31 1; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 37 1; +#X connect 56 0 33 0; +#X connect 56 0 41 0; +#X connect 56 0 52 0; +#X connect 61 0 17 0; +#X restore 268 795 pd noiseGain; +#X obj 302 705 r \$0-diameter; +#X obj 268 637 r~ \$0-str; +#X obj 291 681 r \$0-leng; +#X obj 337 771 r \$0-dist; +#N canvas 316 23 1006 797 GoldnoiseGain 1; +#X text -21029 166 Mass Density of Air \, squared; +#X obj -20846 141 *~ 1; +#X obj -20750 161 *; +#X text -20750 114 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 44 inlet~; +#X obj -20810 101 inlet; +#X obj -20750 135 inlet; +#X obj -20846 679 outlet~; +#X text -20785 63 Gain proportional to windspeed to power 8 for spectrum +; +#X text -20805 85 Diameter; +#X obj -20754 622 loadbang; +#X obj -20754 643 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20754 661 metro 10; +#X obj -20754 682 snapshot~; +#X floatatom -20754 702 8 0 0 0 - - -; +#X obj -20145 21 angleCalcN~; +#X text -20798 35 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 -20810 122 *; +#X obj -20846 169 *~ 1.225; +#X obj -20487 110 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 -20750 529 pd pow5; +#X obj -20750 505 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 -20715 455 pd pow5; +#X obj -20669 305 /~ 360; +#X obj -20669 332 cos~; +#X obj -20654 354 r SIG_MACH; +#X obj -20654 378 sig~; +#X obj -20669 403 *~; +#X obj -20715 402 sig~ 1; +#X obj -20715 429 -~; +#X obj -20750 376 sig~ 3.1416; +#X obj -20750 401 *~; +#X obj -20765 353 sig~ 16; +#X obj -20765 425 *~; +#X obj -20765 483 *~; +#X obj -20765 556 *~; +#X obj -20750 188 sig~; +#X obj -20831 585 *~; +#X obj -20846 611 /~; +#X obj -20976 300 loadbang; +#X obj -20976 321 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20976 339 metro 10; +#X obj -20976 360 snapshot~; +#X floatatom -20976 380 8 0 0 0 - - -; +#X obj -20622 548 loadbang; +#X obj -20622 569 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X obj -20622 587 metro 10; +#X obj -20622 608 snapshot~; +#X floatatom -20622 628 8 0 0 0 - - -; +#X obj -20516 195 r~ plotElev; +#X obj -20925 705 s~ plotOPN; +#X obj -20846 658 *~ 3000; +#X obj -20669 283 -~; +#X text -20617 290 Angle goes with the flow in Goldstein hence 90 - +theta so that theta is same angle as dipole angles.; +#X obj -20669 238 sig~ 180; +#X obj -20654 260 r~ \$0-this_elev; +#X connect 1 0 30 0; +#X connect 2 0 48 0; +#X connect 4 0 1 0; +#X connect 5 0 4 0; +#X connect 6 0 29 0; +#X connect 6 0 29 1; +#X connect 7 0 2 0; +#X connect 7 0 2 1; +#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 20 0 21 0; +#X connect 20 0 26 0; +#X connect 21 0 27 0; +#X connect 22 0 23 0; +#X connect 22 0 25 0; +#X connect 23 0 28 0; +#X connect 29 0 1 1; +#X connect 30 0 50 0; +#X connect 30 0 54 0; +#X connect 32 0 47 1; +#X connect 33 0 32 0; +#X connect 34 0 46 1; +#X connect 35 0 36 0; +#X connect 36 0 39 0; +#X connect 37 0 38 0; +#X connect 38 0 39 1; +#X connect 39 0 41 1; +#X connect 40 0 41 0; +#X connect 41 0 34 0; +#X connect 42 0 43 0; +#X connect 42 0 43 1; +#X connect 43 0 45 1; +#X connect 44 0 45 0; +#X connect 45 0 46 0; +#X connect 46 0 47 0; +#X connect 47 0 49 1; +#X connect 48 0 49 0; +#X connect 49 0 50 1; +#X connect 50 0 63 0; +#X connect 51 0 52 0; +#X connect 52 0 53 0; +#X connect 53 0 54 0; +#X connect 54 0 55 0; +#X connect 56 0 57 0; +#X connect 57 0 58 0; +#X connect 58 0 59 0; +#X connect 59 0 60 0; +#X connect 63 0 8 0; +#X connect 63 0 14 0; +#X connect 63 0 62 0; +#X connect 64 0 35 0; +#X connect 66 0 64 0; +#X connect 67 0 64 1; +#X restore 274 527 pd GoldnoiseGain; +#X text 265 574 Calculates the gain of the wake; +#X obj 1059 36 inlet; +#X obj 1059 60 s \$0-TuInt; +#X floatatom 1023 61 5 0 0 0 - - -; +#N canvas 911 161 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 1141 63 pd TuInt_calc; +#X obj 1142 41 r \$0-TuInt; +#X obj 1141 86 s \$0-TuGain; +#X obj 977 514 r \$0-TuGain; +#X floatatom 1107 85 5 0 0 0 - - -; +#X obj 1157 514 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 obj 105 173 *~ 2; +#X floatatom 153 276 5 0 0 0 - - -; +#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 16 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 15 0; +#X connect 13 0 12 2; +#X connect 15 0 5 0; +#X restore 1076 535 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 908 537 pd dragDiFun; +#X obj 742 470 r~ \$0-myFreq; +#X obj 769 490 r \$0-thisPan; +#X obj 796 510 r \$0-TuGain; +#X obj 715 450 r~ \$0-liftDiGain; +#N canvas 1012 302 464 503 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 obj 105 173 *~ 1; +#X floatatom 174 303 5 0 0 0 - - -; +#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 17 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 16 0; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 15 0 9 0; +#X connect 16 0 4 0; +#X restore 715 531 pd liftDi2ndNo; +#X obj 607 487 r \$0-thisPan; +#X obj 561 444 r~ \$0-myFreq; +#X obj 630 507 r \$0-TuGain; +#N canvas 1014 140 491 522 liftDi2nd 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 *~ 5; +#X text 60 369 Generates the pure tone associated with the lift dipole +second harmonic frequency.; +#X obj 180 168 *~ 0.1; +#X floatatom 228 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 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 561 530 pd liftDi2nd; +#X obj 584 466 r~ \$0-liftDiGain; +#X obj 608 596 r \$0-thisPan; +#X obj 562 553 r~ \$0-myFreq; +#X obj 631 616 r \$0-TuGain; +#X obj 585 575 r~ \$0-liftDiGain; +#N canvas 1014 140 491 522 liftDi1st 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 *~ 3; +#X text 60 369 Generates the pure tone associated with the lift dipole +first harmonic frequency.; +#X obj 180 168 *~ 0.5; +#X floatatom 234 254 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 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 562 639 pd liftDi1st; +#X obj 742 574 r~ \$0-myFreq; +#X obj 769 594 r \$0-thisPan; +#X obj 796 614 r \$0-TuGain; +#X obj 715 554 r~ \$0-liftDiGain; +#N canvas 1012 302 464 503 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 obj 105 173 *~ 1; +#X floatatom 163 302 5 0 0 0 - - -; +#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 17 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 16 0; +#X connect 12 0 11 2; +#X connect 14 0 11 1; +#X connect 15 0 9 0; +#X connect 16 0 4 0; +#X restore 715 635 pd liftDi1stNo; +#X obj 608 708 r \$0-thisPan; +#X obj 562 665 r~ \$0-myFreq; +#X obj 631 728 r \$0-TuGain; +#X obj 585 687 r~ \$0-liftDiGain; +#N canvas 1014 140 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 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 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 562 751 pd liftDiFun; +#X obj 738 683 r~ \$0-myFreq; +#X obj 765 703 r \$0-thisPan; +#X obj 792 723 r \$0-TuGain; +#X obj 711 663 r~ \$0-liftDiGain; +#N canvas 1012 302 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 obj 105 173 *~ 1; +#X floatatom 149 303 5 0 0 0 - - -; +#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 17 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 16 0; +#X connect 12 0 11 2; +#X connect 13 0 11 1; +#X connect 14 0 9 0; +#X connect 16 0 4 0; +#X restore 711 744 pd liftDiFunNo; +#X text 894 569 Patches that generate all the sounds associated with +the drag dipole; +#X text 554 772 Patches that generate all the sounds associated with +the lift dipole; +#X obj 447 62 s \$0-azim; +#X obj 522 62 s \$0-elev; +#X obj 341 225 r \$0-elev; +#X obj 351 246 r \$0-azim; +#X obj 329 479 r \$0-elev; +#X obj 348 503 r \$0-azim; +#X obj 314 725 r \$0-elev; +#X obj 325 748 r \$0-azim; +#X connect 2 0 4 0; +#X connect 3 0 32 0; +#X connect 3 0 72 0; +#X connect 4 0 3 0; +#X connect 5 0 20 0; +#X connect 7 0 5 0; +#X connect 8 0 13 0; +#X connect 8 0 74 0; +#X connect 11 0 52 0; +#X connect 11 0 79 0; +#X connect 14 0 4 1; +#X connect 15 0 5 1; +#X connect 17 0 48 1; +#X connect 18 0 7 1; +#X connect 19 0 2 0; +#X connect 21 0 147 1; +#X connect 22 0 23 0; +#X connect 23 0 16 0; +#X connect 24 0 22 0; +#X connect 24 0 73 0; +#X connect 25 0 77 0; +#X connect 26 0 29 0; +#X connect 26 0 116 0; +#X connect 27 0 26 0; +#X connect 28 0 27 0; +#X connect 30 0 28 0; +#X connect 31 0 26 0; +#X connect 34 0 36 0; +#X connect 36 0 37 0; +#X connect 37 0 35 0; +#X connect 37 0 93 0; +#X connect 41 0 136 0; +#X connect 42 0 45 0; +#X connect 43 0 42 0; +#X connect 44 0 43 0; +#X connect 46 0 44 0; +#X connect 47 0 136 1; +#X connect 49 0 53 0; +#X connect 49 0 181 0; +#X connect 50 0 48 3; +#X connect 51 0 54 0; +#X connect 51 0 182 0; +#X connect 56 0 55 0; +#X connect 56 0 6 0; +#X connect 56 0 95 0; +#X connect 57 0 59 0; +#X connect 58 0 57 0; +#X connect 59 0 56 0; +#X connect 60 0 56 0; +#X connect 69 0 70 0; +#X connect 69 0 78 0; +#X connect 72 0 92 0; +#X connect 72 0 7 0; +#X connect 77 0 75 0; +#X connect 77 1 76 0; +#X connect 80 0 48 0; +#X connect 81 0 48 2; +#X connect 82 0 48 4; +#X connect 83 0 48 5; +#X connect 84 0 48 6; +#X connect 89 0 136 2; +#X connect 91 0 147 0; +#X connect 94 0 112 1; +#X connect 96 0 42 0; +#X connect 97 0 25 0; +#X connect 98 0 77 1; +#X connect 99 0 102 0; +#X connect 99 0 105 0; +#X connect 100 0 103 0; +#X connect 100 0 106 0; +#X connect 101 0 104 0; +#X connect 101 0 107 0; +#X connect 112 0 25 1; +#X connect 113 0 147 2; +#X connect 114 0 112 0; +#X connect 115 0 114 0; +#X connect 117 0 122 1; +#X connect 118 0 122 3; +#X connect 119 0 122 0; +#X connect 120 0 122 2; +#X connect 121 0 122 4; +#X connect 122 0 86 0; +#X connect 122 1 85 0; +#X connect 123 0 125 0; +#X connect 123 0 126 0; +#X connect 124 0 123 0; +#X connect 127 0 148 2; +#X connect 128 0 148 0; +#X connect 129 0 148 1; +#X connect 130 0 131 1; +#X connect 132 0 131 3; +#X connect 133 0 131 0; +#X connect 134 0 131 2; +#X connect 135 0 131 6; +#X connect 136 0 90 0; +#X connect 138 0 139 0; +#X connect 138 0 140 0; +#X connect 141 0 143 0; +#X connect 141 0 145 0; +#X connect 142 0 141 0; +#X connect 144 0 148 3; +#X connect 146 0 147 3; +#X connect 149 0 153 1; +#X connect 150 0 153 2; +#X connect 151 0 153 3; +#X connect 152 0 153 0; +#X connect 154 0 157 2; +#X connect 155 0 157 0; +#X connect 156 0 157 3; +#X connect 158 0 157 1; +#X connect 159 0 163 2; +#X connect 160 0 163 0; +#X connect 161 0 163 3; +#X connect 162 0 163 1; +#X connect 164 0 168 1; +#X connect 165 0 168 2; +#X connect 166 0 168 3; +#X connect 167 0 168 0; +#X connect 169 0 173 2; +#X connect 170 0 173 0; +#X connect 171 0 173 3; +#X connect 172 0 173 1; +#X connect 174 0 178 1; +#X connect 175 0 178 2; +#X connect 176 0 178 3; +#X connect 177 0 178 0; +#X connect 183 0 122 5; +#X connect 184 0 122 6; +#X connect 185 0 136 3; +#X connect 186 0 136 4; +#X connect 187 0 131 4; +#X connect 188 0 131 5;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/DraftAeolianTone/newStrou.pd Mon May 09 17:19:54 2016 +0100 @@ -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 msg 794 226 0.5839 -183.885; +#X text 254 359 St* (I) coefficient; +#X text 462 361 m (J) coefficient; +#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 53 0; +#X connect 50 0 49 0; +#X connect 51 0 50 1; +#X connect 53 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/scene demo/DraftAeolianTone/testBed.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,733 @@ +#N canvas 169 35 1172 765 10; +#X obj 167 -82 loadbang; +#N canvas 425 218 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 -253 -154 pd windspeed; +#X obj -268 138 delwrite~ varwind 3000; +#X obj -159 -139 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 2117 1; +#X obj -225 -24 snapshot~; +#X obj -225 -49 metro 100; +#X obj -225 -71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 +1 1; +#X floatatom -225 3 10 0 0 0 - - -; +#X obj -268 -95 *~ 1; +#X obj -268 -69 +~ 1; +#X obj -225 -96 loadbang; +#X text -228 21 Wind Speed; +#X obj -23 -138 loadbang; +#X msg -23 -110 5; +#X obj 215 10 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 11157 1; +#X floatatom 223 34 8 0 0 0 - - -; +#X obj 273 284 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6999 1; +#X floatatom 300 313 5 0 0 0 - - -; +#X text 350 11 Diameter; +#X obj 249 166 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X floatatom 270 195 5 0 0 0 - - -; +#X obj 261 221 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 9349 1; +#X floatatom 285 250 5 0 0 0 - - -; +#X obj 236 109 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 7759 1; +#X floatatom 247 138 5 0 0 0 - - -; +#X text 414 285 Pan Value; +#X obj -271 425 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj -208 425 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X text -211 334 Gain; +#X obj -256 277 loadbang; +#N canvas 865 368 416 344 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 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 215 208 /~ 2; +#X obj 227 184 +~; +#X obj 215 254 outlet~; +#X obj 93 68 / 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 16 0; +#X connect 10 0 0 0; +#X connect 10 0 14 0; +#X connect 11 0 0 1; +#X connect 11 0 14 1; +#X connect 12 0 10 1; +#X connect 12 0 11 1; +#X connect 13 0 15 0; +#X connect 14 0 13 0; +#X connect 16 0 3 1; +#X connect 16 0 4 1; +#X restore -272 382 pd opLevels; +#X msg -256 300 5; +#X obj -269 353 hsl 100 25 0.1 5000 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 5940 1; +#X obj -7 -21 snapshot~; +#X obj -7 -46 metro 100; +#X floatatom -7 6 10 0 0 0 - - -; +#X obj -7 -93 loadbang; +#X obj -7 -70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X text -10 24 Mach No; +#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; +#X obj 26 33 s~ MY_MACH; +#X obj 26 9 /~ 343.21; +#X connect 1 0 3 0; +#X connect 3 0 2 0; +#X restore 64 -121 pd machCalc; +#X obj 340 -139 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1 +-1; +#X floatatom 197 573 8 0 0 0 - - -; +#X msg 96 149 0; +#X msg 53 267 0.5; +#X obj 167 -58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 224 66 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 8467 1; +#X floatatom 245 85 8 0 0 0 - - -; +#X msg 133 49 4; +#X obj -152 356 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj -155 310 loadbang; +#X text -90 335 No Of Sources; +#X text 356 50 Length; +#X obj -146 2 s WSPEED; +#X obj -92 -60 r~ MY_MACH; +#X obj -74 8 s SIG_MACH; +#X obj 340 -98 s SET_UP; +#X obj 214 -11 r SET_UP; +#X obj 283 44 r SET_UP; +#X obj 350 83 r SET_UP; +#X obj 337 135 r SET_UP; +#X obj 343 195 r SET_UP; +#X obj 350 253 r SET_UP; +#X text 374 110 Obs Distance; +#X obj 286 342 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6350 1; +#X floatatom 320 371 5 0 0 0 - - -; +#X obj 368 316 r SET_UP; +#X obj 298 396 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6350 1; +#X floatatom 313 423 5 0 0 0 - - -; +#X obj 380 370 r SET_UP; +#X obj 310 449 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6350 1; +#X floatatom 321 471 5 0 0 0 - - -; +#X obj 392 423 r SET_UP; +#X msg 31 325 0; +#X msg 11 379 0; +#X msg -8 432 0; +#X text 437 397 Source Rotation Y; +#X text 449 450 Source Rotation Z; +#N canvas 1023 81 1013 557 writing 0; +#X obj 23 -100 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X obj 23 -134 loadbang; +#X obj 203 59 r rey1; +#X obj 164 26 r outFreq1; +#X obj 249 48 r Diameter1; +#N canvas 0 22 450 278 (subpatch) 0; +#X array freqs 2000 float 3; +#A 0 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1; +#A 1000 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 +0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1; +#X coords 0 350 2000 200 500 400 1 0 0; +#X restore 444 -90 graph; +#X obj 342 46 tabwrite freqs; +#X obj 106 293 textfile; +#X obj 219 -38 count 20000; +#X msg 215 264 clear \, rewind; +#X obj 23 110 f; +#X obj 78 109 f; +#X obj 149 106 f; +#X obj 188 103 f; +#X obj 234 108 f; +#X msg 24 142 add2 \$1; +#X msg 76 141 add2 \$1; +#X msg 130 142 add2 \$1; +#X msg 180 143 add2 \$1; +#X msg 286 142 add \$1; +#X obj 316 92 r qValue1; +#X obj 278 118 f; +#X obj 23 56 t b b b b b b; +#X msg 233 144 add2 \$1; +#X obj 348 -89 inlet~; +#X obj 358 -47 snapshot~; +#X obj 23 -70 metro 1; +#X msg 268 181 write azim1.txt; +#X obj 93 3 r azim; +#X connect 0 0 26 0; +#X connect 1 0 0 0; +#X connect 2 0 13 1; +#X connect 3 0 6 0; +#X connect 3 0 12 1; +#X connect 4 0 14 1; +#X connect 8 0 6 1; +#X connect 8 0 10 1; +#X connect 9 0 7 0; +#X connect 10 0 15 0; +#X connect 11 0 16 0; +#X connect 15 0 7 0; +#X connect 16 0 7 0; +#X connect 17 0 7 0; +#X connect 18 0 7 0; +#X connect 19 0 7 0; +#X connect 21 0 19 0; +#X connect 22 0 10 0; +#X connect 22 1 11 0; +#X connect 22 2 12 0; +#X connect 22 3 13 0; +#X connect 22 4 14 0; +#X connect 22 5 21 0; +#X connect 23 0 7 0; +#X connect 24 0 25 0; +#X connect 25 0 21 1; +#X connect 26 0 8 0; +#X connect 26 0 22 0; +#X connect 26 0 25 0; +#X connect 27 0 7 0; +#X connect 28 0 11 1; +#X restore -414 49 pd writing; +#X msg 171 165 -45; +#X obj -374 10 sig~; +#X msg 134 232 5; +#X msg 294 -20 0.01; +#X floatatom -109 -110 5 0 0 0 - - -; +#X msg 199 -39 0; +#X msg -334 -51 30 3000; +#X msg -363 -85 0; +#X obj -330 -12 line~; +#X obj -483 265 unpack f f f f f f; +#X obj -378 289 s GAIN; +#X obj -263 258 r GAIN; +#X obj -420 333 s DIST; +#X obj 416 83 r DIST; +#X obj -441 354 s LEN; +#X obj 397 43 r LEN; +#X obj -462 374 s DIA; +#X obj 394 -22 r DIA; +#X obj -483 395 s SPEED; +#X obj -162 -163 r SPEED; +#X msg -272 239 0; +#X obj -482 81 loadbang; +#X msg -155 333 1; +#X floatatom -309 384 5 0 0 0 - - -; +#X obj -444 -44 hsl 128 15 0 55 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom -456 -5 5 0 0 0 - - -; +#X msg 154 -7 0.0254; +#X floatatom 320 571 12 0 0 0 - - -; +#X text 166 595 Fundamental Freq; +#X text 314 595 Reynolds No.; +#X msg 125 188 90; +#X obj 337 499 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X obj 405 470 r SET_UP; +#X text 476 500 Turbulence Intensity; +#X floatatom 345 546 5 0 0 0 - - -; +#X msg -28 485 0; +#X msg 254 -34 1; +#X text 400 222 Obs Elevation; +#X text 388 166 Obs Azimuth; +#X obj 407 191 r ELEV; +#X obj 440 243 s elev; +#N canvas 634 290 596 443 windDirection 0; +#X obj 189 13 inlet~; +#X obj 204 39 inlet; +#X obj 204 73 sig~; +#X obj 204 94 /~ 360; +#X obj 275 40 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 0 1; +#X floatatom 258 84 5 0 0 0 - - -; +#X obj 189 159 *~; +#X obj 85 197 snapshot~; +#X obj 85 172 metro 100; +#X obj 85 150 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 85 223 10 0 0 0 - - -; +#X obj 85 124 loadbang; +#X obj 189 187 outlet~; +#X obj 384 308 snapshot~; +#X obj 384 261 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 384 334 10 0 0 0 - - -; +#X obj 384 235 loadbang; +#X obj 307 62 noise~; +#X obj 247 189 *~ 360; +#X obj 247 248 outlet~; +#X obj 247 164 -~ 1; +#X obj 307 110 *~ 0.5; +#X obj 204 129 cos~; +#X obj 307 88 lop~ 10; +#X obj 307 132 -~ 0.05; +#X obj 247 210 +~ 20; +#X obj 384 283 metro 10; +#X obj 249 120 +~; +#X connect 0 0 6 0; +#X connect 1 0 2 0; +#X connect 3 0 27 1; +#X connect 4 0 5 0; +#X connect 4 0 2 0; +#X connect 6 0 12 0; +#X connect 6 0 7 0; +#X connect 7 0 10 0; +#X connect 8 0 7 0; +#X connect 9 0 8 0; +#X connect 11 0 9 0; +#X connect 13 0 15 0; +#X connect 14 0 26 0; +#X connect 16 0 14 0; +#X connect 17 0 23 0; +#X connect 18 0 25 0; +#X connect 20 0 18 0; +#X connect 21 0 24 0; +#X connect 22 0 6 1; +#X connect 22 0 20 0; +#X connect 23 0 21 0; +#X connect 24 0 27 0; +#X connect 25 0 19 0; +#X connect 25 0 13 0; +#X connect 26 0 13 0; +#X connect 27 0 22 0; +#X restore -268 72 pd windDirection; +#X obj -115 117 snapshot~; +#X obj -115 92 metro 100; +#X obj -115 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom -115 144 10 0 0 0 - - -; +#X obj -115 45 loadbang; +#X text -118 162 Wind Speed; +#X obj -253 45 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X msg -257 25 0; +#X text 425 343 Source Rotation X; +#X msg 520 35 0; +#X obj 520 110 -~ 180; +#X obj 520 86 line~ 0 1; +#X obj 580 235 snapshot~; +#X obj 580 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 580 262 10 0 0 0 - - -; +#X obj 580 163 loadbang; +#N canvas 83 555 450 362 PlotWrt 0; +#X obj 116 303 textfile; +#X msg 319 202 clear \, rewind; +#X msg 169 202 add \$1; +#X msg 116 202 add2 \$1; +#X msg 218 202 write polar.txt; +#X obj 105 92 snapshot~; +#X obj 105 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 119 129 10 0 0 0 - - -; +#X obj 105 20 loadbang; +#X obj 198 92 snapshot~; +#X obj 198 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom 250 119 10 0 0 0 - - -; +#X obj 198 20 loadbang; +#X obj 343 45 r~ plotElev; +#X obj 35 19 r~ plotOPF; +#X obj 14 75 r~ plotOPN; +#X obj 37 101 +~; +#X obj 105 67 metro 10; +#X obj 198 67 metro 10; +#X obj 27 166 +~; +#X obj 13 134 r~ plotOPD; +#X connect 1 0 0 0; +#X connect 2 0 0 0; +#X connect 3 0 0 0; +#X connect 4 0 0 0; +#X connect 5 0 7 0; +#X connect 5 0 3 0; +#X connect 6 0 17 0; +#X connect 8 0 6 0; +#X connect 9 0 11 0; +#X connect 9 0 2 0; +#X connect 10 0 18 0; +#X connect 12 0 10 0; +#X connect 13 0 9 0; +#X connect 14 0 16 0; +#X connect 15 0 16 1; +#X connect 16 0 19 1; +#X connect 17 0 5 0; +#X connect 18 0 9 0; +#X connect 19 0 5 0; +#X connect 20 0 19 0; +#X restore 585 385 pd PlotWrt; +#X obj 580 210 metro 10; +#X obj 555 138 s~ plotElev; +#X msg 531 57 360 5000; +#X msg -325 11 20; +#X obj 197 548 freqCalcCyl3No_D1Mach; +#X obj 598 105 sig~; +#X msg 608 60 70; +#X obj 646 -45 vsl 15 128 -180 180 0 0 empty empty empty 0 -9 0 10 +-262144 -1 -1 0 1; +#X msg 117 92 4; +#X msg -378 -17 34.32; +#X msg 76 204 0; +#X obj -282 -2 loadbang; +#X obj -319 -126 WindGenD1; +#X obj -344 -105 s \$0-blust; +#X obj 319 519 +; +#X obj 402 519 r \$0-blust; +#X obj 392 547 hsl 128 15 0 0.5 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 113 1; +#X obj -162 -116 * 0.75; +#X obj -34 117 snapshot~; +#X obj -34 92 metro 100; +#X obj -34 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 +1; +#X floatatom -34 144 10 0 0 0 - - -; +#X obj -34 45 loadbang; +#X text -37 162 Wind Direction; +#X msg 341 -20 0.0039; +#X obj -399 312 s ELEV; +#X msg -482 112 23 0.037 5 4 85 5000; +#X msg -473 136 28 0.01 15 6 10 3000; +#X msg -461 164 13 0.0015 10 1 -160 5000; +#X msg -454 197 25 0.15 7 6 85 3000; +#X connect 0 0 44 0; +#X connect 3 0 8 1; +#X connect 3 0 82 0; +#X connect 3 0 154 0; +#X connect 4 0 7 0; +#X connect 4 0 52 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 9 0 119 0; +#X connect 10 0 6 0; +#X connect 12 0 13 0; +#X connect 13 0 3 0; +#X connect 14 0 15 0; +#X connect 14 0 141 1; +#X connect 16 0 17 0; +#X connect 16 0 141 6; +#X connect 19 0 20 0; +#X connect 19 0 141 4; +#X connect 21 0 22 0; +#X connect 21 0 118 0; +#X connect 21 0 141 5; +#X connect 23 0 24 0; +#X connect 23 0 141 3; +#X connect 29 0 31 0; +#X connect 30 0 26 0; +#X connect 30 1 27 0; +#X connect 31 0 32 0; +#X connect 32 0 30 0; +#X connect 32 0 101 0; +#X connect 33 0 35 0; +#X connect 33 0 54 0; +#X connect 34 0 33 0; +#X connect 36 0 37 0; +#X connect 37 0 34 0; +#X connect 40 0 55 0; +#X connect 42 0 19 0; +#X connect 43 0 16 0; +#X connect 44 0 83 0; +#X connect 44 0 104 0; +#X connect 44 0 145 0; +#X connect 44 0 42 0; +#X connect 44 0 147 0; +#X connect 44 0 43 0; +#X connect 44 0 47 0; +#X connect 44 0 72 0; +#X connect 44 0 73 0; +#X connect 44 0 74 0; +#X connect 44 0 113 0; +#X connect 45 0 46 0; +#X connect 45 0 141 2; +#X connect 47 0 45 0; +#X connect 48 0 30 1; +#X connect 49 0 100 0; +#X connect 53 0 33 0; +#X connect 56 0 14 0; +#X connect 57 0 45 0; +#X connect 58 0 23 0; +#X connect 59 0 19 0; +#X connect 60 0 21 0; +#X connect 61 0 16 0; +#X connect 63 0 64 0; +#X connect 63 0 141 7; +#X connect 65 0 63 0; +#X connect 66 0 67 0; +#X connect 66 0 141 8; +#X connect 68 0 66 0; +#X connect 69 0 70 0; +#X connect 69 0 141 9; +#X connect 71 0 69 0; +#X connect 72 0 63 0; +#X connect 73 0 66 0; +#X connect 74 0 69 0; +#X connect 78 0 21 0; +#X connect 80 0 21 0; +#X connect 81 0 14 0; +#X connect 83 0 141 0; +#X connect 84 0 86 0; +#X connect 85 0 86 0; +#X connect 87 0 96 0; +#X connect 87 1 94 0; +#X connect 87 2 92 0; +#X connect 87 3 90 0; +#X connect 87 4 162 0; +#X connect 87 5 88 0; +#X connect 89 0 32 0; +#X connect 91 0 23 0; +#X connect 93 0 45 0; +#X connect 95 0 14 0; +#X connect 97 0 3 0; +#X connect 98 0 32 0; +#X connect 99 0 163 0; +#X connect 100 0 48 0; +#X connect 102 0 103 0; +#X connect 104 0 14 0; +#X connect 108 0 21 0; +#X connect 109 0 151 1; +#X connect 110 0 109 0; +#X connect 113 0 109 0; +#X connect 114 0 141 1; +#X connect 117 0 21 0; +#X connect 119 0 2 0; +#X connect 119 0 120 0; +#X connect 119 1 155 0; +#X connect 120 0 123 0; +#X connect 121 0 120 0; +#X connect 122 0 121 0; +#X connect 124 0 122 0; +#X connect 126 0 119 1; +#X connect 127 0 126 0; +#X connect 129 0 131 0; +#X connect 130 0 138 0; +#X connect 130 0 132 0; +#X connect 131 0 130 0; +#X connect 132 0 134 0; +#X connect 133 0 137 0; +#X connect 135 0 133 0; +#X connect 137 0 132 0; +#X connect 139 0 131 0; +#X connect 141 0 41 0; +#X connect 141 1 105 0; +#X connect 143 0 142 0; +#X connect 144 0 142 0; +#X connect 145 0 23 0; +#X connect 146 0 79 0; +#X connect 147 0 21 0; +#X connect 148 0 127 0; +#X connect 149 0 150 0; +#X connect 149 1 8 0; +#X connect 151 0 141 10; +#X connect 151 0 112 0; +#X connect 151 0 153 0; +#X connect 152 0 151 0; +#X connect 154 0 9 1; +#X connect 155 0 158 0; +#X connect 156 0 155 0; +#X connect 157 0 156 0; +#X connect 159 0 157 0; +#X connect 161 0 14 0; +#X connect 163 0 87 0; +#X connect 164 0 87 0; +#X connect 165 0 87 0; +#X connect 166 0 87 0;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/bandwidth test.pd Mon May 09 17:19:54 2016 +0100 @@ -0,0 +1,18 @@ +#N canvas 577 310 642 468 10; +#X obj 220 118 vcf~ 3; +#X floatatom 390 190 5 0 0 0 - - -; +#X obj 220 144 vcf~ 3; +#X obj 385 26 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 +-1 -1 2000 1; +#X obj 220 77 noise~; +#X obj 216 224 dac~; +#X msg 119 41 674; +#X connect 0 0 2 0; +#X connect 2 0 5 0; +#X connect 2 0 5 1; +#X connect 3 0 0 2; +#X connect 3 0 1 0; +#X connect 3 0 2 2; +#X connect 4 0 0 0; +#X connect 6 0 0 1; +#X connect 6 0 2 1;
--- a/scene demo/freqCalcCyl4No_D4Mach.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/scene demo/freqCalcCyl4No_D4Mach.pd Mon May 09 17:19:54 2016 +0100 @@ -733,25 +733,13 @@ #X obj 648 214 r \$0-thisPan; #X obj 621 86 *~ 5; #X obj 353 93 *~ 3; -#X obj 72 345 r~ \$0-myFreq; -#X obj 72 399 osc~; -#X obj 72 544 throw~ l; -#X obj 99 521 throw~ r; -#X obj 72 443 *~; -#X obj 72 499 fcpan; -#X obj 99 478 r \$0-thisPan; -#X obj 87 418 r~ \$0-dragDiGain; -#X obj 72 373 *~ 2; -#X obj 351 344 r~ \$0-myFreq; -#X obj 351 398 osc~; -#X obj 351 543 throw~ l; -#X obj 378 520 throw~ r; -#X obj 351 436 *~; -#X obj 351 498 fcpan; -#X obj 378 477 r \$0-thisPan; -#X obj 385 392 r~ \$0-dragDiGain; -#X obj 351 372 *~ 4; -#X obj 385 415 *~ 0.125; +#X obj 138 346 r~ \$0-myFreq; +#X obj 252 431 r~ \$0-dragDiGain; +#X obj 138 374 *~ 2; +#X obj 408 345 r~ \$0-myFreq; +#X obj 549 403 r~ \$0-dragDiGain; +#X obj 408 373 *~ 4; +#X obj 549 426 *~ 0.125; #X obj 210 199 *~; #X obj 210 264 throw~ l; #X obj 237 241 throw~ r; @@ -765,15 +753,14 @@ #X obj 480 213 fcpan; #X obj 480 116 vcf~ 3; #X obj 507 191 r \$0-thisPan; -#X obj 480 68 r~ \$0-thisNoise; +#X obj 480 44 r~ \$0-thisNoise; #X obj 750 183 *~; #X obj 750 248 throw~ l; #X obj 777 225 throw~ r; #X obj 750 204 fcpan; #X obj 750 107 vcf~ 3; #X obj 777 182 r \$0-thisPan; -#X obj 750 65 r~ \$0-thisNoise; -#X obj 816 148 *~ 0.1; +#X obj 750 24 r~ \$0-thisNoise; #X obj 217 464 *~; #X obj 217 529 throw~ l; #X obj 244 506 throw~ r; @@ -787,15 +774,15 @@ #X obj 491 483 fcpan; #X obj 491 386 vcf~ 3; #X obj 518 461 r \$0-thisPan; -#X obj 491 344 r~ \$0-thisNoise; +#X obj 491 312 r~ \$0-thisNoise; #X text 273 27 Generates the sound associated with the lift dipole. ; #X text 175 312 Generates the sound associated with the drag dipole. ; #X obj 270 87 r \$0-Qval; -#X obj 530 92 r \$0-Qval; -#X obj 800 87 r \$0-Qval; -#X obj 537 365 r \$0-Qval; +#X obj 530 68 r \$0-Qval; +#X obj 800 46 r \$0-Qval; +#X obj 537 333 r \$0-Qval; #X obj 262 366 r \$0-Qval; #X obj 750 154 *~ 1; #X obj 491 428 *~ 1; @@ -806,101 +793,92 @@ #X obj 750 131 vcf~ 3; #X obj 491 407 vcf~ 3; #X obj 217 409 vcf~ 3; -#X obj 351 457 *~ 0.01; -#X obj 72 462 *~ 0.01; #X obj 531 136 r~ \$0-liftDiGain; +#X obj 245 161 r~ \$0-liftDiGain; +#X floatatom 539 90 5 0 0 0 - - -; +#X obj 816 148 *~ 0.1; +#X obj 523 95 * 2; +#X obj 792 84 * 4; +#X obj 532 360 * 2; #X obj 531 158 *~ 0.6; -#X obj 245 161 r~ \$0-liftDiGain; -#X floatatom 539 114 5 0 0 0 - - -; -#X connect 0 0 33 1; -#X connect 0 0 76 1; +#X connect 0 0 21 1; +#X connect 0 0 63 1; #X connect 1 0 9 0; #X connect 2 0 8 0; -#X connect 3 0 50 0; +#X connect 3 0 71 0; #X connect 6 0 4 0; #X connect 6 1 5 0; #X connect 7 0 6 1; -#X connect 8 0 47 1; -#X connect 8 0 78 1; -#X connect 9 0 40 1; -#X connect 9 0 77 1; -#X connect 10 0 18 0; -#X connect 11 0 14 0; -#X connect 14 0 82 0; -#X connect 15 0 12 0; -#X connect 15 1 13 0; -#X connect 16 0 15 1; -#X connect 17 0 14 1; -#X connect 17 0 51 1; -#X connect 18 0 11 0; -#X connect 18 0 55 1; -#X connect 18 0 80 1; -#X connect 19 0 27 0; -#X connect 20 0 23 0; -#X connect 23 0 81 0; -#X connect 24 0 21 0; -#X connect 24 1 22 0; -#X connect 25 0 24 1; -#X connect 26 0 28 0; -#X connect 27 0 20 0; -#X connect 27 0 62 1; -#X connect 27 0 79 1; -#X connect 28 0 23 1; -#X connect 28 0 58 1; -#X connect 29 0 32 0; -#X connect 32 0 30 0; -#X connect 32 1 31 0; -#X connect 33 0 76 0; -#X connect 34 0 32 1; -#X connect 35 0 33 0; -#X connect 36 0 39 0; -#X connect 39 0 37 0; -#X connect 39 1 38 0; -#X connect 40 0 77 0; -#X connect 41 0 39 1; -#X connect 42 0 40 0; -#X connect 43 0 46 0; -#X connect 46 0 44 0; -#X connect 46 1 45 0; -#X connect 47 0 78 0; -#X connect 48 0 46 1; -#X connect 49 0 47 0; -#X connect 50 0 43 1; -#X connect 51 0 54 0; -#X connect 54 0 52 0; -#X connect 54 1 53 0; -#X connect 55 0 80 0; -#X connect 56 0 54 1; -#X connect 57 0 55 0; -#X connect 58 0 61 0; -#X connect 61 0 59 0; -#X connect 61 1 60 0; -#X connect 62 0 79 0; -#X connect 63 0 61 1; -#X connect 64 0 62 0; -#X connect 67 0 33 2; -#X connect 67 0 75 0; -#X connect 67 0 76 2; -#X connect 68 0 40 2; -#X connect 68 0 77 2; -#X connect 68 0 86 0; -#X connect 69 0 47 2; -#X connect 69 0 78 2; -#X connect 70 0 62 2; -#X connect 70 0 79 2; -#X connect 71 0 55 2; -#X connect 71 0 80 2; -#X connect 72 0 43 0; -#X connect 73 0 58 0; -#X connect 74 0 51 0; -#X connect 76 0 29 0; -#X connect 77 0 36 0; -#X connect 78 0 72 0; -#X connect 79 0 73 0; -#X connect 80 0 74 0; -#X connect 83 0 84 0; -#X connect 84 0 36 1; -#X connect 85 0 29 1; +#X connect 8 0 35 1; +#X connect 8 0 65 1; +#X connect 9 0 28 1; +#X connect 9 0 64 1; +#X connect 10 0 12 0; +#X connect 11 0 38 1; +#X connect 12 0 42 1; +#X connect 12 0 67 1; +#X connect 13 0 15 0; +#X connect 14 0 16 0; +#X connect 15 0 49 1; +#X connect 15 0 66 1; +#X connect 16 0 45 1; +#X connect 17 0 20 0; +#X connect 20 0 18 0; +#X connect 20 1 19 0; +#X connect 21 0 63 0; +#X connect 22 0 20 1; +#X connect 23 0 21 0; +#X connect 24 0 27 0; +#X connect 27 0 25 0; +#X connect 27 1 26 0; +#X connect 28 0 64 0; +#X connect 29 0 27 1; +#X connect 30 0 28 0; +#X connect 31 0 34 0; +#X connect 34 0 32 0; +#X connect 34 1 33 0; +#X connect 35 0 65 0; +#X connect 36 0 34 1; +#X connect 37 0 35 0; +#X connect 38 0 41 0; +#X connect 41 0 39 0; +#X connect 41 1 40 0; +#X connect 42 0 67 0; +#X connect 43 0 41 1; +#X connect 44 0 42 0; +#X connect 45 0 48 0; +#X connect 48 0 46 0; +#X connect 48 1 47 0; +#X connect 49 0 66 0; +#X connect 50 0 48 1; +#X connect 51 0 49 0; +#X connect 54 0 21 2; +#X connect 54 0 62 0; +#X connect 54 0 63 2; +#X connect 55 0 70 0; +#X connect 55 0 72 0; +#X connect 56 0 73 0; +#X connect 57 0 74 0; +#X connect 58 0 42 2; +#X connect 58 0 67 2; +#X connect 59 0 31 0; +#X connect 60 0 45 0; +#X connect 61 0 38 0; +#X connect 63 0 17 0; +#X connect 64 0 24 0; +#X connect 65 0 59 0; +#X connect 66 0 60 0; +#X connect 67 0 61 0; +#X connect 68 0 75 0; +#X connect 69 0 17 1; +#X connect 71 0 31 1; +#X connect 72 0 28 2; +#X connect 72 0 64 2; +#X connect 73 0 35 2; +#X connect 73 0 65 2; +#X connect 74 0 49 2; +#X connect 74 0 66 2; +#X connect 75 0 24 1; #X restore 649 504 pd Dipoles; #X obj 1088 69 noise~; #X obj 1088 92 s~ \$0-thisNoise; @@ -1132,7 +1110,6 @@ #X connect 13 0 4 1; #X connect 15 0 5 1; #X connect 16 0 1 0; -#X connect 18 0 45 0; #X connect 20 0 93 0; #X connect 24 0 79 1; #X connect 25 0 79 4;
--- a/scene demo/testBedD4.pd Sat Apr 09 16:30:13 2016 +0100 +++ b/scene demo/testBedD4.pd Mon May 09 17:19:54 2016 +0100 @@ -117,7 +117,7 @@ #X msg 74 450 0; #X text 541 415 Source Rotation Y; #X text 557 468 Source Rotation Z; -#X obj -209 141 sig~; +#X obj -164 184 sig~; #X floatatom -16 -23 5 0 0 0 - - -; #X msg 281 -21 0; #X obj -400 248 unpack f f f f f f; @@ -224,11 +224,11 @@ #X msg -372 215 28 0.04 7 6 35 7e+08; #X obj 293 577 freqCalcCyl4No_D4Mach; #X msg 348 -16 0.0105; -#X msg 411 -27 0.004; #X obj -153 246 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -136 271 0 0 0 0 - - -; -#X msg -209 118 42.67; +#X msg 411 -27 0.004; +#X msg -209 118 68.58; #X connect 0 0 33 0; #X connect 2 0 64 0; #X connect 2 0 110 0; @@ -348,7 +348,6 @@ #X connect 131 0 66 0; #X connect 132 0 66 0; #X connect 134 0 10 0; -#X connect 135 0 10 0; -#X connect 136 0 63 0; -#X connect 136 0 137 0; +#X connect 135 0 136 0; +#X connect 137 0 10 0; #X connect 138 0 63 0;