Mercurial > hg > weather-synthesis-prototyping
view June/freq3DChoD1.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 | 3ab0b1939d2e |
| children |
line wrap: on
line source
#N canvas 88 44 1247 757 10; #X text 125 140 Frequency (Hz); #X obj 288 616 throw~ l; #X obj 315 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 288 572 fcpan; #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 515 100 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 -20890 352 cos; #X obj -20890 307 / 360; #X floatatom -20863 403 8 0 0 0 - - -; #X obj -20890 376 *; #X obj -20911 435 *~ 0.27; #X obj -20890 329 * 6.28319; #X obj -21000 282 + 90; #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 -20942 229 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 7425 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 4950 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 -20942 252 pd angleCalc; #X obj -20951 117 inlet; #X obj -20951 142 *; #X obj -21022 167 *~ 1; #X text -20953 99 Length; #X obj -21000 305 / 360; #X obj -21000 351 cos; #X obj -21000 375 *; #X obj -21000 328 * 6.28319; #X obj -21021 397 *~ 1; #X obj -20911 411 *~ 1; #X text -20848 459 Need for scienctific reasoning here!; #X text -21239 441 Need for scienctific reasoning here!; #X obj -21021 444 *~ 0.02; #X obj -20911 460 *~ 0.002; #X obj -20859 92 inlet~; #X obj -20859 118 *~; #X obj -20859 141 *~ 118033; #X obj -21022 193 /~; #X connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 34 0; #X connect 6 0 44 0; #X connect 8 0 11 0; #X connect 8 0 11 1; #X connect 9 0 13 0; #X connect 11 0 10 0; #X connect 11 0 41 1; #X connect 12 0 45 0; #X connect 13 0 8 0; #X connect 14 0 36 0; #X connect 17 0 3 0; #X connect 19 0 41 0; #X connect 20 0 2 0; #X connect 20 0 2 1; #X connect 21 0 17 0; #X connect 22 0 4 1; #X connect 23 0 31 0; #X connect 24 0 31 1; #X connect 31 0 14 0; #X connect 31 0 9 0; #X connect 32 0 33 0; #X connect 32 0 33 1; #X connect 33 0 34 1; #X connect 34 0 49 0; #X connect 36 0 39 0; #X connect 37 0 38 0; #X connect 37 0 38 1; #X connect 38 0 40 1; #X connect 39 0 37 0; #X connect 40 0 6 0; #X connect 41 0 12 0; #X connect 44 0 25 0; #X connect 45 0 26 0; #X connect 46 0 47 0; #X connect 46 0 47 1; #X connect 47 0 48 0; #X connect 48 0 49 1; #X connect 49 0 18 0; #X connect 49 0 40 0; #X restore 552 336 pd noiseGain; #X obj 575 228 r \$0-diameter; #X obj 609 290 r \$0_azim; #X obj 598 269 r \$0_elev; #X obj 552 381 s~ \$0_liftNoiseGain; #X obj 621 359 s~ \$0_dragNoiseGain; #N canvas 576 101 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 419 420 cos; #X obj 419 375 / 360; #X floatatom 446 466 8 0 0 0 - - -; #X obj 419 444 *; #X obj 398 491 *~ 0.27; #X obj 236 269 s~ \$0-a; #X obj 357 441 r~ \$0-a; #X obj 419 397 * 6.28319; #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 365 297 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 365 276 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 240 388 / 360; #X obj 240 434 cos; #X obj 240 458 *; #X obj 240 411 * 6.28319; #X obj 398 467 *~ 1; #X obj 219 481 *~ 1; #X obj 305 247 arccos; #X obj 305 223 r sigMac; #X obj 240 362 +; #X obj 305 269 t f b; #X obj 240 323 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 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 33 0; #X connect 7 0 29 0; #X connect 10 0 13 0; #X connect 10 0 13 1; #X connect 11 0 17 0; #X connect 13 0 12 0; #X connect 13 0 39 1; #X connect 14 0 22 0; #X connect 16 0 39 0; #X connect 17 0 10 0; #X connect 18 0 11 0; #X connect 18 0 43 0; #X connect 22 0 30 0; #X connect 23 0 3 0; #X connect 23 0 3 1; #X connect 24 0 2 0; #X connect 26 0 5 1; #X connect 27 0 18 0; #X connect 28 0 18 1; #X connect 31 0 32 0; #X connect 31 0 32 1; #X connect 32 0 33 1; #X connect 33 0 50 0; #X connect 35 0 38 0; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 40 1; #X connect 38 0 36 0; #X connect 39 0 14 0; #X connect 40 0 7 0; #X connect 41 0 44 0; #X connect 42 0 41 0; #X connect 43 0 35 0; #X connect 44 0 43 1; #X connect 44 1 45 0; #X connect 45 0 43 0; #X connect 47 0 48 1; #X connect 47 0 48 0; #X connect 48 0 49 0; #X connect 49 0 50 1; #X connect 50 0 15 0; #X connect 50 0 40 0; #X restore 556 78 pd freqGain; #X obj 577 -31 r \$0-diameter; #X obj 598 14 r \$0_azim; #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 340 -101 inlet; #X obj 340 -79 s \$0_azim; #X obj 840 41 r~ \$0-myFreq; #X obj 806 -9 noise~; #X obj 883 225 throw~ l; #X obj 910 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 918 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 883 181 fcpan; #X obj 891 534 fcpan; #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 940 324 *~ -0.003; #X obj 932 -36 *~ -0.003; #X obj 932 -11 +~ 20; #X obj 940 349 +~ 20; #X obj 1021 17 metro 10; #X obj 1029 377 metro 10; #X obj 910 157 r \$0_thisPan; #X obj 918 512 r \$0_thisPan; #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 330 -37 r \$0_azim; #X obj 330 -15 / 180; #X obj 330 6 + 0.5; #X obj 330 29 abs; #X obj 330 51 s \$0_thisPan; #X obj 315 550 r \$0_thisPan; #X obj 270 -78 s~ \$0_dist; #X obj 270 -100 inlet~; #X obj 619 57 r~ \$0_dist; #X obj 621 312 r~ \$0_dist; #X connect 3 0 5 0; #X connect 3 0 7 0; #X connect 4 0 22 0; #X connect 6 0 10 0; #X connect 8 0 4 0; #X connect 9 0 21 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 1 0; #X connect 21 1 2 0; #X connect 22 0 3 0; #X connect 24 0 34 0; #X connect 25 0 27 0; #X connect 26 0 29 1; #X connect 26 0 48 0; #X connect 27 0 26 0; #X connect 28 0 31 0; #X connect 29 0 53 0; #X connect 30 0 28 0; #X connect 31 0 24 0; #X connect 31 0 45 0; #X connect 34 0 9 1; #X connect 36 0 37 0; #X connect 37 0 38 0; #X connect 38 0 9 0; #X connect 39 0 27 1; #X connect 40 0 28 1; #X connect 41 0 30 1; #X connect 42 0 25 0; #X connect 44 0 38 1; #X connect 46 0 36 0; #X connect 47 0 34 1; #X connect 52 0 29 0; #X connect 53 0 54 0; #X connect 54 0 56 1; #X connect 55 0 56 0; #X connect 56 0 43 0; #X connect 56 0 30 0; #X connect 57 0 67 1; #X connect 58 0 67 0; #X connect 59 0 61 1; #X connect 60 0 61 0; #X connect 61 0 65 0; #X connect 61 1 66 0; #X connect 62 0 61 2; #X connect 63 0 61 5; #X connect 64 0 61 4; #X connect 67 0 72 0; #X connect 67 1 71 0; #X connect 68 0 67 2; #X connect 69 0 67 4; #X connect 70 0 67 5; #X connect 75 0 67 3; #X connect 76 0 61 3; #X connect 77 0 78 0; #X connect 79 0 80 0; #X connect 81 0 102 1; #X connect 82 0 122 0; #X connect 85 0 104 0; #X connect 86 0 87 0; #X connect 86 0 102 2; #X connect 88 0 89 0; #X connect 89 0 114 0; #X connect 90 0 111 0; #X connect 91 0 101 0; #X connect 92 0 123 0; #X connect 95 0 105 0; #X connect 96 0 97 0; #X connect 96 0 103 2; #X connect 98 0 99 0; #X connect 99 0 115 0; #X connect 100 0 110 0; #X connect 101 0 103 1; #X connect 102 0 85 0; #X connect 103 0 95 0; #X connect 104 0 83 0; #X connect 104 1 84 0; #X connect 105 0 93 0; #X connect 105 1 94 0; #X connect 106 0 85 1; #X connect 107 0 95 1; #X connect 108 0 96 0; #X connect 109 0 86 0; #X connect 110 0 113 0; #X connect 111 0 112 0; #X connect 112 0 109 0; #X connect 113 0 108 0; #X connect 114 0 86 0; #X connect 115 0 96 0; #X connect 116 0 104 1; #X connect 117 0 105 1; #X connect 120 0 107 0; #X connect 121 0 106 0; #X connect 122 0 102 0; #X connect 123 0 103 0; #X connect 124 0 122 1; #X connect 125 0 126 0; #X connect 126 0 123 1; #X connect 127 0 128 0; #X connect 128 0 129 0; #X connect 129 0 130 0; #X connect 130 0 131 0; #X connect 132 0 21 1; #X connect 134 0 133 0; #X connect 135 0 67 6; #X connect 136 0 61 6;