view EdgeTonePatches/EdgeToneD1.pd @ 291:9b4152202ec1

EdgeTone Started

#N canvas 415 171 940 594 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 210 108 vcf~ 10;
#X obj 210 131 vcf~ 10;
#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 connect 0 0 3 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 5 2;
#X connect 7 0 6 2;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 5 0;
#X connect 13 0 0 1;
#X connect 14 0 5 1;
#X connect 14 0 6 1;
#X connect 15 0 3 1;
#X connect 15 0 8 0;
#X restore 230 343 pd Dipoles;
#X obj 258 315 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 3164 1;
#X obj 180 45 hsl 80 25 0.0001 1 1 0 empty empty Height 2 12 0 10 -257985
-1 -1 1537 1;
#X obj 270 44 hsl 80 25 0.0001 10000 1 0 empty empty Breadth 2 12 0
10 -260097 -1 -1 5200 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 4800 1;
#X obj 547 121 + 0.5;
#X obj 547 141 i;
#X floatatom 581 160 0 0 0 0 - - -;
#N canvas 665 374 472 358 alphaCalc 1;
#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 174 190 *~ -0.1812;
#X obj 174 212 +~ 2.1952;
#X obj 174 236 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 314 154 r myMet;
#X obj 314 174 snapshot~;
#X floatatom 314 195 0 0 0 0 - - -;
#X connect 0 0 2 0;
#X connect 0 0 11 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X restore 175 214 pd alphaCalc;
#N canvas 230 325 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 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 302 237 pd thetaCalc;
#X obj 547 165 s n;
#X obj 481 304 r~ freq;
#X obj 419 300 r~ St;
#X obj 422 334 r myMet;
#X obj 422 354 snapshot~;
#X floatatom 422 375 0 0 0 0 - - -;
#X obj 495 333 r myMet;
#X obj 495 353 snapshot~;
#X floatatom 495 374 0 0 0 0 - - -;
#X msg 76 19 0.004;
#X msg 177 17 0.0006;
#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 0 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 1 10 0 0 empty empty Windspeed 2 12 0 10 -4032
-1 -1 3511 1;
#X floatatom 695 72 0 0 0 0 - - -;
#X msg 639 15 5;
#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 284 378 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 85 330 s~ St;
#X obj 154 322 r~ windspeed;
#X obj 154 362 r~ L;
#X obj 139 342 *~;
#X obj 139 383 /~;
#X obj 139 408 s~ freq;
#X obj 270 144 r myMet;
#X obj 270 164 snapshot~;
#X floatatom 270 185 0 0 0 0 - - -;
#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 14 0;
#X connect 13 0 17 0;
#X connect 15 0 17 1;
#X connect 16 0 18 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X restore 448 229 pd freqCalcHowe;
#N canvas 373 161 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 167 198 sig~ 12.566;
#X obj 182 219 sig~ 0.375;
#X obj 182 263 *~ 1;
#X obj 203 240 r n;
#X obj 167 370 pow~;
#X obj 188 348 /~;
#X obj 188 306 sig~ 3;
#X obj 203 325 sig~ 2;
#X obj 167 285 *~;
#X obj 152 392 *~;
#X obj 178 476 /~;
#X obj 152 434 *~;
#X obj 167 412 r~ windspeed;
#X obj 193 497 sig~ 3.14159;
#X obj 178 520 /~;
#X obj 178 545 s~ freq_Crighton;
#X connect 0 0 1 0;
#X connect 1 0 18 1;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 17 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 8 0 16 0;
#X connect 9 0 10 0;
#X connect 10 0 16 1;
#X connect 11 0 10 1;
#X connect 12 0 17 1;
#X connect 13 0 12 1;
#X connect 14 0 13 0;
#X connect 15 0 13 1;
#X connect 16 0 12 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 19 0 18 0;
#X connect 20 0 19 1;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X restore 556 250 pd freqCalcCrighton;
#X obj 178 417 r~ freq_Crighton;
#X obj 225 439 r myMet;
#X obj 225 459 snapshot~;
#X floatatom 225 480 0 0 0 0 - - -;
#N canvas 31 274 1056 639 freqCalcHolger 0;
#X obj 411 79 r~ d;
#X obj 426 101 r~ L;
#X obj 411 122 /~;
#X obj 411 144 sqrt~;
#X obj 396 54 sig~ 0.925;
#X obj 396 167 *~;
#X obj 487 131 r n;
#X msg 502 219 0.4;
#X msg 525 197 0.35;
#X msg 548 176 0.5;
#X obj 502 153 select 1 2 3;
#X obj 446 229 line~;
#X msg 446 203 \$1 30;
#X obj 481 369 pow~;
#X obj 502 347 /~;
#X obj 502 305 sig~ 3;
#X obj 517 324 sig~ 2;
#X obj 396 415 *~;
#X obj 402 551 s~ freqHolg;
#X obj 481 283 +~ 1;
#X obj 406 447 r~ windspeed;
#X obj 412 494 r~ L;
#X obj 391 470 *~;
#X obj 396 515 /~;
#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 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 restore 681 217 pd freqCalcHolger;
#X obj 347 408 r~ freqHolg;
#X obj 361 431 r myMet;
#X obj 361 451 snapshot~;
#X floatatom 361 472 0 0 0 0 - - -;
#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 33 0;
#X connect 28 0 30 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 5 0;
#X connect 36 0 6 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 40 0 41 0;
#X connect 41 0 42 0;
#X connect 43 0 38 0;
#X connect 44 0 41 0;
#X connect 45 0 46 0;
#X connect 45 0 49 0;
#X connect 49 0 47 0;
#X connect 49 1 48 0;
#X connect 51 0 52 0;
#X connect 52 0 50 0;
#X connect 53 0 51 0;
#X connect 53 0 54 0;
#X connect 55 0 53 0;
#X connect 57 0 59 0;
#X connect 58 0 56 0;
#X connect 59 0 58 0;
#X connect 62 0 64 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 67 0 69 0;
#X connect 68 0 69 0;
#X connect 69 0 70 0;