Mercurial > hg > weather-synthesis-prototyping

view June/freqCalcCyl.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 c0c0d99d1e2e
children
line wrap: on
line source
#N canvas -219 41 1523 817 10;
#X text 181 156 Mass Density of Air;
#X text 115 130 Frequency (Hz);
#X obj 170 644 throw~ l;
#X obj 197 625 throw~ r;
#X obj 274 476 osc~;
#X obj 303 157 *~ 1.225;
#X obj 303 232 /~ 1.81e-05;
#X obj 273 335 *~ 0.198;
#X obj 303 187 *~ 1;
#X obj 273 395 /~ 1;
#X obj 125 79 snapshot~;
#X obj 125 32 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 125 105 10 0 0 0 - - -;
#X obj 234 251 sig~ 19.7;
#X obj 288 275 /~;
#X obj 234 275 sig~ 1;
#X obj 273 304 -~;
#X obj 273 364 *~;
#X obj 273 421 clip~ 0 20000;
#X obj 175 -110 inlet;
#X obj 205 104 outlet;
#X obj 125 6 loadbang;
#X text 365 33 Mass Density of Air \, squared;
#X text 628 58 Speed of Sound to power 2;
#N canvas 759 125 286 289 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 163 outlet~;
#X obj 136 184 snapshot~;
#X obj 136 159 metro 100;
#X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 211 10 0 0 0 - - -;
#X obj 216 210 outlet;
#X obj 136 111 loadbang;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X connect 0 0 11 0;
#X connect 1 0 11 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 10 0;
#X connect 2 0 10 1;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 9 0 6 0;
#X connect 10 0 12 1;
#X connect 11 0 12 0;
#X connect 12 0 4 0;
#X connect 12 0 3 0;
#X restore 548 -64 pd pow6;
#X text 144 225 Reynolds Number;
#X text 152 407 Strouhal Number;
#X obj 511 -51 *~;
#X obj 548 -26 *~;
#X obj 548 8 *~ 1;
#X obj 548 36 *~ 1.50063;
#X obj 626 -15 inlet;
#X obj 626 10 *;
#X obj 626 35 * 118033;
#X obj 548 71 /~ 1;
#X obj 621 116 inlet;
#X obj 548 344 *~ 0.27;
#X obj 274 507 *~;
#X text 618 99 Azimuth;
#X text 625 -35 Distance;
#X text 333 212 Viscosity;
#X obj 76 454 *~ 2;
#X obj 76 481 osc~;
#X obj 76 517 *~;
#X obj 170 557 +~;
#X obj 670 417 cos;
#X obj 670 372 / 360;
#X floatatom 697 468 5 0 0 0 - - -;
#X obj 670 441 *;
#X obj 631 521 *~ 0.27;
#X obj 631 546 *~ 1e-07;
#X obj 175 -87 s \$0-diameter;
#X obj 364 156 r \$0-diameter;
#X obj 374 351 r \$0-diameter;
#X obj 617 -58 r \$0-diameter;
#X obj 100 -53 s~ \$0-windSpeed;
#X obj 548 -90 r~ \$0-windSpeed;
#X obj 329 334 r~ \$0-windSpeed;
#X obj 303 129 r~ \$0-windSpeed;
#X obj 207 433 s~ \$0_str;
#X obj 481 -89 r~ \$0_str;
#X obj 565 100 s~ \$0-a;
#X obj 606 471 r~ \$0-a;
#X obj 631 571 s~ \$0_dragDiGain;
#X obj 109 481 r~ \$0_dragDiGain;
#X obj 286 447 s~ \$0-myFreq;
#X obj 76 427 r~ \$0-myFreq;
#X obj 39 54 r~ \$0-myFreq;
#X obj 548 394 s~ \$0_liftDiGain;
#X obj 312 477 r~ \$0_liftDiGain;
#X obj 100 -95 sig~;
#X obj 100 -73 vd~ varwind;
#X obj 100 -119 inlet;
#X obj 1204 36 r~ \$0-myFreq;
#X obj 1170 12 noise~;
#X obj 1247 220 throw~ l;
#X obj 1274 199 throw~ r;
#X obj 1247 127 *~;
#X obj 275 0 snapshot~;
#X obj 275 -25 metro 100;
#X obj 275 -47 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 275 26 10 0 0 0 - - -;
#X obj 275 -73 loadbang;
#X obj 189 -25 r~ \$0-myRey;
#X obj 316 256 s~ \$0-myRey;
#X obj 1385 37 snapshot~;
#X floatatom 1385 63 10 0 0 0 - - -;
#X obj 1385 -36 loadbang;
#X obj 1385 -11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1296 -65 r~ \$0-myRey;
#X obj 1222 336 r~ \$0-myFreq;
#X obj 1188 311 noise~;
#X obj 1265 525 throw~ l;
#X obj 1292 502 throw~ r;
#X obj 1265 433 *~;
#X obj 1403 345 snapshot~;
#X floatatom 1403 371 10 0 0 0 - - -;
#X obj 1403 272 loadbang;
#X obj 1403 297 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1314 243 r~ \$0-myRey;
#X obj 1222 362 *~ 2;
#X text 260 48 Reynolds Number;
#X obj 1170 79 vcf~ 1000 10;
#X obj 1188 387 vcf~ 1000 10;
#X obj 170 600 fcpan;
#X obj 1247 176 fcpan;
#X obj 1265 477 fcpan;
#X obj 670 394 * 6.28319;
#X obj 1262 100 *~ 1;
#X obj 1280 408 *~ 1;
#X obj 1314 318 clip~ 2 400;
#X obj 1296 10 clip~ 2 400;
#X obj 1314 267 *~ -0.003;
#X obj 1296 -41 *~ -0.003;
#X obj 1296 -16 +~ 20;
#X obj 1314 292 +~ 20;
#X floatatom 591 11 5 0 0 0 - - -;
#X obj 1385 12 metro 10;
#X obj 1403 320 metro 10;
#X obj 125 54 metro 10;
#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 8030 1;
#X text 321 40 Elevation Angle;
#X obj 270 81 / 360;
#X obj 270 103 * 6.28319;
#X floatatom 135 174 5 0 0 0 - - -;
#X obj 179 79 / 360;
#X obj 179 101 * 6.28319;
#X floatatom 64 105 5 0 0 0 - - -;
#X floatatom 338 103 5 0 0 0 - - -;
#X floatatom 232 256 5 0 0 0 - - -;
#X floatatom 360 500 8 0 0 0 - - -;
#X obj 312 502 * 360;
#X floatatom 359 553 5 0 0 0 - - -;
#X obj 312 526 / 6.28319;
#X obj 270 294 *;
#X obj 270 326 swap 1;
#X obj 270 359 -;
#X obj 270 388 sqrt;
#X obj 312 419 /;
#X obj 312 447 atan;
#X obj 312 473 * 2;
#X text 352 355 Arccos of angle;
#X obj 270 265 /;
#X obj 327 295 + 1;
#X obj 179 125 cos;
#X obj 179 151 *;
#X obj 270 134 cos;
#X obj 270 234 *;
#X obj 179 175 t f b;
#X obj 177 200 delay 9;
#X obj 312 553 outlet;
#X obj 270 53 inlet;
#X obj 180 52 inlet;
#X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 516 57 inlet;
#X obj 516 81 s \$0_tDist;
#X obj 204 126 r \$0_tDist;
#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 7480 1;
#X text 71 41 Azimuth Angle;
#X connect 0 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 26 0;
#X connect 5 0 6 0;
#X connect 6 0 24 0;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 13 0 30 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 11 0;
#X connect 20 0 10 0;
#X connect 22 0 14 0;
#X connect 22 0 14 1;
#X connect 22 0 23 0;
#X connect 23 0 18 1;
#X connect 24 0 25 0;
#X connect 25 0 4 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 9 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 28 1 29 0;
#X connect 29 0 27 0;
#X connect 31 0 2 0;
#X connect 31 0 0 0;
#X connect 32 0 5 0;
#X connect 32 0 39 0;
#X connect 34 0 35 0;
#X connect 34 0 38 0;
#X connect 36 0 25 1;
#X connect 37 0 22 1;
#X connect 39 0 7 0;
#X restore 587 200 pd angleCalc;
#X obj 587 150 inlet;
#X obj 657 11 s \$0_dist;
#X obj 656 178 r \$0_dist;
#X text 558 134 Elevation;
#X obj 587 263 / 90;
#X floatatom 555 287 5 0 0 0 - - -;
#X obj 670 344 + 90;
#X obj 437 540 inlet;
#X obj 435 618 s \$0_thisPan;
#X obj 197 571 r \$0_thisPan;
#X obj 1274 152 r \$0_thisPan;
#X obj 1292 455 r \$0_thisPan;
#X floatatom 368 573 8 0 0 0 - - -;
#X obj 434 568 max 0.1;
#X obj 433 595 min 0.9;
#X text 491 550 Pan value inlet;
#X text 1316 421 Drag Dipole spectrum calculation;
#X text 1301 117 Lift Dipole spectrum calculation;
#X obj 633 264 loadbang;
#X msg 633 286 0.05;
#X obj 548 319 *~ 0.05;
#X obj 735 446 loadbang;
#X msg 735 468 0.05;
#X obj 631 497 *~ 0.05;
#X text 709 528 Calculates Drag Dipole gain;
#X text 456 411 Calculates Lift Dipole gain;
#X text 76 315 Calculates the frequency;
#X text 76 328 based on the physics of;
#X text 77 341 the object and environment;
#X obj 548 366 *~ 1e-06;
#X text 729 41 Mass Density of Air \, squared;
#X text 992 66 Speed of Sound to power 2;
#X obj 875 -43 *~;
#X obj 912 -18 *~;
#X obj 912 16 *~ 1;
#X obj 912 44 *~ 1.50063;
#X obj 990 18 *;
#X obj 990 43 * 118033;
#X obj 912 79 /~ 1;
#X obj 912 352 *~ 0.27;
#X text 990 -27 Distance;
#X obj 1034 425 cos;
#X obj 1034 380 / 360;
#X floatatom 1061 476 5 0 0 0 - - -;
#X obj 1034 449 *;
#X obj 995 529 *~ 0.27;
#X obj 995 554 *~ 1e-07;
#X obj 981 -50 r \$0-diameter;
#X obj 912 -82 r~ \$0-windSpeed;
#X obj 845 -81 r~ \$0_str;
#X obj 1034 402 * 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 8030 1;
#X text 321 40 Elevation Angle;
#X obj 270 81 / 360;
#X obj 270 103 * 6.28319;
#X floatatom 135 174 5 0 0 0 - - -;
#X obj 179 79 / 360;
#X obj 179 101 * 6.28319;
#X floatatom 64 105 5 0 0 0 - - -;
#X floatatom 338 103 5 0 0 0 - - -;
#X floatatom 232 256 5 0 0 0 - - -;
#X floatatom 360 500 8 0 0 0 - - -;
#X obj 312 502 * 360;
#X floatatom 359 553 5 0 0 0 - - -;
#X obj 312 526 / 6.28319;
#X obj 270 294 *;
#X obj 270 326 swap 1;
#X obj 270 359 -;
#X obj 270 388 sqrt;
#X obj 312 419 /;
#X obj 312 447 atan;
#X obj 312 473 * 2;
#X text 352 355 Arccos of angle;
#X obj 270 265 /;
#X obj 327 295 + 1;
#X obj 179 125 cos;
#X obj 179 151 *;
#X obj 270 134 cos;
#X obj 270 234 *;
#X obj 179 175 t f b;
#X obj 177 200 delay 9;
#X obj 312 553 outlet;
#X obj 270 53 inlet;
#X obj 180 52 inlet;
#X obj 370 227 hsl 100 20 100 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 516 57 inlet;
#X obj 516 81 s \$0_tDist;
#X obj 204 126 r \$0_tDist;
#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 7480 1;
#X text 71 41 Azimuth Angle;
#X connect 0 0 8 0;
#X connect 2 0 3 0;
#X connect 3 0 26 0;
#X connect 5 0 6 0;
#X connect 6 0 24 0;
#X connect 11 0 13 0;
#X connect 13 0 12 0;
#X connect 13 0 30 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 11 0;
#X connect 20 0 10 0;
#X connect 22 0 14 0;
#X connect 22 0 14 1;
#X connect 22 0 23 0;
#X connect 23 0 18 1;
#X connect 24 0 25 0;
#X connect 25 0 4 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 9 0;
#X connect 27 0 22 0;
#X connect 28 0 27 1;
#X connect 28 1 29 0;
#X connect 29 0 27 0;
#X connect 31 0 2 0;
#X connect 31 0 0 0;
#X connect 32 0 5 0;
#X connect 32 0 39 0;
#X connect 34 0 35 0;
#X connect 34 0 38 0;
#X connect 36 0 25 1;
#X connect 37 0 22 1;
#X connect 39 0 7 0;
#X restore 951 208 pd angleCalc;
#X obj 1020 186 r \$0_dist;
#X obj 951 271 / 90;
#X floatatom 919 295 5 0 0 0 - - -;
#X obj 1034 352 + 90;
#X obj 997 272 loadbang;
#X msg 997 294 0.05;
#X obj 912 327 *~ 0.05;
#X obj 1099 454 loadbang;
#X msg 1099 476 0.05;
#X obj 995 505 *~ 0.05;
#X text 1069 544 Calculates Drag Dipole gain;
#X text 820 419 Calculates Lift Dipole gain;
#X obj 912 374 *~ 1e-06;
#N canvas 759 125 286 289 pow8 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 170 outlet~;
#X obj 136 173 snapshot~;
#X obj 136 148 metro 100;
#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 200 10 0 0 0 - - -;
#X obj 136 100 loadbang;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X obj 136 67 *~;
#X obj 47 144 *~;
#X connect 0 0 10 0;
#X connect 1 0 10 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 9 0;
#X connect 2 0 9 1;
#X connect 2 0 1 0;
#X connect 2 0 12 0;
#X connect 2 0 12 1;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 8 0 6 0;
#X connect 9 0 11 1;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 13 0 3 0;
#X connect 13 0 4 0;
#X restore 912 -56 pd pow8;
#X obj 912 402 s~ \$0_liftNoiseGain;
#X obj 995 579 s~ \$0_dragNoiseGain;
#X obj 1280 385 r~ \$0_dragNoiseGain;
#X obj 1262 58 r~ \$0_liftNoiseGain;
#X obj 929 108 s~ \$0-c;
#X obj 970 479 r~ \$0-c;
#X obj 990 -4 r \$0_dist;
#X obj 647 138 s \$0_azim;
#X obj 594 174 s \$0_elev;
#X obj 985 167 r \$0_azim;
#X obj 951 144 r \$0_elev;
#X floatatom 724 221 5 0 0 0 - - -;
#X floatatom 739 196 5 0 0 0 - - -;
#X floatatom 502 586 5 0 0 0 - - -;
#X connect 4 0 37 0;
#X connect 5 0 8 0;
#X connect 6 0 14 1;
#X connect 6 0 84 0;
#X connect 7 0 17 0;
#X connect 8 0 6 0;
#X connect 9 0 18 0;
#X connect 9 0 59 0;
#X connect 10 0 12 0;
#X connect 10 0 20 0;
#X connect 11 0 119 0;
#X connect 13 0 14 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 7 0;
#X connect 17 0 9 0;
#X connect 18 0 4 0;
#X connect 18 0 65 0;
#X connect 19 0 51 0;
#X connect 21 0 11 0;
#X connect 24 0 28 0;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 34 0;
#X connect 31 0 32 0;
#X connect 31 0 32 1;
#X connect 31 0 116 0;
#X connect 31 0 122 0;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 61 0;
#X connect 34 0 141 0;
#X connect 35 0 120 1;
#X connect 35 0 194 0;
#X connect 35 0 199 0;
#X connect 36 0 150 0;
#X connect 37 0 44 1;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 104 0;
#X connect 45 0 48 0;
#X connect 45 0 48 1;
#X connect 46 0 107 0;
#X connect 48 0 47 0;
#X connect 48 0 144 1;
#X connect 49 0 50 0;
#X connect 50 0 63 0;
#X connect 52 0 8 1;
#X connect 53 0 9 1;
#X connect 54 0 29 1;
#X connect 56 0 24 0;
#X connect 57 0 17 1;
#X connect 58 0 5 0;
#X connect 60 0 27 1;
#X connect 60 0 27 0;
#X connect 62 0 144 0;
#X connect 64 0 43 1;
#X connect 66 0 41 0;
#X connect 67 0 10 0;
#X connect 69 0 37 1;
#X connect 70 0 71 0;
#X connect 71 0 55 0;
#X connect 72 0 70 0;
#X connect 73 0 102 1;
#X connect 74 0 102 0;
#X connect 77 0 105 0;
#X connect 78 0 81 0;
#X connect 79 0 78 0;
#X connect 80 0 79 0;
#X connect 82 0 80 0;
#X connect 83 0 78 0;
#X connect 85 0 86 0;
#X connect 85 0 102 2;
#X connect 87 0 88 0;
#X connect 88 0 117 0;
#X connect 89 0 113 0;
#X connect 90 0 100 0;
#X connect 91 0 103 0;
#X connect 94 0 106 0;
#X connect 95 0 96 0;
#X connect 95 0 103 2;
#X connect 97 0 98 0;
#X connect 98 0 118 0;
#X connect 99 0 112 0;
#X connect 100 0 103 1;
#X connect 102 0 77 0;
#X connect 103 0 94 0;
#X connect 104 0 2 0;
#X connect 104 1 3 0;
#X connect 105 0 75 0;
#X connect 105 1 76 0;
#X connect 106 0 92 0;
#X connect 106 1 93 0;
#X connect 107 0 45 0;
#X connect 108 0 77 1;
#X connect 109 0 94 1;
#X connect 110 0 95 0;
#X connect 111 0 85 0;
#X connect 112 0 115 0;
#X connect 113 0 114 0;
#X connect 114 0 111 0;
#X connect 115 0 110 0;
#X connect 117 0 85 0;
#X connect 118 0 95 0;
#X connect 119 0 10 0;
#X connect 120 0 125 0;
#X connect 120 0 127 0;
#X connect 121 0 120 0;
#X connect 121 0 195 0;
#X connect 121 0 198 0;
#X connect 123 0 120 2;
#X connect 125 0 126 0;
#X connect 125 0 141 1;
#X connect 127 0 46 0;
#X connect 128 0 134 0;
#X connect 128 0 200 0;
#X connect 130 0 104 1;
#X connect 131 0 105 1;
#X connect 132 0 106 1;
#X connect 134 0 135 0;
#X connect 135 0 129 0;
#X connect 135 0 133 0;
#X connect 139 0 140 0;
#X connect 140 0 141 1;
#X connect 141 0 36 0;
#X connect 142 0 143 0;
#X connect 143 0 144 1;
#X connect 144 0 49 0;
#X connect 150 0 68 0;
#X connect 153 0 154 1;
#X connect 154 0 155 0;
#X connect 155 0 156 0;
#X connect 156 0 159 0;
#X connect 157 0 158 0;
#X connect 158 0 159 1;
#X connect 159 0 179 0;
#X connect 159 0 191 0;
#X connect 160 0 185 0;
#X connect 162 0 165 0;
#X connect 162 0 165 1;
#X connect 163 0 171 0;
#X connect 165 0 164 0;
#X connect 165 0 182 1;
#X connect 166 0 167 0;
#X connect 167 0 188 0;
#X connect 168 0 155 1;
#X connect 169 0 186 0;
#X connect 170 0 153 1;
#X connect 170 0 153 0;
#X connect 171 0 162 0;
#X connect 172 0 174 0;
#X connect 172 0 176 0;
#X connect 173 0 172 2;
#X connect 174 0 175 0;
#X connect 174 0 179 1;
#X connect 176 0 163 0;
#X connect 177 0 178 0;
#X connect 178 0 179 1;
#X connect 179 0 160 0;
#X connect 180 0 181 0;
#X connect 181 0 182 1;
#X connect 182 0 166 0;
#X connect 185 0 187 0;
#X connect 186 0 154 0;
#X connect 189 0 109 0;
#X connect 190 0 108 0;
#X connect 192 0 182 0;
#X connect 193 0 157 0;
#X connect 193 0 157 1;
#X connect 196 0 172 1;
#X connect 197 0 172 0;