Mercurial > hg > weather-synthesis-prototyping
view Jan - May 15/Wally1.pd @ 115:61d267c71a18
freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M.
angleCalc converted to an object for both control and audio.
| author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
|---|---|
| date | Fri, 31 Jul 2015 07:15:40 +0100 |
| parents | 3504138285bb |
| children |
line wrap: on
line source
#N canvas 548 230 681 386 10; #N canvas 81 220 392 521 pro1 1; #X obj 230 118 * 1.225; #X obj 244 171 / 1.81e-05; #X floatatom 120 237 15 0 0 0 - - -; #X obj 244 200 swap 19.7; #X obj 244 231 /; #X obj 244 262 swap 1; #X obj 244 290 -; #X obj 244 317 * 0.198; #X floatatom 163 462 10 0 0 0 - - -; #X obj 244 346 *; #X text 20 234 Reynolds Number; #X text 36 87 Wind Speed (m/s); #X floatatom 151 91 5 0 0 0 - - -; #X obj 317 297 r windSpeed; #X text 107 116 Mass Density of Air; #X text 90 166 Dynamic Viscosity of Air; #X text 59 459 Frequency (Hz); #X floatatom 161 342 5 0 0 0 - - -; #X text 46 337 Strouhal Number; #X obj 244 457 s outFreq1; #X obj 120 267 s rey1; #X obj 244 430 min 21000; #N canvas 251 237 467 395 soundGen 0; #X obj -89 49 noise~; #X obj -75 87 bp~ 1000 10; #X obj 37 60 osc~; #X obj 37 86 *~ 0.1; #X obj -75 201 throw~ L; #X obj -24 182 throw~ R; #X obj 37 210 throw~ L; #X obj 88 188 throw~ R; #X obj -44 15 min 20000; #X obj -27 59 r qValue2; #N canvas 103 204 481 424 thisQ 0; #X obj 125 47 < 5000; #X floatatom 20 289 8 0 0 0 - - -; #X obj 92 72 spigot; #X obj 213 43 > 5000; #X obj 180 71 spigot; #X obj 180 116 spigot; #X obj 230 94 < 10000; #X obj 92 101 / 5000; #X obj 92 181 /; #X floatatom 120 326 8 0 0 0 - - -; #X obj 180 218 /; #X obj 180 245 *; #X obj 180 141 / 10000; #X obj 180 192 swap 160; #X obj 180 166 * 260; #X obj 180 272 *; #X obj 337 74 spigot; #X obj 370 46 > 10000; #X obj 337 145 / 300000; #X obj 337 115 spigot; #X obj 387 93 < 300000; #X floatatom 268 363 8 0 0 0 - - -; #X obj 92 127 * 300; #X obj 92 156 swap 300; #X obj 92 205 *; #X obj 92 233 *; #X obj 337 197 swap 120; #X obj 337 224 /; #X obj 337 248 *; #X obj 337 169 * 5000; #X obj 336 334 max 2; #X obj 92 262 + 100; #X obj 180 297 * 50; #X obj 336 307 * 20; #X obj 92 21 r rey1; #X obj 180 19 r rey1; #X obj 337 22 r rey1; #X obj 387 68 r rey1; #X obj 230 69 r rey1; #X obj 92 288 s qValue1; #X obj 180 323 s qValue1; #X obj 337 359 s qValue1; #X connect 0 0 2 1; #X connect 2 0 7 0; #X connect 3 0 4 1; #X connect 4 0 5 0; #X connect 5 0 12 0; #X connect 6 0 5 1; #X connect 7 0 22 0; #X connect 8 0 24 0; #X connect 8 0 24 1; #X connect 10 0 11 0; #X connect 10 0 11 1; #X connect 11 0 15 0; #X connect 11 0 15 1; #X connect 12 0 14 0; #X connect 13 0 10 0; #X connect 13 1 10 1; #X connect 14 0 13 0; #X connect 15 0 32 0; #X connect 16 0 19 0; #X connect 17 0 16 1; #X connect 18 0 29 0; #X connect 19 0 18 0; #X connect 20 0 19 1; #X connect 22 0 23 0; #X connect 23 0 8 0; #X connect 23 1 8 1; #X connect 24 0 25 0; #X connect 24 0 25 1; #X connect 25 0 31 0; #X connect 26 0 27 0; #X connect 26 1 27 1; #X connect 27 0 28 0; #X connect 27 0 28 1; #X connect 28 0 33 0; #X connect 29 0 26 0; #X connect 30 0 41 0; #X connect 31 0 1 0; #X connect 31 0 39 0; #X connect 32 0 9 0; #X connect 32 0 40 0; #X connect 33 0 30 0; #X connect 33 0 21 0; #X connect 34 0 0 0; #X connect 34 0 2 0; #X connect 35 0 3 0; #X connect 35 0 4 0; #X connect 36 0 16 0; #X connect 36 0 17 0; #X connect 37 0 20 0; #X connect 38 0 6 0; #X restore 53 -12 pd thisQ; #X obj -44 -16 r outFreq1; #X obj 37 162 fcpan 0.6; #X obj -75 151 fcpan 0.6; #X obj 119 36 r panVal; #X obj 194 50 == 0; #X obj 194 23 r windSpeed; #X obj 245 50 > 0; #X floatatom 219 87 5 0 0 0 - - -; #X obj 37 122 spigot~; #X obj -75 123 spigot~; #X obj 213 122 swap 1; #X obj 213 149 -; #X floatatom 246 181 5 0 0 0 - - -; #X connect 0 0 1 0; #X connect 1 0 20 0; #X connect 2 0 3 0; #X connect 3 0 19 0; #X connect 8 0 2 0; #X connect 8 0 1 1; #X connect 9 0 1 2; #X connect 11 0 8 0; #X connect 12 0 6 0; #X connect 12 1 7 0; #X connect 13 0 4 0; #X connect 13 1 5 0; #X connect 14 0 12 1; #X connect 14 0 13 1; #X connect 15 0 18 0; #X connect 16 0 15 0; #X connect 16 0 17 0; #X connect 17 0 18 0; #X connect 18 0 21 0; #X connect 19 0 12 0; #X connect 20 0 13 0; #X connect 21 0 22 0; #X connect 21 1 22 1; #X connect 22 0 23 0; #X connect 22 0 19 1; #X connect 22 0 20 1; #X restore 230 66 pd soundGen; #X obj 244 145 * 0.0075; #X obj 244 377 / 0.0075; #X obj 230 92 r windSpeed; #X obj 244 403 max 0.001; #X obj 316 320 t f b; #X connect 0 0 23 0; #X connect 1 0 2 0; #X connect 1 0 3 0; #X connect 2 0 20 0; #X connect 3 0 4 0; #X connect 3 1 4 1; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 5 1 6 1; #X connect 6 0 7 0; #X connect 7 0 9 0; #X connect 7 0 17 0; #X connect 9 0 24 0; #X connect 13 0 27 0; #X connect 21 0 8 0; #X connect 21 0 19 0; #X connect 23 0 1 0; #X connect 24 0 26 0; #X connect 25 0 0 0; #X connect 26 0 21 0; #X connect 27 0 9 1; #X connect 27 1 9 0; #X restore 143 18 pd pro1; #X obj 34 -54 catch~ L; #X obj 55 -29 catch~ R; #X obj 34 90 dac~; #X obj 111 -170 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 7800 1; #X obj 111 -28 / 127; #X obj 34 1 *~ 0.4; #X obj 79 1 *~ 0.4; #X text 135 -127 Output Gain; #X msg 111 -197 40; #X obj 111 -222 loadbang; #X obj 82 43 lop~ 5000; #X obj 9 43 lop~ 5000; #N canvas 678 314 447 368 source1 0; #X floatatom 139 1 8 0 0 0 - - -; #X obj 197 -183 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 197 -87 line; #X obj 200 -58 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 197 -35 * 40; #X obj 206 1 s windSpeed; #X msg 197 -117 1 300; #X msg 252 -112 0 200; #X obj 252 -137 delay 300; #X obj 76 -54 s panVal; #X obj 76 -82 line; #X obj 131 -132 delay 300; #X msg 76 -119 0.5 300; #X floatatom 21 -44 5 0 0 0 - - -; #X msg 37 -119 1; #X msg 131 -107 0 200; #X obj 197 -211 inlet; #X connect 1 0 6 0; #X connect 1 0 8 0; #X connect 1 0 11 0; #X connect 1 0 12 0; #X connect 1 0 14 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 0 0; #X connect 4 0 5 0; #X connect 6 0 2 0; #X connect 7 0 2 0; #X connect 8 0 7 0; #X connect 10 0 9 0; #X connect 10 0 13 0; #X connect 11 0 15 0; #X connect 12 0 10 0; #X connect 14 0 10 0; #X connect 15 0 10 0; #X connect 16 0 1 0; #X restore 282 -1 pd source1; #X connect 1 0 6 0; #X connect 2 0 7 0; #X connect 4 0 5 0; #X connect 5 0 6 1; #X connect 5 0 7 1; #X connect 6 0 12 0; #X connect 7 0 11 0; #X connect 9 0 4 0; #X connect 10 0 9 0; #X connect 11 0 3 1; #X connect 12 0 3 0;