Mercurial > hg > weather-synthesis-prototyping
view scene demo/freqCalcCyl2_D4Mach.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 | 61d267c71a18 |
| children |
line wrap: on
line source
#N canvas 0 22 1426 817 10; #X text 734 -8 Mass Density of Air; #X text 135 314 Frequency (Hz); #X obj 841 386 throw~ l; #X obj 868 363 throw~ r; #X obj 856 237 osc~; #X obj 856 -7 *~ 1.225; #X obj 856 68 /~ 1.81e-05; #X obj 856 23 *~ 1; #X obj 856 186 /~ 1; #X floatatom 231 292 10 0 0 0 - - -; #X obj 856 162 *~; #X obj 856 211 clip~ 0 20000; #X obj 242 -61 inlet; #X text 889 112 Reynolds Number; #X text 741 176 Strouhal Number; #X obj 407 -63 inlet; #X obj 856 267 *~; #X text 886 48 Viscosity; #X obj 641 208 *~ 2; #X obj 641 235 osc~; #X obj 641 257 *~; #X obj 841 296 +~; #X obj 249 -38 s \$0-diameter; #X obj 917 -8 r \$0-diameter; #X obj 924 167 r \$0-diameter; #X obj 159 1 s~ \$0-windSpeed; #X obj 331 40 r~ \$0-windSpeed; #X obj 923 144 r~ \$0-windSpeed; #X obj 856 -35 r~ \$0-windSpeed; #X obj 777 236 s~ \$0-myFreq; #X obj 641 181 r~ \$0-myFreq; #X obj 159 -41 sig~; #X obj 159 -19 vd~ varwind; #X obj 159 -65 inlet; #X obj 1089 42 r~ \$0-myFreq; #X obj 1055 -8 noise~; #X obj 1132 153 *~; #X obj 153 114 snapshot~; #X obj 153 89 metro 100; #X obj 153 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 153 140 10 0 0 0 - - -; #X obj 153 41 loadbang; #X obj 67 89 r~ \$0-myRey; #X obj 869 92 s~ \$0-myRey; #X obj 1270 43 snapshot~; #X floatatom 1270 69 10 0 0 0 - - -; #X obj 1270 -30 loadbang; #X obj 1270 -5 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 1181 -59 r~ \$0-myRey; #X obj 1097 394 r~ \$0-myFreq; #X obj 1063 323 noise~; #X obj 1140 491 *~; #X obj 1278 403 snapshot~; #X floatatom 1278 429 10 0 0 0 - - -; #X obj 1278 330 loadbang; #X obj 1278 355 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 1189 301 r~ \$0-myRey; #X obj 1097 420 *~ 2; #X text 138 162 Reynolds Number; #X obj 1055 85 vcf~ 1000 10; #X obj 1063 445 vcf~ 1000 10; #X obj 841 339 fcpan; #X obj 1147 126 *~ 1; #X obj 1155 466 *~ 1; #X obj 1189 376 clip~ 2 400; #X obj 1181 16 clip~ 2 400; #X obj 1189 325 *~ -0.003; #X obj 1181 -35 *~ -0.003; #X obj 1270 18 metro 10; #X obj 1278 378 metro 10; #X obj 655 -67 inlet; #X floatatom 600 2 8 0 0 0 - - -; #X obj 655 -43 max 0.1; #X obj 655 -20 min 0.9; #X text 1191 479 Drag Dipole spectrum calculation; #X text 1186 143 Lift Dipole spectrum calculation; #X text 577 107 Calculates the frequency; #X text 577 120 based on the physics of; #X text 578 133 the object and environment; #X obj 335 322 r~ \$0-windSpeed; #X obj 154 436 snapshot~; #X obj 154 411 metro 100; #X obj 154 389 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 154 462 10 0 0 0 - - -; #X obj 154 363 loadbang; #N canvas 665 72 843 731 noiseGain 0; #X text -21205 129 Mass Density of Air \, squared; #X text -20765 142 Speed of Sound to power 2; #X obj -21070 29 *~; #X obj -21022 70 *~; #X obj -21022 104 *~ 1; #X obj -21022 132 *~ 1.50063; #X obj -20767 96 *; #X obj -20767 119 * 118033; #X obj -21022 259 /~ 1; #X obj -21022 532 *~ 0.27; #X text -20767 49 Distance; #X obj -20916 518 *~ 0.27; #X text -20937 606 Calculates Drag Dipole gain; #X text -21198 525 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 -21022 32 pd pow8; #X obj -21070 7 inlet~; #X obj -21022 7 inlet~; #X obj -20989 55 inlet; #X obj -20767 70 inlet; #X obj -21022 575 outlet~; #X obj -20916 568 outlet~; #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum ; #X text -20981 74 Diameter; #X obj -20991 163 inlet; #X obj -20991 187 *; #X obj -21022 209 *~ 1; #X text -20950 162 Length; #X obj -21022 554 *~ 0.02; #X obj -20916 543 *~ 0.002; #X obj -21005 288 s~ \$0-nGain; #X obj -20886 471 r~ \$0-nGain; #X text -20917 291 Azimuth; #X text -20856 253 Elevation; #X obj -20916 308 inlet; #X obj -20859 269 inlet; #X obj -20916 350 angleCalc~; #X obj -20916 331 sig~; #X obj -20859 331 sig~; #X obj -20859 311 spigot; #X text -20757 275 End Source; #X text -20756 294 Mid Source; #X obj -21007 419 +~ 90; #X obj -21007 440 /~ 360; #X obj -21007 462 cos~; #X obj -21022 507 *~; #X obj -21007 486 *~; #X obj -20916 426 /~ 360; #X obj -20916 447 cos~; #X obj -20916 471 *~; #X obj -20916 494 *~; #X obj -20807 358 loadbang; #X obj -20807 379 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -20807 397 metro 10; #X obj -20807 418 snapshot~; #X floatatom -20807 438 5 0 0 0 - - -; #X obj -21107 416 loadbang; #X obj -21107 437 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -21107 455 metro 10; #X obj -21107 476 snapshot~; #X floatatom -21107 496 5 0 0 0 - - -; #X obj -20771 448 loadbang; #X obj -20771 469 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -20771 487 metro 10; #X obj -20771 508 snapshot~; #X floatatom -20771 528 5 0 0 0 - - -; #X msg -20825 335 0; #X obj -20788 316 t f b; #X msg -20788 296 0; #X msg -20788 276 1; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 25 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 8 0 29 0; #X connect 8 0 44 0; #X connect 9 0 27 0; #X connect 11 0 28 0; #X connect 14 0 3 0; #X connect 15 0 2 0; #X connect 15 0 2 1; #X connect 16 0 14 0; #X connect 17 0 4 1; #X connect 18 0 6 0; #X connect 18 0 6 1; #X connect 23 0 24 0; #X connect 23 0 24 1; #X connect 24 0 25 1; #X connect 25 0 8 0; #X connect 27 0 19 0; #X connect 28 0 20 0; #X connect 30 0 49 1; #X connect 33 0 36 0; #X connect 34 0 38 0; #X connect 35 0 41 0; #X connect 35 0 46 0; #X connect 35 0 53 0; #X connect 36 0 35 0; #X connect 37 0 35 1; #X connect 38 0 37 0; #X connect 41 0 42 0; #X connect 42 0 43 0; #X connect 43 0 45 0; #X connect 43 0 45 1; #X connect 44 0 9 0; #X connect 45 0 44 1; #X connect 45 0 58 0; #X connect 46 0 47 0; #X connect 47 0 48 0; #X connect 47 0 48 1; #X connect 48 0 49 0; #X connect 48 0 63 0; #X connect 49 0 11 0; #X connect 50 0 51 0; #X connect 51 0 52 0; #X connect 52 0 53 0; #X connect 53 0 54 0; #X connect 55 0 56 0; #X connect 56 0 57 0; #X connect 57 0 58 0; #X connect 58 0 59 0; #X connect 60 0 61 0; #X connect 61 0 62 0; #X connect 62 0 63 0; #X connect 63 0 64 0; #X connect 65 0 37 0; #X connect 66 0 38 1; #X connect 66 1 65 0; #X connect 67 0 66 0; #X connect 68 0 38 1; #X restore 324 457 pd noiseGain; #X obj 358 367 r \$0-diameter; #N canvas 607 75 743 677 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 250 156 inlet; #X obj 250 180 *; #X text 288 151 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 337 angleCalc~; #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 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 27 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 29 0; #X connect 9 0 52 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 25 0; #X connect 24 0 25 1; #X connect 25 0 27 1; #X connect 27 0 9 0; #X connect 30 0 56 1; #X connect 33 0 36 0; #X connect 34 0 38 0; #X connect 35 0 48 0; #X connect 35 0 53 0; #X connect 35 0 57 0; #X connect 36 0 35 0; #X connect 37 0 35 1; #X connect 38 0 37 0; #X connect 41 0 42 0; #X connect 42 0 43 0; #X connect 43 0 57 0; #X connect 44 0 37 0; #X connect 45 0 38 1; #X connect 45 1 44 0; #X connect 46 0 45 0; #X connect 47 0 38 1; #X connect 48 0 49 0; #X connect 49 0 50 0; #X connect 50 0 51 0; #X connect 50 0 51 1; #X connect 51 0 52 1; #X connect 51 0 67 0; #X connect 52 0 10 0; #X connect 53 0 54 0; #X connect 54 0 55 0; #X connect 54 0 55 1; #X connect 55 0 56 0; #X connect 55 0 62 0; #X connect 56 0 12 0; #X connect 57 0 58 0; #X connect 59 0 60 0; #X connect 60 0 61 0; #X connect 61 0 62 0; #X connect 62 0 63 0; #X connect 64 0 65 0; #X connect 65 0 66 0; #X connect 66 0 67 0; #X connect 67 0 68 0; #X restore 321 162 pd freqGain; #X obj 479 -64 inlet; #X obj 352 79 r \$0-diameter; #X obj 553 -65 inlet; #X floatatom 407 -16 5 0 0 0 - - -; #X floatatom 479 -18 5 0 0 0 - - -; #X floatatom 554 -21 5 0 0 0 - - -; #X obj 102 292 outlet; #X obj 1055 39 hip~; #X obj 146 265 snapshot~; #X obj 146 218 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 146 192 loadbang; #X obj 146 240 metro 10; #X obj 1063 420 hip~; #X obj 67 242 r~ \$0-myFreq; #X obj 1084 367 * 2; #X text 153 491 Strouhal Number; #X text 311 223 Calculates the gain of the dipole source; #X text 315 521 Calculates the gain of the source; #X text 545 -84 Azimuth; #X text 660 -85 Pan; #X text 473 -83 Elevation; #X text 403 -82 Distance; #X text 237 -82 Diameter; #X text 152 -83 Wind Speed; #X obj 334 -64 inlet; #X floatatom 334 -20 5 0 0 0 - - -; #X text 330 -83 Length; #X obj 856 133 newStrou; #X floatatom 102 -25 5 0 0 0 - - -; #X floatatom 242 -17 5 0 0 0 - - -; #X obj 1181 -10 +~ 30; #X obj 1189 350 +~ 30; #X obj 1132 241 throw~ l; #X obj 1159 219 throw~ r; #X obj 1132 197 fcpan; #X obj 1140 579 throw~ l; #X obj 1167 557 throw~ r; #X obj 1140 533 fcpan; #X obj 344 -41 s \$0-leng; #X obj 412 -40 s \$0-dist; #X obj 486 -42 s \$0-elev; #X obj 561 -42 s \$0-azim; #X obj 321 19 r~ \$0-str; #X obj 342 59 r \$0-leng; #X obj 363 99 r \$0-azim; #X obj 373 120 r \$0-elev; #X obj 384 141 r \$0-dist; #X obj 384 186 s~ \$0-dragDiGain; #X obj 321 206 s~ \$0-liftDiGain; #X obj 324 299 r~ \$0-str; #X obj 347 343 r \$0-leng; #X obj 381 410 r \$0-elev; #X obj 370 387 r \$0-azim; #X obj 393 433 r \$0-dist; #X obj 393 480 s~ \$0-dragNoiseGain; #X obj 324 502 s~ \$0-liftNoiseGain; #X obj 674 235 r~ \$0-dragDiGain; #X obj 750 163 s~ \$0-str; #X obj 894 237 r~ \$0-liftDiGain; #X obj 868 310 r \$0-thisPan; #X obj 655 2 s \$0-thisPan; #X obj 1076 16 r \$0-contFreq; #X obj 146 292 s \$0-contFreq; #X obj 69 411 r~ \$0-str; #X obj 1147 84 r~ \$0-liftNoiseGain; #X obj 1159 178 r \$0-thisPan; #X obj 1084 344 r \$0-contFreq; #X obj 1155 443 r~ \$0-dragNoiseGain; #X obj 1167 513 r \$0-thisPan; #X connect 4 0 16 0; #X connect 5 0 7 0; #X connect 6 0 43 0; #X connect 6 0 115 0; #X connect 7 0 6 0; #X connect 8 0 11 0; #X connect 10 0 8 0; #X connect 11 0 4 0; #X connect 11 0 29 0; #X connect 12 0 22 0; #X connect 12 0 117 0; #X connect 15 0 91 0; #X connect 15 0 127 0; #X connect 16 0 21 1; #X connect 18 0 19 0; #X connect 19 0 20 0; #X connect 20 0 21 0; #X connect 21 0 61 0; #X connect 23 0 7 1; #X connect 24 0 8 1; #X connect 26 0 87 1; #X connect 27 0 10 1; #X connect 28 0 5 0; #X connect 30 0 18 0; #X connect 31 0 32 0; #X connect 32 0 25 0; #X connect 33 0 31 0; #X connect 33 0 116 0; #X connect 34 0 59 1; #X connect 35 0 95 0; #X connect 36 0 122 0; #X connect 37 0 40 0; #X connect 38 0 37 0; #X connect 39 0 38 0; #X connect 41 0 39 0; #X connect 42 0 37 0; #X connect 44 0 45 0; #X connect 44 0 59 2; #X connect 46 0 47 0; #X connect 47 0 68 0; #X connect 48 0 67 0; #X connect 49 0 57 0; #X connect 50 0 100 0; #X connect 51 0 125 0; #X connect 52 0 53 0; #X connect 52 0 60 2; #X connect 54 0 55 0; #X connect 55 0 69 0; #X connect 56 0 66 0; #X connect 57 0 60 1; #X connect 59 0 36 0; #X connect 60 0 51 0; #X connect 61 0 2 0; #X connect 61 1 3 0; #X connect 62 0 36 1; #X connect 63 0 51 1; #X connect 64 0 52 0; #X connect 65 0 44 0; #X connect 66 0 119 0; #X connect 67 0 118 0; #X connect 68 0 44 0; #X connect 69 0 52 0; #X connect 70 0 72 0; #X connect 72 0 73 0; #X connect 73 0 71 0; #X connect 73 0 148 0; #X connect 79 0 85 1; #X connect 80 0 83 0; #X connect 81 0 80 0; #X connect 82 0 81 0; #X connect 84 0 82 0; #X connect 85 0 143 0; #X connect 85 1 142 0; #X connect 86 0 85 3; #X connect 87 0 136 0; #X connect 87 1 135 0; #X connect 88 0 92 0; #X connect 88 0 128 0; #X connect 89 0 87 3; #X connect 90 0 93 0; #X connect 90 0 129 0; #X connect 95 0 59 0; #X connect 96 0 94 0; #X connect 96 0 9 0; #X connect 96 0 150 0; #X connect 97 0 99 0; #X connect 98 0 97 0; #X connect 99 0 96 0; #X connect 100 0 60 0; #X connect 101 0 96 0; #X connect 102 0 100 1; #X connect 112 0 113 0; #X connect 112 0 126 0; #X connect 115 0 10 0; #X connect 115 0 145 0; #X connect 118 0 65 0; #X connect 119 0 64 0; #X connect 122 0 120 0; #X connect 122 1 121 0; #X connect 125 0 123 0; #X connect 125 1 124 0; #X connect 130 0 87 0; #X connect 131 0 87 2; #X connect 132 0 87 4; #X connect 133 0 87 5; #X connect 134 0 87 6; #X connect 137 0 85 0; #X connect 138 0 85 2; #X connect 139 0 85 5; #X connect 140 0 85 4; #X connect 141 0 85 6; #X connect 144 0 20 1; #X connect 146 0 16 1; #X connect 147 0 61 1; #X connect 149 0 95 1; #X connect 151 0 80 0; #X connect 152 0 62 0; #X connect 153 0 122 1; #X connect 154 0 102 0; #X connect 155 0 63 0; #X connect 156 0 125 1;