Mercurial > hg > weather-synthesis-prototyping
view June/woSoFreq.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 | 9fbf39788338 |
| children |
line wrap: on
line source
#N canvas 47 23 1236 817 10; #X text 115 130 Frequency (Hz); #X obj 278 606 throw~ l; #X obj 305 587 throw~ r; #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 175 -110 inlet; #X obj 205 104 outlet; #X obj 125 6 loadbang; #X obj 278 519 +~; #X obj 175 -87 s \$0-diameter; #X obj 75 -87 s~ \$0-windSpeed; #X obj 39 54 r~ \$0-myFreq; #X obj 544 541 snapshot~; #X obj 544 516 metro 100; #X obj 544 494 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 544 567 10 0 0 0 - - -; #X obj 544 468 loadbang; #X obj 458 516 r~ \$0-myRey; #X text 529 589 Reynolds Number; #X obj 75 -110 inlet~; #X obj 278 562 fcpan; #X obj 125 54 metro 10; #X text 201 162 Mass Density of Air; #X obj 293 464 osc~; #X obj 323 163 *~ 1.225; #X obj 323 238 /~ 1.81e-05; #X obj 323 193 *~ 1; #X obj 293 413 /~ 1; #X obj 308 281 /~; #X obj 293 389 *~; #X obj 293 438 clip~ 0 20000; #X text 164 231 Reynolds Number; #X text 177 405 Strouhal Number; #X obj 293 494 *~; #X text 353 218 Viscosity; #X obj 57 415 *~ 2; #X obj 57 442 osc~; #X obj 57 464 *~; #X obj 384 162 r \$0-diameter; #X obj 373 362 r \$0-diameter; #X obj 372 331 r~ \$0-windSpeed; #X obj 323 135 r~ \$0-windSpeed; #X obj 228 388 s~ \$0_str; #X obj 90 442 r~ \$0_dragDiGain; #X obj 208 464 s~ \$0-myFreq; #X obj 57 394 r~ \$0-myFreq; #X obj 331 464 r~ \$0_liftDiGain; #X obj 336 262 s~ \$0-myRey; #X text 44 277 Calculates the frequency; #X text 44 290 based on the physics of; #X text 45 303 the object and environment; #X obj 274 242 sig~ 1; #X obj 308 307 sqrt~; #X obj 308 332 *~ 1.0356; #X obj 234 323 sig~ 0.2684; #X obj 293 362 -~; #X obj 556 -62 r~ \$0-windSpeed; #X obj 546 -83 r~ \$0_str; #X obj 553 197 r~ \$0-windSpeed; #X obj 542 174 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 -20859 118 *; #X obj -20859 141 * 118033; #X obj -21022 193 /~ 1; #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 -20859 92 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 9900 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 connect 2 0 3 1; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 5 0 38 0; #X connect 6 0 7 0; #X connect 7 0 8 1; #X connect 8 0 21 0; #X connect 8 0 44 0; #X connect 9 0 48 0; #X connect 11 0 14 0; #X connect 11 0 14 1; #X connect 12 0 16 0; #X connect 14 0 13 0; #X connect 14 0 45 1; #X connect 15 0 49 0; #X connect 16 0 11 0; #X connect 17 0 40 0; #X connect 20 0 3 0; #X connect 22 0 45 0; #X connect 23 0 2 0; #X connect 23 0 2 1; #X connect 24 0 20 0; #X connect 25 0 4 1; #X connect 26 0 35 0; #X connect 27 0 35 1; #X connect 28 0 6 0; #X connect 28 0 6 1; #X connect 35 0 17 0; #X connect 35 0 12 0; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 38 1; #X connect 38 0 8 0; #X connect 40 0 43 0; #X connect 41 0 42 0; #X connect 41 0 42 1; #X connect 42 0 44 1; #X connect 43 0 41 0; #X connect 44 0 9 0; #X connect 45 0 15 0; #X connect 48 0 29 0; #X connect 49 0 30 0; #X restore 542 326 pd noiseGain; #X obj 565 218 r \$0-diameter; #X obj 611 302 r \$0_dist; #X obj 599 280 r \$0_azim; #X obj 588 259 r \$0_elev; #X obj 542 371 s~ \$0_liftNoiseGain; #X obj 611 349 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 506 45 *; #X obj 506 70 * 118033; #X obj 219 240 /~ 1; #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; #X floatatom 471 46 5 0 0 0 - - -; #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 506 20 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 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 38 0; #X connect 7 0 8 0; #X connect 8 0 9 1; #X connect 9 0 18 0; #X connect 9 0 45 0; #X connect 10 0 34 0; #X connect 13 0 16 0; #X connect 13 0 16 1; #X connect 14 0 20 0; #X connect 16 0 15 0; #X connect 16 0 44 1; #X connect 17 0 26 0; #X connect 19 0 44 0; #X connect 20 0 13 0; #X connect 22 0 14 0; #X connect 22 0 48 0; #X connect 26 0 35 0; #X connect 27 0 3 0; #X connect 27 0 3 1; #X connect 28 0 2 0; #X connect 30 0 5 1; #X connect 31 0 7 1; #X connect 31 0 7 0; #X connect 31 0 21 0; #X connect 32 0 22 0; #X connect 33 0 22 1; #X connect 36 0 37 0; #X connect 36 0 37 1; #X connect 37 0 38 1; #X connect 38 0 9 0; #X connect 40 0 43 0; #X connect 41 0 42 0; #X connect 41 0 42 1; #X connect 42 0 45 1; #X connect 43 0 41 0; #X connect 44 0 17 0; #X connect 45 0 10 0; #X connect 46 0 49 0; #X connect 47 0 46 0; #X connect 48 0 40 0; #X connect 49 0 48 1; #X connect 49 1 50 0; #X connect 50 0 48 0; #X restore 546 68 pd freqGain; #X obj 567 -41 r \$0-diameter; #X obj 609 47 r \$0_dist; #X obj 588 4 r \$0_azim; #X obj 598 25 r \$0_elev; #X obj 609 92 s~ \$0_dragDiGain; #X obj 546 112 s~ \$0_liftDiGain; #X text 536 129 Calculates the gain of the dipole source; #X text 533 390 Calculates the gain of the source; #X obj 577 -18 r length; #X obj 576 239 r length; #X obj 412 -110 inlet; #X obj 412 -88 s \$0_elev; #X obj 330 -111 inlet; #X obj 330 -89 s \$0_azim; #X obj 260 -110 inlet; #X obj 260 -88 s \$0_dist; #X obj 830 31 r~ \$0-myFreq; #X obj 796 -19 noise~; #X obj 873 215 throw~ l; #X obj 900 194 throw~ r; #X obj 873 122 *~; #X obj 1011 32 snapshot~; #X floatatom 1011 58 10 0 0 0 - - -; #X obj 1011 -41 loadbang; #X obj 1011 -16 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 922 -70 r~ \$0-myRey; #X obj 838 383 r~ \$0-myFreq; #X obj 804 312 noise~; #X obj 881 572 throw~ l; #X obj 908 549 throw~ r; #X obj 881 480 *~; #X obj 1019 392 snapshot~; #X floatatom 1019 418 10 0 0 0 - - -; #X obj 1019 319 loadbang; #X obj 1019 344 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj 930 290 r~ \$0-myRey; #X obj 838 409 *~ 2; #X obj 796 74 vcf~ 1000 10; #X obj 804 434 vcf~ 1000 10; #X obj 873 171 fcpan; #X obj 881 524 fcpan; #X obj 888 95 *~ 1; #X obj 896 455 *~ 1; #X obj 930 365 clip~ 2 400; #X obj 922 5 clip~ 2 400; #X obj 930 314 *~ -0.003; #X obj 922 -46 *~ -0.003; #X obj 922 -21 +~ 20; #X obj 930 339 +~ 20; #X obj 1011 7 metro 10; #X obj 1019 367 metro 10; #X obj 900 147 r \$0_thisPan; #X obj 908 502 r \$0_thisPan; #X text 932 468 Drag Dipole spectrum calculation; #X text 927 112 Lift Dipole spectrum calculation; #X obj 896 432 r~ \$0_dragNoiseGain; #X obj 888 53 r~ \$0_liftNoiseGain; #X obj 796 28 hip~; #X obj 804 409 hip~; #X obj 817 5 r \$0_contFreq; #X obj 825 333 r \$0_contFreq; #X obj 825 356 * 2; #X obj 320 -47 r \$0_azim; #X obj 320 -25 / 180; #X obj 320 -4 + 0.5; #X obj 320 19 abs; #X obj 320 41 s \$0_thisPan; #X obj 305 540 r \$0_thisPan; #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 68 1; #X connect 58 0 68 0; #X connect 59 0 61 1; #X connect 60 0 61 0; #X connect 61 0 66 0; #X connect 61 1 67 0; #X connect 62 0 61 2; #X connect 63 0 61 6; #X connect 64 0 61 5; #X connect 65 0 61 4; #X connect 68 0 74 0; #X connect 68 1 73 0; #X connect 69 0 68 2; #X connect 70 0 68 6; #X connect 71 0 68 4; #X connect 72 0 68 5; #X connect 77 0 68 3; #X connect 78 0 61 3; #X connect 79 0 80 0; #X connect 81 0 82 0; #X connect 83 0 84 0; #X connect 85 0 106 1; #X connect 86 0 126 0; #X connect 90 0 91 0; #X connect 90 0 106 2; #X connect 92 0 93 0; #X connect 93 0 118 0; #X connect 94 0 115 0; #X connect 95 0 105 0; #X connect 96 0 127 0; #X connect 100 0 101 0; #X connect 100 0 107 2; #X connect 102 0 103 0; #X connect 103 0 119 0; #X connect 104 0 114 0; #X connect 105 0 107 1; #X connect 106 0 89 0; #X connect 107 0 99 0; #X connect 108 0 87 0; #X connect 108 1 88 0; #X connect 109 0 97 0; #X connect 109 1 98 0; #X connect 110 0 89 1; #X connect 111 0 99 1; #X connect 112 0 100 0; #X connect 113 0 90 0; #X connect 114 0 117 0; #X connect 115 0 116 0; #X connect 116 0 113 0; #X connect 117 0 112 0; #X connect 118 0 90 0; #X connect 119 0 100 0; #X connect 120 0 108 1; #X connect 121 0 109 1; #X connect 124 0 111 0; #X connect 125 0 110 0; #X connect 126 0 106 0; #X connect 127 0 107 0; #X connect 128 0 126 1; #X connect 129 0 130 0; #X connect 130 0 127 1; #X connect 131 0 132 0; #X connect 132 0 133 0; #X connect 133 0 134 0; #X connect 134 0 135 0; #X connect 136 0 21 1;