view sept - Dec 14/polarD1.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 232 23 991 677 10;
#X obj 611 -1305 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6800 1;
#X obj 608 -1330 inlet;
#X obj 416 -1305 throw~ l;
#X obj 481 -1305 throw~ r;
#X obj 417 -1517 r~ white;
#X obj 495 -1507 cos~;
#X obj 495 -1419 osc~;
#X obj 417 -1376 *~ 2;
#X obj 608 -1279 / 127;
#X obj 495 -1485 lop~ 0.1;
#X obj 416 -1327 fcpan 0.48;
#X obj 27 -1672 noise~;
#N canvas 64 234 764 550 windspeed 0;
#X obj 127 63 +~ 1;
#X obj 126 173 +~;
#X obj 127 86 *~ 0.25;
#X obj 142 151 +~;
#N canvas 190 268 362 239 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 40 184 outlet~;
#X obj 159 37 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 156 61 / 127;
#X obj 156 115 + 3;
#X obj 156 88 * 4;
#X obj 156 9 inlet;
#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 11 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 5 1;
#X connect 10 0 6 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 2 1;
#X connect 14 0 3 1;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X restore 197 120 pd squall;
#N canvas 230 295 243 313 gust 0;
#X obj 9 15 noise~;
#X obj 8 157 *~;
#X obj 70 9 *~;
#X obj 69 -14 +~ 0.5;
#X obj 70 33 -~ 0.125;
#X obj 9 103 *~ 50;
#X obj 69 -54 inlet~;
#X obj 8 182 outlet~;
#X obj 9 59 lop~ 4;
#X obj 8 82 hip~ 0;
#X obj 9 38 lop~ 4;
#X obj 143 -74 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 140 -51 / 127;
#X obj 140 -26 * 4;
#X obj 140 -101 inlet;
#X connect 0 0 10 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 0 2 1;
#X connect 4 0 1 1;
#X connect 5 0 1 0;
#X connect 6 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 10 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 10 1;
#X connect 13 0 8 1;
#X connect 14 0 11 0;
#X restore 141 120 pd gust;
#X obj 127 259 outlet~;
#X msg 184 10 0.1;
#X obj 127 41 osc~ 0.1;
#X obj 38 103 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 0 1;
#X obj 127 200 *~ 1;
#X obj 40 256 / 64;
#X obj 127 233 clip~ 0 2;
#X obj 180 65 inlet;
#X obj 248 93 inlet;
#X obj 38 68 inlet;
#X obj 127 -151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 127 -100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 127 -52 5 0 0 0 - - -;
#X floatatom 127 7 5 0 0 0 - - -;
#X obj 127 -76 drunk 100 20;
#X obj 127 -126 metro 8000;
#X obj 127 -24 / 400;
#X obj 55 -144 loadbang;
#X connect 0 0 2 0;
#X connect 1 0 10 0;
#X connect 2 0 1 0;
#X connect 2 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 1 1;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 7 0 8 1;
#X connect 8 0 0 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 6 0;
#X connect 13 0 5 1;
#X connect 14 0 4 1;
#X connect 15 0 9 0;
#X connect 16 0 21 0;
#X connect 17 0 20 0;
#X connect 18 0 22 0;
#X connect 19 0 8 0;
#X connect 20 0 18 0;
#X connect 21 0 17 0;
#X connect 22 0 19 0;
#X connect 23 0 21 0;
#X restore -94 -1639 pd windspeed;
#X obj -94 -1617 delwrite~ a 3000;
#X obj 27 -1650 s~ white;
#X obj -60 -1685 inlet;
#X obj -25 -1666 inlet;
#X obj -94 -1663 inlet;
#X obj -64 -1519 dac~;
#X obj -88 -1578 catch~ l;
#X obj -24 -1578 catch~ r;
#X obj -23 -1544 *~ 0.45;
#X obj -87 -1544 *~ 0.45;
#X obj -87 -1494 prvu~;
#X obj -86 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -23 -1493 prvu~;
#X obj -22 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 89 -1561 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 2200 1;
#X obj 89 -1413 / 64;
#X obj 253 -1504 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 8200 1;
#X obj 251 -1354 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 600 1;
#X obj 249 -1484 / 127;
#X obj 248 -1332 / 127;
#X obj 248 -1460 * 600;
#X obj 247 -1281 + 10;
#X floatatom 248 -1439 5 0 0 0 - - -;
#X floatatom 246 -1258 5 0 0 0 - - -;
#X obj 626 -1536 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj 623 -1513 / 127;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-array 100 float 0;
#X coords 0 1 99 0 100 100 1 0 0;
#X restore 185 -1703 graph;
#X obj 84 -1636 metro 500;
#X text 86 -1595 graph the output;
#X obj 84 -1661 loadbang;
#X obj 68 -1612 tabwrite~ \$0-array;
#X obj 152 -1659 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 495 -1556 vd~ a 10;
#X obj 495 -1463 *~ 100;
#X obj 623 -1466 + 1;
#X obj 623 -1489 * 200;
#X obj 417 -1450 lop~ 400;
#X obj 416 -1397 *~;
#X obj 417 -1420 bp~ 300 200;
#X obj 495 -1441 +~ 200;
#X obj 660 -1437 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 3800 1;
#X obj 657 -1415 / 127;
#X obj 657 -1368 + 1;
#X obj 657 -1391 * 900;
#X obj 248 -1307 * 300;
#X obj 622 -1644 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 800 1;
#X obj 619 -1621 / 127;
#X obj 619 -1597 + 0.01;
#X text 681 -1328 Gain;
#X text 620 -1680 lop cut-off / effects variations in the windspeed
;
#X text 654 -1565 Gain into osc Higher value adds more LF;
#X text 450 -1268 Polar Wind;
#X text 246 -1387 BP Q value;
#X text 254 -1535 BP Centre Freq;
#X obj 416 -1352 *~ 1;
#X obj 609 -1253 * 80;
#X text 667 -1470 Input LP Freq cut-off Higher adds more HF;
#X floatatom 675 -1595 5 0 0 0 - - -;
#X obj 417 -1474 hip~ 40;
#X obj 495 -1534 clip~ 0.5 0.9;
#X obj 451 -1651 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 2600 1;
#X obj 448 -1625 / 127;
#X obj 446 -1579 + 1;
#X floatatom 716 -1354 5 0 0 0 - - -;
#X floatatom 445 -1550 5 0 0 0 - - -;
#X obj 448 -1603 * 500;
#X text 465 -1680 HP Freq Cut-off;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 4 0 71 0;
#X connect 5 0 9 0;
#X connect 7 0 67 0;
#X connect 8 0 68 0;
#X connect 9 0 46 0;
#X connect 9 0 50 1;
#X connect 10 0 2 0;
#X connect 10 1 3 0;
#X connect 11 0 14 0;
#X connect 12 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 12 2;
#X connect 17 0 12 0;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 18 1;
#X connect 21 0 25 0;
#X connect 22 0 18 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 21 1;
#X connect 28 0 22 1;
#X connect 29 0 31 0;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 57 0;
#X connect 33 0 35 0;
#X connect 34 0 36 0;
#X connect 34 0 51 2;
#X connect 35 0 51 1;
#X connect 37 0 38 0;
#X connect 38 0 48 0;
#X connect 40 0 43 0;
#X connect 42 0 40 0;
#X connect 42 0 40 0;
#X connect 44 0 40 0;
#X connect 45 0 72 0;
#X connect 46 0 52 0;
#X connect 47 0 46 1;
#X connect 48 0 47 0;
#X connect 49 0 51 0;
#X connect 50 0 7 0;
#X connect 51 0 50 0;
#X connect 52 0 6 0;
#X connect 53 0 54 0;
#X connect 54 0 56 0;
#X connect 55 0 49 1;
#X connect 55 0 76 0;
#X connect 56 0 55 0;
#X connect 57 0 34 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 60 0 9 1;
#X connect 60 0 70 0;
#X connect 67 0 10 0;
#X connect 68 0 7 1;
#X connect 71 0 49 0;
#X connect 72 0 5 0;
#X connect 72 0 43 0;
#X connect 73 0 74 0;
#X connect 74 0 78 0;
#X connect 75 0 77 0;
#X connect 77 0 71 1;
#X connect 78 0 75 0;