Mercurial > hg > weather-synthesis-prototyping
view scene demo/freqCalcCyl3_D1Mach.pd @ 199:2ded41e29e57
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 | e71e2b4657a6 |
children |
line wrap: on
line source
#N canvas 0 23 1359 827 10; #X text 595 260 Mass Density of Air; #X text 85 423 Frequency (Hz); #X obj 717 586 throw~ l; #X obj 744 563 throw~ r; #X obj 717 482 osc~; #X obj 717 261 *~ 1.225; #X obj 717 336 /~ 1.81e-05; #X obj 717 291 *~ 1; #X obj 717 454 /~ 1; #X floatatom 181 401 10 0 0 0 - - -; #X obj 717 430 *~; #X obj 192 48 inlet; #X text 750 380 Reynolds Number; #X text 597 447 Strouhal Number; #X obj 357 46 inlet; #X obj 717 512 *~; #X text 747 316 Viscosity; #X obj 496 451 *~ 2; #X obj 496 478 osc~; #X obj 496 500 *~; #X obj 199 71 s \$0-diameter; #X obj 778 260 r \$0-diameter; #X obj 785 435 r \$0-diameter; #X obj 109 110 s~ \$0-windSpeed; #X obj 281 149 r~ \$0-windSpeed; #X obj 784 412 r~ \$0-windSpeed; #X obj 717 233 r~ \$0-windSpeed; #X obj 638 481 s~ \$0-myFreq; #X obj 496 426 r~ \$0-myFreq; #X obj 109 68 sig~; #X obj 109 90 vd~ varwind; #X obj 109 44 inlet; #X obj 1217 58 r~ \$0-myFreq; #X obj 942 254 *~; #X obj 103 223 snapshot~; #X obj 103 198 metro 100; #X obj 103 176 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 103 249 10 0 0 0 - - -; #X obj 103 150 loadbang; #X obj 17 198 r~ \$0-myRey; #X obj 730 360 s~ \$0-myRey; #X obj 1253 232 snapshot~; #X floatatom 1253 258 10 0 0 0 - - -; #X obj 1253 159 loadbang; #X obj 1253 184 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 1162 15 r~ \$0-myRey; #X text 88 271 Reynolds Number; #X obj 1183 85 vcf~ 1000 10; #X obj 717 539 fcpan; #X obj 1253 207 metro 10; #X obj 605 42 inlet; #X floatatom 550 111 8 0 0 0 - - -; #X obj 605 66 max 0.1; #X obj 605 89 min 0.9; #X text 526 345 Calculates the frequency; #X text 527 357 based on the physics of; #X text 527 370 the object and environment; #X obj 285 431 r~ \$0-windSpeed; #X obj 104 545 snapshot~; #X obj 104 520 metro 100; #X obj 104 498 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 104 571 10 0 0 0 - - -; #X obj 104 472 loadbang; #N canvas 335 23 1006 797 noiseGain 0; #X text -21029 166 Mass Density of Air \, squared; #X text -20589 179 Speed of Sound to power 2; #X obj -20894 66 *~; #X obj -20846 107 *~; #X obj -20846 141 *~ 1; #X obj -20846 169 *~ 1.50063; #X obj -20591 133 *; #X obj -20591 156 * 118033; #X obj -20846 296 /~ 1; #X obj -20846 636 *~ 0.27; #X text -20591 86 Distance; #X text -21027 643 Calculates Lift Dipole gain; #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 12 0 13 1; #X connect 13 0 3 0; #X connect 13 0 4 0; #X restore -20846 69 pd pow8; #X obj -20894 44 inlet~; #X obj -20846 44 inlet~; #X obj -20810 118 inlet; #X obj -20591 107 inlet; #X obj -20846 679 outlet~; #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum ; #X text -20805 102 Diameter; #X obj -20815 200 inlet; #X obj -20815 224 *; #X obj -20846 246 *~ 1; #X text -20774 199 Length; #X obj -20829 325 s~ \$0-nGain; #X text -20741 328 Azimuth; #X text -20680 290 Elevation; #X obj -20740 345 inlet; #X obj -20683 306 inlet; #X obj -20740 368 sig~; #X obj -20683 368 sig~; #X obj -20683 348 spigot; #X text -20581 312 End Source; #X obj -20831 456 +~ 90; #X obj -20831 477 /~ 360; #X obj -20831 499 cos~; #X obj -20846 611 *~; #X obj -20831 523 *~; #X obj -20631 395 loadbang; #X obj -20631 416 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -20631 434 metro 10; #X obj -20631 455 snapshot~; #X floatatom -20631 475 5 0 0 0 - - -; #X obj -20943 498 loadbang; #X obj -20943 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -20943 537 metro 10; #X obj -20943 558 snapshot~; #X floatatom -20943 578 8 0 0 0 - - -; #X msg -20649 372 0; #X obj -20612 353 t f b; #X msg -20612 333 0; #X msg -20612 313 1; #X obj -20787 455 +~ 90; #X obj -20787 476 /~ 360; #X obj -20787 498 sin~; #X text -20833 411 Quadrupole; #X obj -20740 391 angleCalcN~; #X text -20992 36 Strouhal number; #X text -20798 35 Wind speed; #X text -20580 332 Mid Source; #X text -20813 430 comment; #X obj -20846 658 *~ 0.001; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 22 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 8 0 24 0; #X connect 8 0 36 0; #X connect 9 0 61 0; #X connect 12 0 3 0; #X connect 13 0 2 0; #X connect 13 0 2 1; #X connect 14 0 12 0; #X connect 15 0 4 1; #X connect 16 0 6 0; #X connect 16 0 6 1; #X connect 20 0 21 0; #X connect 20 0 21 1; #X connect 21 0 22 1; #X connect 22 0 8 0; #X connect 27 0 29 0; #X connect 28 0 31 0; #X connect 29 0 56 0; #X connect 30 0 56 1; #X connect 31 0 30 0; #X connect 33 0 34 0; #X connect 34 0 35 0; #X connect 35 0 37 0; #X connect 36 0 9 0; #X connect 37 0 36 1; #X connect 37 0 46 0; #X connect 38 0 39 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 41 0 42 0; #X connect 43 0 44 0; #X connect 44 0 45 0; #X connect 45 0 46 0; #X connect 46 0 47 0; #X connect 48 0 30 0; #X connect 49 0 31 1; #X connect 49 1 48 0; #X connect 50 0 49 0; #X connect 51 0 31 1; #X connect 52 0 53 0; #X connect 53 0 54 0; #X connect 54 0 37 1; #X connect 56 0 33 0; #X connect 56 0 41 0; #X connect 56 0 52 0; #X connect 61 0 17 0; #X restore 274 566 pd noiseGain; #X obj 308 476 r \$0-diameter; #N canvas 299 77 1040 691 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; #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 219 30 pd pow6; #X obj 173 32 *~; #X obj 219 68 *~; #X obj 219 102 *~ 1; #X obj 219 130 *~ 1.50063; #X obj 404 71 *; #X obj 404 96 * 118033; #X obj 219 224 /~ 1; #X obj 219 497 *~ 0.27; #X text 424 30 Distance; #X obj 319 473 *~ 0.27; #X floatatom 369 72 5 0 0 0 - - -; #X text 304 556 Calculates Drag Dipole gain; #X text 48 504 Calculates Lift Dipole gain; #X obj 319 498 *~ 0.1; #X obj 173 8 inlet~; #X obj 219 7 inlet~; #X text 256 54 Diameter; #X obj 250 69 inlet; #X obj 404 46 inlet; #X obj 219 524 outlet~; #X obj 319 523 outlet~; #X obj 240 159 inlet; #X text 278 154 Length; #X obj 219 202 *~ 1; #X text 397 195 Add in MACH deflection; #X obj 236 253 s~ \$0-aGain; #X obj 347 424 r~ \$0-aGain; #X text 257 278 Azimuth; #X text 318 240 Elevation; #X obj 258 295 inlet; #X obj 315 256 inlet; #X obj 258 318 sig~; #X obj 315 318 sig~; #X obj 315 298 spigot; #X text 414 265 End Source; #X text 415 284 Mid Source; #X obj 432 343 loadbang; #X obj 432 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 432 382 metro 10; #X msg 349 322 0; #X obj 386 303 t f b; #X msg 386 283 0; #X msg 386 263 1; #X obj 234 382 +~ 90; #X obj 234 403 /~ 360; #X obj 234 425 cos~; #X obj 234 449 *~; #X obj 219 472 *~; #X obj 319 377 /~ 360; #X obj 319 400 cos~; #X obj 319 424 *~; #X obj 319 449 *~; #X obj 432 403 snapshot~; #X floatatom 432 423 5 0 0 0 - - -; #X obj 466 450 loadbang; #X obj 466 471 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 466 489 metro 10; #X obj 466 510 snapshot~; #X floatatom 466 530 5 0 0 0 - - -; #X obj 149 366 loadbang; #X obj 149 387 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 149 405 metro 10; #X obj 149 426 snapshot~; #X floatatom 149 446 5 0 0 0 - - -; #X obj 651 38 inlet; #X obj 750 40 inlet; #X obj 846 43 inlet; #X floatatom 651 85 5 0 0 0 - - -; #X floatatom 750 86 5 0 0 0 - - -; #X floatatom 847 87 5 0 0 0 - - -; #X text 647 19 X Rotation; #X text 744 21 Y Rotation; #X text 841 24 Z Rotation; #X obj 656 61 s \$0-this_rotaX; #X obj 757 62 s \$0-thisrotaY; #X obj 854 66 s \$0-thisrotaZ; #X obj 258 337 angleCalc~; #X text 74 8 Strouhal number; #X text 269 7 Wind speed; #X connect 2 0 4 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 26 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 28 0; #X connect 9 0 50 0; #X connect 10 0 22 0; #X connect 12 0 16 0; #X connect 16 0 23 0; #X connect 17 0 3 0; #X connect 17 0 3 1; #X connect 18 0 2 0; #X connect 20 0 5 1; #X connect 21 0 7 1; #X connect 21 0 7 0; #X connect 21 0 13 0; #X connect 24 0 26 1; #X connect 26 0 9 0; #X connect 29 0 54 1; #X connect 32 0 34 0; #X connect 33 0 36 0; #X connect 34 0 79 0; #X connect 35 0 79 1; #X connect 36 0 35 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 41 0 55 0; #X connect 42 0 35 0; #X connect 43 0 36 1; #X connect 43 1 42 0; #X connect 44 0 43 0; #X connect 45 0 36 1; #X connect 46 0 47 0; #X connect 47 0 48 0; #X connect 48 0 49 0; #X connect 48 0 49 1; #X connect 49 0 50 1; #X connect 49 0 65 0; #X connect 50 0 10 0; #X connect 51 0 52 0; #X connect 52 0 53 0; #X connect 52 0 53 1; #X connect 53 0 54 0; #X connect 53 0 60 0; #X connect 54 0 12 0; #X connect 55 0 56 0; #X connect 57 0 58 0; #X connect 58 0 59 0; #X connect 59 0 60 0; #X connect 60 0 61 0; #X connect 62 0 63 0; #X connect 63 0 64 0; #X connect 64 0 65 0; #X connect 65 0 66 0; #X connect 67 0 70 0; #X connect 67 0 76 0; #X connect 68 0 71 0; #X connect 68 0 77 0; #X connect 69 0 72 0; #X connect 69 0 78 0; #X connect 79 0 46 0; #X connect 79 0 51 0; #X connect 79 0 55 0; #X restore 272 293 pd freqGain; #X obj 429 45 inlet; #X obj 302 188 r \$0-diameter; #X obj 503 44 inlet; #X floatatom 357 93 5 0 0 0 - - -; #X floatatom 429 91 5 0 0 0 - - -; #X floatatom 504 88 5 0 0 0 - - -; #X obj 52 401 outlet; #X obj 96 374 snapshot~; #X obj 96 327 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 96 301 loadbang; #X obj 96 349 metro 10; #X obj 17 351 r~ \$0-myFreq; #X text 103 600 Strouhal Number; #X text 262 352 Calculates the gain of the dipole source; #X text 265 630 Calculates the gain of the source; #X text 495 25 Azimuth; #X text 610 24 Pan; #X text 423 26 Elevation; #X text 353 27 Distance; #X text 187 27 Diameter; #X text 102 26 Wind Speed; #X obj 284 45 inlet; #X floatatom 284 89 5 0 0 0 - - -; #X text 280 26 Length; #X obj 717 401 newStrou; #X floatatom 52 84 5 0 0 0 - - -; #X floatatom 192 92 5 0 0 0 - - -; #X obj 942 323 throw~ l; #X obj 969 301 throw~ r; #X obj 942 279 fcpan; #X obj 294 68 s \$0-leng; #X obj 362 69 s \$0-dist; #X obj 436 67 s \$0-elev; #X obj 511 67 s \$0-azim; #X obj 271 128 r~ \$0-str; #X obj 292 168 r \$0-leng; #X obj 313 208 r \$0-azim; #X obj 323 229 r \$0-elev; #X obj 334 250 r \$0-dist; #X obj 335 317 s~ \$0-dragDiGain; #X obj 272 337 s~ \$0-liftDiGain; #X obj 274 408 r~ \$0-str; #X obj 297 452 r \$0-leng; #X obj 331 519 r \$0-elev; #X obj 320 496 r \$0-azim; #X obj 343 542 r \$0-dist; #X obj 274 611 s~ \$0-liftNoiseGain; #X obj 529 480 r~ \$0-dragDiGain; #X obj 611 431 s~ \$0-str; #X obj 755 482 r~ \$0-liftDiGain; #X obj 744 510 r \$0-thisPan; #X obj 605 111 s \$0-thisPan; #X obj 978 206 r \$0-contFreq; #X obj 96 401 s \$0-contFreq; #X obj 19 520 r~ \$0-str; #X obj 942 162 r~ \$0-liftNoiseGain; #X obj 969 254 r \$0-thisPan; #X obj 700 51 inlet; #X obj 772 50 inlet; #X obj 846 49 inlet; #X floatatom 700 98 5 0 0 0 - - -; #X floatatom 772 96 5 0 0 0 - - -; #X floatatom 847 93 5 0 0 0 - - -; #X obj 705 74 s \$0-rotaX; #X obj 779 72 s \$0-rotaY; #X obj 854 72 s \$0-rotaZ; #X text 696 32 X Rotation; #X text 766 31 Y Rotation; #X text 841 30 Z Rotation; #X text 923 136 Noise spectrum calculation; #X obj 957 230 hip~; #X obj 1162 39 *~ -0.001; #X obj 1162 64 +~ 20; #X obj 1207 136 clip~ 1 20; #X obj 847 380 sig~; #X msg 847 355 0.27; #X obj 774 789 throw~ l; #X obj 801 766 throw~ r; #X obj 774 742 fcpan; #X obj 801 713 r \$0-thisPan; #X obj 1183 107 *~ 0.5; #X obj 612 674 osc~; #X obj 612 696 *~; #X obj 612 622 r~ \$0-myFreq; #X obj 496 580 throw~ l; #X obj 523 557 throw~ r; #X obj 496 533 fcpan; #X obj 523 504 r \$0-thisPan; #X obj 611 775 throw~ l; #X obj 638 752 throw~ r; #X obj 611 728 fcpan; #X obj 638 699 r \$0-thisPan; #X obj 649 646 r~ \$0-liftDiGain; #X obj 612 647 *~ 3; #X obj 774 674 osc~; #X obj 774 696 *~; #X obj 774 622 r~ \$0-myFreq; #X obj 811 646 r~ \$0-liftDiGain; #X obj 774 647 *~ 5; #X obj 475 666 osc~; #X obj 475 688 *~; #X obj 475 614 r~ \$0-myFreq; #X obj 509 639 r~ \$0-dragDiGain; #X obj 475 768 throw~ l; #X obj 502 745 throw~ r; #X obj 475 721 fcpan; #X obj 502 692 r \$0-thisPan; #X obj 475 639 *~ 4; #X obj 957 184 pink~; #X obj 509 665 *~ 0.8; #X obj 649 676 *~ 1; #X obj 811 676 *~ 1; #X connect 4 0 15 0; #X connect 5 0 7 0; #X connect 6 0 40 0; #X connect 6 0 90 0; #X connect 7 0 6 0; #X connect 8 0 4 0; #X connect 8 0 27 0; #X connect 10 0 8 0; #X connect 11 0 20 0; #X connect 11 0 92 0; #X connect 14 0 69 0; #X connect 14 0 97 0; #X connect 15 0 48 0; #X connect 17 0 18 0; #X connect 18 0 19 0; #X connect 19 0 152 0; #X connect 21 0 7 1; #X connect 22 0 8 1; #X connect 24 0 65 1; #X connect 25 0 10 1; #X connect 26 0 5 0; #X connect 28 0 17 0; #X connect 29 0 30 0; #X connect 30 0 23 0; #X connect 31 0 29 0; #X connect 31 0 91 0; #X connect 32 0 47 1; #X connect 33 0 95 0; #X connect 34 0 37 0; #X connect 35 0 34 0; #X connect 36 0 35 0; #X connect 38 0 36 0; #X connect 39 0 34 0; #X connect 41 0 42 0; #X connect 41 0 47 2; #X connect 43 0 44 0; #X connect 44 0 49 0; #X connect 45 0 137 0; #X connect 47 0 146 0; #X connect 48 0 2 0; #X connect 48 1 3 0; #X connect 49 0 41 0; #X connect 50 0 52 0; #X connect 52 0 53 0; #X connect 53 0 51 0; #X connect 53 0 117 0; #X connect 57 0 63 1; #X connect 58 0 61 0; #X connect 59 0 58 0; #X connect 60 0 59 0; #X connect 62 0 60 0; #X connect 63 0 112 0; #X connect 64 0 63 3; #X connect 65 0 106 0; #X connect 65 1 105 0; #X connect 66 0 70 0; #X connect 66 0 98 0; #X connect 67 0 65 3; #X connect 68 0 71 0; #X connect 68 0 99 0; #X connect 73 0 72 0; #X connect 73 0 9 0; #X connect 73 0 119 0; #X connect 74 0 76 0; #X connect 75 0 74 0; #X connect 76 0 73 0; #X connect 77 0 73 0; #X connect 87 0 88 0; #X connect 87 0 96 0; #X connect 90 0 114 0; #X connect 90 0 10 0; #X connect 95 0 93 0; #X connect 95 1 94 0; #X connect 100 0 65 0; #X connect 101 0 65 2; #X connect 102 0 65 4; #X connect 103 0 65 5; #X connect 104 0 65 6; #X connect 107 0 63 0; #X connect 108 0 63 2; #X connect 109 0 63 5; #X connect 110 0 63 4; #X connect 111 0 63 6; #X connect 113 0 19 1; #X connect 115 0 15 1; #X connect 116 0 48 1; #X connect 118 0 136 1; #X connect 120 0 58 0; #X connect 121 0 33 0; #X connect 122 0 95 1; #X connect 123 0 126 0; #X connect 123 0 129 0; #X connect 124 0 127 0; #X connect 124 0 130 0; #X connect 125 0 128 0; #X connect 125 0 131 0; #X connect 136 0 33 1; #X connect 137 0 138 0; #X connect 138 0 139 0; #X connect 139 0 41 0; #X connect 141 0 140 0; #X connect 144 0 142 0; #X connect 144 1 143 0; #X connect 145 0 144 1; #X connect 147 0 148 0; #X connect 148 0 156 0; #X connect 149 0 159 0; #X connect 152 0 150 0; #X connect 152 1 151 0; #X connect 153 0 152 1; #X connect 156 0 154 0; #X connect 156 1 155 0; #X connect 157 0 156 1; #X connect 158 0 176 0; #X connect 159 0 147 0; #X connect 160 0 161 0; #X connect 161 0 144 0; #X connect 162 0 164 0; #X connect 163 0 177 0; #X connect 164 0 160 0; #X connect 165 0 166 0; #X connect 166 0 171 0; #X connect 167 0 173 0; #X connect 168 0 175 0; #X connect 171 0 169 0; #X connect 171 1 170 0; #X connect 172 0 171 1; #X connect 173 0 165 0; #X connect 174 0 136 0; #X connect 175 0 166 1; #X connect 176 0 148 1; #X connect 177 0 161 1;