Mercurial > hg > weather-synthesis-prototyping
changeset 250:2fea9f004c52
Propeller - added air attenation
onetonesingle to improve model
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Thu, 22 Sep 2016 19:52:04 +0100 |
| parents | 50b3a47abeff |
| children | fc487b69ce79 |
| files | .DS_Store Propellor/PropTestD2.pd Propellor/freqCalcCyl6HiFi.pd scene demo/freqCalcCyl3No_D4Mach.pd scene demo/oneTone.pd scene demo/oneToneSingle.pd scene demo/testBedD6.pd |
| diffstat | 7 files changed, 3983 insertions(+), 751 deletions(-) [+] |
line wrap: on
line diff
--- a/Propellor/PropTestD2.pd Mon Sep 19 18:10:20 2016 +0100 +++ b/Propellor/PropTestD2.pd Thu Sep 22 19:52:04 2016 +0100 @@ -4,7 +4,7 @@ 1; #X obj 405 79 s myMet; #X obj -251 527 hsl 70 15 0 2500 0 0 empty empty RPM 2 8 0 10 -262144 --1 -1 5788 1; +-1 -1 5444 1; #X floatatom 76 540 0 0 0 0 - - -; #X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; @@ -22,11 +22,11 @@ #X obj 83 21 loadbang; #X obj 83 45 delay 13; #X obj -286 34 hsl 100 20 -200 200 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 4382 1; +-262144 -1 -1 1237 1; #X obj -287 164 hsl 100 20 -200 200 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 5654 1; +-262144 -1 -1 7821 1; #X obj -297 285 hsl 100 20 -350 50 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 8286 1; +-262144 -1 -1 9900 1; #X floatatom -329 57 0 0 0 0 - - -; #X floatatom -329 185 0 0 0 0 - - -; #X floatatom -253 309 0 0 0 0 - - -; @@ -64,7 +64,7 @@ #X connect 7 0 3 1; #X restore 223 371 pd opLevels; #X obj 77 426 hsl 100 25 0.01 1e+07 1 0 empty empty Gain 2 13 0 10 --261682 -1 -66577 4602 1; +-261682 -1 -66577 4802 1; #X obj 76 329 r GAIN; #X floatatom 227 52 5 0 0 0 - - -; #X obj -278 417 hsl 70 15 0.1 3 0 0 empty empty Blade_Length 2 8 0 @@ -84,40 +84,185 @@ #X obj -203 484 loadbang; #X msg -203 504 0; #X obj 78 509 hsl 100 20 0 1 0 0 empty empty Throttle 2 10 0 10 -204800 --1 -1 8352 1; +-1 -1 7652 1; #X text 131 539 RPM; #X floatatom 74 459 0 0 0 0 - - -; -#N canvas 675 142 1095 835 rotNoise 0; +#N canvas 339 89 1095 835 rotNoise 0; #X obj 329 -137 noise~; #X obj 329 -116 s~ myNoise; #X obj 489 -118 /~ 60; #X obj 489 -92 *~; #X obj 528 -118 r~ noBlad; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; #X obj 141 131 *~; #X obj 141 41 r~ myNoise; #X obj 196 104 inlet~; #X obj 74 58 inlet~; #X obj 141 83 vcf~ 150; #X obj 141 104 vcf~ 150; -#X obj 169 150 r~ rotBoost; -#X obj 141 172 *~; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; #X connect 2 0 0 0; #X connect 2 1 1 0; #X connect 3 0 2 1; -#X connect 4 0 11 0; +#X connect 4 0 12 0; #X connect 5 0 8 0; #X connect 6 0 4 1; #X connect 7 0 8 1; #X connect 7 0 9 1; +#X connect 7 0 13 0; #X connect 8 0 9 0; #X connect 9 0 4 0; #X connect 10 0 11 1; #X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; #X restore 35 -48 pd rotPeak; #X obj 35 -69 *~ 1; #X obj 489 -29 s~ \$0-fundFreq; @@ -183,7 +328,7 @@ #X obj 610 315 -~ 180; #X obj 610 336 abs~; #X obj 610 357 s~ newAv; -#N canvas 958 295 345 230 step1 1; +#N canvas 958 295 345 230 step1 0; #X obj 54 21 r~ horseP; #X obj 54 44 log~ 10; #X obj 54 67 *~ 15.11; @@ -527,241 +672,15 @@ #X connect 70 0 49 0; #X connect 72 0 0 0; #X restore 397 374 pd step7; -#N canvas 36 63 979 562 step8 1; -#X obj 133 71 r~ dec1; -#X obj 118 116 /~ 20; -#X obj 97 29 sig~ 10; -#X obj 97 161 *~ 2e-05; -#X obj 97 140 pow~; -#X obj 118 93 +~; -#X obj 254 118 /~ 20; -#X obj 233 31 sig~ 10; -#X obj 233 163 *~ 2e-05; -#X obj 233 142 pow~; -#X obj 254 95 +~; -#X obj 269 73 r~ dec2; -#X obj 398 116 /~ 20; -#X obj 377 29 sig~ 10; -#X obj 377 161 *~ 2e-05; -#X obj 377 140 pow~; -#X obj 398 93 +~; -#X obj 534 118 /~ 20; -#X obj 513 31 sig~ 10; -#X obj 513 163 *~ 2e-05; -#X obj 513 142 pow~; -#X obj 534 95 +~; -#X obj 673 120 /~ 20; -#X obj 652 33 sig~ 10; -#X obj 652 165 *~ 2e-05; -#X obj 652 144 pow~; -#X obj 673 97 +~; -#X obj 117 355 /~ 20; -#X obj 96 268 sig~ 10; -#X obj 96 400 *~ 2e-05; -#X obj 96 379 pow~; -#X obj 117 332 +~; -#X obj 253 357 /~ 20; -#X obj 232 270 sig~ 10; -#X obj 232 402 *~ 2e-05; -#X obj 232 381 pow~; -#X obj 253 334 +~; -#X obj 397 355 /~ 20; -#X obj 376 268 sig~ 10; -#X obj 376 400 *~ 2e-05; -#X obj 376 379 pow~; -#X obj 397 332 +~; -#X obj 533 357 /~ 20; -#X obj 512 270 sig~ 10; -#X obj 512 402 *~ 2e-05; -#X obj 512 381 pow~; -#X obj 533 334 +~; -#X obj 672 359 /~ 20; -#X obj 651 272 sig~ 10; -#X obj 651 404 *~ 2e-05; -#X obj 651 383 pow~; -#X obj 672 336 +~; -#X obj 413 71 r~ dec3; -#X obj 549 73 r~ dec4; -#X obj 688 75 r~ dec5; -#X obj 132 310 r~ dec6; -#X obj 268 312 r~ dec7; -#X obj 412 310 r~ dec8; -#X obj 548 312 r~ dec9; -#X obj 687 314 r~ dec10; -#X obj 97 184 s~ harm1G; -#X obj 652 187 s~ harm5G; -#X obj 513 185 s~ harm4G; -#X obj 377 182 s~ harm3G; -#X obj 233 185 s~ harm2G; -#X obj 232 424 s~ harm7G; -#X obj 96 422 s~ harm6G; -#X obj 376 422 s~ harm8G; -#X obj 512 423 s~ harm9G; -#X obj 651 425 s~ harm10G; -#X obj 834 255 inlet~; -#X obj 25 176 r myMet; -#X obj 25 196 snapshot~; -#X floatatom 25 215 0 0 0 0 - - -; -#X connect 0 0 5 1; -#X connect 1 0 4 1; -#X connect 2 0 4 0; -#X connect 3 0 60 0; -#X connect 4 0 3 0; -#X connect 5 0 1 0; -#X connect 6 0 9 1; -#X connect 7 0 9 0; -#X connect 8 0 64 0; -#X connect 9 0 8 0; -#X connect 10 0 6 0; -#X connect 11 0 10 1; -#X connect 12 0 15 1; -#X connect 13 0 15 0; -#X connect 14 0 63 0; -#X connect 15 0 14 0; -#X connect 16 0 12 0; -#X connect 17 0 20 1; -#X connect 18 0 20 0; -#X connect 19 0 62 0; -#X connect 20 0 19 0; -#X connect 21 0 17 0; -#X connect 22 0 25 1; -#X connect 23 0 25 0; -#X connect 24 0 61 0; -#X connect 25 0 24 0; -#X connect 26 0 22 0; -#X connect 27 0 30 1; -#X connect 28 0 30 0; -#X connect 29 0 66 0; -#X connect 30 0 29 0; -#X connect 31 0 27 0; -#X connect 32 0 35 1; -#X connect 33 0 35 0; -#X connect 34 0 65 0; -#X connect 35 0 34 0; -#X connect 36 0 32 0; -#X connect 37 0 40 1; -#X connect 38 0 40 0; -#X connect 39 0 67 0; -#X connect 40 0 39 0; -#X connect 41 0 37 0; -#X connect 42 0 45 1; -#X connect 43 0 45 0; -#X connect 44 0 68 0; -#X connect 45 0 44 0; -#X connect 46 0 42 0; -#X connect 47 0 50 1; -#X connect 48 0 50 0; -#X connect 49 0 69 0; -#X connect 50 0 49 0; -#X connect 51 0 47 0; -#X connect 52 0 16 1; -#X connect 53 0 21 1; -#X connect 54 0 26 1; -#X connect 55 0 31 1; -#X connect 56 0 36 1; -#X connect 57 0 41 1; -#X connect 58 0 46 1; -#X connect 59 0 51 1; -#X connect 70 0 26 0; -#X connect 70 0 51 0; -#X connect 70 0 21 0; -#X connect 70 0 46 0; -#X connect 70 0 16 0; -#X connect 70 0 41 0; -#X connect 70 0 10 0; -#X connect 70 0 36 0; -#X connect 70 0 5 0; -#X connect 70 0 31 0; -#X connect 71 0 72 0; -#X connect 72 0 73 0; -#X restore 338 370 pd step8; #X obj 92 -67 r~ harm1G; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 34 67 pd rotPeak; #X obj 34 46 *~ 1; #X obj 34 -19 r~ \$0-fundFreq; #X obj 55 3 loadbang; #X msg 55 24 2; #X obj 91 46 r~ harm2G; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 211 141 r~ rotBoost; -#X obj 141 172 *~; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 11 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 11 1; -#X connect 11 0 2 0; -#X restore 34 183 pd rotPeak; #X obj 34 162 *~ 1; #X obj 34 97 r~ \$0-fundFreq; #X obj 55 119 loadbang; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 32 296 pd rotPeak; #X obj 32 275 *~ 1; #X obj 32 210 r~ \$0-fundFreq; #X obj 53 232 loadbang; @@ -769,179 +688,23 @@ #X obj 91 162 r~ harm3G; #X msg 53 253 4; #X obj 89 275 r~ harm4G; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 30 410 pd rotPeak; #X obj 30 388 *~ 1; #X obj 30 323 r~ \$0-fundFreq; #X obj 51 345 loadbang; #X msg 51 366 5; #X obj 87 388 r~ harm5G; -#N canvas 102 298 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 165 147 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 172 -49 pd rotPeak; #X obj 172 -70 *~ 1; #X obj 172 -135 r~ \$0-fundFreq; #X obj 193 -113 loadbang; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 170 65 pd rotPeak; #X obj 170 44 *~ 1; #X obj 170 -21 r~ \$0-fundFreq; #X obj 191 1 loadbang; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 170 185 pd rotPeak; #X obj 170 164 *~ 1; #X obj 170 99 r~ \$0-fundFreq; #X obj 191 121 loadbang; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 167 297 pd rotPeak; #X obj 167 275 *~ 1; #X obj 167 210 r~ \$0-fundFreq; #X obj 188 232 loadbang; -#N canvas 40 79 344 352 rotPeak 0; -#X obj 141 260 throw~ l; -#X obj 168 237 throw~ r; -#X obj 141 216 fcpan; -#X obj 168 196 r \$0-thisPan; -#X obj 141 131 *~; -#X obj 141 41 r~ myNoise; -#X obj 196 104 inlet~; -#X obj 74 58 inlet~; -#X obj 141 83 vcf~ 150; -#X obj 141 104 vcf~ 150; -#X obj 141 172 *~; -#X obj 211 141 r~ rotBoost; -#X connect 2 0 0 0; -#X connect 2 1 1 0; -#X connect 3 0 2 1; -#X connect 4 0 10 0; -#X connect 5 0 8 0; -#X connect 6 0 4 1; -#X connect 7 0 8 1; -#X connect 7 0 9 1; -#X connect 8 0 9 0; -#X connect 9 0 4 0; -#X connect 10 0 2 0; -#X connect 11 0 10 1; -#X restore 162 407 pd rotPeak; #X obj 162 386 *~ 1; #X obj 162 321 r~ \$0-fundFreq; #X obj 183 343 loadbang; @@ -1016,11 +779,3195 @@ #X obj 404 -78 r myMet; #X obj 404 -58 snapshot~; #X floatatom 404 -39 0 0 0 0 - - -; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 172 -48 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X obj 963 333 r myMet; +#X floatatom 1003 374 0 0 0 0 - - -; +#X obj 963 354 snapshot~; +#X obj 620 412 r myMet; +#X floatatom 660 453 0 0 0 0 - - -; +#X obj 620 433 snapshot~; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 42 0 61 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 46 0 64 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X connect 59 0 61 0; +#X connect 61 0 60 0; +#X connect 62 0 64 0; +#X connect 64 0 63 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 11 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 12 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X restore 34 66 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 171 66 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 32 183 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 169 183 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 32 297 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 169 297 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 30 411 pd rotPeak; +#N canvas 307 242 656 482 rotPeak 0; +#X obj 141 332 throw~ l; +#X obj 168 309 throw~ r; +#X obj 141 288 fcpan; +#X obj 168 268 r \$0-thisPan; +#X obj 141 131 *~; +#X obj 141 41 r~ myNoise; +#X obj 196 104 inlet~; +#X obj 74 58 inlet~; +#X obj 141 83 vcf~ 150; +#X obj 141 104 vcf~ 150; +#X obj 169 222 r~ rotBoost; +#X obj 141 244 *~; +#X obj 141 194 *~; +#N canvas 38 38 1337 513 step9 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 74 127 pd step9; +#X connect 2 0 0 0; +#X connect 2 1 1 0; +#X connect 3 0 2 1; +#X connect 4 0 12 0; +#X connect 5 0 8 0; +#X connect 6 0 4 1; +#X connect 7 0 8 1; +#X connect 7 0 9 1; +#X connect 7 0 13 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X connect 10 0 11 1; +#X connect 11 0 2 0; +#X connect 12 0 11 0; +#X connect 13 0 12 1; +#X restore 167 411 pd rotPeak; +#N canvas 137 149 1252 322 s_t_e_p_9 0; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 181 134 pd step9calc; +#X obj 181 112 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 268 133 pd step9calc; +#X obj 268 111 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 353 133 pd step9calc; +#X obj 353 111 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 435 129 pd step9calc; +#X obj 435 107 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 522 130 pd step9calc; +#X obj 522 108 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 606 128 pd step9calc; +#X obj 606 106 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 691 129 pd step9calc; +#X obj 691 107 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 773 129 pd step9calc; +#X obj 773 107 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 853 129 pd step9calc; +#X obj 853 107 inlet~; +#N canvas 38 38 1337 513 step9calc 0; +#X obj 269 26 inlet~; +#X obj 318 27 r myMet; +#X obj -223 191 spigot; +#X obj -177 164 spigot; +#X obj -115 193 spigot; +#X obj -69 166 spigot; +#X obj -6 193 spigot; +#X obj 40 166 spigot; +#X floatatom 438 64 0 0 0 0 - - -; +#X obj 101 191 spigot; +#X obj 147 164 spigot; +#X obj 207 193 spigot; +#X obj 253 166 spigot; +#X obj 315 192 spigot; +#X obj 361 165 spigot; +#X obj 318 48 snapshot~; +#X obj 423 194 spigot; +#X obj 469 167 spigot; +#X obj 772 330 r~ dist; +#X obj -144 139 < 90; +#X obj -36 141 < 180; +#X obj 73 142 < 355; +#X obj 180 140 < 710; +#X obj 286 143 < 1400; +#X obj 394 141 < 2800; +#X obj 514 142 < 5600; +#X obj 539 195 spigot; +#X obj 585 168 spigot; +#X obj 630 143 < 11200; +#X obj 653 194 spigot; +#X obj 699 167 spigot; +#X obj 744 142 < 22400; +#X msg -223 214 0; +#X msg -115 216 0.2; +#X msg -6 216 0.6; +#X msg 101 216 1; +#X msg 206 215 1.8; +#X msg 315 217 3.3; +#X msg 423 219 6; +#X msg 539 220 11.4; +#X msg 653 219 20; +#X text 679 219 Estimate; +#X obj 772 355 *~ 3.28084; +#X text 847 357 Convert to feet; +#X obj 772 379 /~ 1000; +#X text 833 381 Attenuation per 1000 feet; +#X obj 773 420 *~ 1; +#X obj 686 142 >= 11200; +#X obj 572 143 >= 5600; +#X obj 456 142 >= 2800; +#X obj 348 142 >= 1400; +#X obj 240 143 >= 710; +#X obj 134 140 >= 355; +#X obj 27 141 >= 180; +#X obj -82 142 >= 90; +#X obj -190 137 >= 0; +#X obj 773 445 outlet~; +#X text 831 442 Attenuation factor for this freq; +#X text 80 466 Values represent atmospheric attenuation for each frequnecy +band as published in Marte & Kurtz 1970; +#X connect 0 0 15 0; +#X connect 1 0 15 0; +#X connect 2 0 32 0; +#X connect 3 0 2 0; +#X connect 4 0 33 0; +#X connect 5 0 4 0; +#X connect 6 0 34 0; +#X connect 7 0 6 0; +#X connect 9 0 35 0; +#X connect 10 0 9 0; +#X connect 11 0 36 0; +#X connect 12 0 11 0; +#X connect 13 0 37 0; +#X connect 14 0 13 0; +#X connect 15 0 8 0; +#X connect 15 0 19 0; +#X connect 15 0 20 0; +#X connect 15 0 21 0; +#X connect 15 0 22 0; +#X connect 15 0 23 0; +#X connect 15 0 24 0; +#X connect 15 0 25 0; +#X connect 15 0 28 0; +#X connect 15 0 31 0; +#X connect 15 0 47 0; +#X connect 15 0 48 0; +#X connect 15 0 49 0; +#X connect 15 0 50 0; +#X connect 15 0 51 0; +#X connect 15 0 52 0; +#X connect 15 0 53 0; +#X connect 15 0 54 0; +#X connect 15 0 55 0; +#X connect 16 0 38 0; +#X connect 17 0 16 0; +#X connect 18 0 42 0; +#X connect 19 0 3 1; +#X connect 20 0 5 1; +#X connect 21 0 7 1; +#X connect 22 0 10 1; +#X connect 23 0 12 1; +#X connect 24 0 14 1; +#X connect 25 0 17 1; +#X connect 26 0 39 0; +#X connect 27 0 26 0; +#X connect 28 0 27 1; +#X connect 29 0 40 0; +#X connect 30 0 29 0; +#X connect 31 0 30 1; +#X connect 32 0 46 1; +#X connect 33 0 46 1; +#X connect 34 0 46 1; +#X connect 35 0 46 1; +#X connect 36 0 46 1; +#X connect 37 0 46 1; +#X connect 38 0 46 1; +#X connect 39 0 46 1; +#X connect 40 0 46 1; +#X connect 42 0 44 0; +#X connect 44 0 46 0; +#X connect 46 0 56 0; +#X connect 47 0 30 0; +#X connect 47 0 29 1; +#X connect 48 0 27 0; +#X connect 48 0 26 1; +#X connect 49 0 17 0; +#X connect 49 0 16 1; +#X connect 50 0 13 1; +#X connect 50 0 14 0; +#X connect 51 0 11 1; +#X connect 51 0 12 0; +#X connect 52 0 9 1; +#X connect 52 0 10 0; +#X connect 53 0 6 1; +#X connect 53 0 7 0; +#X connect 54 0 5 0; +#X connect 54 0 4 1; +#X connect 55 0 2 1; +#X connect 55 0 3 0; +#X restore 936 130 pd step9calc; +#X obj 936 108 inlet~; +#X obj 181 161 outlet~; +#X obj 267 161 outlet~; +#X obj 351 163 outlet~; +#X obj 437 163 outlet~; +#X obj 518 161 outlet~; +#X obj 604 161 outlet~; +#X obj 688 163 outlet~; +#X obj 774 163 outlet~; +#X obj 851 163 outlet~; +#X obj 937 163 outlet~; +#X connect 0 0 20 0; +#X connect 1 0 0 0; +#X connect 2 0 21 0; +#X connect 3 0 2 0; +#X connect 4 0 22 0; +#X connect 5 0 4 0; +#X connect 6 0 23 0; +#X connect 7 0 6 0; +#X connect 8 0 24 0; +#X connect 9 0 8 0; +#X connect 10 0 25 0; +#X connect 11 0 10 0; +#X connect 12 0 26 0; +#X connect 13 0 12 0; +#X connect 14 0 27 0; +#X connect 15 0 14 0; +#X connect 16 0 28 0; +#X connect 17 0 16 0; +#X connect 18 0 29 0; +#X connect 19 0 18 0; +#X restore 93 532 pd s_t_e_p_9; +#N canvas 0 142 1440 469 s_t_e_p_8 0; +#X obj 64 99 r~ dec1; +#X obj 49 166 /~ 20; +#X obj 28 79 sig~ 10; +#X obj 28 211 *~ 2e-05; +#X obj 28 190 pow~; +#X obj 49 121 +~; +#X obj 185 168 /~ 20; +#X obj 164 81 sig~ 10; +#X obj 164 213 *~ 2e-05; +#X obj 164 192 pow~; +#X obj 185 121 +~; +#X obj 200 99 r~ dec2; +#X obj 329 166 /~ 20; +#X obj 308 79 sig~ 10; +#X obj 308 211 *~ 2e-05; +#X obj 308 190 pow~; +#X obj 328 118 +~; +#X obj 465 168 /~ 20; +#X obj 444 81 sig~ 10; +#X obj 444 213 *~ 2e-05; +#X obj 444 192 pow~; +#X obj 464 121 +~; +#X obj 604 170 /~ 20; +#X obj 583 83 sig~ 10; +#X obj 583 215 *~ 2e-05; +#X obj 583 194 pow~; +#X obj 604 126 +~; +#X obj 806 165 /~ 20; +#X obj 785 78 sig~ 10; +#X obj 785 210 *~ 2e-05; +#X obj 785 189 pow~; +#X obj 806 118 +~; +#X obj 942 167 /~ 20; +#X obj 921 80 sig~ 10; +#X obj 921 212 *~ 2e-05; +#X obj 921 191 pow~; +#X obj 942 120 +~; +#X obj 1086 165 /~ 20; +#X obj 1065 78 sig~ 10; +#X obj 1065 210 *~ 2e-05; +#X obj 1065 189 pow~; +#X obj 1085 117 +~; +#X obj 1222 167 /~ 20; +#X obj 1201 80 sig~ 10; +#X obj 1201 212 *~ 2e-05; +#X obj 1201 191 pow~; +#X obj 1221 113 +~; +#X obj 1361 169 /~ 20; +#X obj 1340 82 sig~ 10; +#X obj 1340 214 *~ 2e-05; +#X obj 1340 193 pow~; +#X obj 1361 117 +~; +#X obj 343 96 r~ dec3; +#X obj 479 99 r~ dec4; +#X obj 619 104 r~ dec5; +#X obj 821 96 r~ dec6; +#X obj 957 98 r~ dec7; +#X obj 1100 95 r~ dec8; +#X obj 1236 91 r~ dec9; +#X obj 1376 95 r~ dec10; +#X obj 28 234 s~ harm1G; +#X obj 583 237 s~ harm5G; +#X obj 444 235 s~ harm4G; +#X obj 308 232 s~ harm3G; +#X obj 164 235 s~ harm2G; +#X obj 921 234 s~ harm7G; +#X obj 785 232 s~ harm6G; +#X obj 1065 232 s~ harm8G; +#X obj 1201 233 s~ harm9G; +#X obj 1340 235 s~ harm10G; +#X obj 765 305 inlet~; +#X obj 85 38 inlet~; +#X obj 232 41 inlet~; +#X obj 386 44 inlet~; +#X obj 533 47 inlet~; +#X obj 671 39 inlet~; +#X obj 818 42 inlet~; +#X obj 972 45 inlet~; +#X obj 1119 48 inlet~; +#X obj 1266 55 inlet~; +#X obj 1413 58 inlet~; +#X obj 49 144 -~; +#X obj 184 144 -~; +#X obj 328 143 -~; +#X obj 464 143 -~; +#X obj 603 148 -~; +#X obj 806 142 -~; +#X obj 941 143 -~; +#X obj 1084 139 -~; +#X obj 1222 140 -~; +#X obj 1361 143 -~; +#X connect 0 0 5 1; +#X connect 1 0 4 1; +#X connect 2 0 4 0; +#X connect 3 0 60 0; +#X connect 4 0 3 0; +#X connect 5 0 81 0; +#X connect 6 0 9 1; +#X connect 7 0 9 0; +#X connect 8 0 64 0; +#X connect 9 0 8 0; +#X connect 10 0 82 0; +#X connect 11 0 10 1; +#X connect 12 0 15 1; +#X connect 13 0 15 0; +#X connect 14 0 63 0; +#X connect 15 0 14 0; +#X connect 16 0 83 0; +#X connect 17 0 20 1; +#X connect 18 0 20 0; +#X connect 19 0 62 0; +#X connect 20 0 19 0; +#X connect 21 0 84 0; +#X connect 22 0 25 1; +#X connect 23 0 25 0; +#X connect 24 0 61 0; +#X connect 25 0 24 0; +#X connect 26 0 85 0; +#X connect 27 0 30 1; +#X connect 28 0 30 0; +#X connect 29 0 66 0; +#X connect 30 0 29 0; +#X connect 31 0 86 0; +#X connect 32 0 35 1; +#X connect 33 0 35 0; +#X connect 34 0 65 0; +#X connect 35 0 34 0; +#X connect 36 0 87 0; +#X connect 37 0 40 1; +#X connect 38 0 40 0; +#X connect 39 0 67 0; +#X connect 40 0 39 0; +#X connect 41 0 88 0; +#X connect 42 0 45 1; +#X connect 43 0 45 0; +#X connect 44 0 68 0; +#X connect 45 0 44 0; +#X connect 46 0 89 0; +#X connect 47 0 50 1; +#X connect 48 0 50 0; +#X connect 49 0 69 0; +#X connect 50 0 49 0; +#X connect 51 0 90 0; +#X connect 52 0 16 1; +#X connect 53 0 21 1; +#X connect 54 0 26 1; +#X connect 55 0 31 1; +#X connect 56 0 36 1; +#X connect 57 0 41 1; +#X connect 58 0 46 1; +#X connect 59 0 51 1; +#X connect 70 0 26 0; +#X connect 70 0 51 0; +#X connect 70 0 21 0; +#X connect 70 0 46 0; +#X connect 70 0 16 0; +#X connect 70 0 41 0; +#X connect 70 0 10 0; +#X connect 70 0 36 0; +#X connect 70 0 5 0; +#X connect 70 0 31 0; +#X connect 71 0 81 1; +#X connect 72 0 82 1; +#X connect 73 0 83 1; +#X connect 74 0 84 1; +#X connect 75 0 85 1; +#X connect 76 0 86 1; +#X connect 77 0 87 1; +#X connect 78 0 88 1; +#X connect 79 0 89 1; +#X connect 80 0 90 1; +#X connect 81 0 1 0; +#X connect 82 0 6 0; +#X connect 83 0 12 0; +#X connect 84 0 17 0; +#X connect 85 0 22 0; +#X connect 86 0 27 0; +#X connect 87 0 32 0; +#X connect 88 0 37 0; +#X connect 89 0 42 0; +#X connect 90 0 47 0; +#X restore 87 591 pd s_t_e_p_8; #X connect 0 0 1 0; #X connect 2 0 3 0; -#X connect 3 0 167 0; +#X connect 3 0 157 0; #X connect 4 0 3 1; #X connect 6 0 5 0; +#X connect 6 0 174 0; #X connect 8 0 6 0; #X connect 9 0 60 0; #X connect 10 0 12 0; @@ -1038,14 +3985,14 @@ #X connect 19 0 45 0; #X connect 20 0 21 0; #X connect 20 0 16 1; -#X connect 20 0 155 0; +#X connect 20 0 145 0; #X connect 22 0 20 1; #X connect 22 1 20 0; #X connect 23 0 28 0; #X connect 24 0 29 0; #X connect 25 0 26 0; #X connect 25 0 18 1; -#X connect 25 0 154 0; +#X connect 25 0 144 0; #X connect 27 0 25 1; #X connect 27 1 25 0; #X connect 28 0 25 0; @@ -1054,14 +4001,14 @@ #X connect 31 0 47 0; #X connect 32 0 33 0; #X connect 32 0 42 1; -#X connect 32 0 150 0; +#X connect 32 0 140 0; #X connect 34 0 32 1; #X connect 34 1 32 0; #X connect 35 0 40 0; #X connect 36 0 41 0; #X connect 37 0 38 0; #X connect 37 0 43 1; -#X connect 37 0 151 0; +#X connect 37 0 141 0; #X connect 39 0 37 1; #X connect 39 1 37 0; #X connect 40 0 37 0; @@ -1089,106 +4036,125 @@ #X connect 67 0 68 0; #X connect 68 0 62 0; #X connect 68 0 69 0; -#X connect 68 0 162 0; +#X connect 68 0 152 0; #X connect 70 0 75 0; #X connect 71 0 75 1; #X connect 72 0 76 0; #X connect 72 1 75 2; #X connect 73 0 75 3; #X connect 74 0 75 4; -#X connect 75 0 77 0; -#X connect 78 0 5 1; -#X connect 80 0 79 0; -#X connect 81 0 80 0; -#X connect 82 0 83 0; -#X connect 83 0 80 1; -#X connect 84 0 79 1; -#X connect 86 0 85 0; +#X connect 75 0 175 5; +#X connect 77 0 5 1; +#X connect 78 0 166 0; +#X connect 78 0 174 1; +#X connect 79 0 78 0; +#X connect 80 0 81 0; +#X connect 81 0 78 1; +#X connect 82 0 166 1; +#X connect 83 0 168 0; +#X connect 83 0 174 2; +#X connect 84 0 83 0; +#X connect 85 0 89 0; +#X connect 86 0 170 0; +#X connect 86 0 174 3; #X connect 87 0 86 0; -#X connect 88 0 93 0; -#X connect 90 0 89 0; -#X connect 91 0 90 0; -#X connect 92 0 95 0; -#X connect 93 0 86 1; -#X connect 94 0 85 1; -#X connect 95 0 90 1; -#X connect 96 0 89 1; -#X connect 98 0 97 0; +#X connect 88 0 91 0; +#X connect 89 0 83 1; +#X connect 90 0 168 1; +#X connect 91 0 86 1; +#X connect 92 0 170 1; +#X connect 93 0 172 0; +#X connect 93 0 174 4; +#X connect 94 0 93 0; +#X connect 95 0 96 0; +#X connect 96 0 93 1; +#X connect 97 0 172 1; +#X connect 98 0 165 0; +#X connect 98 0 174 5; #X connect 99 0 98 0; -#X connect 100 0 101 0; -#X connect 101 0 98 1; -#X connect 102 0 97 1; -#X connect 104 0 103 0; +#X connect 100 0 113 0; +#X connect 101 0 167 0; +#X connect 101 0 174 6; +#X connect 102 0 101 0; +#X connect 103 0 115 0; +#X connect 104 0 169 0; +#X connect 104 0 174 7; #X connect 105 0 104 0; -#X connect 106 0 123 0; +#X connect 106 0 117 0; +#X connect 107 0 171 0; +#X connect 107 0 174 8; #X connect 108 0 107 0; -#X connect 109 0 108 0; -#X connect 110 0 125 0; -#X connect 112 0 111 0; -#X connect 113 0 112 0; -#X connect 114 0 127 0; -#X connect 116 0 115 0; -#X connect 117 0 116 0; -#X connect 118 0 129 0; -#X connect 120 0 119 0; -#X connect 121 0 120 0; -#X connect 122 0 131 0; -#X connect 123 0 104 1; -#X connect 124 0 103 1; -#X connect 125 0 108 1; -#X connect 126 0 107 1; -#X connect 127 0 112 1; -#X connect 128 0 111 1; -#X connect 129 0 116 1; -#X connect 130 0 115 1; -#X connect 131 0 120 1; -#X connect 132 0 119 1; -#X connect 133 0 2 0; -#X connect 134 0 10 0; -#X connect 134 0 10 1; -#X connect 135 0 11 0; -#X connect 135 0 11 1; -#X connect 135 0 14 0; -#X connect 136 0 143 0; -#X connect 137 0 146 0; -#X connect 138 0 140 0; -#X connect 139 0 140 0; -#X connect 140 0 141 0; -#X connect 140 0 168 0; -#X connect 142 0 143 0; -#X connect 143 0 144 0; -#X connect 143 0 148 0; -#X connect 145 0 146 0; -#X connect 146 0 147 0; -#X connect 146 0 149 0; -#X connect 150 0 155 1; -#X connect 150 1 155 0; -#X connect 151 0 154 1; -#X connect 151 1 154 0; -#X connect 154 0 153 0; -#X connect 154 0 157 1; -#X connect 155 0 152 0; -#X connect 155 0 156 1; -#X connect 156 1 158 0; -#X connect 157 1 164 1; -#X connect 158 0 164 0; -#X connect 159 0 160 0; -#X connect 160 0 161 0; -#X connect 160 0 64 0; -#X connect 160 0 171 0; -#X connect 162 0 170 0; -#X connect 163 0 156 0; -#X connect 163 0 157 0; -#X connect 164 0 165 0; -#X connect 165 0 166 0; -#X connect 166 0 169 0; -#X connect 167 0 7 0; -#X connect 167 0 173 0; -#X connect 169 0 160 0; -#X connect 170 0 163 0; -#X connect 170 0 163 1; -#X connect 172 0 173 0; -#X connect 173 0 174 0; +#X connect 109 0 119 0; +#X connect 110 0 173 0; +#X connect 110 0 174 9; +#X connect 111 0 110 0; +#X connect 112 0 121 0; +#X connect 113 0 98 1; +#X connect 114 0 165 1; +#X connect 115 0 101 1; +#X connect 116 0 167 1; +#X connect 117 0 104 1; +#X connect 118 0 169 1; +#X connect 119 0 107 1; +#X connect 120 0 171 1; +#X connect 121 0 110 1; +#X connect 122 0 173 1; +#X connect 123 0 2 0; +#X connect 124 0 10 0; +#X connect 124 0 10 1; +#X connect 125 0 11 0; +#X connect 125 0 11 1; +#X connect 125 0 14 0; +#X connect 126 0 133 0; +#X connect 127 0 136 0; +#X connect 128 0 130 0; +#X connect 129 0 130 0; +#X connect 130 0 131 0; +#X connect 130 0 158 0; +#X connect 132 0 133 0; +#X connect 133 0 134 0; +#X connect 133 0 138 0; +#X connect 135 0 136 0; +#X connect 136 0 137 0; +#X connect 136 0 139 0; +#X connect 140 0 145 1; +#X connect 140 1 145 0; +#X connect 141 0 144 1; +#X connect 141 1 144 0; +#X connect 144 0 143 0; +#X connect 144 0 147 1; +#X connect 145 0 142 0; +#X connect 145 0 146 1; +#X connect 146 1 148 0; +#X connect 147 1 154 1; +#X connect 148 0 154 0; +#X connect 149 0 150 0; +#X connect 150 0 151 0; +#X connect 150 0 64 0; +#X connect 150 0 161 0; +#X connect 152 0 160 0; +#X connect 153 0 146 0; +#X connect 153 0 147 0; +#X connect 154 0 155 0; +#X connect 155 0 156 0; +#X connect 156 0 159 0; +#X connect 157 0 7 0; +#X connect 157 0 163 0; +#X connect 159 0 150 0; +#X connect 160 0 153 0; +#X connect 160 0 153 1; +#X connect 162 0 163 0; +#X connect 163 0 164 0; +#X connect 174 0 175 0; +#X connect 174 1 175 1; +#X connect 174 2 175 2; +#X connect 174 3 175 3; +#X connect 174 4 175 4; +#X connect 174 5 175 6; +#X connect 174 6 175 7; +#X connect 174 7 175 8; +#X connect 174 8 175 9; +#X connect 174 9 175 10; #X restore 148 203 pd rotNoise; #X msg -272 374 0.8; #X obj -293 638 hsl 70 15 2 4 0 0 empty empty Blades 2 8 0 10 -262144 @@ -1200,7 +4166,7 @@ #X obj -296 723 s~ noBlad; #X obj -296 617 loadbang; #X obj 355 429 hsl 70 15 1e-05 1000 1 0 empty empty Rot_Boost 2 8 0 -10 -203904 -1 -1 4400 1; +10 -203904 -1 -1 4800 1; #X floatatom 527 344 0 0 0 0 - - -; #X msg -242 11 -150; #X obj 448 280 loadbang; @@ -1208,7 +4174,7 @@ #X msg -178 -7 150; #X floatatom 148 224 0 0 0 0 - - -; #X obj 456 425 hsl 70 15 0 500 0 0 empty empty Horse_Power 2 8 0 10 --262144 -1 -1 3800 1; +-262144 -1 -1 3450 1; #X obj -57 700 line~; #X msg -57 680 \$1 30; #X obj -57 743 s~ horseP; @@ -2862,18 +5828,18 @@ #X connect 41 0 4 1; #X connect 41 0 37 4; #X restore 138 236 pd sourcePositions; +#X obj 609 -20 inlet; +#X obj 224 146 freqCalcCyl6HiFi; #X obj 605 312 freqCalcCyl6HiFi; -#X obj 224 146 freqCalcCyl6HiFi; #X obj 345 301 freqCalcCyl6HiFi; #X obj 42 143 freqCalcCyl6HiFi; #X obj 425 145 freqCalcCyl6HiFi; #X obj 660 144 freqCalcCyl6HiFi; #X obj 122 290 freqCalcCyl6HiFi; -#X obj 609 -20 inlet; -#X connect 1 0 20 0; +#X connect 1 0 21 0; #X connect 1 1 11 0; #X connect 1 2 11 1; -#X connect 1 3 20 1; +#X connect 1 3 21 1; #X connect 1 4 11 2; #X connect 2 0 10 0; #X connect 2 0 1 0; @@ -2891,63 +5857,63 @@ #X connect 4 2 3 1; #X connect 4 3 18 1; #X connect 4 4 3 2; -#X connect 5 0 21 0; +#X connect 5 0 22 0; #X connect 5 1 12 0; #X connect 5 2 12 1; -#X connect 5 3 21 1; +#X connect 5 3 22 1; #X connect 5 4 12 2; -#X connect 6 0 22 0; +#X connect 6 0 23 0; #X connect 6 1 13 0; #X connect 6 2 13 1; -#X connect 6 3 22 1; +#X connect 6 3 23 1; #X connect 6 4 13 2; -#X connect 7 0 23 0; +#X connect 7 0 24 0; #X connect 7 1 16 0; #X connect 7 2 16 1; -#X connect 7 3 23 1; +#X connect 7 3 24 1; #X connect 7 4 16 2; -#X connect 8 0 19 0; +#X connect 8 0 20 0; #X connect 8 1 15 0; #X connect 8 2 15 1; -#X connect 8 3 19 1; +#X connect 8 3 20 1; #X connect 8 4 15 2; -#X connect 9 0 17 0; +#X connect 9 0 19 0; #X connect 9 1 14 0; #X connect 9 2 14 1; -#X connect 9 3 17 1; +#X connect 9 3 19 1; #X connect 9 4 14 2; +#X connect 10 0 18 6; +#X connect 10 0 19 6; #X connect 10 0 20 6; -#X connect 10 0 18 6; #X connect 10 0 21 6; #X connect 10 0 22 6; -#X connect 10 0 17 6; -#X connect 10 0 19 6; #X connect 10 0 23 6; -#X connect 11 0 20 2; -#X connect 11 1 20 3; -#X connect 11 2 20 4; -#X connect 12 0 21 2; -#X connect 12 1 21 3; -#X connect 12 2 21 4; -#X connect 13 0 22 2; -#X connect 13 1 22 3; -#X connect 13 2 22 4; -#X connect 14 0 17 2; -#X connect 14 1 17 3; -#X connect 14 2 17 4; -#X connect 15 0 19 2; -#X connect 15 1 19 3; -#X connect 15 2 19 4; -#X connect 16 0 23 2; -#X connect 16 1 23 3; -#X connect 16 2 23 4; -#X connect 24 0 22 5; -#X connect 24 0 17 5; -#X connect 24 0 19 5; -#X connect 24 0 21 5; -#X connect 24 0 18 5; -#X connect 24 0 23 5; -#X connect 24 0 20 5; +#X connect 10 0 24 6; +#X connect 11 0 21 2; +#X connect 11 1 21 3; +#X connect 11 2 21 4; +#X connect 12 0 22 2; +#X connect 12 1 22 3; +#X connect 12 2 22 4; +#X connect 13 0 23 2; +#X connect 13 1 23 3; +#X connect 13 2 23 4; +#X connect 14 0 19 2; +#X connect 14 1 19 3; +#X connect 14 2 19 4; +#X connect 15 0 20 2; +#X connect 15 1 20 3; +#X connect 15 2 20 4; +#X connect 16 0 24 2; +#X connect 16 1 24 3; +#X connect 16 2 24 4; +#X connect 17 0 18 5; +#X connect 17 0 19 5; +#X connect 17 0 20 5; +#X connect 17 0 21 5; +#X connect 17 0 22 5; +#X connect 17 0 23 5; +#X connect 17 0 24 5; #X restore 324 92 pd sources; #X obj 324 70 phasor~; #X obj 281 112 wrap~; @@ -3186,7 +6152,7 @@ #X obj 324 28 r~ RPM; #X obj 324 49 /~ 60; #X obj 355 459 hsl 70 15 0.0001 10 1 0 empty empty Broad_Boost 2 8 -0 10 -204786 -1 -1 3600 1; +0 10 -204786 -1 -1 5137 1; #X floatatom 515 198 0 0 0 0 - - -; #X obj 448 156 loadbang; #X obj 448 237 line~; @@ -4795,18 +7761,18 @@ #X connect 41 0 4 1; #X connect 41 0 37 4; #X restore 619 260 pd sourcePositions; +#X obj 560 -9 inlet; +#X obj 426 145 freqCalcCyl6HiFi; +#X obj 217 146 freqCalcCyl6HiFi; +#X obj 20 168 freqCalcCyl6HiFi; +#X obj 125 290 freqCalcCyl6HiFi; +#X obj 662 145 freqCalcCyl6HiFi; #X obj 607 312 freqCalcCyl6HiFi; -#X obj 20 168 freqCalcCyl6HiFi; -#X obj 426 145 freqCalcCyl6HiFi; #X obj 348 304 freqCalcCyl6HiFi; -#X obj 217 146 freqCalcCyl6HiFi; -#X obj 662 145 freqCalcCyl6HiFi; -#X obj 125 290 freqCalcCyl6HiFi; -#X obj 560 -9 inlet; -#X connect 1 0 19 0; +#X connect 1 0 21 0; #X connect 1 1 11 0; #X connect 1 2 11 1; -#X connect 1 3 19 1; +#X connect 1 3 21 1; #X connect 1 4 11 2; #X connect 2 0 9 0; #X connect 2 0 10 0; @@ -4817,71 +7783,71 @@ #X connect 2 0 8 0; #X connect 2 0 7 0; #X connect 2 0 6 0; -#X connect 3 0 22 0; +#X connect 3 0 20 0; #X connect 3 1 12 0; #X connect 3 2 12 1; -#X connect 3 3 22 1; +#X connect 3 3 20 1; #X connect 3 4 12 2; -#X connect 4 0 20 0; +#X connect 4 0 19 0; #X connect 4 1 13 0; #X connect 4 2 13 1; -#X connect 4 3 20 1; +#X connect 4 3 19 1; #X connect 4 4 13 2; #X connect 5 0 23 0; #X connect 5 1 14 0; #X connect 5 2 14 1; #X connect 5 3 23 1; #X connect 5 4 14 2; -#X connect 6 0 24 0; +#X connect 6 0 22 0; #X connect 6 1 15 0; #X connect 6 2 15 1; -#X connect 6 3 24 1; +#X connect 6 3 22 1; #X connect 6 4 15 2; -#X connect 7 0 21 0; +#X connect 7 0 25 0; #X connect 7 1 16 0; #X connect 7 2 16 1; -#X connect 7 3 21 1; +#X connect 7 3 25 1; #X connect 7 4 16 2; -#X connect 8 0 18 0; +#X connect 8 0 24 0; #X connect 8 1 17 0; #X connect 8 2 17 1; -#X connect 8 3 18 1; +#X connect 8 3 24 1; #X connect 8 4 17 2; #X connect 9 0 19 6; +#X connect 9 0 20 6; +#X connect 9 0 21 6; #X connect 9 0 22 6; -#X connect 9 0 20 6; #X connect 9 0 23 6; -#X connect 9 0 18 6; -#X connect 9 0 21 6; #X connect 9 0 24 6; -#X connect 11 0 19 2; -#X connect 11 1 19 3; -#X connect 11 2 19 4; -#X connect 12 0 22 2; -#X connect 12 1 22 3; -#X connect 12 2 22 4; -#X connect 13 0 20 2; -#X connect 13 1 20 3; -#X connect 13 2 20 4; +#X connect 9 0 25 6; +#X connect 11 0 21 2; +#X connect 11 1 21 3; +#X connect 11 2 21 4; +#X connect 12 0 20 2; +#X connect 12 1 20 3; +#X connect 12 2 20 4; +#X connect 13 0 19 2; +#X connect 13 1 19 3; +#X connect 13 2 19 4; #X connect 14 0 23 2; #X connect 14 1 23 3; #X connect 14 2 23 4; -#X connect 15 0 24 2; -#X connect 15 1 24 3; -#X connect 15 2 24 4; -#X connect 16 0 21 2; -#X connect 16 1 21 3; -#X connect 16 2 21 4; -#X connect 17 0 18 2; -#X connect 17 1 18 3; -#X connect 17 2 18 4; -#X connect 25 0 19 5; -#X connect 25 0 22 5; -#X connect 25 0 20 5; -#X connect 25 0 23 5; -#X connect 25 0 18 5; -#X connect 25 0 21 5; -#X connect 25 0 24 5; +#X connect 15 0 22 2; +#X connect 15 1 22 3; +#X connect 15 2 22 4; +#X connect 16 0 25 2; +#X connect 16 1 25 3; +#X connect 16 2 25 4; +#X connect 17 0 24 2; +#X connect 17 1 24 3; +#X connect 17 2 24 4; +#X connect 18 0 19 5; +#X connect 18 0 20 5; +#X connect 18 0 21 5; +#X connect 18 0 22 5; +#X connect 18 0 23 5; +#X connect 18 0 24 5; +#X connect 18 0 25 5; #X restore 281 133 pd sources; #X msg -231 139 5; #X obj 448 360 line~; @@ -5025,9 +7991,9 @@ #X connect 14 0 5 0; #X connect 15 0 9 1; #X connect 16 0 0 0; -#X restore -66 426 pd andyEngine; +#X restore 277 205 pd andyEngine; #X obj 356 488 hsl 70 15 0.1 100 1 0 empty empty Engine_Boost 2 8 0 -10 -261234 -1 -1 4800 1; +10 -261234 -1 -1 6900 1; #X obj -57 720 *~; #X obj -17 701 line~; #X msg -17 681 \$1 30; @@ -5404,7 +8370,7 @@ #X obj -7 555 s throt; #X floatatom -50 575 5 0 0 0 - - -; #X obj -71 514 * 2500; -#X obj 9 475 * 1; +#X obj 275 182 * 1; #X floatatom 617 275 0 0 0 0 - - -; #X msg 610 171 2.2; #X msg 448 300 0.33; @@ -5425,13 +8391,14 @@ #X msg -98 264 -20 2500; #X obj -96 289 delay 2500; #X msg -96 310 -60 2500; -#X msg -75 182 500 15000; -#X msg -107 242 -60; -#X msg -101 167 -300; #X text 185 618 Fly-by; #X text 189 652 Reset; #X obj -4 188 r preset1; -#X obj -67 138 r preset2; +#X obj -37 114 r preset2; +#X msg -126 205 -120; +#X msg -98 130 -200; +#X msg -75 182 500 15000; +#X msg -127 244 -60; #X connect 0 0 1 0; #X connect 1 0 155 0; #X connect 3 0 4 0; @@ -5570,14 +8537,15 @@ #X connect 165 0 166 0; #X connect 166 0 167 0; #X connect 167 0 90 0; -#X connect 168 0 83 0; -#X connect 168 0 96 0; -#X connect 168 0 165 0; -#X connect 169 0 90 0; -#X connect 169 0 93 0; -#X connect 170 0 83 0; -#X connect 170 0 96 0; -#X connect 170 0 169 0; -#X connect 173 0 168 0; -#X connect 174 0 170 0; +#X connect 170 0 174 0; +#X connect 171 0 173 0; +#X connect 171 0 175 0; +#X connect 171 0 172 0; +#X connect 172 0 93 0; +#X connect 173 0 83 0; +#X connect 173 0 96 0; +#X connect 174 0 83 0; +#X connect 174 0 96 0; +#X connect 174 0 165 0; +#X connect 175 0 90 0; #X coords 0 -1 1 1 500 400 2 50 400;
--- a/Propellor/freqCalcCyl6HiFi.pd Mon Sep 19 18:10:20 2016 +0100 +++ b/Propellor/freqCalcCyl6HiFi.pd Thu Sep 22 19:52:04 2016 +0100 @@ -24,10 +24,10 @@ #X obj 1062 413 throw~ l; #X obj 1089 391 throw~ r; #X obj 1062 369 fcpan; -#X obj 441 355 s~ \$0-dragDiGain; -#X obj 354 375 s~ \$0-liftDiGain; +#X obj 441 364 s~ \$0-dragDiGain; +#X obj 354 384 s~ \$0-liftDiGain; #X obj 336 464 r~ \$0-str; -#X obj 336 661 s~ \$0-liftNoiseGain; +#X obj 336 681 s~ \$0-liftNoiseGain; #X obj 619 360 s~ \$0-str; #X obj 646 136 s \$0-thisPan; #X obj 1062 200 r~ \$0-liftNoiseGain; @@ -35,8 +35,8 @@ #X text 1043 174 Noise spectrum calculation; #X obj 1077 292 hip~; #X obj 1077 247 rpole~ 0.99; -#X obj 354 157 r~ \$0-str; -#X text 327 680 Calculates the gain of the wake; +#X obj 354 145 r~ \$0-str; +#X text 327 700 Calculates the gain of the wake; #N canvas 1021 287 444 428 corrLen 0; #X obj 103 71 inlet~; #X obj 88 200 outlet~; @@ -58,7 +58,7 @@ #X restore 718 71 pd corrLen Calc; #X obj 718 48 r~ \$0-myRey; #X obj 718 95 s~ \$0-myCor; -#X obj 403 247 r~ \$0-myCor; +#X obj 403 235 r~ \$0-myCor; #X obj 1077 319 hip~; #X obj 362 508 r~ \$0-myCor; #X obj 646 91 max 0.01; @@ -131,6 +131,7 @@ #X connect 12 1 11 0; #X connect 13 0 36 0; #X connect 14 0 12 1; +#X connect 14 0 41 0; #X connect 15 0 13 0; #X connect 16 0 19 0; #X connect 19 0 17 0; @@ -246,13 +247,13 @@ #X obj 127 75 inlet~; #X obj 59 98 /~ 343.56; #X obj 59 121 s~ \$0-MY_MACH; -#X obj 416 268 r~ \$0-dist; -#X obj 428 289 r~ \$0-elev; -#X obj 441 310 r~ \$0-azim; +#X obj 416 256 r~ \$0-dist; +#X obj 428 277 r~ \$0-elev; +#X obj 441 298 r~ \$0-azim; #X obj 429 612 r~ \$0-elev; #X obj 415 593 r~ \$0-azim; #X obj 402 572 r~ \$0-dist; -#X obj 366 181 r~ \$0-sourceSpeed; +#X obj 366 169 r~ \$0-sourceSpeed; #X obj 127 95 s~ \$0-sourceSpeed; #X obj 719 161 r~ \$0-sourceSpeed; #X obj 349 486 r~ \$0-sourceSpeed; @@ -324,9 +325,9 @@ #X connect 30 0 2 0; #X connect 31 0 12 1; #X restore 887 501 pd doppler; -#X obj 430 82 s~ \$0-elev; +#X obj 430 115 s~ \$0-elev; #X obj 504 82 s~ \$0-azim; -#N canvas 352 152 1238 721 GoldfreqGain 0; +#N canvas 39 56 1340 718 GoldfreqGain 0; #N canvas 759 125 172 246 pow6 0; #X obj 47 67 *~; #X obj 76 67 *~; @@ -460,7 +461,7 @@ #X obj 567 29 inlet~; #X obj 574 51 s~ \$0-thisDist; #X obj 665 32 inlet~; -#X obj 670 55 s~ \$0-this_elev; +#X obj 666 57 s~ \$0-this_elev; #X obj 767 30 inlet~; #X obj 774 55 s~ \$0-this_azim; #X obj 411 135 r~ \$0-thisDist; @@ -488,6 +489,9 @@ #X obj 219 289 *~; #X obj 270 190 *~; #X obj 291 169 inlet~; +#X text -214 358 If adding additional signal at 0 degrees then you +will have to add it before you divid by distance - for all sources! +; #X connect 0 0 2 0; #X connect 1 0 2 1; #X connect 2 0 54 0; @@ -567,7 +571,7 @@ #X connect 91 0 61 0; #X connect 92 0 54 1; #X connect 93 0 92 1; -#X restore 354 332 pd GoldfreqGain; +#X restore 354 320 pd GoldfreqGain; #N canvas 300 30 1006 797 GoldnoiseGain 0; #X text -21037 364 Mass Density of Air \, squared; #X text -20777 458 Distance; @@ -743,7 +747,7 @@ #X obj -20807 286 inlet~; #X obj -20789 393 inlet~; #X obj -20861 444 *~; -#X obj -20861 595 *~ 1e-05; +#X obj -20861 595 *~ 0.001; #X connect 2 0 34 1; #X connect 3 0 39 0; #X connect 3 0 2 0; @@ -802,13 +806,13 @@ #X obj 1048 88 s~ \$0-proprAzim; #X obj 776 393 r~ \$0-proprAzim; #X obj 719 329 sig~ 0.85; -#X obj 378 202 r~ length; +#X obj 378 190 r~ length; #X floatatom 262 229 0 0 0 0 - - -; #X obj 233 73 inlet~; #X obj 240 96 s~ \$0-diameter; #X obj 787 363 r~ \$0-diameter; #X obj 719 382 /~; -#X obj 391 225 r~ \$0-diameter; +#X obj 391 213 r~ \$0-diameter; #X obj 375 529 r~ \$0-diameter; #X obj 389 550 r~ length; #N canvas 305 129 260 284 doppler 0; @@ -831,6 +835,10 @@ #X connect 7 0 8 0; #X connect 8 0 3 1; #X restore 719 417 pd doppler; +#X obj 276 344 max~ 5e-05; +#X obj 466 341 max~ 5e-06; +#X obj 379 657 max~ 5e-07; +#X obj 430 83 max~ 8; #X connect 1 0 3 0; #X connect 2 0 11 0; #X connect 3 0 2 0; @@ -862,7 +870,7 @@ #X connect 54 0 42 1; #X connect 55 0 54 0; #X connect 57 0 60 0; -#X connect 58 0 76 0; +#X connect 58 0 100 0; #X connect 59 0 77 0; #X connect 61 0 62 0; #X connect 61 0 71 0; @@ -894,3 +902,4 @@ #X connect 94 0 79 3; #X connect 95 0 79 4; #X connect 96 0 9 0; +#X connect 100 0 76 0;
--- a/scene demo/freqCalcCyl3No_D4Mach.pd Mon Sep 19 18:10:20 2016 +0100 +++ b/scene demo/freqCalcCyl3No_D4Mach.pd Thu Sep 22 19:52:04 2016 +0100 @@ -1,4 +1,4 @@ -#N canvas 0 90 1370 784 10; +#N canvas 128 82 1370 784 10; #X text 587 178 Mass Density of Air; #X obj 709 179 *~ 1.225; #X obj 709 254 /~ 1.81e-05; @@ -413,7 +413,7 @@ #X connect 119 0 116 0; #X connect 120 0 99 0; #X restore 313 307 pd GoldfreqGain; -#N canvas 300 30 1006 797 GoldnoiseGain 1; +#N canvas 300 30 1006 797 GoldnoiseGain 0; #X text -21037 364 Mass Density of Air \, squared; #X obj -20777 459 *; #X text -20777 412 Distance; @@ -591,13 +591,13 @@ #X obj -20398 86 line~; #X msg -20398 64 \$1 5; #X obj -20587 285 cos~; -#X obj -20861 595 *~ 1; #X obj -20587 262 /~ 360; #X obj -20624 306 *~; #X obj -20609 326 /~ 343.56; #X text -21131 486 Scale factor to bring in line with CFD calcs; #X text -20929 530 Sqrt(2*pi); #X obj -20861 488 /~ 10000; +#X obj -20861 595 *~ 1; #X connect 1 0 61 0; #X connect 3 0 46 1; #X connect 4 0 53 0; @@ -609,12 +609,12 @@ #X connect 14 0 16 0; #X connect 14 0 59 0; #X connect 20 0 49 0; -#X connect 21 0 66 0; +#X connect 21 0 65 0; #X connect 22 0 35 1; #X connect 23 0 22 0; #X connect 24 0 34 1; #X connect 25 0 26 0; -#X connect 26 0 67 0; +#X connect 26 0 66 0; #X connect 27 0 29 1; #X connect 28 0 29 0; #X connect 29 0 24 0; @@ -626,7 +626,7 @@ #X connect 34 0 35 0; #X connect 35 0 36 1; #X connect 36 0 37 1; -#X connect 37 0 65 0; +#X connect 37 0 71 0; #X connect 38 0 25 0; #X connect 40 0 38 0; #X connect 41 0 38 1; @@ -638,13 +638,13 @@ #X connect 46 0 47 0; #X connect 47 0 20 0; #X connect 48 0 49 1; -#X connect 49 0 71 0; +#X connect 49 0 70 0; #X connect 50 0 37 0; #X connect 53 0 57 0; #X connect 55 0 54 0; #X connect 55 0 53 0; #X connect 56 0 3 0; -#X connect 56 0 68 0; +#X connect 56 0 67 0; #X connect 57 0 56 0; #X connect 58 0 19 0; #X connect 59 0 58 0; @@ -652,12 +652,12 @@ #X connect 61 0 60 0; #X connect 62 0 18 0; #X connect 63 0 62 0; -#X connect 64 0 67 1; -#X connect 65 0 7 0; -#X connect 66 0 64 0; -#X connect 67 0 27 0; -#X connect 68 0 27 1; -#X connect 71 0 50 0; +#X connect 64 0 66 1; +#X connect 65 0 64 0; +#X connect 66 0 27 0; +#X connect 67 0 27 1; +#X connect 70 0 50 0; +#X connect 71 0 7 0; #X restore 294 552 pd GoldnoiseGain; #X text 285 599 Calculates the gain of the wake; #X obj 467 82 s \$0-azim; @@ -698,23 +698,19 @@ #X obj 320 424 r~ \$0-myCor; #X obj 636 81 max 0.01; #X obj 636 104 min 0.99; -#N canvas 93 119 976 679 Dipoles 0; +#N canvas 121 75 1255 760 Dipoles 1; #X obj 101 65 r~ \$0-myFreq; #X obj 246 161 r~ \$0-liftDiGain; #X obj 393 69 r~ \$0-myFreq; -#X obj 526 137 r~ \$0-liftDiGain; -#X obj 526 159 *~ 0.6; #X obj 664 66 r~ \$0-myFreq; -#X obj 795 132 r~ \$0-liftDiGain; +#X obj 832 135 r~ \$0-liftDiGain; #X obj 664 90 *~ 5; #X obj 393 93 *~ 3; -#X obj 126 346 r~ \$0-myFreq; -#X obj 253 431 r~ \$0-dragDiGain; -#X obj 126 374 *~ 2; -#X obj 399 344 r~ \$0-myFreq; -#X obj 542 407 r~ \$0-dragDiGain; -#X obj 399 367 *~ 4; -#X obj 542 430 *~ 0.125; +#X obj 124 474 r~ \$0-myFreq; +#X obj 251 559 r~ \$0-dragDiGain; +#X obj 124 502 *~ 2; +#X obj 397 472 r~ \$0-myFreq; +#X obj 397 495 *~ 4; #X obj 210 199 *~; #X obj 210 264 throw~ l; #X obj 237 241 throw~ r; @@ -722,128 +718,184 @@ #X obj 210 108 vcf~ 3; #X obj 237 198 r \$0-thisPan; #X obj 210 67 r~ \$0-thisNoise; -#X obj 480 192 *~; -#X obj 480 257 throw~ l; -#X obj 507 234 throw~ r; -#X obj 480 213 fcpan; +#X obj 480 281 *~; +#X obj 480 346 throw~ l; +#X obj 507 323 throw~ r; +#X obj 480 302 fcpan; #X obj 480 116 vcf~ 3; -#X obj 507 191 r \$0-thisPan; +#X obj 507 280 r \$0-thisPan; #X obj 480 68 r~ \$0-thisNoise; -#X obj 750 183 *~; -#X obj 750 248 throw~ l; -#X obj 777 225 throw~ r; -#X obj 750 204 fcpan; +#X obj 751 282 *~; +#X obj 751 347 throw~ l; +#X obj 778 324 throw~ r; +#X obj 751 303 fcpan; #X obj 750 107 vcf~ 3; -#X obj 777 182 r \$0-thisPan; +#X obj 778 281 r \$0-thisPan; #X obj 750 65 r~ \$0-thisNoise; -#X obj 795 154 *~ 0.1; -#X obj 217 464 *~; -#X obj 217 529 throw~ l; -#X obj 244 506 throw~ r; -#X obj 217 485 fcpan; -#X obj 217 388 vcf~ 3; -#X obj 244 463 r \$0-thisPan; -#X obj 217 344 r~ \$0-thisNoise; -#X obj 491 462 *~; -#X obj 491 527 throw~ l; -#X obj 518 504 throw~ r; -#X obj 491 483 fcpan; -#X obj 491 386 vcf~ 3; -#X obj 518 461 r \$0-thisPan; -#X obj 491 344 r~ \$0-thisNoise; +#X obj 215 592 *~; +#X obj 215 657 throw~ l; +#X obj 242 634 throw~ r; +#X obj 215 613 fcpan; +#X obj 215 516 vcf~ 3; +#X obj 242 591 r \$0-thisPan; +#X obj 215 472 r~ \$0-thisNoise; +#X obj 489 659 *~; +#X obj 489 724 throw~ l; +#X obj 516 701 throw~ r; +#X obj 489 680 fcpan; +#X obj 489 514 vcf~ 3; +#X obj 516 658 r \$0-thisPan; +#X obj 489 472 r~ \$0-thisNoise; #X text 273 27 Generates the sound associated with the lift dipole. ; -#X text 175 312 Generates the sound associated with the drag dipole. +#X text 173 440 Generates the sound associated with the drag dipole. ; #X obj 270 87 r \$0-Qval; #X obj 530 92 r \$0-Qval; #X obj 800 87 r \$0-Qval; -#X obj 537 365 r \$0-Qval; -#X obj 262 366 r \$0-Qval; +#X obj 535 493 r \$0-Qval; +#X obj 260 494 r \$0-Qval; #X obj 210 158 *~ 1; #X obj 480 159 *~ 1; #X obj 750 154 *~ 1; -#X obj 491 428 *~ 1; -#X obj 217 431 *~ 1; +#X obj 489 556 *~ 1; +#X obj 215 559 *~ 1; #X floatatom 277 122 5 0 0 0 - - -; #X obj 210 134 vcf~ 3; #X obj 480 138 vcf~ 3; #X obj 750 131 vcf~ 3; -#X obj 491 407 vcf~ 3; -#X obj 217 409 vcf~ 3; -#X connect 0 0 20 1; -#X connect 0 0 65 1; -#X connect 1 0 16 1; -#X connect 2 0 8 0; -#X connect 3 0 4 0; -#X connect 4 0 23 1; -#X connect 5 0 7 0; -#X connect 6 0 37 0; -#X connect 7 0 34 1; -#X connect 7 0 67 1; -#X connect 8 0 27 1; -#X connect 8 0 66 1; -#X connect 9 0 11 0; -#X connect 10 0 38 1; -#X connect 11 0 42 1; -#X connect 11 0 69 1; -#X connect 12 0 14 0; -#X connect 13 0 15 0; -#X connect 14 0 49 1; -#X connect 14 0 68 1; -#X connect 15 0 45 1; -#X connect 16 0 19 0; -#X connect 19 0 17 0; -#X connect 19 1 18 0; -#X connect 20 0 65 0; -#X connect 21 0 19 1; +#X obj 489 535 vcf~ 3; +#X obj 215 537 vcf~ 3; +#X obj 831 177 log~; +#X obj 810 222 pow~; +#X obj 810 114 sig~ 10; +#X obj 832 157 /~ 2e-05; +#X obj 810 245 *~ 2e-05; +#X obj 831 200 *~ 0.1; +#X obj 561 141 r~ \$0-liftDiGain; +#X obj 560 183 log~; +#X obj 539 228 pow~; +#X obj 539 120 sig~ 10; +#X obj 561 163 /~ 2e-05; +#X obj 539 251 *~ 2e-05; +#X obj 560 206 *~ 0.6; +#X obj 628 555 log~; +#X obj 607 600 pow~; +#X obj 607 492 sig~ 10; +#X obj 629 535 /~ 2e-05; +#X obj 607 623 *~ 2e-05; +#X obj 629 513 r~ \$0-dragDiGain; +#X obj 628 578 *~ 0.125; +#X obj 343 230 r myMet; +#X obj 343 249 snapshot~; +#X floatatom 343 269 0 0 0 0 - - -; +#X obj 619 264 r myMet; +#X obj 619 283 snapshot~; +#X floatatom 619 303 0 0 0 0 - - -; +#X obj 876 270 r myMet; +#X obj 876 289 snapshot~; +#X floatatom 876 309 0 0 0 0 - - -; +#X obj 926 172 r myMet; +#X obj 926 191 snapshot~; +#X floatatom 926 211 0 0 0 0 - - -; +#X connect 0 0 16 1; +#X connect 0 0 60 1; +#X connect 1 0 12 1; +#X connect 1 0 86 0; +#X connect 2 0 6 0; +#X connect 3 0 5 0; +#X connect 4 0 68 0; +#X connect 5 0 30 1; +#X connect 5 0 62 1; +#X connect 6 0 23 1; +#X connect 6 0 61 1; +#X connect 7 0 9 0; +#X connect 8 0 33 1; +#X connect 9 0 37 1; +#X connect 9 0 64 1; +#X connect 10 0 11 0; +#X connect 11 0 44 1; +#X connect 11 0 63 1; +#X connect 12 0 15 0; +#X connect 15 0 13 0; +#X connect 15 1 14 0; +#X connect 16 0 60 0; +#X connect 17 0 15 1; +#X connect 18 0 16 0; +#X connect 19 0 22 0; #X connect 22 0 20 0; -#X connect 23 0 26 0; -#X connect 26 0 24 0; -#X connect 26 1 25 0; -#X connect 27 0 66 0; -#X connect 28 0 26 1; +#X connect 22 1 21 0; +#X connect 23 0 61 0; +#X connect 24 0 22 1; +#X connect 25 0 23 0; #X connect 29 0 27 0; -#X connect 30 0 33 0; -#X connect 33 0 31 0; -#X connect 33 1 32 0; -#X connect 34 0 67 0; -#X connect 35 0 33 1; +#X connect 29 1 28 0; +#X connect 30 0 62 0; +#X connect 31 0 29 1; +#X connect 32 0 30 0; +#X connect 33 0 36 0; #X connect 36 0 34 0; -#X connect 37 0 30 1; -#X connect 38 0 41 0; -#X connect 41 0 39 0; -#X connect 41 1 40 0; -#X connect 42 0 69 0; -#X connect 43 0 41 1; -#X connect 44 0 42 0; -#X connect 45 0 48 0; -#X connect 48 0 46 0; -#X connect 48 1 47 0; -#X connect 49 0 68 0; -#X connect 50 0 48 1; -#X connect 51 0 49 0; -#X connect 54 0 20 2; -#X connect 54 0 64 0; -#X connect 54 0 65 2; -#X connect 55 0 27 2; -#X connect 55 0 66 2; -#X connect 56 0 34 2; -#X connect 56 0 67 2; -#X connect 57 0 49 2; -#X connect 57 0 68 2; -#X connect 58 0 42 2; -#X connect 58 0 69 2; -#X connect 59 0 16 0; -#X connect 60 0 23 0; -#X connect 61 0 30 0; -#X connect 62 0 45 0; -#X connect 63 0 38 0; -#X connect 65 0 59 0; -#X connect 66 0 60 0; -#X connect 67 0 61 0; -#X connect 68 0 62 0; -#X connect 69 0 63 0; +#X connect 36 1 35 0; +#X connect 37 0 64 0; +#X connect 38 0 36 1; +#X connect 39 0 37 0; +#X connect 43 0 41 0; +#X connect 43 1 42 0; +#X connect 44 0 63 0; +#X connect 45 0 43 1; +#X connect 46 0 44 0; +#X connect 49 0 16 2; +#X connect 49 0 59 0; +#X connect 49 0 60 2; +#X connect 50 0 23 2; +#X connect 50 0 61 2; +#X connect 51 0 30 2; +#X connect 51 0 62 2; +#X connect 52 0 44 2; +#X connect 52 0 63 2; +#X connect 53 0 37 2; +#X connect 53 0 64 2; +#X connect 54 0 12 0; +#X connect 55 0 19 0; +#X connect 56 0 26 0; +#X connect 57 0 40 0; +#X connect 58 0 33 0; +#X connect 60 0 54 0; +#X connect 61 0 55 0; +#X connect 62 0 56 0; +#X connect 63 0 57 0; +#X connect 64 0 58 0; +#X connect 65 0 70 0; +#X connect 66 0 69 0; +#X connect 67 0 66 0; +#X connect 68 0 65 0; +#X connect 69 0 26 1; +#X connect 69 0 92 0; +#X connect 70 0 66 1; +#X connect 70 0 95 0; +#X connect 71 0 75 0; +#X connect 72 0 77 0; +#X connect 73 0 76 0; +#X connect 74 0 73 0; +#X connect 75 0 72 0; +#X connect 76 0 19 1; +#X connect 76 0 89 0; +#X connect 77 0 73 1; +#X connect 78 0 84 0; +#X connect 79 0 82 0; +#X connect 80 0 79 0; +#X connect 81 0 78 0; +#X connect 82 0 40 1; +#X connect 83 0 81 0; +#X connect 84 0 79 1; +#X connect 85 0 86 0; +#X connect 86 0 87 0; +#X connect 88 0 89 0; +#X connect 89 0 90 0; +#X connect 91 0 92 0; +#X connect 92 0 93 0; +#X connect 94 0 95 0; +#X connect 95 0 96 0; #X restore 649 504 pd Dipoles; #X obj 1088 69 noise~; #X obj 1088 92 s~ \$0-thisNoise; @@ -1054,6 +1106,12 @@ #X msg 606 103 0.5; #X obj 606 19 loadbang; #X obj 120 65 inlet~; +#X obj 168 458 log~; +#X obj 168 481 *~ 0.6; +#X obj 147 503 pow~; +#X obj 147 418 sig~ 10; +#X obj 169 438 /~ 2e-05; +#X obj 147 526 *~ 2e-05; #X connect 1 0 3 0; #X connect 2 0 19 0; #X connect 2 0 41 0; @@ -1120,3 +1178,8 @@ #X connect 94 0 55 0; #X connect 95 0 94 0; #X connect 96 0 14 0; +#X connect 97 0 98 0; +#X connect 98 0 99 1; +#X connect 99 0 102 0; +#X connect 100 0 99 0; +#X connect 101 0 97 0;
--- a/scene demo/oneTone.pd Mon Sep 19 18:10:20 2016 +0100 +++ b/scene demo/oneTone.pd Thu Sep 22 19:52:04 2016 +0100 @@ -1,10 +1,10 @@ #N canvas 393 99 1088 715 10; #X obj 276 -4 loadbang; #X obj 343 84 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10 --262144 -1 -1 3584 1; +-262144 -1 -1 5533 1; #X floatatom 353 107 8 0 0 0 - - -; #X obj 447 366 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10 --262144 -1 -1 6350 1; +-262144 -1 -1 1166 1; #X floatatom 477 395 5 0 0 0 - - -; #X text 481 87 Diameter; #X obj 405 245 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 @@ -22,7 +22,7 @@ #X obj 276 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 364 142 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 2005 1; +-1 -1 0 1; #X floatatom 374 163 8 0 0 0 - - -; #X msg 242 127 4; #X text 496 126 Length;
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scene demo/oneToneSingle.pd Thu Sep 22 19:52:04 2016 +0100 @@ -0,0 +1,192 @@ +#N canvas 393 118 1088 715 10; +#X obj 276 -4 loadbang; +#X obj 343 84 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 3584 1; +#X floatatom 353 107 8 0 0 0 - - -; +#X obj 447 366 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6350 1; +#X floatatom 477 395 5 0 0 0 - - -; +#X text 481 87 Diameter; +#X obj 405 245 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 6350 1; +#X floatatom 433 274 5 0 0 0 - - -; +#X obj 425 296 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 7937 1; +#X floatatom 438 324 5 0 0 0 - - -; +#X obj 384 187 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 8877 1; +#X floatatom 390 215 5 0 0 0 - - -; +#X text 578 363 Pan Value; +#X msg 205 227 0; +#X msg 162 345 0.5; +#X obj 276 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X obj 364 142 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 2005 1; +#X floatatom 374 163 8 0 0 0 - - -; +#X msg 242 127 4; +#X text 496 126 Length; +#X obj 341 65 r SET_UP; +#X obj 419 120 r SET_UP; +#X obj 459 164 r SET_UP; +#X obj 490 214 r SET_UP; +#X obj 507 270 r SET_UP; +#X obj 504 331 r SET_UP; +#X text 522 188 Obs Distance; +#X msg 140 403 0; +#X msg 120 457 0; +#X msg 101 510 0; +#X msg 308 39 0; +#X text 564 297 Obs Elevation; +#X text 541 240 Obs Azimuth; +#X msg 226 170 4; +#X msg 185 282 45; +#X msg 263 71 0.005; +#X obj 752 5 inlet; +#X obj 437 50 r \$0-sourceDia; +#X obj 752 396 s \$0-sourceDia; +#X obj 773 338 s \$0-sourceLen; +#X obj 491 107 r \$0-sourceLen; +#X obj 588 267 r \$0-sourecElev; +#X obj 576 333 r \$0-sourecPan; +#X obj 514 164 r \$0-sourceDis; +#X obj 794 278 s \$0-sourceDis; +#X obj 815 212 s \$0-sourceElev; +#X obj 857 87 s \$0-sourecPan; +#X obj 547 214 r \$0-sourecAzim; +#X obj 836 147 s \$0-sourecAzim; +#X obj 752 27 unpack f f f f f f; +#X obj 857 68 line; +#X msg 857 48 \$1 100; +#X obj 836 128 line; +#X msg 836 108 \$1 100; +#X obj 815 189 line; +#X msg 815 169 \$1 100; +#X obj 794 257 line; +#X msg 794 237 \$1 100; +#X obj 773 317 line; +#X msg 773 297 \$1 100; +#X obj 752 377 line; +#X msg 752 357 \$1 100; +#X obj 320 637 freqCalcCyl3No_D4Mach; +#X msg 264 606 \$1 30; +#X obj 264 625 line~; +#X obj 100 617 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 +-1 -1 0 1; +#X floatatom 125 653 0 0 0 0 - - -; +#X obj 768 471 hsl 128 15 1 1e+09 1 0 empty empty empty -2 -8 0 10 +-262144 -1 -1 6300 1; +#X floatatom 774 489 0 0 0 0 - - -; +#X msg 383 41 0.004; +#X msg 378 222 12; +#X msg 415 326 90; +#X obj 40 18 loadbang; +#X obj 40 39 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1 +; +#X obj 40 58 metro 30; +#X obj 40 79 s myMet; +#X msg 268 537 20; +#X obj 255 651 /~ 343; +#X obj 327 683 s~ MY_MACH; +#X obj 626 534 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; +#X obj 689 534 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 625 491 pd opLevels; +#X connect 0 0 15 0; +#X connect 0 0 69 0; +#X connect 0 0 71 0; +#X connect 1 0 2 0; +#X connect 1 0 62 1; +#X connect 3 0 4 0; +#X connect 3 0 62 6; +#X connect 6 0 7 0; +#X connect 6 0 62 4; +#X connect 8 0 9 0; +#X connect 8 0 62 5; +#X connect 10 0 11 0; +#X connect 10 0 62 3; +#X connect 13 0 6 0; +#X connect 14 0 3 0; +#X connect 15 0 30 0; +#X connect 15 0 35 0; +#X connect 15 0 33 0; +#X connect 15 0 13 0; +#X connect 15 0 34 0; +#X connect 15 0 14 0; +#X connect 15 0 18 0; +#X connect 15 0 27 0; +#X connect 15 0 28 0; +#X connect 15 0 29 0; +#X connect 15 0 70 0; +#X connect 16 0 17 0; +#X connect 16 0 62 2; +#X connect 18 0 16 0; +#X connect 20 0 1 0; +#X connect 21 0 16 0; +#X connect 22 0 10 0; +#X connect 23 0 6 0; +#X connect 24 0 8 0; +#X connect 25 0 3 0; +#X connect 36 0 49 0; +#X connect 37 0 1 0; +#X connect 40 0 16 0; +#X connect 41 0 8 0; +#X connect 42 0 3 0; +#X connect 43 0 10 0; +#X connect 47 0 6 0; +#X connect 49 0 61 0; +#X connect 49 1 59 0; +#X connect 49 2 57 0; +#X connect 49 3 55 0; +#X connect 49 4 53 0; +#X connect 49 5 51 0; +#X connect 50 0 46 0; +#X connect 51 0 50 0; +#X connect 52 0 48 0; +#X connect 53 0 52 0; +#X connect 54 0 45 0; +#X connect 55 0 54 0; +#X connect 56 0 44 0; +#X connect 57 0 56 0; +#X connect 58 0 39 0; +#X connect 59 0 58 0; +#X connect 60 0 38 0; +#X connect 61 0 60 0; +#X connect 63 0 64 0; +#X connect 64 0 62 0; +#X connect 64 0 77 0; +#X connect 65 0 63 0; +#X connect 65 0 66 0; +#X connect 67 0 68 0; +#X connect 67 0 81 0; +#X connect 69 0 62 1; +#X connect 70 0 62 3; +#X connect 71 0 62 5; +#X connect 72 0 73 0; +#X connect 72 0 76 0; +#X connect 73 0 74 0; +#X connect 74 0 75 0; +#X connect 76 0 63 0; +#X connect 77 0 78 0; +#X connect 81 0 79 0; +#X connect 81 1 80 0;
--- a/scene demo/testBedD6.pd Mon Sep 19 18:10:20 2016 +0100 +++ b/scene demo/testBedD6.pd Thu Sep 22 19:52:04 2016 +0100 @@ -1,7 +1,7 @@ #N canvas 99 23 1323 659 10; #X obj -154 155 delwrite~ varwind 3000; #X obj -44 -36 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 5471 1; +-1 -1 0 1; #X obj -153 8 *~ 1; #X obj -153 34 +~ 1; #X obj -283 258 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; @@ -32,7 +32,7 @@ #X restore -284 215 pd opLevels; #X msg -275 161 5; #X obj -281 186 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0 -10 -262144 -1 -1 5182 1; +10 -262144 -1 -1 6182 1; #N canvas 20 383 344 123 machCalc 0; #X text 107 15 Speed of Sound (dry air 20 Degs C); #X obj 26 -14 vd~ varwind;