Mercurial > hg > weather-synthesis-prototyping

view SwordSounds/woSoFreqD3.pd @ 199:2ded41e29e57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 04f0a00c5fbd
children
line wrap: on
line source
#N canvas 210 37 1440 824 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 181 261 Mass Density of Air;
#X obj 303 474 osc~;
#X obj 303 262 *~ 1.225;
#X obj 303 322 /~ 1.81e-05;
#X obj 303 292 *~ 1;
#X obj 303 423 /~ 1;
#X obj 303 399 *~;
#X obj 303 448 clip~ 0 20000;
#X text 162 359 Reynolds Number;
#X text 187 415 Strouhal Number;
#X obj 303 504 *~;
#X text 380 322 Viscosity;
#X obj 67 425 *~ 2;
#X obj 67 452 osc~;
#X obj 67 474 *~;
#X obj 364 261 r \$0-diameter;
#X obj 367 403 r \$0-diameter;
#X obj 366 372 r~ \$0-windSpeed;
#X obj 303 234 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 218 344 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 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 815 79 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 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 -21070 7 inlet~;
#X obj -21022 7 inlet~;
#X obj -20989 55 inlet;
#X obj -20873 229 inlet;
#X obj -21021 465 outlet~;
#X text -20937 227 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 -21239 441 Need for scienctific reasoning here!;
#X obj -20859 92 inlet~;
#X obj -20948 246 inlet~;
#X obj -21006 300 +~ 90;
#X obj -21006 323 /~ 360;
#X obj -21006 344 cos~;
#X obj -21021 397 *~;
#X obj -20859 118 *~;
#X obj -20859 141 *~ 118033;
#X obj -21022 193 /~;
#X obj -21021 444 *~ 0.01;
#X text -21172 7 Strouhal number;
#X text -20973 3 Wind speed;
#X obj -20948 272 angleCalcN~;
#X obj -20948 300 +~ 90;
#X obj -20948 321 /~ 360;
#X obj -20948 343 sin~;
#X obj -21006 375 +~;
#X obj -20877 297 loadbang;
#X obj -20877 318 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -20877 336 metro 10;
#X obj -20877 357 snapshot~;
#X floatatom -20877 377 5 0 0 0 - - -;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 23 0;
#X connect 6 0 35 0;
#X connect 9 0 3 0;
#X connect 11 0 2 0;
#X connect 11 0 2 1;
#X connect 12 0 9 0;
#X connect 13 0 4 1;
#X connect 14 0 20 1;
#X connect 21 0 22 0;
#X connect 21 0 22 1;
#X connect 22 0 23 1;
#X connect 23 0 34 0;
#X connect 26 0 32 0;
#X connect 26 0 32 1;
#X connect 27 0 38 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 42 0;
#X connect 31 0 6 0;
#X connect 32 0 33 0;
#X connect 33 0 34 1;
#X connect 34 0 10 0;
#X connect 34 0 31 0;
#X connect 35 0 15 0;
#X connect 38 0 28 0;
#X connect 38 0 39 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 41 0 42 1;
#X connect 42 0 31 1;
#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 restore 552 336 pd noiseGain;
#X obj 575 228 r \$0-diameter;
#X obj 609 291 r \$0_elev;
#N canvas 814 272 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 315 218 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 517 364 loadbang;
#X obj 517 385 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 517 403 metro 10;
#X obj 517 425 snapshot~;
#X floatatom 517 445 5 0 0 0 - - -;
#X obj 419 350 +~ 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 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 40 0;
#X connect 39 0 54 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 43 0 52 0;
#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 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 53 0;
#X connect 54 0 45 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 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 619 57 r~ \$0_dist;
#X obj 598 14 r~ \$0_azim;
#X obj 288 572 fcpan~;
#X obj 621 312 r~ \$0_dist;
#X obj 598 270 r~ \$0_azim;
#X obj 303 370 newStrou;
#X obj 945 115 r~ \$0-myFreq;
#X obj 857 47 noise~;
#X obj 905 195 *~;
#X obj 1043 108 snapshot~;
#X floatatom 1043 134 10 0 0 0 - - -;
#X obj 1043 35 loadbang;
#X obj 1043 60 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 997 -63 r~ \$0-myRey;
#X obj 911 142 vcf~ 1000 10;
#X obj 1043 83 metro 10;
#X obj 905 283 throw~ l;
#X obj 932 261 throw~ r;
#X obj 905 239 fcpan;
#X obj 878 69 r \$0-contFreq;
#X obj 920 166 r~ \$0-liftNoiseGain;
#X obj 932 220 r \$0-thisPan;
#X text 959 185 Noise spectrum calculation;
#X obj 857 93 hip~;
#X obj 896 174 +~;
#X obj 997 -39 *~ -0.001;
#X obj 997 -14 +~ 20;
#X obj 857 142 *~ 0.015;
#X obj 997 12 clip~ 1 20;
#X obj 552 381 s~ \$0-liftNoiseGain;
#X obj 240 48 snapshot~;
#X obj 240 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X floatatom 240 74 10 0 0 0 - - -;
#X obj 240 -25 loadbang;
#X obj 240 23 metro 10;
#X obj 488 -100 inlet~;
#X obj 488 -76 s~ \$0-thisPan;
#X obj 321 550 r~ \$0-thisPan;
#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 78 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 32 0;
#X connect 24 0 26 0;
#X connect 25 0 46 0;
#X connect 25 0 81 0;
#X connect 26 0 25 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 29 0 23 0;
#X connect 29 0 43 0;
#X connect 32 0 9 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 9 0;
#X connect 37 0 26 1;
#X connect 38 0 27 1;
#X connect 39 0 28 1;
#X connect 40 0 24 0;
#X connect 42 0 36 1;
#X connect 44 0 34 0;
#X connect 45 0 32 1;
#X connect 50 0 57 1;
#X connect 51 0 57 0;
#X connect 52 0 54 1;
#X connect 53 0 54 0;
#X connect 54 0 105 0;
#X connect 55 0 54 2;
#X connect 56 0 54 5;
#X connect 57 0 61 0;
#X connect 57 1 60 0;
#X connect 58 0 57 2;
#X connect 59 0 57 5;
#X connect 64 0 57 3;
#X connect 65 0 54 3;
#X connect 66 0 67 0;
#X connect 68 0 69 0;
#X connect 70 0 71 0;
#X connect 72 0 74 0;
#X connect 73 0 75 0;
#X connect 73 0 106 0;
#X connect 76 0 57 6;
#X connect 77 0 57 4;
#X connect 78 0 1 0;
#X connect 78 1 2 0;
#X connect 79 0 54 6;
#X connect 80 0 54 4;
#X connect 81 0 28 0;
#X connect 81 0 41 0;
#X connect 82 0 90 1;
#X connect 83 0 99 0;
#X connect 83 0 90 0;
#X connect 84 0 94 0;
#X connect 85 0 86 0;
#X connect 85 0 90 2;
#X connect 87 0 88 0;
#X connect 88 0 91 0;
#X connect 89 0 101 0;
#X connect 90 0 100 1;
#X connect 91 0 85 0;
#X connect 94 0 92 0;
#X connect 94 1 93 0;
#X connect 95 0 99 1;
#X connect 96 0 84 1;
#X connect 97 0 94 1;
#X connect 99 0 103 0;
#X connect 100 0 84 0;
#X connect 101 0 102 0;
#X connect 102 0 104 0;
#X connect 103 0 100 0;
#X connect 104 0 85 0;
#X connect 106 0 108 0;
#X connect 107 0 110 0;
#X connect 109 0 107 0;
#X connect 110 0 106 0;
#X connect 111 0 112 0;
#X connect 113 0 78 1;