view scene demo/wireSrcPosD2.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.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 31 Jul 2015 07:15:40 +0100
parents e57832817def
children 11f39050c282
line wrap: on
line source
#N canvas 99 52 1291 748 10;
#X obj -188 17 inlet;
#X obj -188 38 unpack f f f f f f f f f;
#X obj -15 251 inlet;
#X floatatom -50 274 5 0 0 0 - - -;
#X obj -149 174 +;
#X floatatom -186 200 5 0 0 0 - - -;
#X obj -46 202 +;
#X obj -46 158 * -1;
#X floatatom -79 225 5 0 0 0 - - -;
#X floatatom -188 151 5 0 0 0 - - -;
#X obj -61 244 -;
#X floatatom -108 264 5 0 0 0 - - -;
#X obj -15 295 /;
#X obj -61 369 *;
#X floatatom -111 398 5 0 0 0 - - -;
#X floatatom 6 323 5 0 0 0 - - -;
#X obj -46 327 t f b;
#X obj -61 416 +;
#X floatatom -98 439 5 0 0 0 - - -;
#X obj 385 120 r Xpos;
#X obj 461 121 r Ypos;
#X obj 534 122 r Zpos;
#X obj 446 216 +;
#X obj 446 242 +;
#X obj 446 267 sqrt;
#X floatatom 406 292 5 0 0 0 - - -;
#X obj 385 187 *;
#X obj 461 188 *;
#X obj 534 189 *;
#X obj 534 165 -;
#X obj 461 164 -;
#X obj 385 163 -;
#X obj 624 305 outlet;
#X obj 624 233 atan;
#X obj 624 211 /;
#X floatatom 589 305 5 0 0 0 - - -;
#X obj 624 257 * 360;
#X obj 624 281 / 6.28319;
#X obj 639 168 t f b;
#X obj 666 191 delay 9;
#X text 330 267 Distance to source;
#X obj 693 605 outlet;
#X text 646 632 Calculates the pan value;
#X obj 687 282 r YRpos;
#X obj 687 331 +;
#X obj 702 306 t f b;
#X floatatom 741 305 5 0 0 0 - - -;
#X obj 687 399 mod 360;
#X obj 606 426 > 180;
#X obj 646 426 < 360;
#X obj 613 452 spigot;
#X obj 573 477 spigot;
#X obj 687 426 / 360;
#X obj 733 450 spigot;
#X obj 693 475 spigot;
#X obj 726 426 < 180;
#X obj 766 426 > 0;
#X floatatom 738 606 5 0 0 0 - - -;
#X obj 693 580 clip 0 1;
#X obj 687 355 swap 360;
#X obj 687 377 -;
#X obj 573 519 + 1;
#X obj 573 498 * -1;
#X obj 693 557 * 2;
#X obj 446 292 outlet;
#X text 564 330 Azimuth to source;
#X obj 864 302 outlet;
#X obj 864 230 atan;
#X obj 864 208 /;
#X floatatom 829 302 5 0 0 0 - - -;
#X obj 864 254 * 360;
#X obj 864 278 / 6.28319;
#X obj 879 165 t f b;
#X obj 906 188 delay 9;
#X text 841 324 Elevation btw source and observer;
#X obj 39 156 * 2;
#X obj 39 177 outlet;
#X floatatom -120 527 5 0 0 0 - - -;
#X obj -81 529 outlet;
#X obj -19 348 delay 9;
#X obj -188 71 s \$0-1WirX;
#X obj -121 71 s \$0-1WirY;
#X obj -55 71 s \$0-1WirZ;
#X obj 12 71 s \$0-1WirLX;
#X obj 85 71 s \$0-1WirLY;
#X obj 158 71 s \$0-1WirLZ;
#X obj 231 71 s \$0-1WirRX;
#X obj 304 71 s \$0-1WirRY;
#X obj 377 71 s \$0-1WirRZ;
#X obj -149 130 r \$0-1WirLY;
#X obj -134 152 r \$0-1WirZ;
#X obj -149 201 s \$0-topW;
#X obj -46 135 r \$0-1WirLY;
#X obj -31 180 r \$0-1WirZ;
#X obj -35 227 s \$0-botW;
#X obj -46 391 r \$0-botW;
#X obj -61 439 s \$0-thisZ;
#X obj -81 504 r \$0-1WirLX;
#X obj 0 270 r NO_WIR_SRC;
#X obj 400 141 r \$0-1WirX;
#X obj 476 142 r \$0-1WirY;
#X obj 549 142 r \$0-thisZ;
#X obj 335 185 s \$0-ad;
#X obj 413 187 s \$0-cd;
#X obj 490 190 s \$0-bd;
#X obj 624 121 r \$0-bd;
#X obj 639 145 r \$0-ad;
#X obj 864 116 r \$0-cd;
#X obj 879 143 r \$0-ad;
#X connect 0 0 1 0;
#X connect 1 0 80 0;
#X connect 1 1 81 0;
#X connect 1 2 82 0;
#X connect 1 3 83 0;
#X connect 1 4 84 0;
#X connect 1 5 85 0;
#X connect 1 6 86 0;
#X connect 1 7 87 0;
#X connect 1 8 88 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 4 0 91 0;
#X connect 6 0 8 0;
#X connect 6 0 10 1;
#X connect 6 0 94 0;
#X connect 7 0 6 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 12 0 15 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 13 0 17 0;
#X connect 16 0 13 1;
#X connect 16 1 79 0;
#X connect 17 0 18 0;
#X connect 17 0 96 0;
#X connect 19 0 31 0;
#X connect 20 0 30 0;
#X connect 21 0 29 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 64 0;
#X connect 26 0 22 0;
#X connect 27 0 22 1;
#X connect 28 0 23 1;
#X connect 29 0 28 0;
#X connect 29 0 28 1;
#X connect 29 0 104 0;
#X connect 30 0 27 0;
#X connect 30 0 27 1;
#X connect 30 0 103 0;
#X connect 31 0 26 0;
#X connect 31 0 26 1;
#X connect 31 0 102 0;
#X connect 33 0 36 0;
#X connect 34 0 33 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 37 0 32 0;
#X connect 37 0 45 0;
#X connect 38 0 34 1;
#X connect 38 1 39 0;
#X connect 39 0 34 0;
#X connect 43 0 44 0;
#X connect 43 0 46 0;
#X connect 44 0 59 0;
#X connect 45 0 44 1;
#X connect 45 1 44 0;
#X connect 47 0 48 0;
#X connect 47 0 49 0;
#X connect 47 0 52 0;
#X connect 47 0 55 0;
#X connect 47 0 56 0;
#X connect 48 0 51 1;
#X connect 49 0 50 1;
#X connect 50 0 51 0;
#X connect 51 0 62 0;
#X connect 52 0 50 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 54 0 63 0;
#X connect 55 0 54 1;
#X connect 56 0 53 1;
#X connect 58 0 57 0;
#X connect 58 0 41 0;
#X connect 59 0 60 0;
#X connect 59 1 60 1;
#X connect 60 0 47 0;
#X connect 61 0 63 0;
#X connect 62 0 61 0;
#X connect 63 0 58 0;
#X connect 67 0 70 0;
#X connect 68 0 67 0;
#X connect 70 0 71 0;
#X connect 71 0 69 0;
#X connect 71 0 66 0;
#X connect 72 0 68 1;
#X connect 72 1 73 0;
#X connect 73 0 68 0;
#X connect 75 0 76 0;
#X connect 79 0 13 0;
#X connect 89 0 4 0;
#X connect 89 0 9 0;
#X connect 90 0 4 1;
#X connect 92 0 7 0;
#X connect 92 0 75 0;
#X connect 93 0 6 1;
#X connect 95 0 17 1;
#X connect 97 0 77 0;
#X connect 97 0 78 0;
#X connect 98 0 12 1;
#X connect 99 0 31 1;
#X connect 100 0 30 1;
#X connect 101 0 29 1;
#X connect 105 0 34 0;
#X connect 106 0 38 0;
#X connect 107 0 68 0;
#X connect 108 0 72 0;