Mercurial > hg > weather-synthesis-prototyping

changeset 106:0c680c66ccca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Scene Demo - New core model that has the new Reynolds/Strouhal relationship implemented
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sun, 26 Jul 2015 21:18:45 +0100
parents 0a46c0bd33ea
children 1dcc91d745aa
files .DS_Store June/.DS_Store scene demo/freqCalcCyl2D1.pd scene demo/newStrou.pd scene demo/testBed.pd
diffstat 5 files changed, 505 insertions(+), 111 deletions(-) [+]
line wrap: on
line diff
Binary file .DS_Store has changed
Binary file June/.DS_Store has changed
--- a/scene demo/freqCalcCyl2D1.pd	Sun Jul 26 19:01:05 2015 +0100
+++ b/scene demo/freqCalcCyl2D1.pd	Sun Jul 26 21:18:45 2015 +0100
@@ -1,40 +1,40 @@
 #N canvas 0 22 1368 808 10;
 #X text 704 -38 Mass Density of Air;
 #X text 500 44 Frequency (Hz);
-#X obj 781 410 throw~ l;
-#X obj 808 391 throw~ r;
-#X obj 796 264 osc~;
+#X obj 811 353 throw~ l;
+#X obj 838 334 throw~ r;
+#X obj 826 207 osc~;
 #X obj 826 -37 *~ 1.225;
 #X obj 826 38 /~ 1.81e-05;
 #X obj 826 -7 *~ 1;
-#X obj 796 213 /~ 1;
+#X obj 826 156 /~ 1;
 #X floatatom 201 262 10 0 0 0 - - -;
-#X obj 811 81 /~;
-#X obj 796 189 *~;
-#X obj 796 238 clip~ 0 20000;
+#X obj 703 459 /~;
+#X obj 826 132 *~;
+#X obj 826 181 clip~ 0 20000;
 #X obj 212 -91 inlet;
-#X text 667 31 Reynolds Number;
-#X text 680 205 Strouhal Number;
+#X text 859 82 Reynolds Number;
+#X text 711 146 Strouhal Number;
 #X obj 386 -97 inlet;
-#X obj 796 294 *~;
+#X obj 826 237 *~;
 #X text 856 18 Viscosity;
-#X obj 560 221 *~ 2;
-#X obj 560 248 osc~;
-#X obj 560 270 *~;
-#X obj 781 323 +~;
+#X obj 611 178 *~ 2;
+#X obj 611 205 osc~;
+#X obj 611 227 *~;
+#X obj 811 266 +~;
 #X obj 212 -68 s \$0-diameter;
 #X obj 887 -38 r \$0-diameter;
-#X obj 876 162 r \$0-diameter;
+#X obj 894 137 r \$0-diameter;
 #X obj 129 -29 s~ \$0-windSpeed;
 #X obj 300 10 r~ \$0-windSpeed;
-#X obj 875 131 r~ \$0-windSpeed;
+#X obj 893 114 r~ \$0-windSpeed;
 #X obj 826 -65 r~ \$0-windSpeed;
-#X obj 731 188 s~ \$0_str;
+#X obj 720 133 s~ \$0_str;
 #X obj 291 -11 r~ \$0_str;
-#X obj 593 248 r~ \$0_dragDiGain;
-#X obj 711 264 s~ \$0-myFreq;
-#X obj 560 194 r~ \$0-myFreq;
-#X obj 834 264 r~ \$0_liftDiGain;
+#X obj 644 205 r~ \$0_dragDiGain;
+#X obj 747 206 s~ \$0-myFreq;
+#X obj 611 151 r~ \$0-myFreq;
+#X obj 864 207 r~ \$0_liftDiGain;
 #X obj 129 -71 sig~;
 #X obj 129 -49 vd~ varwind;
 #X obj 129 -95 inlet;
@@ -45,7 +45,7 @@
 #X obj 1102 103 *~;
 #X obj 123 84 snapshot~;
 #X obj 123 59 metro 100;
-#X obj 123 37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+#X obj 123 37 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X floatatom 123 110 10 0 0 0 - - -;
 #X obj 123 11 loadbang;
@@ -55,7 +55,7 @@
 #X floatatom 1240 39 10 0 0 0 - - -;
 #X obj 1240 -60 loadbang;
 #X obj 1240 -35 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
-0 1;
+1 1;
 #X obj 1151 -89 r~ \$0-myRey;
 #X obj 1067 364 r~ \$0-myFreq;
 #X obj 1033 293 noise~;
@@ -66,13 +66,13 @@
 #X floatatom 1248 399 10 0 0 0 - - -;
 #X obj 1248 300 loadbang;
 #X obj 1248 325 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
-0 1;
+1 1;
 #X obj 1159 271 r~ \$0-myRey;
 #X obj 1067 390 *~ 2;
 #X text 108 132 Reynolds Number;
 #X obj 1025 55 vcf~ 1000 10;
 #X obj 1033 415 vcf~ 1000 10;
-#X obj 781 366 fcpan;
+#X obj 811 309 fcpan;
 #X obj 1102 152 fcpan;
 #X obj 1110 505 fcpan;
 #X obj 1117 76 *~ 1;
@@ -81,14 +81,12 @@
 #X obj 1151 -14 clip~ 2 400;
 #X obj 1159 295 *~ -0.003;
 #X obj 1151 -65 *~ -0.003;
-#X obj 1151 -40 +~ 20;
-#X obj 1159 320 +~ 20;
 #X obj 1240 -12 metro 10;
 #X obj 1248 348 metro 10;
 #X obj 386 -77 s \$0_dist;
 #X obj 610 -99 inlet;
 #X obj 610 -30 s \$0_thisPan;
-#X obj 808 337 r \$0_thisPan;
+#X obj 838 280 r \$0_thisPan;
 #X obj 1129 128 r \$0_thisPan;
 #X obj 1137 483 r \$0_thisPan;
 #X floatatom 555 -30 8 0 0 0 - - -;
@@ -103,14 +101,14 @@
 #X obj 294 269 r~ \$0_str;
 #X obj 1125 413 r~ \$0_dragNoiseGain;
 #X obj 1117 34 r~ \$0_liftNoiseGain;
-#X obj 777 42 sig~ 1;
-#X obj 811 107 sqrt~;
-#X obj 811 132 *~ 1.0356;
-#X obj 737 123 sig~ 0.2684;
-#X obj 796 162 -~;
+#X obj 669 420 sig~ 1;
+#X obj 703 485 sqrt~;
+#X obj 703 510 *~ 1.0356;
+#X obj 629 501 sig~ 0.2684;
+#X obj 688 540 -~;
 #X obj 124 406 snapshot~;
 #X obj 124 381 metro 100;
-#X obj 124 359 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+#X obj 124 359 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X floatatom 124 432 10 0 0 0 - - -;
 #X obj 124 333 loadbang;
@@ -135,7 +133,7 @@
 #X obj -20847 479 * 6.28319;
 #N canvas 409 243 688 659 angleCalc 0;
 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 9900 1;
 #X text 321 40 Elevation Angle;
 #X obj 270 81 / 360;
 #X obj 270 103 * 6.28319;
@@ -176,7 +174,7 @@
 #X obj 295 234 r \$0_tDist;
 #X floatatom 482 81 5 0 0 0 - - -;
 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 4950 1;
 #X text 71 41 Azimuth Angle;
 #X connect 0 0 8 0;
 #X connect 2 0 3 0;
@@ -340,7 +338,7 @@
 #X obj 333 360 r \$0_elev;
 #X obj 294 472 s~ \$0_liftNoiseGain;
 #X obj 363 450 s~ \$0_dragNoiseGain;
-#N canvas 754 150 663 715 freqGain 0;
+#N canvas 577 142 663 715 freqGain 0;
 #X text 36 127 Mass Density of Air \, squared;
 #X text 411 123 Speed of Sound to power 2;
 #N canvas 759 125 286 289 pow6 0;
@@ -397,7 +395,7 @@
 #X floatatom 369 72 5 0 0 0 - - -;
 #N canvas 713 150 688 659 angleCalc 0;
 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 4950 1;
 #X text 321 40 Elevation Angle;
 #X obj 270 81 / 360;
 #X obj 270 103 * 6.28319;
@@ -438,8 +436,11 @@
 #X obj 295 234 r \$0_tDist;
 #X floatatom 482 81 5 0 0 0 - - -;
 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 9900 1;
 #X text 71 41 Azimuth Angle;
+#X text 102 584 remove distance from this patch as makes no difference
+to the end calculation and confuses things!;
+#X text 386 407 Create an audio version of this patch;
 #X connect 0 0 8 0;
 #X connect 2 0 3 0;
 #X connect 3 0 26 0;
@@ -508,6 +509,7 @@
 #X obj 250 180 *;
 #X text 288 151 Length;
 #X obj 219 202 *~ 1;
+#X text 388 225 Add in MACH deflection;
 #X connect 2 0 4 0;
 #X connect 3 0 4 1;
 #X connect 4 0 5 0;
@@ -570,7 +572,7 @@
 #X obj 72 262 outlet;
 #X obj 1025 9 hip~;
 #X obj 116 235 snapshot~;
-#X obj 116 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+#X obj 116 188 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
 1;
 #X obj 116 162 loadbang;
 #X obj 116 210 metro 10;
@@ -595,19 +597,22 @@
 #X obj 312 -75 s \$0_leng;
 #X obj 309 29 r \$0_leng;
 #X obj 313 313 r \$0_leng;
+#X obj 1151 -40 +~ 40;
+#X obj 1159 320 +~ 40;
+#X obj 826 103 newStrou;
 #X connect 4 0 17 0;
 #X connect 5 0 7 0;
-#X connect 6 0 10 1;
 #X connect 6 0 50 0;
+#X connect 6 0 160 0;
 #X connect 7 0 6 0;
 #X connect 8 0 12 0;
-#X connect 10 0 102 0;
+#X connect 10 0 100 0;
 #X connect 11 0 8 0;
 #X connect 12 0 4 0;
 #X connect 12 0 33 0;
 #X connect 13 0 23 0;
-#X connect 16 0 83 0;
-#X connect 16 0 130 0;
+#X connect 16 0 81 0;
+#X connect 16 0 128 0;
 #X connect 17 0 22 1;
 #X connect 19 0 20 0;
 #X connect 20 0 21 0;
@@ -615,10 +620,10 @@
 #X connect 22 0 70 0;
 #X connect 24 0 7 1;
 #X connect 25 0 8 1;
-#X connect 27 0 119 1;
+#X connect 27 0 117 1;
 #X connect 28 0 11 1;
 #X connect 29 0 5 0;
-#X connect 31 0 119 0;
+#X connect 31 0 117 0;
 #X connect 32 0 21 1;
 #X connect 34 0 19 0;
 #X connect 35 0 17 1;
@@ -626,7 +631,7 @@
 #X connect 37 0 26 0;
 #X connect 38 0 36 0;
 #X connect 39 0 68 1;
-#X connect 40 0 134 0;
+#X connect 40 0 132 0;
 #X connect 43 0 71 0;
 #X connect 44 0 47 0;
 #X connect 45 0 44 0;
@@ -636,15 +641,15 @@
 #X connect 51 0 52 0;
 #X connect 51 0 68 2;
 #X connect 53 0 54 0;
-#X connect 54 0 81 0;
+#X connect 54 0 79 0;
 #X connect 55 0 78 0;
 #X connect 56 0 66 0;
-#X connect 57 0 139 0;
+#X connect 57 0 137 0;
 #X connect 60 0 72 0;
 #X connect 61 0 62 0;
 #X connect 61 0 69 2;
 #X connect 63 0 64 0;
-#X connect 64 0 82 0;
+#X connect 64 0 80 0;
 #X connect 65 0 77 0;
 #X connect 66 0 69 1;
 #X connect 68 0 43 0;
@@ -659,65 +664,65 @@
 #X connect 74 0 60 1;
 #X connect 75 0 61 0;
 #X connect 76 0 51 0;
-#X connect 77 0 80 0;
-#X connect 78 0 79 0;
-#X connect 79 0 76 0;
-#X connect 80 0 75 0;
-#X connect 81 0 51 0;
-#X connect 82 0 61 0;
-#X connect 84 0 90 0;
-#X connect 86 0 70 1;
-#X connect 87 0 71 1;
-#X connect 88 0 72 1;
-#X connect 90 0 91 0;
-#X connect 91 0 85 0;
-#X connect 91 0 89 0;
-#X connect 97 0 112 1;
-#X connect 98 0 112 0;
-#X connect 99 0 74 0;
-#X connect 100 0 73 0;
-#X connect 101 0 10 0;
+#X connect 77 0 159 0;
+#X connect 78 0 158 0;
+#X connect 79 0 51 0;
+#X connect 80 0 61 0;
+#X connect 82 0 88 0;
+#X connect 84 0 70 1;
+#X connect 85 0 71 1;
+#X connect 86 0 72 1;
+#X connect 88 0 89 0;
+#X connect 89 0 83 0;
+#X connect 89 0 87 0;
+#X connect 95 0 110 1;
+#X connect 96 0 110 0;
+#X connect 97 0 74 0;
+#X connect 98 0 73 0;
+#X connect 99 0 10 0;
+#X connect 100 0 101 0;
+#X connect 101 0 103 1;
 #X connect 102 0 103 0;
-#X connect 103 0 105 1;
-#X connect 104 0 105 0;
-#X connect 105 0 30 0;
-#X connect 105 0 11 0;
-#X connect 106 0 109 0;
-#X connect 107 0 106 0;
-#X connect 108 0 107 0;
-#X connect 110 0 108 0;
-#X connect 111 0 106 0;
-#X connect 112 0 117 0;
-#X connect 112 1 118 0;
-#X connect 113 0 112 3;
-#X connect 114 0 112 6;
-#X connect 114 0 112 7;
-#X connect 115 0 112 5;
-#X connect 116 0 112 4;
-#X connect 119 0 129 0;
-#X connect 119 1 128 0;
-#X connect 120 0 121 0;
-#X connect 120 0 131 0;
-#X connect 122 0 119 3;
-#X connect 123 0 124 0;
-#X connect 123 0 132 0;
-#X connect 125 0 119 6;
-#X connect 125 0 119 7;
-#X connect 126 0 119 4;
-#X connect 127 0 119 5;
-#X connect 134 0 68 0;
-#X connect 135 0 141 0;
-#X connect 135 0 133 0;
-#X connect 135 0 9 0;
-#X connect 136 0 138 0;
-#X connect 137 0 136 0;
-#X connect 138 0 135 0;
-#X connect 139 0 69 0;
-#X connect 140 0 135 0;
-#X connect 142 0 134 1;
-#X connect 143 0 144 0;
-#X connect 144 0 139 1;
-#X connect 154 0 155 0;
-#X connect 154 0 157 0;
-#X connect 158 0 119 2;
-#X connect 159 0 112 2;
+#X connect 104 0 107 0;
+#X connect 105 0 104 0;
+#X connect 106 0 105 0;
+#X connect 108 0 106 0;
+#X connect 109 0 104 0;
+#X connect 110 0 115 0;
+#X connect 110 1 116 0;
+#X connect 111 0 110 3;
+#X connect 112 0 110 6;
+#X connect 112 0 110 7;
+#X connect 113 0 110 5;
+#X connect 114 0 110 4;
+#X connect 117 0 127 0;
+#X connect 117 1 126 0;
+#X connect 118 0 119 0;
+#X connect 118 0 129 0;
+#X connect 120 0 117 3;
+#X connect 121 0 122 0;
+#X connect 121 0 130 0;
+#X connect 123 0 117 6;
+#X connect 123 0 117 7;
+#X connect 124 0 117 4;
+#X connect 125 0 117 5;
+#X connect 132 0 68 0;
+#X connect 133 0 139 0;
+#X connect 133 0 131 0;
+#X connect 133 0 9 0;
+#X connect 134 0 136 0;
+#X connect 135 0 134 0;
+#X connect 136 0 133 0;
+#X connect 137 0 69 0;
+#X connect 138 0 133 0;
+#X connect 140 0 132 1;
+#X connect 141 0 142 0;
+#X connect 142 0 137 1;
+#X connect 152 0 153 0;
+#X connect 152 0 155 0;
+#X connect 156 0 117 2;
+#X connect 157 0 110 2;
+#X connect 158 0 76 0;
+#X connect 159 0 75 0;
+#X connect 160 0 30 0;
+#X connect 160 0 11 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scene demo/newStrou.pd	Sun Jul 26 21:18:45 2015 +0100
@@ -0,0 +1,137 @@
+#N canvas 804 381 593 397 10;
+#X obj 219 47 inlet~;
+#X obj 273 234 outlet~;
+#X text 101 20 Reynolds number coming in;
+#X text 211 270 Strouhal Number going out;
+#N canvas 323 295 1026 531 eqnSelect 0;
+#X msg 41 221 0.2684 -1.0356;
+#X msg 148 221 0.2437 -0.8607;
+#X msg 256 223 0.4291 -3.6735;
+#X msg 365 223 0.3274 -2.0569;
+#X msg 472 223 0.2257 -0.4402;
+#X msg 577 222 0.204 0.3364;
+#X msg 686 224 0.1776 2.2023;
+#X obj 365 299 unpack;
+#X obj 75 164 < 180;
+#X obj 181 144 > 180;
+#X obj 227 146 < 230;
+#X obj 289 149 > 230;
+#X obj 335 148 < 240;
+#X obj 398 148 > 240;
+#X obj 444 149 < 360;
+#X obj 505 147 > 360;
+#X obj 551 147 < 1300;
+#X obj 611 150 > 1300;
+#X obj 657 150 < 5000;
+#X obj 719 149 > 5000;
+#X obj 765 148 < 200000;
+#X obj 827 149 > 200000;
+#X obj 41 196 spigot;
+#X floatatom 286 327 8 0 0 0 - - -;
+#X floatatom 455 330 8 0 0 0 - - -;
+#X obj 148 198 spigot;
+#X obj 194 171 spigot;
+#X obj 256 200 spigot;
+#X obj 302 173 spigot;
+#X obj 365 200 spigot;
+#X obj 411 173 spigot;
+#X floatatom 546 83 5 0 0 0 - - -;
+#X obj 472 198 spigot;
+#X obj 518 171 spigot;
+#X obj 578 200 spigot;
+#X obj 624 173 spigot;
+#X obj 686 199 spigot;
+#X obj 732 172 spigot;
+#X obj 426 67 snapshot~;
+#X obj 426 37 inlet~;
+#X obj 359 2 loadbang;
+#X obj 359 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 359 42 metro 10;
+#X obj 365 373 outlet~;
+#X obj 398 352 outlet~;
+#X obj 365 327 sig~;
+#X obj 398 327 sig~;
+#X text 539 419 This selects the values for the St* and m coefficients
+for Fey's formula;
+#X text 254 359 St* coefficient;
+#X text 462 361 m coefficient;
+#X connect 0 0 7 0;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 0;
+#X connect 4 0 7 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 0;
+#X connect 7 0 23 0;
+#X connect 7 0 45 0;
+#X connect 7 1 24 0;
+#X connect 7 1 46 0;
+#X connect 8 0 22 1;
+#X connect 8 0 22 0;
+#X connect 9 0 25 1;
+#X connect 9 0 26 0;
+#X connect 10 0 26 1;
+#X connect 11 0 28 0;
+#X connect 11 0 27 1;
+#X connect 12 0 28 1;
+#X connect 13 0 29 1;
+#X connect 13 0 30 0;
+#X connect 14 0 30 1;
+#X connect 15 0 32 1;
+#X connect 15 0 33 0;
+#X connect 16 0 33 1;
+#X connect 17 0 34 1;
+#X connect 17 0 35 0;
+#X connect 18 0 35 1;
+#X connect 19 0 36 1;
+#X connect 19 0 37 0;
+#X connect 20 0 37 1;
+#X connect 22 0 0 0;
+#X connect 25 0 1 0;
+#X connect 26 0 25 0;
+#X connect 27 0 2 0;
+#X connect 28 0 27 0;
+#X connect 29 0 3 0;
+#X connect 30 0 29 0;
+#X connect 32 0 4 0;
+#X connect 33 0 32 0;
+#X connect 34 0 5 0;
+#X connect 35 0 34 0;
+#X connect 36 0 6 0;
+#X connect 37 0 36 0;
+#X connect 38 0 8 0;
+#X connect 38 0 9 0;
+#X connect 38 0 10 0;
+#X connect 38 0 11 0;
+#X connect 38 0 12 0;
+#X connect 38 0 13 0;
+#X connect 38 0 14 0;
+#X connect 38 0 31 0;
+#X connect 38 0 15 0;
+#X connect 38 0 16 0;
+#X connect 38 0 17 0;
+#X connect 38 0 18 0;
+#X connect 38 0 19 0;
+#X connect 38 0 20 0;
+#X connect 39 0 38 0;
+#X connect 40 0 41 0;
+#X connect 41 0 42 0;
+#X connect 42 0 38 0;
+#X connect 45 0 43 0;
+#X connect 46 0 44 0;
+#X restore 273 92 pd eqnSelect;
+#X obj 203 94 sqrt~;
+#X obj 342 135 /~;
+#X obj 273 198 +~;
+#X text 135 106 sqrt(Re);
+#X text 250 123 St*;
+#X text 359 110 m;
+#X text 376 184 St = St* + m / sqrt(Re);
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 4 0 7 0;
+#X connect 4 1 6 0;
+#X connect 5 0 6 1;
+#X connect 6 0 7 1;
+#X connect 7 0 1 0;
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scene demo/testBed.pd	Sun Jul 26 21:18:45 2015 +0100
@@ -0,0 +1,252 @@
+#N canvas 156 205 842 605 10;
+#X msg 88 -43 300;
+#X obj 59 -86 loadbang;
+#N canvas 236 158 426 423 windspeed 0;
+#X obj 3 -19 +~ 1;
+#X obj 3 76 +~;
+#X obj 3 3 *~ 0.25;
+#X obj 19 53 +~;
+#X obj 3 98 clip~ 0 1;
+#N canvas 548 156 136 193 squall 0;
+#X obj 63 20 noise~;
+#X obj 63 83 hip~ 0;
+#X obj 63 41 lop~ 3;
+#X obj 63 62 lop~ 3;
+#X obj 0 86 *~;
+#X obj 22 130 *~;
+#X obj 0 64 *~ 8;
+#X obj 63 104 *~ 20;
+#X obj 0 0 inlet~;
+#X obj 22 154 outlet~;
+#X obj 0 20 max~ 0.42;
+#X obj 0 42 -~ 0.42;
+#X connect 0 0 2 0;
+#X connect 1 0 7 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 9 0;
+#X connect 6 0 4 0;
+#X connect 6 0 4 1;
+#X connect 7 0 5 1;
+#X connect 8 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 6 0;
+#X restore 77 28 pd squall;
+#N canvas 398 157 136 192 gust 0;
+#X obj 0 0 noise~;
+#X obj 0 63 hip~ 0;
+#X obj 0 106 *~;
+#X obj 67 44 *~;
+#X obj 67 21 +~ 0.5;
+#X obj 67 67 -~ 0.125;
+#X obj 0 42 lop~ 0.5;
+#X obj 0 21 lop~ 0.5;
+#X obj 0 84 *~ 50;
+#X obj 67 0 inlet~;
+#X obj 0 131 outlet~;
+#X connect 0 0 7 0;
+#X connect 1 0 8 0;
+#X connect 2 0 10 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 4 0 3 1;
+#X connect 5 0 2 1;
+#X connect 6 0 1 0;
+#X connect 7 0 6 0;
+#X connect 8 0 2 0;
+#X connect 9 0 4 0;
+#X restore 18 29 pd gust;
+#X obj 3 120 outlet~;
+#X obj 3 -41 osc~ 0.01;
+#X connect 0 0 2 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 0;
+#X connect 2 0 6 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 1;
+#X connect 6 0 3 0;
+#X connect 8 0 0 0;
+#X restore -376 -133 pd windspeed;
+#X obj -376 61 delwrite~ varwind 3000;
+#X obj -293 -131 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 1270 1;
+#X obj -333 -28 snapshot~;
+#X obj -333 -53 metro 100;
+#X obj -333 -75 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X floatatom -333 -1 10 0 0 0 - - -;
+#X obj -376 -99 *~ 1;
+#X obj -376 -73 +~ 1;
+#X obj -333 -100 loadbang;
+#X text -336 17 Wind Speed;
+#X obj -254 -2 s wSpeed;
+#X obj -157 -130 loadbang;
+#X msg -157 -102 5;
+#X obj 103 6 hsl 128 15 0.001 0.01 1 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 6059 1;
+#X floatatom 115 30 8 0 0 0 - - -;
+#X obj 166 280 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 6999 1;
+#X floatatom 192 309 5 0 0 0 - - -;
+#X text 238 7 Diameter;
+#X obj 141 162 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 6350 1;
+#X floatatom 162 191 5 0 0 0 - - -;
+#X obj 153 217 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 9525 1;
+#X floatatom 177 246 5 0 0 0 - - -;
+#X obj 128 105 hsl 128 15 100 1 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 11289 1;
+#X floatatom 139 134 5 0 0 0 - - -;
+#X text 307 281 Pan Value;
+#X text 280 162 Elevation;
+#X text 292 218 Azimuth;
+#X text 266 106 Distance;
+#X obj -384 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj -321 227 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X text -324 136 Gain;
+#X obj -385 110 loadbang;
+#N canvas 865 368 284 318 opLevels 0;
+#X obj 74 188 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 68 / 127;
+#X obj 93 33 inlet;
+#X obj 30 239 outlet;
+#X obj 129 239 outlet;
+#X obj 74 143 /~ 15;
+#X obj 95 165 /~ 15;
+#X obj 196 132 inlet;
+#X connect 1 0 4 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 0 12 0;
+#X connect 4 0 5 0;
+#X connect 4 0 11 0;
+#X connect 5 0 9 0;
+#X connect 6 0 10 0;
+#X connect 7 0 3 1;
+#X connect 7 0 4 1;
+#X connect 8 0 7 0;
+#X connect 11 0 0 0;
+#X connect 12 0 0 1;
+#X connect 13 0 11 1;
+#X connect 13 0 12 1;
+#X restore -385 184 pd opLevels;
+#X msg -385 133 5;
+#X obj -382 155 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 390 1;
+#X obj -115 -25 snapshot~;
+#X obj -115 -50 metro 100;
+#X floatatom -115 2 10 0 0 0 - - -;
+#X obj -115 -97 loadbang;
+#X obj -115 -74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
+1 1;
+#X text -118 20 Mach No;
+#N canvas 20 383 344 123 machCalc 0;
+#X obj 26 9 /~ 343.59;
+#X text 107 15 Speed of Sound (dry air 20 Degs C);
+#X obj 26 -14 vd~ varwind;
+#X obj 26 33 s~ myMach;
+#X connect 0 0 3 0;
+#X connect 2 0 0 0;
+#X restore -50 -149 pd machCalc;
+#X obj -200 -64 r~ myMach;
+#X obj 243 249 r setUp;
+#X obj 102 -15 r setUp;
+#X obj 229 131 r setUp;
+#X obj 235 191 r setUp;
+#X obj 242 79 r setUp;
+#X obj 232 -102 s setUp;
+#X obj 232 -143 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
+-1;
+#X floatatom 88 330 8 0 0 0 - - -;
+#X msg 46 -11 0.003;
+#X msg 9 90 12;
+#X msg -11 146 0;
+#X msg -31 202 90;
+#X msg -54 265 0.5;
+#X obj 59 -62 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 116 62 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 4233 1;
+#X floatatom 137 81 8 0 0 0 - - -;
+#X obj 175 40 r setUp;
+#X msg 25 47 4;
+#X obj -265 158 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 390 1;
+#X obj -264 111 loadbang;
+#X msg -264 134 5;
+#X text -203 137 No Of Sources;
+#X obj -173 1 s sigMac;
+#X obj 88 305 freqCalcCylD6;
+#X text 248 46 Length;
+#X connect 0 0 69 0;
+#X connect 1 0 59 0;
+#X connect 2 0 9 0;
+#X connect 4 0 9 1;
+#X connect 4 0 10 1;
+#X connect 5 0 8 0;
+#X connect 5 0 13 0;
+#X connect 6 0 5 0;
+#X connect 7 0 6 0;
+#X connect 9 0 10 0;
+#X connect 10 0 3 0;
+#X connect 10 0 5 0;
+#X connect 11 0 7 0;
+#X connect 14 0 15 0;
+#X connect 15 0 4 0;
+#X connect 16 0 17 0;
+#X connect 16 0 69 1;
+#X connect 18 0 19 0;
+#X connect 18 0 69 6;
+#X connect 21 0 22 0;
+#X connect 21 0 69 4;
+#X connect 23 0 24 0;
+#X connect 23 0 69 5;
+#X connect 25 0 26 0;
+#X connect 25 0 69 3;
+#X connect 34 0 36 0;
+#X connect 35 0 31 0;
+#X connect 35 1 32 0;
+#X connect 36 0 37 0;
+#X connect 37 0 35 0;
+#X connect 38 0 40 0;
+#X connect 38 0 68 0;
+#X connect 39 0 38 0;
+#X connect 41 0 42 0;
+#X connect 42 0 39 0;
+#X connect 45 0 38 0;
+#X connect 46 0 18 0;
+#X connect 47 0 16 0;
+#X connect 48 0 21 0;
+#X connect 49 0 23 0;
+#X connect 50 0 25 0;
+#X connect 52 0 51 0;
+#X connect 54 0 16 0;
+#X connect 55 0 25 0;
+#X connect 56 0 21 0;
+#X connect 57 0 23 0;
+#X connect 58 0 18 0;
+#X connect 59 0 0 0;
+#X connect 59 0 54 0;
+#X connect 59 0 55 0;
+#X connect 59 0 56 0;
+#X connect 59 0 57 0;
+#X connect 59 0 58 0;
+#X connect 59 0 63 0;
+#X connect 60 0 61 0;
+#X connect 60 0 69 2;
+#X connect 62 0 60 0;
+#X connect 63 0 60 0;
+#X connect 64 0 35 1;
+#X connect 65 0 66 0;
+#X connect 66 0 64 0;
+#X connect 69 0 53 0;