view AeolianHarp/harp_D1.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 275 141 964 635 10;
#N canvas 236 158 426 423 windspeed 0;
#X obj 3 -19 +~ 1;
#X obj 3 76 +~;
#X obj 3 3 *~ 0.25;
#X obj 19 53 +~;
#X obj 3 98 clip~ 0 1;
#N canvas 548 156 136 193 squall 0;
#X obj 63 20 noise~;
#X obj 63 83 hip~ 0;
#X obj 63 41 lop~ 3;
#X obj 63 62 lop~ 3;
#X obj 0 86 *~;
#X obj 22 130 *~;
#X obj 0 64 *~ 8;
#X obj 63 104 *~ 20;
#X obj 0 0 inlet~;
#X obj 22 154 outlet~;
#X obj 0 20 max~ 0.42;
#X obj 0 42 -~ 0.42;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 9 0;
#X connect 6 0 4 0;
#X connect 6 0 4 1;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 6 0;
#X restore 77 28 pd squall;
#N canvas 398 157 136 192 gust 0;
#X obj 0 0 noise~;
#X obj 0 63 hip~ 0;
#X obj 0 106 *~;
#X obj 67 44 *~;
#X obj 67 21 +~ 0.5;
#X obj 67 67 -~ 0.125;
#X obj 0 42 lop~ 0.5;
#X obj 0 21 lop~ 0.5;
#X obj 0 84 *~ 50;
#X obj 67 0 inlet~;
#X obj 0 131 outlet~;
#X connect 0 0 7 0;
#X connect 1 0 8 0;
#X connect 2 0 10 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 2 0;
#X connect 9 0 4 0;
#X restore 18 29 pd gust;
#X obj 3 120 outlet~;
#X obj 3 -41 osc~ 0.01;
#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 restore -366 -123 pd windspeed;
#X obj -366 71 delwrite~ varwind 3000;
#X obj -283 -121 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2286 1;
#X obj -323 -18 snapshot~;
#X obj -323 -43 metro 100;
#X obj -323 -65 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X floatatom -323 9 10 0 0 0 - - -;
#X obj -366 -89 *~ 1;
#X obj -366 -63 +~ 1;
#X obj -323 -90 loadbang;
#X text -326 27 Wind Speed;
#X obj -244 8 s wSpeed;
#X obj -147 -120 loadbang;
#X obj -59 147 loadbang;
#X floatatom -59 453 8 0 0 0 - - -;
#X obj -59 171 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -52 0 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 11 0 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 8 -91 Gain;
#X obj -53 -117 loadbang;
#N canvas 865 368 284 318 opLevels 0;
#X obj 74 188 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X obj 74 143 /~ 15;
#X obj 95 165 /~ 15;
#X obj 196 132 inlet;
#X obj 93 68 / 64;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 10 0 0 0;
#X connect 11 0 0 1;
#X connect 12 0 10 1;
#X connect 12 0 11 1;
#X connect 13 0 3 1;
#X connect 13 0 4 1;
#X restore -53 -43 pd opLevels;
#X obj -50 -72 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 2798 1;
#X obj 67 -69 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 390 1;
#X obj 68 -116 loadbang;
#X msg 68 -93 5;
#X text 129 -90 No Of Sources;
#X msg 209 69 0;
#X msg -53 258 0.0093;
#X msg 35 260 0.006129;
#X text -9 241 E4;
#X text 64 241 B4;
#X msg 118 261 0.004585;
#X text 145 245 E5;
#X text 224 248 G#5;
#X text 306 248 B5;
#X text 390 245 E6;
#X msg 198 266 0.003622;
#X msg 359 264 0.002115;
#X msg 280 266 0.003012;
#X obj 123 92 s pan;
#X obj 168 92 s Azi;
#X obj 209 93 s ele;
#X obj 248 93 s dis;
#X obj 289 92 s len;
#X obj 332 94 s dia;
#X obj -19 385 r pan;
#X obj -27 365 r Azi;
#X obj -33 344 r ele;
#X obj -40 324 r dis;
#X obj -46 281 r len;
#X floatatom 29 456 8 0 0 0 - - -;
#X floatatom 112 456 8 0 0 0 - - -;
#X floatatom 192 458 8 0 0 0 - - -;
#X floatatom 274 460 8 0 0 0 - - -;
#X floatatom 353 459 8 0 0 0 - - -;
#X msg 151 408 0.4;
#X msg 231 411 0.5;
#X msg 313 412 0.6;
#X msg 392 411 0.7;
#X msg 68 408 0.3;
#X msg -19 407 0.2;
#X obj 68 386 r pan;
#X obj 61 366 r Azi;
#X obj 55 345 r ele;
#X obj 48 325 r dis;
#X obj 42 282 r len;
#X obj 29 147 loadbang;
#X obj 29 171 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 29 194 12;
#X obj 151 385 r pan;
#X obj 144 365 r Azi;
#X obj 138 344 r ele;
#X obj 131 324 r dis;
#X obj 125 281 r len;
#X obj 112 155 loadbang;
#X obj 112 179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 231 390 r pan;
#X obj 224 370 r Azi;
#X obj 218 349 r ele;
#X obj 211 329 r dis;
#X obj 205 286 r len;
#X obj 192 158 loadbang;
#X obj 192 182 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 313 390 r pan;
#X obj 306 370 r Azi;
#X obj 300 349 r ele;
#X obj 293 329 r dis;
#X obj 287 286 r len;
#X obj 274 159 loadbang;
#X obj 274 183 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 392 389 r pan;
#X obj 385 369 r Azi;
#X obj 379 348 r ele;
#X obj 372 328 r dis;
#X obj 366 285 r len;
#X obj 353 159 loadbang;
#X obj 353 183 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj -53 222 r dia;
#X obj 35 226 r dia;
#X obj 118 229 r dia;
#X obj 198 231 r dia;
#X obj 280 231 r dia;
#X obj 359 229 r dia;
#X obj 222 4 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 249 72 3;
#X msg 168 68 45;
#X obj 222 -56 loadbang;
#X msg -59 194 10;
#X msg 112 202 14;
#X msg 192 205 16;
#X msg 274 206 18;
#X msg 353 206 20;
#X text 253 -110 6 string Aeolian Harp;
#X text 252 -97 Strings tuned to approx E major chord;
#X text 252 -83 IF wind speed = 12 m/s;
#X msg -147 -92 9;
#X text -351 137 Light air = 0.56 m/s - 1.39 m/s;
#X text -351 159 Light Breeze = 1.67 m/s - 3.33 m/s;
#X text -351 179 Gentle Breeze = 3.61 m/s - 5.56 m/s;
#X text -351 199 Moderate Breeze = 5.83 m/s - 8.33 m/s;
#X text -350 220 Fresh Breeze = 8.61 m/s - 11.11 m/s;
#X text -351 241 Strong Breeze = 11.39 m/s - 13.89 m/s;
#X text -350 261 Moderate Gale = 14.17 m/s - 16.94 m/s;
#X text -349 281 Fresh Gale = 17.22 m/s - 20.56 m/s;
#X text -350 301 Strong Gale = 20.83 m/s - 24.72 m/s;
#X text -350 319 Whole Gale = 25 m/s - 28.61 m/s;
#X text -350 339 Storm = 28.89 m/s - 33.06 m/s;
#X text -349 357 Hurricane = 33.33 -;
#X text -313 106 Beaufort Scale Chart;
#X msg 366 307 30;
#X msg 287 309 28;
#X msg 205 308 26;
#X msg 125 303 24;
#X msg 42 304 22;
#X msg -46 303 20;
#X obj 222 -33 t b b;
#X obj 249 -13 delay 9;
#X msg -53 -94 50;
#X obj 274 436 stringE;
#X obj -59 429 stringE;
#X obj 353 435 stringE;
#X obj 29 432 stringE;
#X obj 112 432 stringE;
#X obj 192 434 stringE;
#X connect 0 0 7 0;
#X connect 2 0 7 1;
#X connect 2 0 8 1;
#X connect 3 0 6 0;
#X connect 3 0 11 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X connect 9 0 5 0;
#X connect 12 0 115 0;
#X connect 13 0 15 0;
#X connect 15 0 107 0;
#X connect 19 0 137 0;
#X connect 20 0 16 0;
#X connect 20 1 17 0;
#X connect 21 0 20 0;
#X connect 22 0 20 1;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 26 0 41 0;
#X connect 27 0 139 1;
#X connect 28 0 141 1;
#X connect 31 0 142 1;
#X connect 36 0 143 1;
#X connect 37 0 140 1;
#X connect 38 0 138 1;
#X connect 45 0 60 0;
#X connect 46 0 139 5;
#X connect 47 0 139 4;
#X connect 48 0 139 3;
#X connect 49 0 134 0;
#X connect 55 0 142 6;
#X connect 56 0 143 6;
#X connect 57 0 138 6;
#X connect 58 0 140 6;
#X connect 59 0 141 6;
#X connect 60 0 139 6;
#X connect 61 0 59 0;
#X connect 62 0 141 5;
#X connect 63 0 141 4;
#X connect 64 0 141 3;
#X connect 65 0 133 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 68 0 141 0;
#X connect 69 0 55 0;
#X connect 70 0 142 5;
#X connect 71 0 142 4;
#X connect 72 0 142 3;
#X connect 73 0 132 0;
#X connect 74 0 75 0;
#X connect 75 0 108 0;
#X connect 76 0 56 0;
#X connect 77 0 143 5;
#X connect 78 0 143 4;
#X connect 79 0 143 3;
#X connect 80 0 131 0;
#X connect 81 0 82 0;
#X connect 82 0 109 0;
#X connect 83 0 57 0;
#X connect 84 0 138 5;
#X connect 85 0 138 4;
#X connect 86 0 138 3;
#X connect 87 0 130 0;
#X connect 88 0 89 0;
#X connect 89 0 110 0;
#X connect 90 0 58 0;
#X connect 91 0 140 5;
#X connect 92 0 140 4;
#X connect 93 0 140 3;
#X connect 94 0 129 0;
#X connect 95 0 96 0;
#X connect 96 0 111 0;
#X connect 97 0 27 0;
#X connect 98 0 28 0;
#X connect 99 0 31 0;
#X connect 100 0 36 0;
#X connect 101 0 38 0;
#X connect 102 0 37 0;
#X connect 103 0 39 0;
#X connect 103 0 105 0;
#X connect 103 0 26 0;
#X connect 103 0 104 0;
#X connect 103 0 44 0;
#X connect 103 0 43 0;
#X connect 104 0 42 0;
#X connect 105 0 40 0;
#X connect 107 0 139 0;
#X connect 108 0 142 0;
#X connect 109 0 143 0;
#X connect 110 0 138 0;
#X connect 111 0 140 0;
#X connect 115 0 2 0;
#X connect 129 0 140 2;
#X connect 130 0 138 2;
#X connect 131 0 143 2;
#X connect 132 0 142 2;
#X connect 133 0 141 2;
#X connect 134 0 139 2;
#X connect 135 0 103 0;
#X connect 135 1 136 0;
#X connect 136 0 103 0;
#X connect 137 0 21 0;
#X connect 138 0 53 0;
#X connect 139 0 14 0;
#X connect 140 0 54 0;
#X connect 141 0 50 0;
#X connect 142 0 51 0;
#X connect 143 0 52 0;