Mercurial > hg > weather-synthesis-prototyping
view SwordSounds/woSoFreqD2.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 | 17d7696c19c5 |
| children |
line wrap: on
line source
#N canvas 175 90 1319 828 10; #X text 125 140 Frequency (Hz); #X obj 288 616 throw~ l; #X obj 321 597 throw~ r; #X obj 135 89 snapshot~; #X obj 135 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 135 115 10 0 0 0 - - -; #X obj 185 -100 inlet; #X obj 215 114 outlet; #X obj 135 16 loadbang; #X obj 288 529 +~; #X obj 185 -77 s \$0-diameter; #X obj 85 -77 s~ \$0-windSpeed; #X obj 49 64 r~ \$0-myFreq; #X obj 554 551 snapshot~; #X obj 554 526 metro 100; #X obj 554 504 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 554 577 10 0 0 0 - - -; #X obj 554 478 loadbang; #X obj 468 526 r~ \$0-myRey; #X text 539 599 Reynolds Number; #X obj 85 -100 inlet~; #X obj 135 64 metro 10; #X text 211 172 Mass Density of Air; #X obj 303 474 osc~; #X obj 333 173 *~ 1.225; #X obj 333 248 /~ 1.81e-05; #X obj 333 203 *~ 1; #X obj 303 423 /~ 1; #X obj 318 291 /~; #X obj 303 399 *~; #X obj 303 448 clip~ 0 20000; #X text 174 241 Reynolds Number; #X text 187 415 Strouhal Number; #X obj 303 504 *~; #X text 363 228 Viscosity; #X obj 67 425 *~ 2; #X obj 67 452 osc~; #X obj 67 474 *~; #X obj 394 172 r \$0-diameter; #X obj 383 372 r \$0-diameter; #X obj 382 341 r~ \$0-windSpeed; #X obj 333 145 r~ \$0-windSpeed; #X obj 238 398 s~ \$0_str; #X obj 100 452 r~ \$0_dragDiGain; #X obj 218 474 s~ \$0-myFreq; #X obj 67 404 r~ \$0-myFreq; #X obj 341 474 r~ \$0_liftDiGain; #X obj 346 272 s~ \$0-myRey; #X text 54 287 Calculates the frequency; #X text 54 300 based on the physics of; #X text 55 313 the object and environment; #X obj 284 252 sig~ 1; #X obj 318 317 sqrt~; #X obj 318 342 *~ 1.0356; #X obj 244 333 sig~ 0.2684; #X obj 303 372 -~; #X obj 566 -52 r~ \$0-windSpeed; #X obj 556 -73 r~ \$0_str; #X obj 563 207 r~ \$0-windSpeed; #X obj 552 184 r~ \$0_str; #N canvas 790 279 622 660 noiseGain 0; #X text -21205 129 Mass Density of Air \, squared; #X text -20857 164 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 -21021 422 *~ 0.27; #X text -20859 71 Distance; #X obj -20911 435 *~ 0.27; #X obj -20822 335 * 6.28319; #X text -20895 510 Calculates Drag Dipole gain; #X text -21175 486 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 -21005 222 s~ \$0-c; #X obj -20948 385 r~ \$0-c; #X obj -21070 7 inlet~; #X obj -21022 7 inlet~; #X obj -20989 55 inlet; #X obj -20873 229 inlet; #X obj -21021 465 outlet~; #X obj -20911 485 outlet~; #X text -20947 211 Azimuth; #X text -20871 210 Elevation; #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum ; #X text -20981 74 Diameter; #N canvas 1567 153 479 552 angleCalc 0; #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 287 77 Elevation Angle; #X obj 236 118 / 360; #X obj 236 140 * 6.28319; #X obj 164 80 / 360; #X obj 164 102 * 6.28319; #X floatatom 49 106 5 0 0 0 - - -; #X floatatom 304 140 5 0 0 0 - - -; #X obj 278 443 * 360; #X floatatom 325 494 5 0 0 0 - - -; #X obj 278 467 / 6.28319; #X obj 236 235 *; #X obj 236 267 swap 1; #X obj 236 300 -; #X obj 236 329 sqrt; #X obj 278 360 /; #X obj 278 388 atan; #X obj 278 414 * 2; #X text 318 296 Arccos of angle; #X obj 293 236 + 1; #X obj 164 126 cos; #X obj 236 171 cos; #X obj 236 205 *; #X obj 164 149 t f b; #X obj 162 174 delay 9; #X obj 278 494 outlet; #X obj 236 90 inlet; #X obj 164 57 inlet; #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 56 42 Azimuth Angle; #X connect 0 0 7 0; #X connect 2 0 3 0; #X connect 3 0 21 0; #X connect 4 0 5 0; #X connect 5 0 20 0; #X connect 8 0 10 0; #X connect 10 0 9 0; #X connect 10 0 25 0; #X connect 11 0 12 0; #X connect 12 0 13 0; #X connect 12 1 13 1; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 8 0; #X connect 19 0 15 1; #X connect 20 0 23 0; #X connect 21 0 22 0; #X connect 22 0 11 0; #X connect 22 0 11 1; #X connect 22 0 19 0; #X connect 23 0 22 1; #X connect 23 1 24 0; #X connect 24 0 22 0; #X connect 26 0 2 0; #X connect 26 0 0 0; #X connect 27 0 4 0; #X connect 27 0 28 0; #X connect 28 0 6 0; #X restore -20847 270 pd angleCalc; #X obj -20951 117 inlet; #X obj -20951 142 *; #X obj -21022 167 *~ 1; #X text -20953 99 Length; #X text -20848 459 Need for scienctific reasoning here!; #X text -21239 441 Need for scienctific reasoning here!; #X obj -20859 92 inlet~; #X obj -20942 229 inlet~; #X obj -21000 282 +~ 90; #X obj -21000 305 /~ 360; #X obj -21000 351 cos~; #X obj -21000 375 *~; #X obj -21021 397 *~; #X obj -20890 307 /~ 360; #X obj -20890 352 cos~; #X obj -20890 376 *~; #X obj -20911 411 *~; #X obj -20859 118 *~; #X obj -20859 141 *~ 118033; #X obj -21022 193 /~; #X obj -21021 444 *~ 0.01; #X obj -20911 460 *~ 0.001; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 28 0; #X connect 6 0 46 0; #X connect 8 0 47 0; #X connect 12 0 3 0; #X connect 14 0 42 0; #X connect 15 0 2 0; #X connect 15 0 2 1; #X connect 16 0 12 0; #X connect 17 0 4 1; #X connect 18 0 25 1; #X connect 26 0 27 0; #X connect 26 0 27 1; #X connect 27 0 28 1; #X connect 28 0 45 0; #X connect 32 0 43 0; #X connect 32 0 43 1; #X connect 33 0 34 0; #X connect 33 0 39 0; #X connect 34 0 35 0; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 38 1; #X connect 38 0 6 0; #X connect 39 0 40 0; #X connect 40 0 41 0; #X connect 40 0 41 1; #X connect 41 0 42 1; #X connect 42 0 8 0; #X connect 43 0 44 0; #X connect 44 0 45 1; #X connect 45 0 13 0; #X connect 45 0 38 0; #X connect 46 0 19 0; #X connect 47 0 20 0; #X restore 552 336 pd noiseGain; #X obj 575 228 r \$0-diameter; #X obj 609 291 r \$0_elev; #X obj 552 381 s~ \$0_liftNoiseGain; #X obj 621 359 s~ \$0_dragNoiseGain; #N canvas 242 208 702 650 freqGain 0; #X text 36 127 Mass Density of Air \, squared; #X text 508 93 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 219 506 *~ 0.27; #X text 380 261 Azimuth; #X text 497 1 Distance; #X obj 398 491 *~ 0.27; #X obj 236 269 s~ \$0-a; #X obj 357 441 r~ \$0-a; #N canvas 131 175 477 312 angleCalc 0; #X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 233 6 Elevation Angle; #X obj 242 59 / 360; #X obj 242 81 * 6.28319; #X obj 170 21 / 360; #X obj 170 43 * 6.28319; #X floatatom 50 22 5 0 0 0 - - -; #X floatatom 294 57 5 0 0 0 - - -; #X floatatom 204 196 5 0 0 0 - - -; #X obj 170 67 cos; #X obj 242 112 cos; #X obj 242 146 *; #X obj 170 90 t f b; #X obj 168 115 delay 9; #X obj 242 197 outlet; #X obj 242 31 inlet; #X obj 170 -6 inlet; #X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X text 136 -30 Azimuth Angle; #X obj 242 172 arccos; #X connect 0 0 7 0; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 10 0; #X connect 4 0 5 0; #X connect 5 0 9 0; #X connect 9 0 12 0; #X connect 10 0 11 0; #X connect 11 0 19 0; #X connect 12 0 11 1; #X connect 12 1 13 0; #X connect 13 0 11 0; #X connect 15 0 2 0; #X connect 16 0 4 0; #X connect 17 0 6 0; #X connect 17 0 4 0; #X connect 19 0 14 0; #X connect 19 0 8 0; #X restore 424 302 pd angleCalc; #X text 451 260 Elevation; #X text 476 498 Calculates Drag Dipole gain; #X text 48 445 Calculates Lift Dipole gain; #X obj 398 516 *~ 0.1; #X obj 173 8 inlet~; #X obj 219 7 inlet~; #X text 256 54 Diameter; #X obj 250 69 inlet; #X obj 434 275 inlet; #X obj 219 530 outlet~; #X obj 398 541 outlet~; #X obj 297 125 inlet; #X obj 297 149 *; #X obj 219 193 *~ 1; #X text 292 106 Length; #X obj 305 247 arccos; #X obj 305 223 r sigMac; #X obj 240 337 +; #X obj 305 269 t f b; #X obj 240 298 delay 9; #X text 309 203 Replicates Doppler effect; #X obj 506 20 inlet~; #X obj 506 45 *~; #X obj 506 70 *~ 118033; #X obj 219 240 /~; #X obj 365 276 inlet~; #X obj 240 388 /~ 360; #X obj 304 385 *~ 6.28319; #X obj 240 434 cos~; #X obj 240 458 *~; #X obj 219 481 *~; #X obj 419 375 /~ 360; #X obj 419 420 cos~; #X obj 419 444 *~; #X obj 398 467 *~; #X obj 320 324 +~ 90; #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 23 0; #X connect 10 0 17 0; #X connect 12 0 48 0; #X connect 17 0 24 0; #X connect 18 0 3 0; #X connect 18 0 3 1; #X connect 19 0 2 0; #X connect 21 0 5 1; #X connect 22 0 13 1; #X connect 25 0 26 0; #X connect 25 0 26 1; #X connect 26 0 27 1; #X connect 27 0 38 0; #X connect 29 0 32 0; #X connect 30 0 29 0; #X connect 32 0 31 1; #X connect 32 1 33 0; #X connect 33 0 31 0; #X connect 35 0 36 1; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 38 1; #X connect 38 0 11 0; #X connect 38 0 44 0; #X connect 39 0 45 0; #X connect 39 0 49 0; #X connect 40 0 42 0; #X connect 42 0 43 0; #X connect 42 0 43 1; #X connect 43 0 44 1; #X connect 44 0 7 0; #X connect 45 0 46 0; #X connect 46 0 47 0; #X connect 46 0 47 1; #X connect 47 0 48 1; #X connect 48 0 10 0; #X connect 49 0 40 0; #X restore 556 78 pd freqGain; #X obj 577 -31 r \$0-diameter; #X obj 608 35 r \$0_elev; #X obj 619 102 s~ \$0_dragDiGain; #X obj 556 122 s~ \$0_liftDiGain; #X text 546 139 Calculates the gain of the dipole source; #X text 543 400 Calculates the gain of the source; #X obj 587 -8 r length; #X obj 586 249 r length; #X obj 422 -100 inlet; #X obj 422 -78 s \$0_elev; #X obj 840 41 r~ \$0-myFreq; #X obj 806 -9 noise~; #X obj 883 225 throw~ l; #X obj 916 204 throw~ r; #X obj 883 132 *~; #X obj 1021 42 snapshot~; #X floatatom 1021 68 10 0 0 0 - - -; #X obj 1021 -31 loadbang; #X obj 1021 -6 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 932 -60 r~ \$0-myRey; #X obj 848 393 r~ \$0-myFreq; #X obj 814 322 noise~; #X obj 891 582 throw~ l; #X obj 924 559 throw~ r; #X obj 891 490 *~; #X obj 1029 402 snapshot~; #X floatatom 1029 428 10 0 0 0 - - -; #X obj 1029 329 loadbang; #X obj 1029 354 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 940 300 r~ \$0-myRey; #X obj 848 419 *~ 2; #X obj 806 84 vcf~ 1000 10; #X obj 814 444 vcf~ 1000 10; #X obj 898 105 *~ 1; #X obj 906 465 *~ 1; #X obj 940 375 clip~ 2 400; #X obj 932 15 clip~ 2 400; #X obj 1021 17 metro 10; #X obj 1029 377 metro 10; #X text 942 478 Drag Dipole spectrum calculation; #X text 937 122 Lift Dipole spectrum calculation; #X obj 906 442 r~ \$0_dragNoiseGain; #X obj 898 63 r~ \$0_liftNoiseGain; #X obj 806 38 hip~; #X obj 814 419 hip~; #X obj 827 15 r \$0_contFreq; #X obj 835 343 r \$0_contFreq; #X obj 835 366 * 2; #X obj 754 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X obj 754 -37 s GO; #X obj 694 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; #X obj 694 -37 s setUp; #X obj 270 -100 inlet~; #X obj 340 -101 inlet~; #X obj 270 -78 s~ \$0_dist; #X obj 340 -79 s~ \$0_azim; #X obj 330 -37 r~ \$0_azim; #X obj 330 6 +~ 0.5; #X obj 330 28 s~ \$0_thisPan; #X obj 924 512 r~ \$0_thisPan; #X obj 321 550 r~ \$0_thisPan; #X obj 619 57 r~ \$0_dist; #X obj 598 14 r~ \$0_azim; #X obj 330 -15 /~ 360; #X obj 916 157 r~ \$0_thisPan; #X obj 288 572 fcpan~; #X obj 891 534 fcpan~; #X obj 883 181 fcpan~; #X obj 621 312 r~ \$0_dist; #X obj 598 270 r~ \$0_azim; #X obj 932 -11 +~ 40; #X obj 940 349 +~ 40; #X obj 932 -36 *~ -0.002; #X obj 940 324 *~ -0.002; #X connect 3 0 5 0; #X connect 3 0 7 0; #X connect 4 0 21 0; #X connect 6 0 10 0; #X connect 8 0 4 0; #X connect 9 0 131 0; #X connect 12 0 3 0; #X connect 13 0 16 0; #X connect 14 0 13 0; #X connect 15 0 14 0; #X connect 17 0 15 0; #X connect 18 0 13 0; #X connect 20 0 11 0; #X connect 21 0 3 0; #X connect 23 0 33 0; #X connect 24 0 26 0; #X connect 25 0 28 1; #X connect 25 0 47 0; #X connect 26 0 25 0; #X connect 27 0 30 0; #X connect 28 0 52 0; #X connect 29 0 27 0; #X connect 30 0 23 0; #X connect 30 0 44 0; #X connect 33 0 9 1; #X connect 35 0 36 0; #X connect 36 0 37 0; #X connect 37 0 9 0; #X connect 38 0 26 1; #X connect 39 0 27 1; #X connect 40 0 29 1; #X connect 41 0 24 0; #X connect 43 0 37 1; #X connect 45 0 35 0; #X connect 46 0 33 1; #X connect 51 0 28 0; #X connect 52 0 53 0; #X connect 53 0 55 1; #X connect 54 0 55 0; #X connect 55 0 42 0; #X connect 55 0 29 0; #X connect 56 0 65 1; #X connect 57 0 65 0; #X connect 58 0 60 1; #X connect 59 0 60 0; #X connect 60 0 63 0; #X connect 60 1 64 0; #X connect 61 0 60 2; #X connect 62 0 60 5; #X connect 65 0 69 0; #X connect 65 1 68 0; #X connect 66 0 65 2; #X connect 67 0 65 5; #X connect 72 0 65 3; #X connect 73 0 60 3; #X connect 74 0 75 0; #X connect 76 0 97 1; #X connect 77 0 109 0; #X connect 80 0 133 0; #X connect 81 0 82 0; #X connect 81 0 97 2; #X connect 83 0 84 0; #X connect 84 0 103 0; #X connect 85 0 138 0; #X connect 86 0 96 0; #X connect 87 0 110 0; #X connect 90 0 132 0; #X connect 91 0 92 0; #X connect 91 0 98 2; #X connect 93 0 94 0; #X connect 94 0 104 0; #X connect 95 0 139 0; #X connect 96 0 98 1; #X connect 97 0 80 0; #X connect 98 0 90 0; #X connect 99 0 80 1; #X connect 100 0 90 1; #X connect 101 0 91 0; #X connect 102 0 81 0; #X connect 103 0 81 0; #X connect 104 0 91 0; #X connect 107 0 100 0; #X connect 108 0 99 0; #X connect 109 0 97 0; #X connect 110 0 98 0; #X connect 111 0 109 1; #X connect 112 0 113 0; #X connect 113 0 110 1; #X connect 114 0 115 0; #X connect 116 0 117 0; #X connect 118 0 120 0; #X connect 119 0 121 0; #X connect 122 0 129 0; #X connect 123 0 124 0; #X connect 125 0 132 1; #X connect 126 0 131 1; #X connect 127 0 65 6; #X connect 128 0 65 4; #X connect 129 0 123 0; #X connect 130 0 133 1; #X connect 131 0 1 0; #X connect 131 1 2 0; #X connect 132 0 88 0; #X connect 132 1 89 0; #X connect 133 0 78 0; #X connect 133 1 79 0; #X connect 134 0 60 6; #X connect 135 0 60 4; #X connect 136 0 102 0; #X connect 137 0 101 0; #X connect 138 0 136 0; #X connect 139 0 137 0;