annotate SwordSounds/thisPosition.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 c64c81777e76
children 11f39050c282
rev   line source
r@102 1 #N canvas 574 52 917 541 10;
r@101 2 #X obj -11951 -141 r~ currentElev;
r@101 3 #X obj -11639 -26 r~ currentAzim;
r@101 4 #X obj -11951 -117 /~ 360;
r@101 5 #X obj -11951 -94 sin~;
r@101 6 #X obj -11951 -51 *~;
r@101 7 #X obj -11654 -139 r~ currentElev;
r@101 8 #X obj -11654 -115 /~ 360;
r@101 9 #X obj -11654 -49 *~;
r@101 10 #X obj -11654 -92 cos~;
r@101 11 #X obj -11639 19 cos~;
r@101 12 #X obj -11639 -2 /~ 360;
r@101 13 #X obj -11654 44 *~;
r@101 14 #X obj -11798 -22 r~ currentAzim;
r@101 15 #X obj -11813 -135 r~ currentElev;
r@101 16 #X obj -11813 -111 /~ 360;
r@101 17 #X obj -11813 -45 *~;
r@101 18 #X obj -11798 2 /~ 360;
r@101 19 #X obj -11813 48 *~;
r@101 20 #X obj -11813 -88 cos~;
r@101 21 #X obj -11798 23 sin~;
r@101 22 #X text -11683 -163 Z position of source;
r@101 23 #X obj -12001 -9 sig~;
r@101 24 #X obj -11951 17 -~;
r@101 25 #X obj -11856 93 sig~;
r@101 26 #X obj -11813 115 -~;
r@101 27 #X obj -11698 88 sig~;
r@101 28 #X obj -11654 112 -~;
r@101 29 #X obj -11698 65 r Zobs;
r@101 30 #X obj -11951 46 *~;
r@101 31 #X obj -11813 140 *~;
r@101 32 #X obj -11654 137 *~;
r@101 33 #X obj -11893 156 +~;
r@101 34 #X obj -11547 196 +~;
r@101 35 #X obj -11547 220 sqrt~;
r@101 36 #X text -11961 -164 Y position of source;
r@101 37 #X text -11820 -162 X position of source;
r@101 38 #X obj -11856 70 r Xobs;
r@101 39 #X obj -12001 -32 r Yobs;
r@101 40 #X text -12041 201 Distance between the observer as a point in 3D space
r@101 41 and the sound source.;
r@101 42 #X obj -11547 243 outlet~;
r@101 43 #X obj -11508 -190 inlet~;
r@101 44 #X obj -11508 -166 s~ \$0_myScrCnt;
r@101 45 #X obj -11639 -72 r~ \$0_myScrCnt;
r@101 46 #X obj -11798 -68 r~ \$0_myScrCnt;
r@101 47 #X obj -11936 -74 r~ \$0_myScrCnt;
r@101 48 #X obj -11632 72 outlet~;
r@101 49 #X obj -11793 77 outlet~;
r@101 50 #X obj -11919 -19 outlet~;
r@102 51 #X obj -11435 192 +~;
r@102 52 #X obj -11435 216 sqrt~;
r@102 53 #X obj -11435 239 outlet~;
r@101 54 #X connect 0 0 2 0;
r@101 55 #X connect 1 0 10 0;
r@101 56 #X connect 2 0 3 0;
r@101 57 #X connect 3 0 4 0;
r@101 58 #X connect 4 0 22 1;
r@101 59 #X connect 4 0 47 0;
r@101 60 #X connect 5 0 6 0;
r@101 61 #X connect 6 0 8 0;
r@101 62 #X connect 7 0 11 0;
r@101 63 #X connect 8 0 7 0;
r@101 64 #X connect 9 0 11 1;
r@101 65 #X connect 10 0 9 0;
r@101 66 #X connect 11 0 26 1;
r@101 67 #X connect 11 0 45 0;
r@101 68 #X connect 12 0 16 0;
r@101 69 #X connect 13 0 14 0;
r@101 70 #X connect 14 0 18 0;
r@101 71 #X connect 15 0 17 0;
r@101 72 #X connect 16 0 19 0;
r@101 73 #X connect 17 0 24 1;
r@101 74 #X connect 17 0 46 0;
r@101 75 #X connect 18 0 15 0;
r@101 76 #X connect 19 0 17 1;
r@101 77 #X connect 21 0 22 0;
r@101 78 #X connect 22 0 28 0;
r@101 79 #X connect 22 0 28 1;
r@101 80 #X connect 23 0 24 0;
r@101 81 #X connect 24 0 29 0;
r@101 82 #X connect 24 0 29 1;
r@101 83 #X connect 25 0 26 0;
r@101 84 #X connect 26 0 30 0;
r@101 85 #X connect 26 0 30 1;
r@101 86 #X connect 27 0 25 0;
r@101 87 #X connect 28 0 31 0;
r@101 88 #X connect 29 0 31 1;
r@102 89 #X connect 29 0 48 0;
r@101 90 #X connect 30 0 32 1;
r@102 91 #X connect 30 0 48 1;
r@101 92 #X connect 31 0 32 0;
r@101 93 #X connect 32 0 33 0;
r@101 94 #X connect 33 0 39 0;
r@101 95 #X connect 36 0 23 0;
r@101 96 #X connect 37 0 21 0;
r@101 97 #X connect 40 0 41 0;
r@101 98 #X connect 42 0 7 1;
r@101 99 #X connect 43 0 15 1;
r@101 100 #X connect 44 0 4 1;
r@102 101 #X connect 48 0 49 0;
r@102 102 #X connect 49 0 50 0;