view Shallow Cavity/HoweIntensityMonopole.pd @ 281:dfd88add4725

Propeller:
Reducing control on Audio channels
Reduced the stereo spread for test purposes
Pitch control added
GUI Updated
shh patch added to reduce audio spike when shifting start positions

#N canvas 134 100 1179 646 10;
#X obj 102 133 sig~ 0.12;
#X text 102 116 Alpha;
#X obj 114 358 sig~ 1.02;
#X text 114 341 C2;
#X obj 37 306 *~;
#X obj 37 157 *~ 3.1416;
#X obj 37 178 /~ 4;
#X obj 37 197 sqrt~;
#X obj 102 174 *~;
#X obj 117 194 sig~ 4.443;
#X obj 102 216 /~;
#X obj 217 156 *~ 6.2839;
#X obj 217 182 /~ 343;
#X obj 349 116 r~ MY_MACH;
#X obj 349 139 *~;
#X obj 364 202 *~;
#X obj 364 242 /~;
#X obj 385 300 /~;
#X obj 364 320 pow~;
#X obj 349 341 *~;
#X obj 385 262 sig~ 5;
#X obj 400 281 sig~ 3;
#X obj 487 134 cos~;
#X obj 502 154 r~ MY_MACH;
#X obj 487 175 *~;
#X obj 487 197 +~ 1;
#X obj 487 222 *~;
#X obj 503 285 *~;
#X obj 503 325 /~;
#X obj 503 350 *~;
#X obj 503 414 +~;
#X obj 518 370 sig~ 0.12;
#X text 530 351 Alpha;
#X obj 518 393 *~;
#X obj 524 473 /~;
#X obj 503 493 pow~;
#X obj 524 435 sig~ 3;
#X obj 539 454 sig~ 2;
#X obj 487 519 *~;
#X obj 129 419 *~;
#X obj 129 461 sin~;
#X obj 114 482 *~;
#X obj 274 458 exp~;
#X obj 779 595 snapshot~;
#X floatatom 779 615 0 0 0 0 - - -;
#X obj 779 574 r myMet;
#X obj 357 458 exp~;
#X obj 274 481 +~;
#X obj 274 504 /~ 2;
#X obj 688 165 +~;
#X obj 673 186 *~;
#X obj 673 236 cos~;
#X obj 30 391 *~;
#X obj 30 433 *~;
#X obj 30 455 /~ 6.2839;
#X obj 342 504 /~ 2;
#X obj 342 481 -~;
#X obj 753 237 sin~;
#X obj 673 276 *~;
#X obj 753 278 *~;
#X obj 865 181 *~;
#X obj 880 224 *~;
#X obj 895 267 *~;
#X obj 880 288 +~;
#X obj 865 310 /~;
#X obj 865 337 *~;
#X obj 1032 170 *~;
#X obj 1047 213 *~;
#X obj 1062 256 *~;
#X obj 1047 277 +~;
#X obj 1032 299 /~;
#X obj 1073 333 cos~;
#X obj 1058 354 +~;
#X obj 1073 375 r~ MY_MACH;
#X obj 1058 396 -~;
#X obj 680 437 /~;
#X obj 695 499 +~;
#X obj 680 523 *~;
#X obj 278 298 snapshot~;
#X floatatom 278 318 0 0 0 0 - - -;
#X obj 278 277 r myMet;
#X obj 602 359 snapshot~;
#X floatatom 602 379 0 0 0 0 - - -;
#X obj 602 338 r myMet;
#X obj 129 440 /~ 6.2839;
#X obj 673 207 /~ 6.2839;
#X obj 358 438 *~ -1;
#X obj 487 112 r~ thisEle;
#X obj 1073 313 r~ thisEle;
#X obj 379 222 r~ windSpeed;
#X obj 117 153 r~ thisLen;
#X obj 37 265 r~ thisLen;
#X obj 52 286 r~ thisWid;
#X obj 144 399 r~ thisDep;
#X obj 518 305 r~ windSpeed;
#X obj 680 592 s~ thisHowe;
#X obj 688 124 r~ thisDep;
#X obj 102 238 s~ \$0-sigma;
#X obj 379 181 r~ \$0-sigma;
#X obj 518 264 r~ \$0-sigma;
#X obj 266 181 s~ \$0-omega;
#X obj 364 159 r~ \$0-omega;
#X obj 503 242 r~ \$0-omega;
#X obj 217 204 s~ \$0-Ko;
#X obj 129 379 r~ \$0-Ko;
#X obj 30 365 r~ \$0-Ko;
#X obj 37 136 r~ \$0-A;
#X obj 37 327 s~ \$0-A;
#X obj 673 103 r~ \$0-Ko;
#X obj 45 412 r~ \$0-A;
#X obj 37 218 s~ \$0-l;
#X obj 703 144 r~ \$0-l;
#X obj 30 477 s~ \$0-comp1;
#X obj 274 438 r~ \$0-comp1;
#X obj 358 419 r~ \$0-comp1;
#X obj 274 528 s~ \$0-cosh;
#X obj 687 256 r~ \$0-cosh;
#X obj 342 528 s~ \$0-sinh;
#X obj 768 258 r~ \$0-sinh;
#X obj 673 300 s~ \$0-thisX;
#X obj 1047 189 r~ \$0-thisX;
#X obj 865 139 r~ \$0-thisX;
#X obj 880 200 r~ \$0-thisX;
#X obj 753 300 s~ \$0-thisY;
#X obj 1062 233 r~ \$0-thisY;
#X obj 1032 128 r~ \$0-thisY;
#X obj 349 363 s~ \$0-num1;
#X obj 680 358 r~ \$0-num1;
#X obj 114 505 s~ \$0-num2;
#X obj 880 160 r~ \$0-num2;
#X obj 1047 149 r~ \$0-num2;
#X obj 895 244 r~ \$0-thisY;
#X obj 865 360 s~ \$0-block1;
#X obj 695 458 r~ \$0-block1;
#X obj 1032 446 s~ \$0-block2;
#X obj 710 478 r~ \$0-block2;
#X obj 487 542 s~ \$0-demon1;
#X obj 695 377 r~ \$0-demon1;
#X obj 629 593 outlet~;
#N canvas 630 236 287 220 MonopolePeak 0;
#X obj 152 158 outlet~;
#X obj 167 44 inlet~;
#X obj 182 65 inlet~;
#X obj 167 87 +~;
#X obj 167 112 *~ 4;
#X obj 152 23 sig~ 343;
#X obj 152 133 /~;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X restore 217 119 pd MonopolePeak;
#X obj 217 93 r~ \$0-l;
#X obj 304 95 r~ thisDep;
#X obj 1032 322 *~;
#X obj 283 143 outlet~;
#X obj 695 542 r~ thisDist;
#X obj 680 562 /~;
#X obj 179 84 inlet~;
#X connect 0 0 8 0;
#X connect 2 0 41 0;
#X connect 4 0 107 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 110 0;
#X connect 8 0 10 0;
#X connect 9 0 10 1;
#X connect 10 0 97 0;
#X connect 11 0 12 0;
#X connect 11 0 100 0;
#X connect 12 0 103 0;
#X connect 13 0 14 1;
#X connect 13 0 14 0;
#X connect 14 0 19 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 1;
#X connect 19 0 126 0;
#X connect 20 0 17 0;
#X connect 21 0 17 1;
#X connect 22 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 26 1;
#X connect 26 0 38 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 29 1;
#X connect 29 0 30 0;
#X connect 30 0 35 0;
#X connect 31 0 33 0;
#X connect 31 0 33 1;
#X connect 33 0 30 1;
#X connect 34 0 35 1;
#X connect 35 0 38 1;
#X connect 36 0 34 0;
#X connect 37 0 34 1;
#X connect 38 0 136 0;
#X connect 39 0 84 0;
#X connect 40 0 41 1;
#X connect 41 0 128 0;
#X connect 42 0 47 0;
#X connect 42 0 56 0;
#X connect 43 0 44 0;
#X connect 45 0 43 0;
#X connect 46 0 47 1;
#X connect 46 0 56 1;
#X connect 47 0 48 0;
#X connect 48 0 115 0;
#X connect 49 0 50 1;
#X connect 50 0 85 0;
#X connect 51 0 58 0;
#X connect 52 0 53 0;
#X connect 53 0 54 0;
#X connect 54 0 112 0;
#X connect 55 0 117 0;
#X connect 56 0 55 0;
#X connect 57 0 59 0;
#X connect 58 0 119 0;
#X connect 59 0 123 0;
#X connect 60 0 64 0;
#X connect 61 0 63 0;
#X connect 62 0 63 1;
#X connect 63 0 64 1;
#X connect 64 0 65 0;
#X connect 64 0 65 1;
#X connect 65 0 132 0;
#X connect 66 0 70 0;
#X connect 67 0 69 0;
#X connect 68 0 69 1;
#X connect 69 0 70 1;
#X connect 70 0 142 0;
#X connect 70 0 142 1;
#X connect 71 0 72 1;
#X connect 72 0 74 0;
#X connect 73 0 74 1;
#X connect 75 0 77 0;
#X connect 76 0 77 1;
#X connect 77 0 145 0;
#X connect 78 0 79 0;
#X connect 80 0 78 0;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 40 0;
#X connect 85 0 51 0;
#X connect 85 0 57 0;
#X connect 86 0 46 0;
#X connect 87 0 22 0;
#X connect 87 0 81 0;
#X connect 88 0 71 0;
#X connect 89 0 16 1;
#X connect 90 0 8 1;
#X connect 91 0 4 0;
#X connect 92 0 4 1;
#X connect 93 0 39 1;
#X connect 94 0 28 1;
#X connect 96 0 49 0;
#X connect 98 0 15 1;
#X connect 99 0 27 1;
#X connect 101 0 15 0;
#X connect 102 0 27 0;
#X connect 104 0 39 0;
#X connect 105 0 52 0;
#X connect 105 0 52 1;
#X connect 106 0 5 0;
#X connect 108 0 50 0;
#X connect 109 0 53 1;
#X connect 111 0 49 1;
#X connect 113 0 42 0;
#X connect 114 0 86 0;
#X connect 116 0 58 1;
#X connect 118 0 59 1;
#X connect 120 0 67 0;
#X connect 120 0 67 1;
#X connect 121 0 60 0;
#X connect 122 0 61 0;
#X connect 122 0 61 1;
#X connect 124 0 68 0;
#X connect 124 0 68 1;
#X connect 125 0 66 0;
#X connect 127 0 75 0;
#X connect 129 0 60 1;
#X connect 130 0 66 1;
#X connect 131 0 62 0;
#X connect 131 0 62 1;
#X connect 133 0 76 0;
#X connect 135 0 76 1;
#X connect 137 0 75 1;
#X connect 139 0 143 0;
#X connect 139 0 11 0;
#X connect 140 0 139 0;
#X connect 141 0 139 1;
#X connect 142 0 134 0;
#X connect 144 0 145 1;
#X connect 145 0 138 0;
#X connect 145 0 43 0;