view EdgeTonePatches/EdgeToneD1.pd @ 300:ecd89cad1811

Still working on projetion matrices and angles. Cav added to the model.

#N canvas 392 105 991 662 10;
#N canvas 322 154 491 423 Dipoles 0;
#X obj 210 217 *~;
#X obj 210 308 throw~ l;
#X obj 237 285 throw~ r;
#X obj 210 264 fcpan;
#X text 101 35 Generates the sound associated with the lift dipole.
;
#X obj 284 95 r \$0-Qval;
#X floatatom 255 263 5 0 0 0 - - -;
#X obj 362 158 r myMet;
#X obj 362 178 snapshot~;
#X floatatom 362 199 0 0 0 0 - - -;
#X obj 210 67 inlet~;
#X obj 225 196 inlet~;
#X obj 131 67 inlet~;
#X obj 237 242 r centrePan;
#X obj 210 108 vcf~ 80;
#X obj 210 131 vcf~ 80;
#X connect 0 0 3 0;
#X connect 0 0 8 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 5 0 14 2;
#X connect 5 0 15 2;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 14 0;
#X connect 11 0 0 1;
#X connect 12 0 14 1;
#X connect 12 0 15 1;
#X connect 13 0 3 1;
#X connect 13 0 6 0;
#X connect 14 0 15 0;
#X connect 15 0 0 0;
#X restore 701 315 pd Dipoles;
#X obj 729 272 noise~;
#X obj 437 62 s centrePan;
#X msg 437 41 0.5;
#X obj 437 19 loadbang;
#X obj 88 46 hsl 80 25 0.0001 1 1 0 empty empty Distance 2 12 0 10
-4034 -1 -1 3950 1;
#X obj 180 45 hsl 80 25 0.0001 1 1 0 empty empty Height 2 12 0 10 -257985
-1 -1 1975 1;
#X obj 270 44 hsl 80 25 0.0001 10000 1 0 empty empty Breadth 2 12 0
10 -260097 -1 -1 5663 1;
#X floatatom 105 78 0 0 0 0 - - -;
#X floatatom 190 75 0 0 0 0 - - -;
#X floatatom 280 74 0 0 0 0 - - -;
#X msg 85 98 \$1 30;
#X obj 85 120 line~;
#X msg 177 97 \$1 30;
#X obj 177 119 line~;
#X msg 267 95 \$1 30;
#X obj 267 117 line~;
#X obj 85 143 s~ L;
#X obj 177 141 s~ d;
#X obj 267 139 s~ b;
#X obj 547 32 vsl 25 80 1 4 0 0 empty empty Mode 0 -9 0 10 -258113
-1 -1 0 1;
#X obj 547 121 + 0.5;
#X obj 547 141 i;
#X floatatom 581 160 0 0 0 0 - - -;
#N canvas 760 149 490 561 alphaCalc 0;
#X obj 174 82 r~ b;
#X obj 189 104 r~ L;
#X obj 174 126 /~;
#X obj 174 168 log~;
#X obj 195 146 sig~ 10;
#X obj 185 487 s~ alpha;
#X text 78 47 Plotfit from MatLab used to get equation of line;
#X text 77 29 From Howe 1997 Table 1;
#X obj 101 420 r myMet;
#X obj 101 440 snapshot~;
#X floatatom 101 461 0 0 0 0 - - -;
#X obj 157 210 *~;
#X obj 181 283 +~;
#X obj 92 129 r myMet;
#X obj 92 149 snapshot~;
#X floatatom 92 170 0 0 0 0 - - -;
#X obj 273 300 >~ 500;
#X obj 127 372 spigot~;
#X obj 127 350 sig~ 1.76;
#X obj 319 301 r myMet;
#X obj 319 321 snapshot~;
#X floatatom 319 342 0 0 0 0 - - -;
#X obj 181 378 spigot~;
#X obj 166 400 +~;
#X obj 157 242 *~ 0.0847;
#X obj 182 330 clip~ 1.76 3;
#X obj 25 408 r myMet;
#X obj 25 428 snapshot~;
#X floatatom 25 449 0 0 0 0 - - -;
#X obj 263 421 r myMet;
#X obj 263 441 snapshot~;
#X floatatom 263 462 0 0 0 0 - - -;
#X obj 57 326 r myMet;
#X obj 57 346 snapshot~;
#X floatatom 57 367 0 0 0 0 - - -;
#X obj 220 241 *~ -0.1812;
#X obj 182 305 +~ 2.1952;
#X obj 305 98 sig~ 1.76;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 2 0 14 0;
#X connect 2 0 16 0;
#X connect 3 0 11 1;
#X connect 3 0 11 0;
#X connect 3 0 35 0;
#X connect 4 0 3 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 11 0 24 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 20 0;
#X connect 17 1 27 0;
#X connect 17 1 23 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 0 17 1;
#X connect 20 0 22 1;
#X connect 22 0 30 0;
#X connect 22 0 23 1;
#X connect 23 0 9 0;
#X connect 23 0 5 0;
#X connect 24 0 12 0;
#X connect 25 0 22 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 35 0 36 0;
#X connect 36 0 25 0;
#X connect 36 0 33 0;
#X restore 263 184 pd alphaCalc;
#N canvas 61 719 623 469 thetaCalc 0;
#X obj 130 65 r~ alpha;
#X obj 130 90 /~ 0.92;
#X obj 130 174 pow~;
#X obj 151 110 sig~ 2;
#X obj 166 129 sig~ 3;
#X obj 151 152 /~;
#X obj 145 237 /~;
#X obj 145 195 sig~ 9;
#X obj 160 214 sig~ 8;
#X obj 130 260 -~;
#X obj 130 286 s~ theta;
#X text 118 31 From Howe 1997 \, page 16;
#X obj 393 244 r myMet;
#X obj 393 264 snapshot~;
#X floatatom 393 285 0 0 0 0 - - -;
#X obj 246 75 sig~ 1.89;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 9 1;
#X connect 7 0 6 0;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 9 0 13 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X restore 264 205 pd thetaCalc;
#X obj 547 165 s n;
#X obj 241 515 r myMet;
#X obj 241 535 snapshot~;
#X floatatom 241 556 0 0 0 0 - - -;
#X obj 230 422 r myMet;
#X obj 230 442 snapshot~;
#X floatatom 230 463 0 0 0 0 - - -;
#X obj 56 281 r myMet;
#X obj 56 301 snapshot~;
#X floatatom 56 322 0 0 0 0 - - -;
#X obj 121 279 r myMet;
#X obj 121 299 snapshot~;
#X floatatom 121 320 0 0 0 0 - - -;
#X obj 43 249 r~ alpha;
#X obj 108 256 r~ theta;
#X obj 691 342 hsl 128 15 0.001 1e+09 1 0 empty empty empty -2 -8 0
10 -262144 -1 -1 7400 1;
#X floatatom 697 360 0 0 0 0 - - -;
#X obj 669 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 732 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#N canvas 555 179 313 396 opLevels 0;
#X obj 83 210 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 connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 0 1;
#X connect 4 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 4 1;
#X connect 7 0 3 1;
#X restore 668 387 pd opLevels;
#X obj 641 120 s~ windspeed;
#X msg 641 75 \$1 30;
#X obj 641 97 line~;
#X obj 644 40 hsl 80 25 0.01 40 0 0 empty empty Windspeed 2 12 0 10
-4032 -1 -1 1974 1;
#X floatatom 695 72 0 0 0 0 - - -;
#X obj 834 80 s myMet;
#X obj 832 11 loadbang;
#X obj 833 55 metro 20;
#X obj 832 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#N canvas 723 203 431 543 freqCalcHowe 0;
#X obj 139 17 r~ theta;
#X obj 139 62 +~ 1;
#X obj 160 39 r n;
#X obj 139 85 +~ 0.125;
#X obj 139 172 pow~;
#X obj 160 150 /~;
#X obj 160 108 sig~ 3;
#X obj 175 127 sig~ 2;
#X obj 154 194 r~ d;
#X obj 169 214 r~ L;
#X obj 154 236 /~;
#X obj 154 259 sqrt~;
#X obj 139 281 *~;
#X obj 139 303 *~ 0.92;
#X obj 154 322 r~ windspeed;
#X obj 154 362 r~ L;
#X obj 139 342 *~;
#X obj 139 383 /~;
#X obj 270 144 r myMet;
#X obj 270 164 snapshot~;
#X floatatom 270 185 0 0 0 0 - - -;
#X obj 139 408 s~ freqHowe;
#X obj 80 329 s~ StHowe;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 13 0 16 0;
#X connect 13 0 22 0;
#X connect 14 0 16 1;
#X connect 15 0 17 1;
#X connect 16 0 17 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X restore 381 175 pd freqCalcHowe;
#N canvas 720 75 720 763 freqCalcCrighton 0;
#X obj 152 23 r~ d;
#X obj 152 45 /~ 2;
#X obj 152 92 /~;
#X obj 167 70 r~ L;
#X obj 152 175 pow~;
#X obj 173 153 /~;
#X obj 173 111 sig~ 3;
#X obj 188 130 sig~ 2;
#X obj 197 303 sig~ 0.375;
#X obj 182 237 r n;
#X obj 167 431 pow~;
#X obj 188 409 /~;
#X obj 188 367 sig~ 3;
#X obj 203 386 sig~ 2;
#X obj 167 346 *~;
#X obj 152 453 *~;
#X obj 178 537 /~;
#X obj 152 495 *~;
#X obj 167 473 r~ windspeed;
#X obj 178 606 s~ freq_Crighton;
#X msg 182 260 \$1 30;
#X obj 182 281 line~;
#X obj 193 641 r myMet;
#X obj 193 661 snapshot~;
#X floatatom 193 682 0 0 0 0 - - -;
#X obj 498 152 sig~ 8.219;
#X obj 527 345 pow~;
#X obj 548 323 /~;
#X obj 548 281 sig~ 3;
#X obj 563 300 sig~ 2;
#X obj 513 372 *~;
#X obj 498 396 *~;
#X obj 426 397 r myMet;
#X obj 426 417 snapshot~;
#X floatatom 426 438 0 0 0 0 - - -;
#X obj 498 460 /~;
#X obj 498 437 *~;
#X obj 513 415 r~ windspeed;
#X obj 498 504 /~;
#X obj 513 481 sig~ 6.28319;
#X obj 570 559 r myMet;
#X obj 570 579 snapshot~;
#X floatatom 570 600 0 0 0 0 - - -;
#X obj 527 174 r n;
#X msg 527 197 \$1 30;
#X obj 527 218 line~;
#X obj 542 240 sig~ 0.4;
#X obj 527 261 +~;
#X obj 182 324 -~;
#X text 457 129 Holger in terms of Crighton (N=1);
#X obj 16 576 s~ StCrighton;
#X obj 18 596 r myMet;
#X obj 18 616 snapshot~;
#X floatatom 18 637 0 0 0 0 - - -;
#X obj 195 508 *~ 3.14159;
#X obj 167 211 sig~ 12.5664;
#X obj 114 558 /~ 0.314159;
#X connect 0 0 1 0;
#X connect 0 0 54 0;
#X connect 1 0 2 0;
#X connect 1 0 35 1;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 15 0;
#X connect 4 0 30 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 48 1;
#X connect 9 0 20 0;
#X connect 10 0 15 1;
#X connect 11 0 10 1;
#X connect 12 0 11 0;
#X connect 13 0 11 1;
#X connect 14 0 10 0;
#X connect 15 0 17 0;
#X connect 15 0 56 0;
#X connect 16 0 19 0;
#X connect 16 0 23 0;
#X connect 17 0 16 0;
#X connect 18 0 17 1;
#X connect 20 0 21 0;
#X connect 21 0 48 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 31 0;
#X connect 26 0 30 1;
#X connect 27 0 26 1;
#X connect 28 0 27 0;
#X connect 29 0 27 1;
#X connect 30 0 31 1;
#X connect 31 0 33 0;
#X connect 31 0 36 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 35 0 38 0;
#X connect 36 0 35 0;
#X connect 37 0 36 1;
#X connect 38 0 41 0;
#X connect 39 0 38 1;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 47 0;
#X connect 46 0 47 1;
#X connect 47 0 26 0;
#X connect 48 0 14 1;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 54 0 16 1;
#X connect 55 0 14 0;
#X connect 56 0 52 0;
#X connect 56 0 50 0;
#X restore 381 217 pd freqCalcCrighton;
#X obj 36 393 r~ freq_Crighton;
#X obj 83 415 r myMet;
#X obj 83 435 snapshot~;
#X floatatom 83 461 0 0 0 0 - - -;
#N canvas 818 138 648 617 freqCalcHolger 0;
#X obj 143 63 r~ d;
#X obj 158 85 r~ L;
#X obj 143 106 /~;
#X obj 143 128 sqrt~;
#X obj 128 38 sig~ 0.925;
#X obj 128 151 *~;
#X obj 194 115 r n;
#X msg 234 203 0.4;
#X msg 257 181 0.35;
#X msg 280 160 0.5;
#X obj 234 137 select 1 2 3;
#X obj 194 213 line~;
#X msg 194 187 \$1 30;
#X obj 213 353 pow~;
#X obj 234 331 /~;
#X obj 234 289 sig~ 3;
#X obj 249 308 sig~ 2;
#X obj 128 399 *~;
#X obj 128 508 s~ freqHolg;
#X obj 213 267 +~ 1;
#X obj 143 421 r~ windspeed;
#X obj 143 465 r~ L;
#X obj 128 444 *~;
#X obj 128 486 /~;
#X obj 336 223 r myMet;
#X obj 336 243 snapshot~;
#X floatatom 336 264 0 0 0 0 - - -;
#X obj -9 416 r myMet;
#X obj -9 436 snapshot~;
#X floatatom -9 457 0 0 0 0 - - -;
#X obj 53 433 s~ StHolger;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 17 0;
#X connect 6 0 10 0;
#X connect 6 0 12 0;
#X connect 7 0 19 1;
#X connect 8 0 19 1;
#X connect 9 0 19 1;
#X connect 10 0 7 0;
#X connect 10 1 8 0;
#X connect 10 2 9 0;
#X connect 11 0 19 0;
#X connect 12 0 11 0;
#X connect 13 0 17 1;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 14 1;
#X connect 17 0 22 0;
#X connect 17 0 28 0;
#X connect 17 0 30 0;
#X connect 19 0 13 0;
#X connect 20 0 22 1;
#X connect 21 0 23 1;
#X connect 22 0 23 0;
#X connect 23 0 18 0;
#X connect 23 0 25 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X restore 381 196 pd freqCalcHolger;
#X obj 141 393 r~ freqHolg;
#X obj 155 416 r myMet;
#X obj 155 436 snapshot~;
#X floatatom 155 457 0 0 0 0 - - -;
#X msg 697 21 0.137;
#N canvas 224 496 450 300 Reynolds 0;
#X obj 226 58 r~ windspeed;
#X obj 226 82 *~ 1.225;
#X obj 241 103 r~ d;
#X obj 226 124 *~;
#X obj 226 147 /~ 1.81e-05;
#X obj 226 170 s~ Rey;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X restore 641 234 pd Reynolds;
#X obj 498 297 r~ Rey;
#X obj 513 320 r myMet;
#X obj 513 340 snapshot~;
#X floatatom 513 361 0 0 0 0 - - -;
#X obj 456 486 r myMet;
#X obj 456 506 snapshot~;
#X floatatom 456 527 0 0 0 0 - - -;
#X obj 438 412 r~ L;
#X obj 447 433 r~ d;
#X obj 414 439 /~;
#X obj 414 461 *~;
#X obj 859 129 r~ L;
#X obj 873 150 r~ d;
#X obj 859 171 /~;
#X obj 885 172 r myMet;
#X obj 885 192 snapshot~;
#X floatatom 885 213 0 0 0 0 - - -;
#X obj 772 172 /~;
#X obj 798 173 r myMet;
#X obj 798 193 snapshot~;
#X floatatom 798 214 0 0 0 0 - - -;
#X obj 772 131 r~ b;
#X obj 786 151 r~ L;
#N canvas 736 76 710 658 freqCalcBrown 0;
#X obj 115 102 r~ windspeed;
#X obj 221 75 select 1 2 3 4;
#X msg 221 157 1;
#X msg 247 144 2.3;
#X msg 261 117 3.8;
#X msg 281 97 5.4;
#X obj 217 45 r n;
#X obj 115 125 *~ 100;
#X obj 115 148 -~ 40;
#X obj 145 190 r~ L;
#X obj 145 210 *~ 100;
#X obj 130 168 sig~ 1;
#X obj 130 230 /~;
#X obj 130 254 -~ 0.07;
#X obj 115 279 *~;
#X obj 115 302 *~ 1;
#X obj 314 505 s~ freqBrown;
#X obj 451 148 r~ windspeed;
#X obj 451 194 -~ 40;
#X obj 481 236 r~ L;
#X obj 466 214 sig~ 1;
#X obj 466 276 /~;
#X obj 466 300 -~ 0.07;
#X obj 451 325 *~;
#X obj 451 348 *~ 0.466;
#X obj 451 371 *~ 1;
#X obj 450 171 *~ 100;
#X obj 481 255 *~ 100;
#X obj 466 436 r~ windspeed;
#X obj 466 392 r~ L;
#X obj 451 416 *~;
#X obj 451 458 /~;
#X obj 451 483 s~ StBrown;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 2 0 15 1;
#X connect 2 0 25 1;
#X connect 3 0 15 1;
#X connect 3 0 25 1;
#X connect 4 0 15 1;
#X connect 4 0 25 1;
#X connect 5 0 15 1;
#X connect 5 0 25 1;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 14 0;
#X connect 9 0 10 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 1;
#X connect 14 0 15 0;
#X connect 17 0 26 0;
#X connect 18 0 23 0;
#X connect 19 0 27 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 16 0;
#X connect 25 0 30 0;
#X connect 26 0 18 0;
#X connect 27 0 21 1;
#X connect 28 0 31 1;
#X connect 29 0 30 1;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X restore 381 238 pd freqCalcBrown;
#X obj 291 393 r~ freqBrown;
#X obj 312 416 r myMet;
#X obj 312 436 snapshot~;
#X floatatom 312 457 0 0 0 0 - - -;
#X msg 177 17 0.001;
#X obj 306 497 r~ StBrown;
#X obj 318 519 r myMet;
#X obj 318 539 snapshot~;
#X floatatom 318 560 0 0 0 0 - - -;
#X msg 639 15 10;
#X msg 267 17 0.1;
#X obj 216 393 r~ freqHowe;
#X obj 232 489 r~ StHowe;
#X obj 145 491 r~ StHolger;
#X obj 165 514 r myMet;
#X obj 165 534 snapshot~;
#X floatatom 165 555 0 0 0 0 - - -;
#X obj 54 490 r~ StCrighton;
#X obj 76 511 r myMet;
#X obj 76 531 snapshot~;
#X floatatom 76 552 0 0 0 0 - - -;
#X msg 85 19 0.01;
#X obj 846 307 hsl 80 25 0 360 0 0 empty empty Elevation 2 12 0 10
-232576 -1 -1 0 1;
#X msg 843 379 \$1 30;
#X obj 843 401 line~;
#X obj 843 423 s~ elev;
#X floatatom 887 337 0 0 0 0 - - -;
#N canvas 65 209 533 447 Intensity 0;
#X obj 226 86 *~ 1.225;
#X obj 226 37 r~ windspeed;
#N canvas 759 125 286 294 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 136 184 snapshot~;
#X obj 136 159 metro 100;
#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 211 10 0 0 0 - - -;
#X obj 216 210 outlet;
#X obj 136 111 loadbang;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X obj 372 202 *;
#X obj 372 228 *;
#X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 374 288 10 0 0 0 - - -;
#X obj 303 20 t f b;
#X floatatom 455 55 5 0 0 0 - - -;
#X obj 372 260 *;
#X obj 400 202 *;
#X msg 303 -4 6;
#X obj 434 201 *;
#X connect 0 0 11 0;
#X connect 1 0 11 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 10 0;
#X connect 2 0 10 1;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 9 0 6 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 12 0 4 0;
#X connect 12 0 3 0;
#X connect 13 0 14 0;
#X connect 14 0 19 0;
#X connect 15 0 13 0;
#X connect 15 0 13 1;
#X connect 15 0 18 0;
#X connect 15 0 20 0;
#X connect 15 0 20 1;
#X connect 17 0 13 0;
#X connect 17 0 13 1;
#X connect 17 0 20 0;
#X connect 17 0 20 1;
#X connect 17 0 22 0;
#X connect 17 0 22 1;
#X connect 17 1 13 0;
#X connect 17 1 20 0;
#X connect 17 1 22 0;
#X connect 19 0 16 0;
#X connect 20 0 14 1;
#X connect 21 0 17 0;
#X connect 22 0 19 1;
#X restore 226 62 pd pow6;
#X obj 226 129 *~;
#X obj 241 108 inlet~;
#X obj 226 155 *~ 4;
#X obj 241 177 r~ elev;
#X obj 241 199 cos~;
#X obj 241 222 *~;
#X obj 241 267 r~ dist;
#X obj 241 293 *~;
#X obj 241 318 *~ 4.03536e+07;
#X text 347 319 Speed of sound cubed;
#X obj 226 245 *~;
#X obj 226 340 /~;
#X obj 226 364 s~ Intensity;
#X obj 374 194 r myMet;
#X obj 374 214 snapshot~;
#X floatatom 374 235 0 0 0 0 - - -;
#X obj 317 245 r myMet;
#X obj 317 265 snapshot~;
#X floatatom 317 286 0 0 0 0 - - -;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 8 1;
#X connect 7 0 17 0;
#X connect 8 0 13 1;
#X connect 8 0 20 0;
#X connect 9 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 14 1;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X restore 536 237 pd Intensity;
#X obj 848 461 hsl 80 25 1 100 1 0 empty empty Distance 2 12 0 10 -204800
-1 -1 3500 1;
#X msg 845 491 \$1 30;
#X obj 845 513 line~;
#X floatatom 889 491 0 0 0 0 - - -;
#X obj 845 535 s~ dist;
#X obj 758 293 r~ Intensity;
#X obj 843 337 / 360;
#X msg 864 280 90;
#X connect 1 0 0 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 5 0 11 0;
#X connect 6 0 9 0;
#X connect 6 0 13 0;
#X connect 7 0 10 0;
#X connect 7 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 17 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 15 0 16 0;
#X connect 16 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 39 0 34 0;
#X connect 40 0 37 0;
#X connect 41 0 42 0;
#X connect 41 0 45 0;
#X connect 45 0 43 0;
#X connect 45 1 44 0;
#X connect 47 0 48 0;
#X connect 48 0 46 0;
#X connect 49 0 47 0;
#X connect 49 0 50 0;
#X connect 52 0 54 0;
#X connect 53 0 51 0;
#X connect 54 0 53 0;
#X connect 57 0 59 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 62 0 64 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 66 0 49 0;
#X connect 68 0 70 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 72 0 73 0;
#X connect 73 0 74 0;
#X connect 75 0 77 1;
#X connect 76 0 78 1;
#X connect 77 0 78 0;
#X connect 78 0 73 0;
#X connect 79 0 81 0;
#X connect 80 0 81 1;
#X connect 81 0 83 0;
#X connect 82 0 83 0;
#X connect 83 0 84 0;
#X connect 85 0 87 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 89 0 85 0;
#X connect 90 0 85 1;
#X connect 92 0 94 0;
#X connect 92 0 0 0;
#X connect 93 0 94 0;
#X connect 94 0 95 0;
#X connect 96 0 6 0;
#X connect 97 0 99 0;
#X connect 97 0 119 0;
#X connect 98 0 99 0;
#X connect 99 0 100 0;
#X connect 101 0 49 0;
#X connect 102 0 7 0;
#X connect 103 0 31 0;
#X connect 104 0 28 0;
#X connect 104 0 77 0;
#X connect 105 0 107 0;
#X connect 106 0 107 0;
#X connect 107 0 108 0;
#X connect 109 0 111 0;
#X connect 110 0 111 0;
#X connect 111 0 112 0;
#X connect 113 0 5 0;
#X connect 114 0 118 0;
#X connect 114 0 126 0;
#X connect 115 0 116 0;
#X connect 116 0 117 0;
#X connect 120 0 121 0;
#X connect 120 0 123 0;
#X connect 121 0 122 0;
#X connect 122 0 124 0;
#X connect 125 0 0 2;
#X connect 126 0 115 0;
#X connect 127 0 114 0;