Mercurial > hg > weather-synthesis-prototyping
view EdgeTonePatches/EdgeToneD1.pd @ 303:8b51c20529a6
Edgetone development models
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Sat, 11 Nov 2017 17:43:39 +0000 |
| parents | f145954b62f1 |
| children |
line wrap: on
line source
#N canvas 392 105 1288 766 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 666 344 pd Dipoles; #X obj 694 301 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 5075 1; #X obj 270 44 hsl 80 25 0.0001 10000 1 0 empty empty Breadth 2 12 0 10 -260097 -1 -1 1400 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 894 324 hsl 128 15 0.001 1e+09 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 7300 1; #X floatatom 900 342 0 0 0 0 - - -; #X obj 872 412 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 935 412 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 871 369 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 1625 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 311 685 r myMet; #X obj 311 705 snapshot~; #X floatatom 311 726 0 0 0 0 - - -; #X obj 293 611 r~ L; #X obj 302 632 r~ d; #X obj 269 638 /~; #X obj 269 660 *~; #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 1049 289 hsl 80 25 0 360 0 0 empty empty Elevation 2 12 0 10 -232576 -1 -1 1400 1; #X msg 1046 361 \$1 30; #X obj 1046 383 line~; #X obj 1046 405 s~ elev; #X floatatom 1090 319 0 0 0 0 - - -; #X obj 1051 443 hsl 80 25 1 100 1 0 empty empty Distance 2 12 0 10 -204800 -1 -1 2900 1; #X msg 1048 473 \$1 30; #X obj 1048 495 line~; #X floatatom 1092 473 0 0 0 0 - - -; #X obj 1048 517 s~ dist; #X obj 1046 319 / 360; #X msg 1067 262 90; #N canvas 300 398 1100 698 Vaik 0; #X obj 335 251 select 1 2 3 4; #X obj 335 205 count 4; #X obj 403 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X floatatom 269 249 0 0 0 0 - - -; #X obj 335 293 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 355 293 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 375 293 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 395 293 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 335 228 + 1; #X obj 540 143 spigot; #X obj 461 143 spigot; #X msg 535 113 0; #X msg 573 113 1; #X msg 456 86 Parabolic; #X floatatom 653 262 0 0 0 0 - - -; #X obj 719 306 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 739 306 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 759 306 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 719 241 + 1; #X obj 719 218 count 3; #X obj 719 264 select 1 2 3; #X msg 456 112 0; #X msg 494 112 1; #X msg 719 180 reset; #X msg 335 171 reset; #X msg 182 358 0.523; #X msg 192 377 11.08; #X msg 202 397 0.004836; #X msg 274 346 0.5029; #X msg 284 365 6.6451; #X msg 294 385 0.01417; #N canvas 66 116 524 792 StCalc1 0; #X obj 171 -114 inlet; #X obj 186 -49 inlet; #X obj 201 188 inlet; #X obj 201 12 r~ Rey; #X msg 186 -29 \$1 20; #X obj 186 -10 line~; #X msg 171 -92 \$1 20; #X obj 171 -73 line~; #X msg 201 208 \$1 20; #X obj 201 227 line~; #X obj 186 35 /~; #X obj 171 58 -~; #X obj 201 101 r~ L; #X obj 216 124 r~ d; #X obj 201 145 /~; #X obj 186 80 sig~ 1; #X obj 186 167 /~; #X obj 186 250 -~; #X obj 171 274 *~; #X obj 186 343 r~ windspeed; #X obj 171 323 /~; #X obj 171 365 *~; #X obj 323 112 r myMet; #X obj 323 132 snapshot~; #X floatatom 323 153 0 0 0 0 - - -; #X obj 186 299 r~ d; #X obj 171 391 s~ freqVaik1; #X obj 52 407 s~ StVaik1; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 8 0; #X connect 3 0 10 1; #X connect 4 0 5 0; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 17 1; #X connect 10 0 11 1; #X connect 11 0 18 0; #X connect 12 0 14 0; #X connect 13 0 14 1; #X connect 14 0 16 1; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 20 0; #X connect 18 0 23 0; #X connect 18 0 27 0; #X connect 19 0 21 1; #X connect 20 0 21 0; #X connect 21 0 26 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 20 1; #X restore 216 449 pd StCalc1; #N canvas 971 153 524 792 StCalc2 0; #X obj 171 -114 inlet; #X obj 186 -49 inlet; #X obj 201 188 inlet; #X obj 201 12 r~ Rey; #X msg 186 -29 \$1 20; #X obj 186 -10 line~; #X msg 171 -92 \$1 20; #X obj 171 -73 line~; #X msg 201 208 \$1 20; #X obj 201 227 line~; #X obj 186 35 /~; #X obj 171 58 -~; #X obj 201 101 r~ L; #X obj 216 124 r~ d; #X obj 201 145 /~; #X obj 186 80 sig~ 1; #X obj 186 167 /~; #X obj 186 295 -~; #X obj 171 319 *~; #X obj 186 388 r~ windspeed; #X obj 171 368 /~; #X obj 171 410 *~; #X obj 323 112 r myMet; #X obj 323 132 snapshot~; #X floatatom 323 153 0 0 0 0 - - -; #X obj 186 344 r~ d; #X obj 171 436 s~ freqVaik2; #X obj 52 452 s~ StVaik2; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 8 0; #X connect 3 0 10 1; #X connect 4 0 5 0; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 17 1; #X connect 10 0 11 1; #X connect 11 0 18 0; #X connect 12 0 14 0; #X connect 13 0 14 1; #X connect 14 0 16 1; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 20 0; #X connect 18 0 23 0; #X connect 18 0 27 0; #X connect 19 0 21 1; #X connect 20 0 21 0; #X connect 21 0 26 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 20 1; #X restore 327 447 pd StCalc2; #X msg 348 355 1.177; #X msg 358 374 37.15; #X msg 427 364 1.972; #X msg 448 383 6.954; #X msg 467 404 0.007792; #X msg 537 379 2.365; #X msg 368 394 -0.002273; #X msg 557 418 -0.000999; #X msg 547 398 -55.21; #N canvas 971 153 524 792 StCalc3 0; #X obj 171 -114 inlet; #X obj 186 -49 inlet; #X obj 201 188 inlet; #X obj 201 12 r~ Rey; #X msg 186 -29 \$1 20; #X obj 186 -10 line~; #X msg 171 -92 \$1 20; #X obj 171 -73 line~; #X msg 201 208 \$1 20; #X obj 201 227 line~; #X obj 186 35 /~; #X obj 171 58 -~; #X obj 201 101 r~ L; #X obj 216 124 r~ d; #X obj 201 145 /~; #X obj 186 80 sig~ 1; #X obj 186 167 /~; #X obj 186 295 -~; #X obj 171 319 *~; #X obj 186 388 r~ windspeed; #X obj 171 368 /~; #X obj 171 410 *~; #X obj 323 112 r myMet; #X obj 323 132 snapshot~; #X floatatom 323 153 0 0 0 0 - - -; #X obj 186 344 r~ d; #X obj 171 436 s~ freqVaik3; #X obj 52 452 s~ StVaik3; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 8 0; #X connect 3 0 10 1; #X connect 4 0 5 0; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 17 1; #X connect 10 0 11 1; #X connect 11 0 18 0; #X connect 12 0 14 0; #X connect 13 0 14 1; #X connect 14 0 16 1; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 20 0; #X connect 18 0 23 0; #X connect 18 0 27 0; #X connect 19 0 21 1; #X connect 20 0 21 0; #X connect 21 0 26 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 20 1; #X restore 423 446 pd StCalc3; #N canvas 971 153 524 792 StCalc4 0; #X obj 171 -114 inlet; #X obj 186 -49 inlet; #X obj 201 188 inlet; #X obj 201 12 r~ Rey; #X msg 186 -29 \$1 20; #X obj 186 -10 line~; #X msg 171 -92 \$1 20; #X obj 171 -73 line~; #X msg 201 208 \$1 20; #X obj 201 227 line~; #X obj 186 35 /~; #X obj 171 58 -~; #X obj 201 101 r~ L; #X obj 216 124 r~ d; #X obj 201 145 /~; #X obj 186 80 sig~ 1; #X obj 186 167 /~; #X obj 186 295 -~; #X obj 171 319 *~; #X obj 186 388 r~ windspeed; #X obj 171 368 /~; #X obj 171 410 *~; #X obj 323 112 r myMet; #X obj 323 132 snapshot~; #X floatatom 323 153 0 0 0 0 - - -; #X obj 186 344 r~ d; #X obj 171 436 s~ freqVaik4; #X obj 52 452 s~ StVaik4; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 8 0; #X connect 3 0 10 1; #X connect 4 0 5 0; #X connect 5 0 10 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 9 0 17 1; #X connect 10 0 11 1; #X connect 11 0 18 0; #X connect 12 0 14 0; #X connect 13 0 14 1; #X connect 14 0 16 1; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 20 0; #X connect 18 0 23 0; #X connect 18 0 27 0; #X connect 19 0 21 1; #X connect 20 0 21 0; #X connect 21 0 26 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 25 0 20 1; #X restore 514 448 pd StCalc4; #X obj 498 247 outlet; #X obj 555 246 outlet; #X obj 556 221 unpack s; #X msg 535 86 Top_Hat; #X connect 0 0 4 0; #X connect 0 0 25 0; #X connect 0 0 26 0; #X connect 0 0 27 0; #X connect 0 1 5 0; #X connect 0 1 28 0; #X connect 0 1 29 0; #X connect 0 1 30 0; #X connect 0 1 33 0; #X connect 0 1 34 0; #X connect 0 1 39 0; #X connect 0 2 6 0; #X connect 0 2 28 0; #X connect 0 2 29 0; #X connect 0 2 30 0; #X connect 0 2 37 0; #X connect 0 2 36 0; #X connect 0 2 35 0; #X connect 0 3 7 0; #X connect 0 3 28 0; #X connect 0 3 29 0; #X connect 0 3 30 0; #X connect 0 3 38 0; #X connect 0 3 41 0; #X connect 0 3 40 0; #X connect 1 0 8 0; #X connect 2 0 9 0; #X connect 2 0 10 0; #X connect 8 0 0 0; #X connect 8 0 3 0; #X connect 8 0 44 0; #X connect 9 0 19 0; #X connect 10 0 1 0; #X connect 11 0 10 1; #X connect 12 0 9 1; #X connect 13 0 21 0; #X connect 13 0 22 0; #X connect 13 0 24 0; #X connect 13 0 46 0; #X connect 18 0 14 0; #X connect 18 0 20 0; #X connect 18 0 44 0; #X connect 19 0 18 0; #X connect 20 0 15 0; #X connect 20 1 16 0; #X connect 20 2 17 0; #X connect 21 0 9 1; #X connect 22 0 10 1; #X connect 23 0 19 0; #X connect 24 0 1 0; #X connect 25 0 31 0; #X connect 26 0 31 1; #X connect 27 0 31 2; #X connect 28 0 31 0; #X connect 29 0 31 1; #X connect 30 0 31 2; #X connect 33 0 32 0; #X connect 34 0 32 1; #X connect 35 0 42 0; #X connect 36 0 42 1; #X connect 37 0 42 2; #X connect 38 0 43 0; #X connect 39 0 32 2; #X connect 40 0 43 2; #X connect 41 0 43 1; #X connect 46 0 45 0; #X connect 47 0 12 0; #X connect 47 0 11 0; #X connect 47 0 23 0; #X connect 47 0 46 0; #X restore 381 259 pd Vaik; #X obj 412 415 r myMet; #X obj 412 435 snapshot~; #X floatatom 412 456 0 0 0 0 - - -; #X obj 418 518 r myMet; #X obj 418 538 snapshot~; #X floatatom 418 559 0 0 0 0 - - -; #X obj 391 392 r~ freqVaik1; #X obj 406 496 r~ StVaik1; #X obj 508 415 r myMet; #X obj 508 435 snapshot~; #X floatatom 508 456 0 0 0 0 - - -; #X obj 514 518 r myMet; #X obj 514 538 snapshot~; #X floatatom 514 559 0 0 0 0 - - -; #X obj 487 392 r~ freqVaik2; #X obj 502 496 r~ StVaik2; #X obj 597 416 r myMet; #X obj 597 436 snapshot~; #X floatatom 597 457 0 0 0 0 - - -; #X obj 603 519 r myMet; #X obj 603 539 snapshot~; #X floatatom 603 560 0 0 0 0 - - -; #X obj 693 416 r myMet; #X obj 693 436 snapshot~; #X floatatom 693 457 0 0 0 0 - - -; #X obj 699 519 r myMet; #X obj 699 539 snapshot~; #X floatatom 699 560 0 0 0 0 - - -; #X obj 576 393 r~ freqVaik3; #X obj 672 393 r~ freqVaik4; #X obj 687 497 r~ StVaik4; #X obj 591 497 r~ StVaik3; #X symbolatom 420 284 10 0 0 0 - - -; #X floatatom 381 283 0 0 0 0 - - -; #X obj 723 322 r~ Intensity1; #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 820 295 pd Dipoles; #X obj 848 252 noise~; #X obj 877 273 r~ Intensity2; #N canvas 65 209 533 447 Intensity1 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 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 obj 226 364 s~ Intensity1; #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 16 0; #X connect 8 0 13 1; #X connect 8 0 19 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 21 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X restore 536 237 pd Intensity1; #N canvas 65 209 533 447 Intensity2 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 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 obj 226 364 s~ Intensity2; #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 16 0; #X connect 8 0 13 1; #X connect 8 0 19 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 21 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 18 0 19 0; #X connect 19 0 20 0; #X restore 643 275 pd Intensity2; #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 93 0 94 0; #X connect 94 0 95 0; #X connect 96 0 6 0; #X connect 97 0 99 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 124 0; #X connect 115 0 116 0; #X connect 116 0 117 0; #X connect 119 0 120 0; #X connect 119 0 122 0; #X connect 120 0 121 0; #X connect 121 0 123 0; #X connect 124 0 115 0; #X connect 125 0 114 0; #X connect 126 0 160 0; #X connect 126 1 159 0; #X connect 127 0 128 0; #X connect 128 0 129 0; #X connect 130 0 131 0; #X connect 131 0 132 0; #X connect 133 0 128 0; #X connect 133 0 0 0; #X connect 134 0 131 0; #X connect 134 0 165 0; #X connect 135 0 136 0; #X connect 136 0 137 0; #X connect 138 0 139 0; #X connect 139 0 140 0; #X connect 141 0 136 0; #X connect 141 0 162 0; #X connect 142 0 139 0; #X connect 142 0 166 0; #X connect 143 0 144 0; #X connect 144 0 145 0; #X connect 146 0 147 0; #X connect 147 0 148 0; #X connect 149 0 150 0; #X connect 150 0 151 0; #X connect 152 0 153 0; #X connect 153 0 154 0; #X connect 155 0 144 0; #X connect 156 0 150 0; #X connect 157 0 153 0; #X connect 158 0 147 0; #X connect 161 0 0 2; #X connect 163 0 162 1; #X connect 164 0 162 2;