view sept - Dec 14/wind1.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 314 170 981 604 10;
#X obj 280 19 *~;
#X obj 16 -117 dac~;
#X obj 616 -30 +~ 1000;
#X obj 616 -50 *~ 1000;
#X msg 655 -6 60;
#X obj 115 -220 noise~;
#X obj 575 38 *~;
#N canvas 682 29 374 258 windspeed 0;
#X obj 13 41 +~ 1;
#X obj 12 151 +~;
#X obj 13 64 *~ 0.25;
#X obj 28 129 +~;
#X obj 12 199 clip~ 0 1;
#N canvas 904 435 349 271 squall 0;
#X obj 78 41 noise~;
#X obj 77 108 hip~ 0;
#X obj 78 64 lop~ 3;
#X obj 78 85 lop~ 3;
#X obj 17 112 *~;
#X obj 38 160 *~;
#X obj 16 42 max~ 0.4;
#X obj 16 64 -~ 0.4;
#X obj 16 87 *~ 8;
#X obj 78 129 *~ 20;
#X obj 16 14 inlet~;
#X obj 39 232 outlet~;
#X obj 78 155 *~;
#X obj 169 49 inlet~;
#X obj 38 192 +~;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 4 0;
#X connect 8 0 4 1;
#X connect 9 0 12 0;
#X connect 10 0 6 0;
#X connect 12 0 5 1;
#X connect 13 0 14 1;
#X connect 14 0 11 0;
#X restore 83 98 pd squall;
#N canvas 435 365 376 264 gust 0;
#X obj 9 15 noise~;
#X obj 8 82 hip~ 0;
#X obj 8 157 *~;
#X obj 76 72 *~;
#X obj 75 49 +~ 0.5;
#X obj 76 96 -~ 0.125;
#X obj 9 59 lop~ 0.5;
#X obj 9 38 lop~ 0.5;
#X obj 9 103 *~ 50;
#X obj 75 9 inlet~;
#X obj 8 219 outlet~;
#X obj 8 128 *~;
#X obj 165 48 inlet~;
#X obj 9 182 +~;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 13 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 11 0;
#X connect 9 0 4 0;
#X connect 11 0 2 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X restore 27 98 pd gust;
#X obj 12 225 outlet~;
#X obj 13 19 osc~ 0.1;
#X floatatom 210 127 5 0 0 0 - - -;
#X obj 187 225 outlet;
#X obj 207 95 / 256;
#X obj 136 48 inlet;
#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 connect 9 0 6 1;
#X connect 9 0 5 1;
#X connect 9 0 10 0;
#X connect 9 0 2 1;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X restore -7 -220 pd windspeed;
#X obj -7 -198 delwrite~ a 3000;
#X obj 576 14 vcf~ 1000 60;
#X obj 591 -30 *~;
#X obj 575 107 throw~ l;
#X obj 639 107 throw~ r;
#X obj -8 -176 catch~ l;
#X obj 56 -176 catch~ r;
#X msg 513 -55 60;
#X obj 419 37 *~;
#X obj 420 -33 vcf~ 1000 60;
#X obj 436 15 *~;
#X obj 513 -75 loadbang;
#X obj 419 107 throw~ l;
#X obj 483 107 throw~ r;
#X obj 459 -75 *~ 400;
#X obj 459 -55 +~ 600;
#X obj 419 82 fcpan 0.28;
#X obj 575 82 fcpan 0.64;
#X obj 115 -198 s~ white;
#X obj 576 -98 r~ white;
#X obj 419 -123 r~ white;
#X obj 435 -11 +~ 0.12;
#X obj 704 107 throw~ l;
#X obj 768 107 throw~ r;
#X obj 703 -97 r~ white;
#X obj 703 -69 max~;
#X obj 703 -48 -~;
#X obj 703 -26 *~;
#X obj 769 -121 sig~ 1;
#X obj 769 -97 -~;
#X obj 704 40 *~;
#X obj 787 -190 +~ 0.3;
#X obj 834 -142 -~ 0.2;
#X obj 786 -142 *~ 0.4;
#X obj 703 -4 hip~ 200;
#X obj 704 18 lop~ 4000;
#X obj 280 107 throw~ l;
#X obj 345 107 throw~ r;
#X obj 704 82 fcpan 0.71;
#X obj 280 -25 r~ white;
#X obj 358 -90 cos~;
#X obj 358 -156 -~ 0.25;
#X obj 358 -178 clip~ 0.25 0.5;
#X obj 358 -112 -~ 0.25;
#X obj 358 -134 *~ 2;
#X obj 280 -3 bp~ 200 40;
#X obj 280 63 *~;
#X obj 358 -2 osc~;
#X obj 358 -46 *~ 100;
#X obj 358 -24 +~ 20;
#X obj 358 -68 lop~ 0.1;
#X obj 148 19 *~;
#X obj 148 128 throw~ l;
#X obj 210 131 throw~ r;
#X obj 148 -25 r~ white;
#X obj 226 -90 cos~;
#X obj 226 -112 -~ 0.25;
#X obj 226 -134 *~ 2;
#X obj 148 63 *~;
#X obj 226 -2 osc~;
#X obj 226 -178 clip~ 0.35 0.6;
#X obj 226 -156 -~ 0.35;
#X obj 226 -68 lop~ 0.5;
#X obj 148 -3 bp~ 400 40;
#X obj 226 -46 *~ 200;
#X obj 226 -24 +~ 30;
#X obj 280 41 *~ 2;
#X obj 226 -200 vd~ a 100;
#X obj 358 -200 vd~ a 300;
#X obj 435 -102 vd~ a 500;
#X obj 592 -77 vd~ a 900;
#X obj 148 106 fcpan 0.91;
#X obj 280 85 fcpan 0.03;
#X obj -9 -95 vd~ a 0;
#X obj 8 -52 r~ white;
#X obj 14 107 throw~ l;
#X obj 79 107 throw~ r;
#X obj -9 -6 *~;
#X obj 14 85 fcpan 0.51;
#X obj 53 12 clip~ 0 0.99;
#X obj 15 40 rzero~;
#X obj -9 -73 +~ 0.2;
#X obj 52 -10 *~ 0.6;
#X obj 8 -31 bp~ 800 1;
#X obj 787 -212 vd~ a 3000;
#X obj 787 -168 lop~ 0.07;
#X text 22 138 buildings;
#X text 233 138 doorways;
#X text 497 138 branches/wires;
#X text 719 137 tree leaves;
#X obj 57 -142 *~ 0.45;
#X obj -7 -142 *~ 0.45;
#X obj 704 61 *~ 0.5;
#X text 890 133 comment;
#N canvas 349 52 1009 649 myRain 1;
#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 435 hip~ 500;
#X obj 61 457 hip~ 500;
#X obj 61 64 gaussianoise 0.4;
#X obj 61 484 throw~ l;
#X obj 60 217 +~ 40;
#X obj 121 483 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 171 375 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 379 630 hip~ 900;
#X obj 379 545 cpraingen 70 12 0.4;
#X obj 379 666 throw~ l;
#X obj 443 666 throw~ r;
#X obj 474 171 cos~;
#X obj 474 105 -~ 0.25;
#X obj 474 83 clip~ 0.25 0.5;
#X obj 474 149 -~ 0.25;
#X obj 474 127 *~ 2;
#X obj 474 259 osc~;
#X obj 474 215 *~ 100;
#X obj 474 237 +~ 20;
#X obj 474 193 lop~ 0.1;
#X obj 474 288 fiddle~ 1024 1 20 3;
#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 floatatom 200 191 5 0 0 0 - - -;
#X obj 161 254 * -1;
#X obj 193 222 / 60;
#X obj 616 176 hip~ 9000;
#X obj 616 129 noise~;
#X obj 667 76 delread~ a;
#X obj 668 102 *~ 24;
#X obj 668 125 +~ 6;
#X obj 615 198 *~ 20;
#X obj 610 298 throw~ l;
#X obj 674 298 throw~ r;
#X obj 615 223 glasswindow 2007 1994 1986 1969 254 669 443 551 3.7
4.2 0.61 2.3;
#X obj 616 152 dropsig 7.7 0.002 0.1 1;
#X obj 379 609 *~ 0.5;
#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 2811 1;
#X obj 715 648 hip~ 2000;
#X obj 703 677 throw~ l;
#X obj 767 677 throw~ r;
#X obj 715 598 drops 7.7 0.013 0.16 3;
#X floatatom 845 559 5 0 0 0 - - -;
#X obj 474 61 vd~ a 500;
#X obj 117 280 + 1.89;
#X obj 302 231 / 127;
#X msg 227 252 1;
#X floatatom 305 331 5 0 0 0 - - -;
#X obj 303 262 * -0.4;
#X obj 326 7 inlet;
#X obj 753 338 *;
#X obj 754 369 *;
#X obj 557 317 send f;
#X obj 429 355 receive f;
#X obj 239 183 receive f;
#X obj 754 280 receive f;
#X floatatom 754 394 5 0 0 0 - - -;
#X floatatom 511 317 5 0 0 0 - - -;
#X obj 614 261 *~ 0.1;
#X obj 715 620 *~ 2;
#X obj 326 34 send rf;
#X obj 829 317 receive rf;
#X obj 753 309 / 100;
#X obj 754 445 + 1.4;
#X obj 754 490 +;
#X obj 753 418 * -1;
#X floatatom 697 479 5 0 0 0 - - -;
#X obj 831 345 / 127;
#X floatatom 860 379 5 0 0 0 - - -;
#X floatatom 882 469 5 0 0 0 - - -;
#X floatatom 876 410 5 0 0 0 - - -;
#X obj 830 376 log;
#X obj 37 37 r* -1;
#X obj 834 447 * -1;
#X obj 37 37;
#X obj 813 477 / 5;
#X obj 37 37;
#X obj 780 93 / 127;
#X obj 778 117 log;
#X obj 805 152 * -0.1;
#X obj 773 65 receive rf;
#X obj 335 189 receive rf;
#X obj 61 413 *~ 1;
#X obj 304 295 + 0.4;
#X obj 543 376 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X connect 0 0 2 0;
#X connect 1 0 10 0;
#X connect 1 0 17 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 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 63 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 36 0;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 28 0;
#X connect 32 0 31 0;
#X connect 33 0 37 0;
#X connect 34 0 35 0;
#X connect 35 0 33 0;
#X connect 36 0 34 0;
#X connect 37 3 81 0;
#X connect 37 3 86 0;
#X connect 38 0 41 0;
#X connect 38 0 45 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 40 0 38 0;
#X connect 40 0 42 0;
#X connect 41 0 44 0;
#X connect 42 0 49 0;
#X connect 43 0 47 0;
#X connect 44 0 20 0;
#X connect 45 0 23 0;
#X connect 46 0 25 0;
#X connect 47 0 48 0;
#X connect 49 0 43 0;
#X connect 50 0 52 0;
#X connect 51 0 73 0;
#X connect 52 0 51 0;
#X connect 53 0 58 0;
#X connect 54 0 62 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 62 1;
#X connect 58 0 61 0;
#X connect 61 0 87 0;
#X connect 62 0 53 0;
#X connect 63 0 24 0;
#X connect 64 0 70 1;
#X connect 65 0 64 0;
#X connect 66 0 71 0;
#X connect 66 0 65 0;
#X connect 67 0 68 0;
#X connect 67 0 69 0;
#X connect 72 0 30 0;
#X connect 74 0 77 0;
#X connect 77 0 112 0;
#X connect 78 0 89 0;
#X connect 79 0 80 0;
#X connect 79 0 80 1;
#X connect 80 0 85 0;
#X connect 83 0 50 0;
#X connect 84 0 91 0;
#X connect 85 0 94 0;
#X connect 87 0 59 0;
#X connect 87 0 60 0;
#X connect 88 0 67 0;
#X connect 90 0 96 0;
#X connect 91 0 79 0;
#X connect 91 0 79 1;
#X connect 92 0 93 0;
#X connect 92 0 95 0;
#X connect 93 0 66 0;
#X connect 96 0 97 0;
#X connect 96 0 100 0;
#X connect 100 0 99 0;
#X connect 100 0 102 0;
#X connect 102 0 98 0;
#X connect 102 0 104 0;
#X connect 104 0 66 0;
#X connect 106 0 107 0;
#X connect 107 0 108 0;
#X connect 108 0 62 2;
#X connect 109 0 106 0;
#X connect 110 0 74 0;
#X connect 111 0 11 0;
#X connect 112 0 76 0;
#X connect 112 0 10 1;
#X connect 113 0 39 0;
#X restore 195 -263 pd myRain;
#X obj 92 -61 / 15;
#X obj 4 -264 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 3400 1;
#X obj 193 -304 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 4200 1;
#X obj 419 59 *~ 0.5;
#X obj 148 41 *~ 1.2;
#X obj 148 84 *~ 0.7;
#X obj 15 62 *~;
#X obj 575 59 *~ 0.3;
#X connect 0 0 74 0;
#X connect 2 0 9 1;
#X connect 3 0 2 0;
#X connect 4 0 9 2;
#X connect 5 0 26 0;
#X connect 6 0 110 0;
#X connect 7 0 8 0;
#X connect 7 1 103 0;
#X connect 9 0 6 0;
#X connect 10 0 6 1;
#X connect 13 0 99 0;
#X connect 14 0 98 0;
#X connect 15 0 17 2;
#X connect 16 0 106 0;
#X connect 17 0 16 0;
#X connect 18 0 16 1;
#X connect 19 0 15 0;
#X connect 19 0 4 0;
#X connect 22 0 23 0;
#X connect 23 0 17 1;
#X connect 24 0 20 0;
#X connect 24 1 21 0;
#X connect 25 0 11 0;
#X connect 25 1 12 0;
#X connect 27 0 9 0;
#X connect 28 0 17 0;
#X connect 29 0 18 0;
#X connect 29 0 18 1;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 42 0;
#X connect 36 0 37 0;
#X connect 37 0 33 1;
#X connect 37 0 34 1;
#X connect 37 0 35 1;
#X connect 38 0 100 0;
#X connect 39 0 93 0;
#X connect 40 0 38 1;
#X connect 41 0 37 1;
#X connect 42 0 43 0;
#X connect 43 0 38 0;
#X connect 46 0 30 0;
#X connect 47 0 53 0;
#X connect 48 0 58 0;
#X connect 49 0 52 0;
#X connect 50 0 49 0;
#X connect 51 0 48 0;
#X connect 52 0 51 0;
#X connect 53 0 0 0;
#X connect 54 0 80 0;
#X connect 55 0 54 1;
#X connect 56 0 57 0;
#X connect 57 0 55 0;
#X connect 58 0 0 1;
#X connect 58 0 56 0;
#X connect 59 0 107 0;
#X connect 62 0 71 0;
#X connect 63 0 70 0;
#X connect 64 0 63 0;
#X connect 65 0 64 0;
#X connect 66 0 108 0;
#X connect 67 0 66 1;
#X connect 68 0 69 0;
#X connect 69 0 65 0;
#X connect 70 0 59 1;
#X connect 70 0 72 0;
#X connect 71 0 59 0;
#X connect 72 0 73 0;
#X connect 73 0 67 0;
#X connect 74 0 54 0;
#X connect 75 0 68 0;
#X connect 76 0 50 0;
#X connect 77 0 22 0;
#X connect 77 0 29 0;
#X connect 78 0 3 0;
#X connect 78 0 10 0;
#X connect 78 0 10 1;
#X connect 79 0 60 0;
#X connect 79 1 61 0;
#X connect 80 0 44 0;
#X connect 80 1 45 0;
#X connect 81 0 89 0;
#X connect 82 0 91 0;
#X connect 85 0 88 0;
#X connect 86 0 83 0;
#X connect 86 1 84 0;
#X connect 87 0 88 1;
#X connect 88 0 109 0;
#X connect 89 0 85 0;
#X connect 89 0 90 0;
#X connect 90 0 87 0;
#X connect 91 0 85 1;
#X connect 92 0 39 0;
#X connect 93 0 40 0;
#X connect 93 0 41 0;
#X connect 98 0 1 1;
#X connect 99 0 1 0;
#X connect 100 0 46 0;
#X connect 103 0 109 1;
#X connect 104 0 7 0;
#X connect 105 0 102 0;
#X connect 106 0 24 0;
#X connect 107 0 66 0;
#X connect 108 0 79 0;
#X connect 109 0 86 0;
#X connect 110 0 25 0;