view sept - Dec 14/multiD2.pd @ 115:61d267c71a18

freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M.

angleCalc converted to an object for both control and audio.

#N canvas 145 28 1147 751 10;
#X obj 566 159 dac~;
#X obj 542 100 catch~ l;
#X obj 606 100 catch~ r;
#X obj 607 134 *~ 0.45;
#X obj 543 134 *~ 0.45;
#N canvas 158 23 1009 649 myRain 0;
#X obj 61 238 phasor~;
#X obj 61 301 *~;
#X obj 61 259 -~ 0.25;
#X obj 61 280 cos~;
#X obj 77 135 *~;
#X obj 61 106 lop~ 500;
#X obj 61 196 *~ 80;
#X obj 77 156 *~ 10;
#X obj 61 87 bp~ 50 0.4;
#X obj 61 372 -~ 0.35;
#X obj 61 351 max~ 0.35;
#X obj 61 513 hip~ 500;
#X obj 61 535 hip~ 500;
#X obj 61 64 gaussianoise 0.4;
#X obj 61 562 throw~ l;
#X obj 60 217 +~ 40;
#X obj 121 561 throw~ r;
#N canvas 0 22 450 300 grapha 0;
#X obj 100 100 cnv 15 100 100 empty empty empty 20 12 0 14 -262144
-66577 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array A 2048 float 0;
#X coords 0 1 2047 -1 100 100 1;
#X restore 100 100 graph;
#X obj 210 209 tabwrite~ A;
#X obj 289 155 inlet~;
#X obj 210 130 loadbang;
#X obj 278 131 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 217 178 s b;
#X obj 210 155 metro 200;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 7 0 2 0;
#X connect 7 0 6 0;
#X coords 0 -1 1 1 100 100 1 100 100;
#X restore 198 78 pd grapha;
#N canvas 0 22 450 300 grapha 0;
#X obj 100 100 cnv 15 100 100 empty empty empty 20 12 0 14 -262144
-66577 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array B 2048 float 0;
#X coords 0 1 2047 -1 100 100 1;
#X restore 100 100 graph;
#X obj 289 155 inlet~;
#X obj 210 182 tabwrite~ B;
#X obj 210 156 r b;
#X connect 2 0 3 0;
#X connect 4 0 3 0;
#X coords 0 -1 1 1 100 100 1 100 100;
#X restore 176 481 pd grapha;
#X obj 379 588 catch~ rain;
#X obj 379 483 throw~ rain;
#X obj 379 526 throw~ rain;
#X obj 379 568 throw~ rain;
#X obj 379 503 cpraingen 60 12 0.2;
#X obj 380 666 hip~ 900;
#X obj 379 545 cpraingen 70 12 0.4;
#X obj 380 702 throw~ l;
#X obj 444 702 throw~ r;
#X floatatom 343 444 5 0 0 0 - - -;
#X obj 429 386 - 86;
#X obj 430 418 * -2.5;
#X obj 285 516 + 70;
#X obj 541 439 / 100;
#X floatatom 540 498 5 0 0 0 - - -;
#X obj 379 461 cpraingen 50 12 0.15;
#X obj 303 550 + 80;
#X obj 332 585 + 90;
#X obj 539 526 + 0.05;
#X obj 538 560 + 0.25;
#X obj 540 469 + 0.3;
#X obj 636 99 hip~ 9000;
#X obj 636 52 noise~;
#X obj 687 -1 delread~ a;
#X obj 688 25 *~ 24;
#X obj 688 48 +~ 6;
#X obj 635 121 *~ 20;
#X obj 631 330 throw~ l;
#X obj 695 330 throw~ r;
#X obj 635 146 glasswindow 2007 1994 1986 1969 254 669 443 551 3.7
4.2 0.61 2.3;
#X obj 636 75 dropsig 7.7 0.002 0.1 1;
#X obj 756 575 + 0.004;
#X obj 755 552 / 20;
#X obj 757 521 hsl 128 15 0 1 0 0 empty empty rain-rain-go-away 12
7 1 8 -262144 -1 -1 5108 1;
#X obj 714 702 hip~ 2000;
#X obj 702 731 throw~ l;
#X obj 766 731 throw~ r;
#X obj 715 598 drops 7.7 0.013 0.16 3;
#X floatatom 845 559 5 0 0 0 - - -;
#X floatatom 304 331 5 0 0 0 - - -;
#X obj 112 300 * -0.4;
#X obj 35 -10 inlet;
#X obj 429 355 receive f;
#X obj 715 620 *~ 2;
#X obj 35 39 send rf;
#X obj 754 365 receive rf;
#X floatatom 801 390 5 0 0 0 - - -;
#X floatatom 823 480 5 0 0 0 - - -;
#X floatatom 817 421 5 0 0 0 - - -;
#X obj 754 428 log;
#X obj 754 458 * -1;
#X obj 754 488 / 5;
#X obj 112 276 receive rf;
#X obj 543 376 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 875 605 * 2;
#X obj 864 580 + 0.05;
#X obj 112 324 + 0.5;
#X obj 92 -8 inlet;
#X msg 113 407 0;
#X obj 61 436 spigot~;
#X msg 493 589 1;
#X msg 461 589 0;
#X obj 379 618 spigot~;
#X msg 454 442 70;
#X obj 34 16 / 127;
#X msg 669 210 1;
#X msg 704 208 0;
#X obj 634 241 spigot~;
#X msg 747 631 1;
#X msg 782 629 0;
#X obj 712 662 spigot~;
#X obj 91 24 s On;
#X obj 819 635 r On;
#X obj 461 565 r On;
#X obj 113 378 r On;
#X obj 705 181 r On;
#X obj 134 -8 inlet;
#X obj 133 24 s Off;
#X obj 660 590 r Off;
#X obj 496 562 r Off;
#X obj 150 348 r Off;
#X obj 659 180 r Off;
#X obj 716 682 *~ 0.4;
#X obj 380 645 *~ 0.2;
#X obj 61 491 *~ 1;
#X obj 635 293 *~ 0.1;
#X obj 805 51 * 2;
#X obj 805 14 r rf;
#X obj 173 377 inlet;
#X obj 173 405 / 127;
#X obj 173 434 * 1.5;
#X obj 531 587 inlet;
#X obj 531 615 / 127;
#X obj 531 644 * 0.4;
#X obj 756 206 inlet;
#X obj 756 234 / 127;
#X obj 756 263 * 0.2;
#X obj 865 637 inlet;
#X obj 865 665 / 127;
#X obj 865 694 * 0.8;
#X obj 383 287 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 144 392 1;
#X connect 0 0 2 0;
#X connect 1 0 17 0;
#X connect 1 0 10 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 5 0 4 0;
#X connect 5 0 4 1;
#X connect 6 0 15 0;
#X connect 7 0 1 1;
#X connect 8 0 5 0;
#X connect 9 0 18 0;
#X connect 9 0 78 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 0 16 0;
#X connect 13 0 8 0;
#X connect 15 0 0 0;
#X connect 19 0 81 0;
#X connect 23 0 21 0;
#X connect 24 0 26 0;
#X connect 24 0 27 0;
#X connect 25 0 22 0;
#X connect 28 0 31 0;
#X connect 28 0 35 0;
#X connect 28 0 36 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X connect 30 0 32 0;
#X connect 32 0 39 0;
#X connect 33 0 37 0;
#X connect 34 0 20 0;
#X connect 37 0 38 0;
#X connect 39 0 33 0;
#X connect 40 0 45 0;
#X connect 41 0 49 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 49 1;
#X connect 45 0 48 0;
#X connect 48 0 86 0;
#X connect 49 0 40 0;
#X connect 50 0 56 1;
#X connect 51 0 50 0;
#X connect 52 0 57 0;
#X connect 52 0 51 0;
#X connect 53 0 54 0;
#X connect 53 0 55 0;
#X connect 56 0 62 0;
#X connect 57 0 74 0;
#X connect 59 0 75 0;
#X connect 60 0 83 0;
#X connect 61 0 29 0;
#X connect 62 0 89 0;
#X connect 64 0 68 0;
#X connect 68 0 67 0;
#X connect 68 0 69 0;
#X connect 69 0 66 0;
#X connect 69 0 70 0;
#X connect 70 0 52 0;
#X connect 71 0 59 0;
#X connect 72 0 29 0;
#X connect 73 0 62 1;
#X connect 74 0 73 0;
#X connect 75 0 58 0;
#X connect 75 0 10 1;
#X connect 76 0 90 0;
#X connect 77 0 78 1;
#X connect 78 0 103 0;
#X connect 79 0 81 1;
#X connect 80 0 81 1;
#X connect 81 0 102 0;
#X connect 83 0 63 0;
#X connect 84 0 86 1;
#X connect 85 0 86 1;
#X connect 86 0 104 0;
#X connect 87 0 89 1;
#X connect 88 0 89 1;
#X connect 89 0 101 0;
#X connect 91 0 88 0;
#X connect 92 0 80 0;
#X connect 93 0 77 0;
#X connect 94 0 85 0;
#X connect 95 0 96 0;
#X connect 97 0 87 0;
#X connect 98 0 79 0;
#X connect 99 0 120 0;
#X connect 100 0 84 0;
#X connect 101 0 53 0;
#X connect 102 0 24 0;
#X connect 103 0 11 0;
#X connect 104 0 46 0;
#X connect 104 0 47 0;
#X connect 105 0 49 3;
#X connect 106 0 105 0;
#X connect 107 0 108 0;
#X connect 108 0 109 0;
#X connect 109 0 103 1;
#X connect 110 0 111 0;
#X connect 111 0 112 0;
#X connect 112 0 102 1;
#X connect 113 0 114 0;
#X connect 114 0 115 0;
#X connect 115 0 104 1;
#X connect 116 0 117 0;
#X connect 117 0 118 0;
#X connect 118 0 101 1;
#X connect 120 0 78 1;
#X restore 153 522 pd myRain;
#X obj 24 563 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -65600
-257985 -1 1700 1;
#X obj 212 121 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 361 120 Buildings;
#X obj 213 146 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 213 174 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 211 202 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X text 362 145 Doorways 1;
#X text 362 173 Doorways 2;
#X obj 212 233 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12700 1;
#X obj 211 264 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 360 263 Tree Leaves;
#X text 360 293 Low Rumble;
#X obj 143 159 windD5;
#X obj 543 184 prvu~;
#X obj 544 218 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 607 185 prvu~;
#X obj 608 218 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 719 117 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 11600 1;
#X obj 16 60 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1500 1;
#X text 48 38 Gusts;
#X text 360 201 Branches/wires 1;
#X text 359 229 Branches/wires 2;
#X text 748 136 Gain;
#X obj 23 120 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 1000 1;
#X text 53 101 Squails;
#X obj 20 183 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 11500 1;
#X text 50 164 Wind Dynamic;
#X obj 212 293 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 212 317 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 360 317 High tone;
#X msg 179 25 0;
#X obj 757 667 s Gust;
#X obj 790 622 s Wind D;
#X obj 806 601 s Buildings;
#X obj 889 488 s Trees;
#X obj 905 467 s Low;
#X obj 922 446 s High;
#X obj 3 23 r Gust;
#X obj 0 84 r Squails;
#X obj 773 644 s Squails;
#X obj 6 147 r Wind D;
#X obj 418 100 r Buildings;
#X obj 458 245 r Trees;
#X obj 441 278 r Low;
#X obj 427 304 r High;
#X obj 756 408 unpack 0 0 0 0 0 0 0 0 0 0 0;
#X obj 823 574 s Door1;
#X obj 839 553 s Door2;
#X obj 856 531 s Branch1;
#X obj 872 510 s Branch2;
#X obj 430 123 r Door1;
#X obj 445 150 r Door2;
#X obj 452 175 r Branch1;
#X obj 463 213 r Branch2;
#X msg 786 368 30 34 70 0 120 40 93 8 0 0 100;
#X text 982 368 Polar wind;
#X text 919 340 Leaves blowing;
#X msg 732 314 15 10 115 14 100 55 127 127 0 0 0;
#X text 182 9 Off;
#X text 946 311 Whistling through a crack;
#X msg 756 341 10 10 60 5 5 5 10 0 75 0 0;
#X obj 162 492 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 135 492 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 161 469 Off;
#X text 135 469 On;
#X obj 809 152 thunder4;
#X obj 808 113 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 845 114 1;
#X msg 875 115 0;
#X obj 228 7 loadbang;
#X text 850 98 Echoes;
#X obj 260 452 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 5300 1;
#X obj 261 483 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3000 1;
#X obj 261 512 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3300 1;
#X obj 261 541 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 12000 1;
#X msg 158 413 0;
#X text 400 450 Rain on leaves;
#X text 399 540 General Rain;
#X text 396 513 Rain on Glass;
#X text 399 483 Rain on Road;
#X obj 158 381 loadbang;
#X text 186 405 Off;
#X text 41 586 Rain Intensity;
#X obj 719 265 / 127;
#X msg 719 81 25;
#X obj 719 53 loadbang;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 3 0 21 0;
#X connect 4 0 0 0;
#X connect 4 0 19 0;
#X connect 6 0 5 0;
#X connect 7 0 18 3;
#X connect 9 0 18 4;
#X connect 10 0 18 5;
#X connect 11 0 18 6;
#X connect 14 0 18 7;
#X connect 15 0 18 8;
#X connect 19 0 20 0;
#X connect 21 0 22 0;
#X connect 23 0 89 0;
#X connect 24 0 18 1;
#X connect 29 0 18 2;
#X connect 31 0 18 0;
#X connect 33 0 18 9;
#X connect 34 0 18 10;
#X connect 36 0 7 0;
#X connect 36 0 9 0;
#X connect 36 0 10 0;
#X connect 36 0 11 0;
#X connect 36 0 14 0;
#X connect 36 0 15 0;
#X connect 36 0 33 0;
#X connect 36 0 34 0;
#X connect 36 0 29 0;
#X connect 36 0 24 0;
#X connect 36 0 31 0;
#X connect 43 0 24 0;
#X connect 44 0 29 0;
#X connect 46 0 31 0;
#X connect 47 0 7 0;
#X connect 48 0 15 0;
#X connect 49 0 33 0;
#X connect 50 0 34 0;
#X connect 51 0 37 0;
#X connect 51 1 45 0;
#X connect 51 2 38 0;
#X connect 51 3 39 0;
#X connect 51 4 52 0;
#X connect 51 5 53 0;
#X connect 51 6 54 0;
#X connect 51 7 55 0;
#X connect 51 8 40 0;
#X connect 51 9 41 0;
#X connect 51 10 42 0;
#X connect 56 0 9 0;
#X connect 57 0 10 0;
#X connect 58 0 11 0;
#X connect 59 0 14 0;
#X connect 60 0 51 0;
#X connect 63 0 51 0;
#X connect 66 0 51 0;
#X connect 67 0 5 2;
#X connect 68 0 5 1;
#X connect 72 0 71 0;
#X connect 73 0 71 1;
#X connect 74 0 71 1;
#X connect 75 0 36 0;
#X connect 77 0 5 3;
#X connect 78 0 5 4;
#X connect 79 0 5 5;
#X connect 80 0 5 6;
#X connect 81 0 77 0;
#X connect 81 0 78 0;
#X connect 81 0 79 0;
#X connect 81 0 80 0;
#X connect 81 0 6 0;
#X connect 86 0 81 0;
#X connect 89 0 3 1;
#X connect 89 0 4 1;
#X connect 90 0 23 0;
#X connect 91 0 90 0;