view sept - Dec 14/multiD1.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 839 23 450 300 10;
#X obj 299 249 dac~;
#X obj 275 190 catch~ l;
#X obj 339 190 catch~ r;
#X obj 340 224 *~ 0.45;
#X obj 276 224 *~ 0.45;
#N canvas 82 59 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 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 0 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 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 834 447 * -1;
#X obj 813 477 / 5;
#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 obj 875 605 * 2;
#X obj 864 580 + 0.05;
#X obj 614 261 *~ 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 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 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 70 0 87 0;
#X connect 71 0 111 0;
#X connect 72 0 30 0;
#X connect 74 0 77 0;
#X connect 77 0 108 0;
#X connect 78 0 88 0;
#X connect 79 0 80 0;
#X connect 79 0 80 1;
#X connect 80 0 85 0;
#X connect 82 0 39 0;
#X connect 83 0 50 0;
#X connect 84 0 90 0;
#X connect 85 0 93 0;
#X connect 89 0 95 0;
#X connect 90 0 79 0;
#X connect 90 0 79 1;
#X connect 91 0 92 0;
#X connect 91 0 94 0;
#X connect 92 0 66 0;
#X connect 95 0 96 0;
#X connect 95 0 99 0;
#X connect 99 0 98 0;
#X connect 99 0 100 0;
#X connect 100 0 97 0;
#X connect 100 0 101 0;
#X connect 101 0 66 0;
#X connect 102 0 103 0;
#X connect 103 0 104 0;
#X connect 104 0 62 2;
#X connect 105 0 102 0;
#X connect 106 0 74 0;
#X connect 107 0 11 0;
#X connect 108 0 76 0;
#X connect 108 0 10 1;
#X connect 109 0 39 0;
#X connect 110 0 87 1;
#X connect 111 0 110 0;
#X connect 112 0 59 0;
#X connect 112 0 60 0;
#X restore 210 110 pd myRain;
#X obj 208 69 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -65600
-257985 -1 0 1;
#X obj 167 196 windD3;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X connect 6 0 5 0;
#X coords 0 -1 1 1 85 60 2 100 100;