Mercurial > hg > weather-synthesis-prototyping
diff MechAeolian/MechAeolianD1.pd @ 216:f461a0f5d471
Swordsman added
Mechanical testbed updated - have a basic working prototype
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Mon, 09 May 2016 17:19:54 +0100 |
| parents | 18d9eb604d30 |
| children | faafec65e1de |
line wrap: on
line diff
--- 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;