Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/freqCalcCylD4.pd @ 199:2ded41e29e57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Projection matrix now calculated using control signals rather than audio. This makes sense as it was eating too much processing power for something that doesn't chage during the sound effect.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 11 Mar 2016 20:51:21 +0000
parents 0a46c0bd33ea
children
rev   line source
r@105 1 #N canvas 363 23 1440 808 10;
r@105 2 #X text 694 -48 Mass Density of Air;
r@105 3 #X text 490 34 Frequency (Hz);
r@105 4 #X obj 771 400 throw~ l;
r@105 5 #X obj 798 381 throw~ r;
r@105 6 #X obj 786 254 osc~;
r@105 7 #X obj 816 -47 *~ 1.225;
r@105 8 #X obj 816 28 /~ 1.81e-05;
r@105 9 #X obj 816 -17 *~ 1;
r@105 10 #X obj 786 203 /~ 1;
r@105 11 #X floatatom 191 252 10 0 0 0 - - -;
r@105 12 #X obj 801 71 /~;
r@105 13 #X obj 786 179 *~;
r@105 14 #X obj 786 228 clip~ 0 20000;
r@105 15 #X obj 202 -101 inlet;
r@105 16 #X text 657 21 Reynolds Number;
r@105 17 #X text 670 195 Strouhal Number;
r@105 18 #X obj 376 -107 inlet;
r@105 19 #X obj 786 284 *~;
r@105 20 #X text 846 8 Viscosity;
r@105 21 #X obj 550 211 *~ 2;
r@105 22 #X obj 550 238 osc~;
r@105 23 #X obj 550 260 *~;
r@105 24 #X obj 771 313 +~;
r@105 25 #X obj 202 -78 s \$0-diameter;
r@105 26 #X obj 877 -48 r \$0-diameter;
r@105 27 #X obj 866 152 r \$0-diameter;
r@105 28 #X obj 119 -39 s~ \$0-windSpeed;
r@105 29 #X obj 290 0 r~ \$0-windSpeed;
r@105 30 #X obj 865 121 r~ \$0-windSpeed;
r@105 31 #X obj 816 -75 r~ \$0-windSpeed;
r@105 32 #X obj 721 178 s~ \$0_str;
r@105 33 #X obj 281 -21 r~ \$0_str;
r@105 34 #X obj 583 238 r~ \$0_dragDiGain;
r@105 35 #X obj 701 254 s~ \$0-myFreq;
r@105 36 #X obj 550 184 r~ \$0-myFreq;
r@105 37 #X obj 824 254 r~ \$0_liftDiGain;
r@105 38 #X obj 119 -81 sig~;
r@105 39 #X obj 119 -59 vd~ varwind;
r@105 40 #X obj 119 -105 inlet;
r@105 41 #X obj 1049 2 r~ \$0-myFreq;
r@105 42 #X obj 1015 -48 noise~;
r@105 43 #X obj 1092 186 throw~ l;
r@105 44 #X obj 1119 165 throw~ r;
r@105 45 #X obj 1092 93 *~;
r@105 46 #X obj 113 74 snapshot~;
r@105 47 #X obj 113 49 metro 100;
r@105 48 #X obj 113 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105 49 1;
r@105 50 #X floatatom 113 100 10 0 0 0 - - -;
r@105 51 #X obj 113 1 loadbang;
r@105 52 #X obj 27 49 r~ \$0-myRey;
r@105 53 #X obj 829 52 s~ \$0-myRey;
r@105 54 #X obj 1230 3 snapshot~;
r@105 55 #X floatatom 1230 29 10 0 0 0 - - -;
r@105 56 #X obj 1230 -70 loadbang;
r@105 57 #X obj 1230 -45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@105 58 1 1;
r@105 59 #X obj 1141 -99 r~ \$0-myRey;
r@105 60 #X obj 1057 354 r~ \$0-myFreq;
r@105 61 #X obj 1023 283 noise~;
r@105 62 #X obj 1100 543 throw~ l;
r@105 63 #X obj 1127 520 throw~ r;
r@105 64 #X obj 1100 451 *~;
r@105 65 #X obj 1238 363 snapshot~;
r@105 66 #X floatatom 1238 389 10 0 0 0 - - -;
r@105 67 #X obj 1238 290 loadbang;
r@105 68 #X obj 1238 315 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@105 69 1 1;
r@105 70 #X obj 1149 261 r~ \$0-myRey;
r@105 71 #X obj 1057 380 *~ 2;
r@105 72 #X text 98 122 Reynolds Number;
r@105 73 #X obj 1015 45 vcf~ 1000 10;
r@105 74 #X obj 1023 405 vcf~ 1000 10;
r@105 75 #X obj 771 356 fcpan;
r@105 76 #X obj 1092 142 fcpan;
r@105 77 #X obj 1100 495 fcpan;
r@105 78 #X obj 1107 66 *~ 1;
r@105 79 #X obj 1115 426 *~ 1;
r@105 80 #X obj 1149 336 clip~ 2 400;
r@105 81 #X obj 1141 -24 clip~ 2 400;
r@105 82 #X obj 1149 285 *~ -0.003;
r@105 83 #X obj 1141 -75 *~ -0.003;
r@105 84 #X obj 1141 -50 +~ 20;
r@105 85 #X obj 1149 310 +~ 20;
r@105 86 #X obj 1230 -22 metro 10;
r@105 87 #X obj 1238 338 metro 10;
r@105 88 #X obj 376 -87 s \$0_dist;
r@105 89 #X obj 600 -109 inlet;
r@105 90 #X obj 600 -40 s \$0_thisPan;
r@105 91 #X obj 798 327 r \$0_thisPan;
r@105 92 #X obj 1119 118 r \$0_thisPan;
r@105 93 #X obj 1127 473 r \$0_thisPan;
r@105 94 #X floatatom 545 -40 8 0 0 0 - - -;
r@105 95 #X obj 600 -85 max 0.1;
r@105 96 #X obj 600 -62 min 0.9;
r@105 97 #X text 1151 439 Drag Dipole spectrum calculation;
r@105 98 #X text 1146 83 Lift Dipole spectrum calculation;
r@105 99 #X text 537 67 Calculates the frequency;
r@105 100 #X text 537 80 based on the physics of;
r@105 101 #X text 538 93 the object and environment;
r@105 102 #X obj 293 282 r~ \$0-windSpeed;
r@105 103 #X obj 284 259 r~ \$0_str;
r@105 104 #X obj 1115 403 r~ \$0_dragNoiseGain;
r@105 105 #X obj 1107 24 r~ \$0_liftNoiseGain;
r@105 106 #X obj 767 32 sig~ 1;
r@105 107 #X obj 801 97 sqrt~;
r@105 108 #X obj 801 122 *~ 1.0356;
r@105 109 #X obj 727 113 sig~ 0.2684;
r@105 110 #X obj 786 152 -~;
r@105 111 #X obj 114 396 snapshot~;
r@105 112 #X obj 114 371 metro 100;
r@105 113 #X obj 114 349 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105 114 1;
r@105 115 #X floatatom 114 422 10 0 0 0 - - -;
r@105 116 #X obj 114 323 loadbang;
r@105 117 #X obj 28 371 r~ \$0_str;
r@105 118 #N canvas 75 127 654 734 noiseGain 0;
r@105 119 #X text -21205 129 Mass Density of Air \, squared;
r@105 120 #X text -20765 142 Speed of Sound to power 2;
r@105 121 #X obj -21070 29 *~;
r@105 122 #X obj -21022 70 *~;
r@105 123 #X obj -21022 104 *~ 1;
r@105 124 #X obj -21022 132 *~ 1.50063;
r@105 125 #X obj -20767 96 *;
r@105 126 #X obj -20767 119 * 118033;
r@105 127 #X obj -21022 259 /~ 1;
r@105 128 #X obj -21022 532 *~ 0.27;
r@105 129 #X text -20767 49 Distance;
r@105 130 #X obj -20847 502 cos;
r@105 131 #X obj -20847 457 / 360;
r@105 132 #X floatatom -20820 553 5 0 0 0 - - -;
r@105 133 #X obj -20847 526 *;
r@105 134 #X obj -20886 606 *~ 0.27;
r@105 135 #X obj -20847 479 * 6.28319;
r@105 136 #N canvas 409 243 688 659 angleCalc 0;
r@105 137 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@105 138 -1 -1 0 1;
r@105 139 #X text 321 40 Elevation Angle;
r@105 140 #X obj 270 81 / 360;
r@105 141 #X obj 270 103 * 6.28319;
r@105 142 #X floatatom 135 174 5 0 0 0 - - -;
r@105 143 #X obj 179 79 / 360;
r@105 144 #X obj 179 101 * 6.28319;
r@105 145 #X floatatom 64 105 5 0 0 0 - - -;
r@105 146 #X floatatom 338 103 5 0 0 0 - - -;
r@105 147 #X floatatom 232 256 5 0 0 0 - - -;
r@105 148 #X floatatom 360 500 8 0 0 0 - - -;
r@105 149 #X obj 312 502 * 360;
r@105 150 #X floatatom 359 553 5 0 0 0 - - -;
r@105 151 #X obj 312 526 / 6.28319;
r@105 152 #X obj 270 294 *;
r@105 153 #X obj 270 326 swap 1;
r@105 154 #X obj 270 359 -;
r@105 155 #X obj 270 388 sqrt;
r@105 156 #X obj 312 419 /;
r@105 157 #X obj 312 447 atan;
r@105 158 #X obj 312 473 * 2;
r@105 159 #X text 352 355 Arccos of angle;
r@105 160 #X obj 270 265 /;
r@105 161 #X obj 327 295 + 1;
r@105 162 #X obj 179 125 cos;
r@105 163 #X obj 179 151 *;
r@105 164 #X obj 270 134 cos;
r@105 165 #X obj 270 234 *;
r@105 166 #X obj 179 175 t f b;
r@105 167 #X obj 177 200 delay 9;
r@105 168 #X obj 312 553 outlet;
r@105 169 #X obj 270 53 inlet;
r@105 170 #X obj 180 52 inlet;
r@105 171 #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@105 172 -1 -1 0 1;
r@105 173 #X obj 516 57 inlet;
r@105 174 #X obj 516 81 s \$0_tDist;
r@105 175 #X obj 204 126 r \$0_tDist;
r@105 176 #X obj 295 234 r \$0_tDist;
r@105 177 #X floatatom 482 81 5 0 0 0 - - -;
r@105 178 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@105 179 -1 -1 0 1;
r@105 180 #X text 71 41 Azimuth Angle;
r@105 181 #X connect 0 0 8 0;
r@105 182 #X connect 2 0 3 0;
r@105 183 #X connect 3 0 26 0;
r@105 184 #X connect 5 0 6 0;
r@105 185 #X connect 6 0 24 0;
r@105 186 #X connect 11 0 13 0;
r@105 187 #X connect 13 0 12 0;
r@105 188 #X connect 13 0 30 0;
r@105 189 #X connect 14 0 15 0;
r@105 190 #X connect 15 0 16 0;
r@105 191 #X connect 15 1 16 1;
r@105 192 #X connect 16 0 17 0;
r@105 193 #X connect 17 0 18 0;
r@105 194 #X connect 18 0 19 0;
r@105 195 #X connect 19 0 20 0;
r@105 196 #X connect 20 0 11 0;
r@105 197 #X connect 20 0 10 0;
r@105 198 #X connect 22 0 14 0;
r@105 199 #X connect 22 0 14 1;
r@105 200 #X connect 22 0 23 0;
r@105 201 #X connect 23 0 18 1;
r@105 202 #X connect 24 0 25 0;
r@105 203 #X connect 25 0 4 0;
r@105 204 #X connect 25 0 28 0;
r@105 205 #X connect 26 0 27 0;
r@105 206 #X connect 27 0 9 0;
r@105 207 #X connect 27 0 22 0;
r@105 208 #X connect 28 0 27 1;
r@105 209 #X connect 28 1 29 0;
r@105 210 #X connect 29 0 27 0;
r@105 211 #X connect 31 0 2 0;
r@105 212 #X connect 31 0 0 0;
r@105 213 #X connect 32 0 5 0;
r@105 214 #X connect 32 0 39 0;
r@105 215 #X connect 34 0 35 0;
r@105 216 #X connect 34 0 38 0;
r@105 217 #X connect 36 0 25 1;
r@105 218 #X connect 37 0 22 1;
r@105 219 #X connect 39 0 7 0;
r@105 220 #X restore -20983 388 pd angleCalc;
r@105 221 #X obj -20983 451 / 90;
r@105 222 #X floatatom -21015 475 5 0 0 0 - - -;
r@105 223 #X obj -20847 429 + 90;
r@105 224 #X obj -20937 452 loadbang;
r@105 225 #X msg -20937 474 0.05;
r@105 226 #X obj -21022 507 *~ 0.05;
r@105 227 #X obj -20782 531 loadbang;
r@105 228 #X msg -20782 553 0.05;
r@105 229 #X obj -20886 582 *~ 0.05;
r@105 230 #X text -20812 621 Calculates Drag Dipole gain;
r@105 231 #X text -21198 525 Calculates Lift Dipole gain;
r@105 232 #N canvas 759 125 286 289 pow8 0;
r@105 233 #X obj 47 67 *~;
r@105 234 #X obj 76 67 *~;
r@105 235 #X obj 76 35 inlet~;
r@105 236 #X obj 47 170 outlet~;
r@105 237 #X obj 136 173 snapshot~;
r@105 238 #X obj 136 148 metro 100;
r@105 239 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105 240 1;
r@105 241 #X floatatom 136 200 10 0 0 0 - - -;
r@105 242 #X obj 136 100 loadbang;
r@105 243 #X obj 106 67 *~;
r@105 244 #X obj 47 93 *~;
r@105 245 #X obj 47 118 *~;
r@105 246 #X obj 136 67 *~;
r@105 247 #X obj 47 144 *~;
r@105 248 #X connect 0 0 10 0;
r@105 249 #X connect 1 0 10 1;
r@105 250 #X connect 2 0 0 0;
r@105 251 #X connect 2 0 0 1;
r@105 252 #X connect 2 0 1 1;
r@105 253 #X connect 2 0 9 0;
r@105 254 #X connect 2 0 9 1;
r@105 255 #X connect 2 0 1 0;
r@105 256 #X connect 2 0 12 0;
r@105 257 #X connect 2 0 12 1;
r@105 258 #X connect 4 0 7 0;
r@105 259 #X connect 5 0 4 0;
r@105 260 #X connect 6 0 5 0;
r@105 261 #X connect 8 0 6 0;
r@105 262 #X connect 9 0 11 1;
r@105 263 #X connect 10 0 11 0;
r@105 264 #X connect 11 0 13 0;
r@105 265 #X connect 12 0 13 1;
r@105 266 #X connect 13 0 3 0;
r@105 267 #X connect 13 0 4 0;
r@105 268 #X restore -21022 32 pd pow8;
r@105 269 #X obj -21005 288 s~ \$0-c;
r@105 270 #X obj -20911 556 r~ \$0-c;
r@105 271 #X obj -21070 7 inlet~;
r@105 272 #X obj -21022 7 inlet~;
r@105 273 #X obj -20989 55 inlet;
r@105 274 #X obj -20983 324 inlet;
r@105 275 #X obj -20949 345 inlet;
r@105 276 #X obj -20914 367 inlet;
r@105 277 #X obj -20767 70 inlet;
r@105 278 #X obj -21022 575 outlet~;
r@105 279 #X obj -20886 656 outlet~;
r@105 280 #X text -20949 312 Azimuth;
r@105 281 #X text -20914 335 Elevation;
r@105 282 #X text -20880 359 Distance;
r@105 283 #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum
r@105 284 ;
r@105 285 #X text -20981 74 Diameter;
r@105 286 #X obj -20991 163 inlet;
r@105 287 #X obj -20991 187 *;
r@105 288 #X obj -21022 209 *~ 1;
r@105 289 #X text -20950 162 Length;
r@105 290 #X obj -21022 554 *~ 0.02;
r@105 291 #X obj -20886 631 *~ 0.002;
r@105 292 #X connect 2 0 3 1;
r@105 293 #X connect 3 0 4 0;
r@105 294 #X connect 4 0 5 0;
r@105 295 #X connect 5 0 48 0;
r@105 296 #X connect 6 0 7 0;
r@105 297 #X connect 7 0 8 1;
r@105 298 #X connect 8 0 23 0;
r@105 299 #X connect 8 0 30 0;
r@105 300 #X connect 9 0 50 0;
r@105 301 #X connect 11 0 14 0;
r@105 302 #X connect 11 0 14 1;
r@105 303 #X connect 12 0 16 0;
r@105 304 #X connect 14 0 13 0;
r@105 305 #X connect 14 0 26 1;
r@105 306 #X connect 15 0 51 0;
r@105 307 #X connect 16 0 11 0;
r@105 308 #X connect 17 0 18 0;
r@105 309 #X connect 17 0 20 0;
r@105 310 #X connect 18 0 19 0;
r@105 311 #X connect 18 0 23 1;
r@105 312 #X connect 20 0 12 0;
r@105 313 #X connect 21 0 22 0;
r@105 314 #X connect 22 0 23 1;
r@105 315 #X connect 23 0 9 0;
r@105 316 #X connect 24 0 25 0;
r@105 317 #X connect 25 0 26 1;
r@105 318 #X connect 26 0 15 0;
r@105 319 #X connect 29 0 3 0;
r@105 320 #X connect 31 0 26 0;
r@105 321 #X connect 32 0 2 0;
r@105 322 #X connect 32 0 2 1;
r@105 323 #X connect 33 0 29 0;
r@105 324 #X connect 34 0 4 1;
r@105 325 #X connect 35 0 17 0;
r@105 326 #X connect 36 0 17 1;
r@105 327 #X connect 37 0 17 2;
r@105 328 #X connect 38 0 6 0;
r@105 329 #X connect 38 0 6 1;
r@105 330 #X connect 46 0 47 0;
r@105 331 #X connect 46 0 47 1;
r@105 332 #X connect 47 0 48 1;
r@105 333 #X connect 48 0 8 0;
r@105 334 #X connect 50 0 39 0;
r@105 335 #X connect 51 0 40 0;
r@105 336 #X restore 284 417 pd noiseGain;
r@105 337 #X obj 313 327 r \$0-diameter;
r@105 338 #X obj 353 393 r \$0_dist;
r@105 339 #X obj 333 372 r \$0_azim;
r@105 340 #X obj 323 350 r \$0_elev;
r@105 341 #X obj 284 462 s~ \$0_liftNoiseGain;
r@105 342 #X obj 353 440 s~ \$0_dragNoiseGain;
r@105 343 #N canvas 754 150 663 715 freqGain 0;
r@105 344 #X text 36 127 Mass Density of Air \, squared;
r@105 345 #X text 411 123 Speed of Sound to power 2;
r@105 346 #N canvas 759 125 286 289 pow6 0;
r@105 347 #X obj 47 67 *~;
r@105 348 #X obj 76 67 *~;
r@105 349 #X obj 76 35 inlet~;
r@105 350 #X obj 47 163 outlet~;
r@105 351 #X obj 136 184 snapshot~;
r@105 352 #X obj 136 159 metro 100;
r@105 353 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105 354 1;
r@105 355 #X floatatom 136 211 10 0 0 0 - - -;
r@105 356 #X obj 216 210 outlet;
r@105 357 #X obj 136 111 loadbang;
r@105 358 #X obj 106 67 *~;
r@105 359 #X obj 47 93 *~;
r@105 360 #X obj 47 118 *~;
r@105 361 #X connect 0 0 11 0;
r@105 362 #X connect 1 0 11 1;
r@105 363 #X connect 2 0 0 0;
r@105 364 #X connect 2 0 0 1;
r@105 365 #X connect 2 0 1 1;
r@105 366 #X connect 2 0 10 0;
r@105 367 #X connect 2 0 10 1;
r@105 368 #X connect 2 0 1 0;
r@105 369 #X connect 4 0 7 0;
r@105 370 #X connect 4 0 8 0;
r@105 371 #X connect 5 0 4 0;
r@105 372 #X connect 6 0 5 0;
r@105 373 #X connect 9 0 6 0;
r@105 374 #X connect 10 0 12 1;
r@105 375 #X connect 11 0 12 0;
r@105 376 #X connect 12 0 4 0;
r@105 377 #X connect 12 0 3 0;
r@105 378 #X restore 219 30 pd pow6;
r@105 379 #X obj 173 32 *~;
r@105 380 #X obj 219 68 *~;
r@105 381 #X obj 219 102 *~ 1;
r@105 382 #X obj 219 130 *~ 1.50063;
r@105 383 #X obj 404 71 *;
r@105 384 #X obj 404 96 * 118033;
r@105 385 #X obj 219 224 /~ 1;
r@105 386 #X obj 219 497 *~ 0.27;
r@105 387 #X text 271 275 Azimuth;
r@105 388 #X text 424 30 Distance;
r@105 389 #X obj 370 482 cos;
r@105 390 #X obj 370 437 / 360;
r@105 391 #X floatatom 397 533 5 0 0 0 - - -;
r@105 392 #X obj 370 506 *;
r@105 393 #X obj 331 586 *~ 0.27;
r@105 394 #X obj 236 253 s~ \$0-a;
r@105 395 #X obj 306 536 r~ \$0-a;
r@105 396 #X obj 370 459 * 6.28319;
r@105 397 #X floatatom 369 72 5 0 0 0 - - -;
r@105 398 #N canvas 713 150 688 659 angleCalc 0;
r@105 399 #X obj 341 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@105 400 -1 -1 0 1;
r@105 401 #X text 321 40 Elevation Angle;
r@105 402 #X obj 270 81 / 360;
r@105 403 #X obj 270 103 * 6.28319;
r@105 404 #X floatatom 135 174 5 0 0 0 - - -;
r@105 405 #X obj 179 79 / 360;
r@105 406 #X obj 179 101 * 6.28319;
r@105 407 #X floatatom 64 105 5 0 0 0 - - -;
r@105 408 #X floatatom 338 103 5 0 0 0 - - -;
r@105 409 #X floatatom 232 256 5 0 0 0 - - -;
r@105 410 #X floatatom 360 500 8 0 0 0 - - -;
r@105 411 #X obj 312 502 * 360;
r@105 412 #X floatatom 359 553 5 0 0 0 - - -;
r@105 413 #X obj 312 526 / 6.28319;
r@105 414 #X obj 270 294 *;
r@105 415 #X obj 270 326 swap 1;
r@105 416 #X obj 270 359 -;
r@105 417 #X obj 270 388 sqrt;
r@105 418 #X obj 312 419 /;
r@105 419 #X obj 312 447 atan;
r@105 420 #X obj 312 473 * 2;
r@105 421 #X text 352 355 Arccos of angle;
r@105 422 #X obj 270 265 /;
r@105 423 #X obj 327 295 + 1;
r@105 424 #X obj 179 125 cos;
r@105 425 #X obj 179 151 *;
r@105 426 #X obj 270 134 cos;
r@105 427 #X obj 270 234 *;
r@105 428 #X obj 179 175 t f b;
r@105 429 #X obj 177 200 delay 9;
r@105 430 #X obj 312 553 outlet;
r@105 431 #X obj 270 53 inlet;
r@105 432 #X obj 180 52 inlet;
r@105 433 #X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
r@105 434 -1 -1 0 1;
r@105 435 #X obj 516 57 inlet;
r@105 436 #X obj 516 81 s \$0_tDist;
r@105 437 #X obj 204 126 r \$0_tDist;
r@105 438 #X obj 295 234 r \$0_tDist;
r@105 439 #X floatatom 482 81 5 0 0 0 - - -;
r@105 440 #X obj 67 79 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@105 441 -1 -1 0 1;
r@105 442 #X text 71 41 Azimuth Angle;
r@105 443 #X connect 0 0 8 0;
r@105 444 #X connect 2 0 3 0;
r@105 445 #X connect 3 0 26 0;
r@105 446 #X connect 5 0 6 0;
r@105 447 #X connect 6 0 24 0;
r@105 448 #X connect 11 0 13 0;
r@105 449 #X connect 13 0 12 0;
r@105 450 #X connect 13 0 30 0;
r@105 451 #X connect 14 0 15 0;
r@105 452 #X connect 15 0 16 0;
r@105 453 #X connect 15 1 16 1;
r@105 454 #X connect 16 0 17 0;
r@105 455 #X connect 17 0 18 0;
r@105 456 #X connect 18 0 19 0;
r@105 457 #X connect 19 0 20 0;
r@105 458 #X connect 20 0 11 0;
r@105 459 #X connect 20 0 10 0;
r@105 460 #X connect 22 0 14 0;
r@105 461 #X connect 22 0 14 1;
r@105 462 #X connect 22 0 23 0;
r@105 463 #X connect 23 0 18 1;
r@105 464 #X connect 24 0 25 0;
r@105 465 #X connect 25 0 4 0;
r@105 466 #X connect 25 0 28 0;
r@105 467 #X connect 26 0 27 0;
r@105 468 #X connect 27 0 9 0;
r@105 469 #X connect 27 0 22 0;
r@105 470 #X connect 28 0 27 1;
r@105 471 #X connect 28 1 29 0;
r@105 472 #X connect 29 0 27 0;
r@105 473 #X connect 31 0 2 0;
r@105 474 #X connect 31 0 0 0;
r@105 475 #X connect 32 0 5 0;
r@105 476 #X connect 32 0 39 0;
r@105 477 #X connect 34 0 35 0;
r@105 478 #X connect 34 0 38 0;
r@105 479 #X connect 36 0 25 1;
r@105 480 #X connect 37 0 22 1;
r@105 481 #X connect 39 0 7 0;
r@105 482 #X restore 256 348 pd angleCalc;
r@105 483 #X text 307 294 Elevation;
r@105 484 #X obj 370 409 + 90;
r@105 485 #X obj 435 511 loadbang;
r@105 486 #X msg 435 533 0.05;
r@105 487 #X obj 331 562 *~ 0.05;
r@105 488 #X text 409 593 Calculates Drag Dipole gain;
r@105 489 #X text 48 504 Calculates Lift Dipole gain;
r@105 490 #X obj 331 611 *~ 0.1;
r@105 491 #X obj 173 8 inlet~;
r@105 492 #X obj 219 7 inlet~;
r@105 493 #X text 256 54 Diameter;
r@105 494 #X obj 250 69 inlet;
r@105 495 #X obj 404 46 inlet;
r@105 496 #X obj 325 326 inlet;
r@105 497 #X obj 256 290 inlet;
r@105 498 #X obj 290 309 inlet;
r@105 499 #X text 360 328 Distance;
r@105 500 #X obj 219 524 outlet~;
r@105 501 #X obj 331 636 outlet~;
r@105 502 #X obj 240 425 cos;
r@105 503 #X obj 240 380 / 360;
r@105 504 #X obj 240 449 *;
r@105 505 #X obj 240 402 * 6.28319;
r@105 506 #X obj 219 472 *~ 1;
r@105 507 #X obj 250 156 inlet;
r@105 508 #X obj 250 180 *;
r@105 509 #X text 288 151 Length;
r@105 510 #X obj 219 202 *~ 1;
r@105 511 #X connect 2 0 4 0;
r@105 512 #X connect 3 0 4 1;
r@105 513 #X connect 4 0 5 0;
r@105 514 #X connect 5 0 6 0;
r@105 515 #X connect 6 0 50 0;
r@105 516 #X connect 7 0 8 0;
r@105 517 #X connect 8 0 9 1;
r@105 518 #X connect 9 0 18 0;
r@105 519 #X connect 9 0 46 0;
r@105 520 #X connect 10 0 40 0;
r@105 521 #X connect 13 0 16 0;
r@105 522 #X connect 13 0 16 1;
r@105 523 #X connect 14 0 20 0;
r@105 524 #X connect 16 0 15 0;
r@105 525 #X connect 16 0 27 1;
r@105 526 #X connect 17 0 30 0;
r@105 527 #X connect 19 0 27 0;
r@105 528 #X connect 20 0 13 0;
r@105 529 #X connect 22 0 24 0;
r@105 530 #X connect 22 0 43 0;
r@105 531 #X connect 24 0 14 0;
r@105 532 #X connect 25 0 26 0;
r@105 533 #X connect 26 0 27 1;
r@105 534 #X connect 27 0 17 0;
r@105 535 #X connect 30 0 41 0;
r@105 536 #X connect 31 0 3 0;
r@105 537 #X connect 31 0 3 1;
r@105 538 #X connect 32 0 2 0;
r@105 539 #X connect 34 0 5 1;
r@105 540 #X connect 35 0 7 1;
r@105 541 #X connect 35 0 7 0;
r@105 542 #X connect 35 0 21 0;
r@105 543 #X connect 36 0 22 2;
r@105 544 #X connect 37 0 22 0;
r@105 545 #X connect 38 0 22 1;
r@105 546 #X connect 42 0 44 0;
r@105 547 #X connect 42 0 44 1;
r@105 548 #X connect 43 0 45 0;
r@105 549 #X connect 44 0 46 1;
r@105 550 #X connect 45 0 42 0;
r@105 551 #X connect 46 0 10 0;
r@105 552 #X connect 47 0 48 0;
r@105 553 #X connect 47 0 48 1;
r@105 554 #X connect 48 0 50 1;
r@105 555 #X connect 50 0 9 0;
r@105 556 #X restore 281 122 pd freqGain;
r@105 557 #X obj 445 -107 inlet;
r@105 558 #X obj 445 -87 s \$0_elev;
r@105 559 #X obj 308 39 r \$0-diameter;
r@105 560 #X obj 513 -109 inlet;
r@105 561 #X obj 513 -87 s \$0_azim;
r@105 562 #X obj 344 101 r \$0_dist;
r@105 563 #X obj 317 59 r \$0_azim;
r@105 564 #X obj 326 80 r \$0_elev;
r@105 565 #X obj 344 146 s~ \$0_dragDiGain;
r@105 566 #X obj 281 166 s~ \$0_liftDiGain;
r@105 567 #X floatatom 376 -60 5 0 0 0 - - -;
r@105 568 #X floatatom 446 -61 5 0 0 0 - - -;
r@105 569 #X floatatom 514 -65 5 0 0 0 - - -;
r@105 570 #X obj 62 252 outlet;
r@105 571 #X obj 1015 -1 hip~;
r@105 572 #X obj 106 225 snapshot~;
r@105 573 #X obj 106 178 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@105 574 1;
r@105 575 #X obj 106 152 loadbang;
r@105 576 #X obj 106 200 metro 10;
r@105 577 #X obj 1023 380 hip~;
r@105 578 #X obj 27 202 r~ \$0-myFreq;
r@105 579 #X obj 106 252 s \$0_contFreq;
r@105 580 #X obj 1036 -24 r \$0_contFreq;
r@105 581 #X obj 1044 304 r \$0_contFreq;
r@105 582 #X obj 1044 327 * 2;
r@105 583 #X text 113 451 Strouhal Number;
r@105 584 #X text 271 183 Calculates the gain of the dipole source;
r@105 585 #X text 275 481 Calculates the gain of the source;
r@105 586 #X text 505 -128 Azimuth;
r@105 587 #X text 605 -127 Pan;
r@105 588 #X text 439 -126 Elevation;
r@105 589 #X text 372 -126 Distance;
r@105 590 #X text 197 -122 Diameter;
r@105 591 #X text 112 -123 Wind Speed;
r@105 592 #X obj 302 -107 inlet;
r@105 593 #X floatatom 303 -63 5 0 0 0 - - -;
r@105 594 #X text 298 -126 Length;
r@105 595 #X obj 302 -85 s \$0_leng;
r@105 596 #X obj 299 19 r \$0_leng;
r@105 597 #X obj 303 303 r \$0_leng;
r@105 598 #X connect 4 0 17 0;
r@105 599 #X connect 5 0 7 0;
r@105 600 #X connect 6 0 10 1;
r@105 601 #X connect 6 0 50 0;
r@105 602 #X connect 7 0 6 0;
r@105 603 #X connect 8 0 12 0;
r@105 604 #X connect 10 0 102 0;
r@105 605 #X connect 11 0 8 0;
r@105 606 #X connect 12 0 4 0;
r@105 607 #X connect 12 0 33 0;
r@105 608 #X connect 13 0 23 0;
r@105 609 #X connect 16 0 83 0;
r@105 610 #X connect 16 0 130 0;
r@105 611 #X connect 17 0 22 1;
r@105 612 #X connect 19 0 20 0;
r@105 613 #X connect 20 0 21 0;
r@105 614 #X connect 21 0 22 0;
r@105 615 #X connect 22 0 70 0;
r@105 616 #X connect 24 0 7 1;
r@105 617 #X connect 25 0 8 1;
r@105 618 #X connect 27 0 119 1;
r@105 619 #X connect 28 0 11 1;
r@105 620 #X connect 29 0 5 0;
r@105 621 #X connect 31 0 119 0;
r@105 622 #X connect 32 0 21 1;
r@105 623 #X connect 34 0 19 0;
r@105 624 #X connect 35 0 17 1;
r@105 625 #X connect 36 0 37 0;
r@105 626 #X connect 37 0 26 0;
r@105 627 #X connect 38 0 36 0;
r@105 628 #X connect 39 0 68 1;
r@105 629 #X connect 40 0 134 0;
r@105 630 #X connect 43 0 71 0;
r@105 631 #X connect 44 0 47 0;
r@105 632 #X connect 45 0 44 0;
r@105 633 #X connect 46 0 45 0;
r@105 634 #X connect 48 0 46 0;
r@105 635 #X connect 49 0 44 0;
r@105 636 #X connect 51 0 52 0;
r@105 637 #X connect 51 0 68 2;
r@105 638 #X connect 53 0 54 0;
r@105 639 #X connect 54 0 81 0;
r@105 640 #X connect 55 0 78 0;
r@105 641 #X connect 56 0 66 0;
r@105 642 #X connect 57 0 139 0;
r@105 643 #X connect 60 0 72 0;
r@105 644 #X connect 61 0 62 0;
r@105 645 #X connect 61 0 69 2;
r@105 646 #X connect 63 0 64 0;
r@105 647 #X connect 64 0 82 0;
r@105 648 #X connect 65 0 77 0;
r@105 649 #X connect 66 0 69 1;
r@105 650 #X connect 68 0 43 0;
r@105 651 #X connect 69 0 60 0;
r@105 652 #X connect 70 0 2 0;
r@105 653 #X connect 70 1 3 0;
r@105 654 #X connect 71 0 41 0;
r@105 655 #X connect 71 1 42 0;
r@105 656 #X connect 72 0 58 0;
r@105 657 #X connect 72 1 59 0;
r@105 658 #X connect 73 0 43 1;
r@105 659 #X connect 74 0 60 1;
r@105 660 #X connect 75 0 61 0;
r@105 661 #X connect 76 0 51 0;
r@105 662 #X connect 77 0 80 0;
r@105 663 #X connect 78 0 79 0;
r@105 664 #X connect 79 0 76 0;
r@105 665 #X connect 80 0 75 0;
r@105 666 #X connect 81 0 51 0;
r@105 667 #X connect 82 0 61 0;
r@105 668 #X connect 84 0 90 0;
r@105 669 #X connect 86 0 70 1;
r@105 670 #X connect 87 0 71 1;
r@105 671 #X connect 88 0 72 1;
r@105 672 #X connect 90 0 91 0;
r@105 673 #X connect 91 0 85 0;
r@105 674 #X connect 91 0 89 0;
r@105 675 #X connect 97 0 112 1;
r@105 676 #X connect 98 0 112 0;
r@105 677 #X connect 99 0 74 0;
r@105 678 #X connect 100 0 73 0;
r@105 679 #X connect 101 0 10 0;
r@105 680 #X connect 102 0 103 0;
r@105 681 #X connect 103 0 105 1;
r@105 682 #X connect 104 0 105 0;
r@105 683 #X connect 105 0 30 0;
r@105 684 #X connect 105 0 11 0;
r@105 685 #X connect 106 0 109 0;
r@105 686 #X connect 107 0 106 0;
r@105 687 #X connect 108 0 107 0;
r@105 688 #X connect 110 0 108 0;
r@105 689 #X connect 111 0 106 0;
r@105 690 #X connect 112 0 117 0;
r@105 691 #X connect 112 1 118 0;
r@105 692 #X connect 113 0 112 3;
r@105 693 #X connect 114 0 112 6;
r@105 694 #X connect 114 0 112 7;
r@105 695 #X connect 115 0 112 5;
r@105 696 #X connect 116 0 112 4;
r@105 697 #X connect 119 0 129 0;
r@105 698 #X connect 119 1 128 0;
r@105 699 #X connect 120 0 121 0;
r@105 700 #X connect 120 0 131 0;
r@105 701 #X connect 122 0 119 3;
r@105 702 #X connect 123 0 124 0;
r@105 703 #X connect 123 0 132 0;
r@105 704 #X connect 125 0 119 6;
r@105 705 #X connect 125 0 119 7;
r@105 706 #X connect 126 0 119 4;
r@105 707 #X connect 127 0 119 5;
r@105 708 #X connect 134 0 68 0;
r@105 709 #X connect 135 0 141 0;
r@105 710 #X connect 135 0 133 0;
r@105 711 #X connect 135 0 9 0;
r@105 712 #X connect 136 0 138 0;
r@105 713 #X connect 137 0 136 0;
r@105 714 #X connect 138 0 135 0;
r@105 715 #X connect 139 0 69 0;
r@105 716 #X connect 140 0 135 0;
r@105 717 #X connect 142 0 134 1;
r@105 718 #X connect 143 0 144 0;
r@105 719 #X connect 144 0 139 1;
r@105 720 #X connect 154 0 155 0;
r@105 721 #X connect 154 0 157 0;
r@105 722 #X connect 158 0 119 2;
r@105 723 #X connect 159 0 112 2;