Mercurial > hg > weather-synthesis-prototyping
view June/woosh_D1.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 | 71522416a1ed |
children |
line wrap: on
line source
#N canvas -22 23 1105 841 10; #X obj 494 -127 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 557 -127 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 648 -127 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144 -1 -1 1200 1; #X text 677 -108 Gain; #X obj 648 -191 loadbang; #N canvas 865 368 284 318 opLevels 0; #X obj 74 188 dac~; #X obj 30 70 catch~ l; #X obj 128 70 catch~ r; #X obj 129 104 *~ 0.45; #X obj 30 104 *~ 0.45; #X obj 30 210 prvu~; #X obj 129 211 prvu~; #X obj 186 75 / 127; #X obj 186 40 inlet; #X obj 30 239 outlet; #X obj 129 239 outlet; #X obj 95 37 r NoOfSources; #X obj 74 143 /~ 15; #X obj 95 165 /~ 15; #X msg 94 111 15; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 3 0 13 0; #X connect 4 0 5 0; #X connect 4 0 12 0; #X connect 5 0 9 0; #X connect 6 0 10 0; #X connect 7 0 3 1; #X connect 7 0 4 1; #X connect 8 0 7 0; #X connect 12 0 0 0; #X connect 13 0 0 1; #X connect 14 0 12 1; #X connect 14 0 13 1; #X restore 493 -170 pd opLevels; #X msg 648 -163 5; #N canvas 739 151 718 592 source1 0; #X floatatom 63 122 8 0 0 0 - - -; #X obj 121 86 * 40; #X obj 130 122 s windSpeed; #X obj 390 16 s panVal; #X obj 390 -5 line; #X floatatom 353 16 5 0 0 0 - - -; #X msg 363 -54 1; #X obj 173 -298 r swipSpeed; #X obj 173 -271 swap 80; #X obj 173 -243 /; #X obj 172 -217 * 150; #X floatatom 124 -271 5 0 0 0 - - -; #X obj 142 55 r swipSpeed; #X obj 121 -28 line; #X msg 121 -56 1 \$1; #X obj 124 5 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom 157 31 5 0 0 0 - - -; #X obj 235 -128 * 0.67; #X obj 170 -132 delay \$1; #X obj 121 -194 i; #X obj 170 -103 i; #X msg 170 -54 0 \$1; #X floatatom 83 -165 5 0 0 0 - - -; #X floatatom 215 -55 5 0 0 0 - - -; #X obj 41 36 s outputS; #X obj 121 -242 r start; #X obj 460 -232 +; #X obj 460 -207 * 0.5; #X obj 438 -175 i; #X msg 390 -107 0.5 \$1; #X msg 492 -41 0 \$1; #X obj 336 -245 r start; #X floatatom 464 -176 5 0 0 0 - - -; #X obj 465 -89 delay; #X obj 492 -65 i; #X obj 438 -146 t f b; #X obj 166 -165 t f b; #X obj 475 -256 r d2; #X obj 264 -54 s d2; #X obj 35 -164 s d1; #X obj 461 -279 r d1; #X obj 438 -107 s d3; #X obj 507 -96 r d3; #X obj 336 -218 t b b; #X text 57 145 Effective Windspeed; #X text 368 40 Pan value; #X obj 421 -199 s d4; #X obj 52 -237 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X msg 263 -286 70; #X connect 1 0 0 0; #X connect 1 0 2 0; #X connect 4 0 3 0; #X connect 4 0 5 0; #X connect 6 0 4 0; #X connect 7 0 8 0; #X connect 7 0 11 0; #X connect 8 0 9 0; #X connect 8 1 9 1; #X connect 9 0 10 0; #X connect 10 0 17 0; #X connect 10 0 19 1; #X connect 12 0 1 1; #X connect 13 0 15 0; #X connect 14 0 13 0; #X connect 15 0 16 0; #X connect 15 0 1 0; #X connect 15 0 24 0; #X connect 17 0 20 1; #X connect 18 0 20 0; #X connect 19 0 14 0; #X connect 19 0 22 0; #X connect 19 0 36 0; #X connect 19 0 39 0; #X connect 20 0 23 0; #X connect 20 0 21 0; #X connect 20 0 38 0; #X connect 21 0 13 0; #X connect 25 0 19 0; #X connect 26 0 27 0; #X connect 26 0 46 0; #X connect 27 0 28 1; #X connect 27 0 32 0; #X connect 28 0 35 0; #X connect 29 0 4 0; #X connect 30 0 4 0; #X connect 31 0 43 0; #X connect 33 0 34 0; #X connect 34 0 30 0; #X connect 35 0 29 0; #X connect 35 0 33 1; #X connect 35 0 41 0; #X connect 35 1 33 0; #X connect 36 0 18 1; #X connect 36 1 18 0; #X connect 37 0 26 1; #X connect 40 0 26 0; #X connect 42 0 34 1; #X connect 43 0 28 0; #X connect 43 1 6 0; #X connect 47 0 19 0; #X connect 48 0 8 0; #X restore 874 -151 pd source1; #N canvas 12 52 684 554 speedCalc 0; #X obj 69 26 inlet; #X obj 145 27 inlet; #X obj 227 25 inlet; #X obj 341 23 inlet; #X obj 69 49 s \$0_swLen; #X obj 145 49 s \$0_armLen; #X obj 341 45 s \$0_tipSpeed; #X obj 141 301 r \$0_tipSpeed; #X obj 211 437 outlet; #X obj 211 414 r \$0_minSpeed; #X obj 126 349 s \$0_minSpeed; #X obj 310 414 r \$0_deltaSpeed; #X obj 388 261 s \$0_deltaSpeed; #X obj 310 437 outlet; #X obj 84 100 r \$0_swLen; #X obj 126 280 /; #X msg 307 20 80; #X floatatom 80 307 5 0 0 0 - - -; #X obj 173 -35 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 99 123 r \$0_armLen; #X obj 84 205 +; #X obj 99 152 t f b; #X floatatom 40 240 5 0 0 0 - - -; #X obj 126 207 r \$0_armLen; #X obj 126 231 t f b; #X obj 126 177 delay 6; #X obj 153 256 delay 9; #X msg 21 27 1; #X obj 227 48 s \$0_sourceTot; #X obj 421 202 r \$0_sourceTot; #X obj 126 325 *; #X floatatom 84 349 5 0 0 0 - - -; #X obj 512 119 r \$0_minSpeed; #X obj 388 202 -; #X obj 388 158 r \$0_tipSpeed; #X obj 388 232 /; #X obj 512 145 t f b; #X floatatom 343 261 5 0 0 0 - - -; #X obj 539 170 delay 14; #X msg 199 23 100; #X msg 111 23 0.5; #X connect 0 0 4 0; #X connect 1 0 5 0; #X connect 2 0 28 0; #X connect 3 0 6 0; #X connect 7 0 30 1; #X connect 9 0 8 0; #X connect 11 0 13 0; #X connect 14 0 20 0; #X connect 15 0 17 0; #X connect 15 0 30 0; #X connect 16 0 6 0; #X connect 18 0 27 0; #X connect 18 0 40 0; #X connect 18 0 39 0; #X connect 18 0 16 0; #X connect 19 0 21 0; #X connect 20 0 22 0; #X connect 20 0 15 1; #X connect 21 0 20 1; #X connect 21 1 25 0; #X connect 23 0 24 0; #X connect 24 0 15 0; #X connect 24 1 26 0; #X connect 25 0 20 0; #X connect 26 0 15 0; #X connect 27 0 4 0; #X connect 29 0 35 1; #X connect 30 0 10 0; #X connect 30 0 31 0; #X connect 32 0 36 0; #X connect 33 0 35 0; #X connect 34 0 33 0; #X connect 35 0 37 0; #X connect 35 0 12 0; #X connect 36 0 33 1; #X connect 36 1 38 0; #X connect 38 0 33 0; #X connect 39 0 28 0; #X connect 40 0 5 0; #X restore 242 41 pd speedCalc; #X floatatom 151 65 8 0 0 0 - - -; #X floatatom 407 64 8 0 0 0 - - -; #X msg 29 -88 1; #X msg 24 105 100; #X msg 26 12 0.59; #X obj 242 -54 r bladeLen; #X obj 265 -31 r armLength; #X obj 288 -7 r NoOfSources; #X obj 311 18 r topSpeed; #X obj 29 -41 s bladeLen; #X obj 27 57 s armLength; #X obj 21 150 s NoOfSources; #X obj 75 219 s topSpeed; #X msg 60 -88 1.2; #X msg 91 -88 1.5; #X msg 56 105 50; #X msg 89 105 120; #X obj 23 193 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 5300 1; #X floatatom 20 219 8 0 0 0 - - -; #X obj -7 -112 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 14 -64 f; #X obj 11 33 f; #X obj 9 126 f; #X floatatom -16 152 5 0 0 0 - - -; #X floatatom -14 58 5 0 0 0 - - -; #X floatatom -14 -41 5 0 0 0 - - -; #X obj -7 -158 r topSpeed; #X obj -7 -135 t b; #X text 26 -111 Blade Length; #X text 25 -5 Arm Length; #X text 22 86 Number of Sources; #X text 19 173 Top Speed; #X obj 22 269 hsl 100 20 0 270 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 9100 1; #X floatatom 19 301 8 0 0 0 - - -; #X obj 74 300 s sweepAngle; #X text 17 250 Sweep Angle; #N canvas 76 279 490 446 distanceCalc 0; #X obj 266 13 inlet; #X floatatom 200 168 5 0 0 0 - - -; #X obj 80 13 inlet; #X obj 170 13 inlet; #X obj 82 142 +; #X obj 151 168 / 360; #X floatatom 29 164 5 0 0 0 - - -; #X obj 82 167 * 3.14159; #X obj 82 215 *; #X floatatom 22 239 8 0 0 0 - - -; #X obj 82 191 * 2; #X obj 80 36 s \$0_bladeLen; #X obj 170 36 s \$0_armLength; #X obj 266 36 s \$0_sweepAngle; #X obj 82 95 r \$0_bladeLen; #X obj 97 119 r \$0_armLength; #X obj 151 144 r \$0_sweepAngle; #X floatatom 411 184 5 0 0 0 - - -; #X obj 362 184 / 360; #X floatatom 305 160 5 0 0 0 - - -; #X obj 293 183 * 3.14159; #X obj 293 231 *; #X floatatom 237 259 8 0 0 0 - - -; #X obj 293 207 * 2; #X obj 293 135 r \$0_armLength; #X obj 362 160 r \$0_sweepAngle; #X obj 293 259 s \$0_minCirc; #X obj 98 365 r \$0_minCirc; #X obj 98 387 outlet; #X obj 111 217 r \$0_minCirc; #X floatatom 22 271 8 0 0 0 - - -; #X obj 82 239 -; #X obj 82 275 /; #X obj 112 251 r NoOfSources; #X floatatom 19 302 8 0 0 0 - - -; #X obj 82 301 s \$0_deltaCirc; #X obj 187 365 r \$0_deltaCirc; #X obj 187 387 outlet; #X connect 0 0 13 0; #X connect 2 0 11 0; #X connect 3 0 12 0; #X connect 4 0 6 0; #X connect 4 0 7 0; #X connect 5 0 8 1; #X connect 7 0 10 0; #X connect 8 0 9 0; #X connect 8 0 31 0; #X connect 10 0 8 0; #X connect 14 0 4 0; #X connect 15 0 4 1; #X connect 16 0 5 0; #X connect 16 0 1 0; #X connect 18 0 21 1; #X connect 20 0 23 0; #X connect 21 0 22 0; #X connect 21 0 26 0; #X connect 23 0 21 0; #X connect 24 0 20 0; #X connect 24 0 19 0; #X connect 25 0 18 0; #X connect 25 0 17 0; #X connect 27 0 28 0; #X connect 29 0 31 1; #X connect 31 0 30 0; #X connect 31 0 32 0; #X connect 32 0 34 0; #X connect 32 0 35 0; #X connect 33 0 32 1; #X connect 36 0 37 0; #X restore 197 -118 pd distanceCalc; #X obj 284 -142 r sweepAngle; #X obj 197 -186 r bladeLen; #X obj 240 -163 r armLength; #X obj -88 -158 r sweepAngle; #X obj 197 -92 s firstDist; #X obj 284 -93 s deltaDist; #X obj 216 65 s firstSpeed; #X obj 311 64 s deltaSpeed; #X floatatom 140 -91 8 0 0 0 - - -; #X floatatom 365 -93 8 0 0 0 - - -; #N canvas 236 158 426 423 windspeed 0; #X obj 3 -19 +~ 1; #X obj 3 76 +~; #X obj 3 3 *~ 0.25; #X obj 19 53 +~; #X obj 3 98 clip~ 0 1; #N canvas 548 156 136 193 squall 0; #X obj 63 20 noise~; #X obj 63 83 hip~ 0; #X obj 63 41 lop~ 3; #X obj 63 62 lop~ 3; #X obj 0 86 *~; #X obj 22 130 *~; #X obj 0 20 max~ 0.4; #X obj 0 42 -~ 0.4; #X obj 0 64 *~ 8; #X obj 63 104 *~ 20; #X obj 0 0 inlet~; #X obj 22 154 outlet~; #X connect 0 0 2 0; #X connect 1 0 9 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 5 0; #X connect 5 0 11 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 4 0; #X connect 8 0 4 1; #X connect 9 0 5 1; #X connect 10 0 6 0; #X restore 77 28 pd squall; #N canvas 398 157 136 192 gust 0; #X obj 0 0 noise~; #X obj 0 63 hip~ 0; #X obj 0 106 *~; #X obj 67 44 *~; #X obj 67 21 +~ 0.5; #X obj 67 67 -~ 0.125; #X obj 0 42 lop~ 0.5; #X obj 0 21 lop~ 0.5; #X obj 0 84 *~ 50; #X obj 67 0 inlet~; #X obj 0 131 outlet~; #X connect 0 0 7 0; #X connect 1 0 8 0; #X connect 2 0 10 0; #X connect 3 0 5 0; #X connect 4 0 3 0; #X connect 4 0 3 1; #X connect 5 0 2 1; #X connect 6 0 1 0; #X connect 7 0 6 0; #X connect 8 0 2 0; #X connect 9 0 4 0; #X restore 18 29 pd gust; #X obj 3 120 outlet~; #X obj 3 -41 osc~ 0.01; #X connect 0 0 2 0; #X connect 1 0 4 0; #X connect 2 0 5 0; #X connect 2 0 6 0; #X connect 2 0 1 0; #X connect 3 0 1 1; #X connect 4 0 7 0; #X connect 5 0 3 1; #X connect 6 0 3 0; #X connect 8 0 0 0; #X restore 757 -190 pd windspeed; #X obj 757 -22 delwrite~ varwind 3000; #X obj 840 -187 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj 800 -84 snapshot~; #X obj 800 -109 metro 100; #X obj 800 -131 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X floatatom 800 -57 10 0 0 0 - - -; #X obj 757 -155 *~ 1; #X obj 757 -129 +~ 1; #X obj 800 -156 loadbang; #X text 797 -39 Wind Speed; #N canvas 57 585 305 180 thickCalc 0; #X obj 173 86 r NoOfSources; #X obj 23 16 inlet; #X obj 26 64 inlet; #X obj 26 86 s \$0_tipThick; #X obj 158 62 -; #X obj 158 111 /; #X obj 158 134 outlet; #X obj 23 39 s \$0_hiltThick; #X floatatom 126 94 5 0 0 0 - - -; #X obj 173 40 r \$0_tipThick; #X obj 158 15 r \$0_hiltThick; #X floatatom 94 136 8 0 0 0 - - -; #X connect 0 0 5 1; #X connect 1 0 7 0; #X connect 2 0 3 0; #X connect 4 0 5 0; #X connect 4 0 8 0; #X connect 5 0 6 0; #X connect 5 0 11 0; #X connect 9 0 4 1; #X connect 10 0 4 0; #X restore 237 165 pd thickCalc; #X obj 237 188 s deltaThick; #X floatatom 182 189 8 0 0 0 - - -; #X obj 16 359 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 7600 1; #X obj 16 429 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 1000 1; #X floatatom 13 389 8 0 0 0 - - -; #X obj 67 388 s hiltThick; #X floatatom 13 457 8 0 0 0 - - -; #X obj 71 456 s tipThick; #X text 12 341 Hilt Thickness; #X text 13 411 Tip Thickness; #X obj 237 120 r hiltThick; #X obj 306 142 r tipThick; #X obj 414 -198 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 414 -176 s GO; #X msg 254 238 1; #X obj 254 303 tenSource; #X obj 16 503 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144 -1 -1 5000 1; #X obj 13 571 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 2400 1; #X floatatom 13 529 8 0 0 0 - - -; #X obj 72 530 s distance; #X text 12 481 Distance to Observer; #X floatatom 10 599 8 0 0 0 - - -; #X obj 69 600 s angle; #X text 10 553 Angle to Observer; #X obj 305 281 r distance; #X obj 279 255 r angle; #X obj 371 303 tenSource; #X obj 422 281 r distance; #X obj 396 261 r angle; #X msg 371 238 2; #X obj 488 301 tenSource; #X obj 539 279 r distance; #X obj 513 256 r angle; #X msg 488 236 3; #X obj 604 305 tenSource; #X obj 655 284 r distance; #X obj 629 260 r angle; #X msg 604 240 4; #X obj 723 306 tenSource; #X obj 774 285 r distance; #X obj 748 263 r angle; #X msg 723 241 5; #X obj 252 410 tenSource; #X obj 303 389 r distance; #X obj 277 367 r angle; #X msg 252 345 6; #X obj 373 412 tenSource; #X obj 424 388 r distance; #X obj 398 367 r angle; #X msg 373 347 7; #X obj 489 412 tenSource; #X obj 540 386 r distance; #X obj 514 367 r angle; #X msg 489 347 8; #X obj 605 412 tenSource; #X obj 656 389 r distance; #X obj 630 368 r angle; #X msg 605 347 9; #X obj 728 412 tenSource; #X obj 779 390 r distance; #X obj 753 369 r angle; #X msg 728 347 10; #X obj 509 178 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X connect 2 0 5 0; #X connect 4 0 6 0; #X connect 5 0 0 0; #X connect 5 1 1 0; #X connect 6 0 2 0; #X connect 8 0 9 0; #X connect 8 0 52 0; #X connect 8 1 10 0; #X connect 8 1 53 0; #X connect 11 0 29 1; #X connect 12 0 31 1; #X connect 13 0 30 1; #X connect 14 0 8 0; #X connect 15 0 8 1; #X connect 16 0 8 2; #X connect 17 0 8 3; #X connect 22 0 29 1; #X connect 23 0 29 1; #X connect 24 0 31 1; #X connect 25 0 31 1; #X connect 26 0 21 0; #X connect 26 0 27 0; #X connect 28 0 29 0; #X connect 28 0 30 0; #X connect 28 0 31 0; #X connect 29 0 18 0; #X connect 29 0 34 0; #X connect 30 0 19 0; #X connect 30 0 33 0; #X connect 31 0 20 0; #X connect 31 0 32 0; #X connect 35 0 36 0; #X connect 36 0 28 0; #X connect 41 0 42 0; #X connect 41 0 43 0; #X connect 45 0 50 0; #X connect 45 0 54 0; #X connect 45 1 51 0; #X connect 45 1 55 0; #X connect 46 0 45 2; #X connect 47 0 45 0; #X connect 48 0 45 1; #X connect 49 0 36 0; #X connect 56 0 63 0; #X connect 58 0 63 1; #X connect 58 0 64 1; #X connect 59 0 62 0; #X connect 60 0 59 0; #X connect 61 0 60 0; #X connect 63 0 64 0; #X connect 64 0 57 0; #X connect 64 0 59 0; #X connect 65 0 61 0; #X connect 67 0 68 0; #X connect 67 0 69 0; #X connect 70 0 72 0; #X connect 70 0 73 0; #X connect 71 0 74 0; #X connect 71 0 75 0; #X connect 78 0 67 0; #X connect 79 0 67 1; #X connect 80 0 81 0; #X connect 82 0 83 0; #X connect 84 0 86 0; #X connect 84 0 87 0; #X connect 85 0 89 0; #X connect 85 0 90 0; #X connect 92 0 83 2; #X connect 93 0 83 1; #X connect 95 0 94 2; #X connect 96 0 94 1; #X connect 97 0 94 0; #X connect 99 0 98 2; #X connect 100 0 98 1; #X connect 101 0 98 0; #X connect 103 0 102 2; #X connect 104 0 102 1; #X connect 105 0 102 0; #X connect 107 0 106 2; #X connect 108 0 106 1; #X connect 109 0 106 0; #X connect 111 0 110 2; #X connect 112 0 110 1; #X connect 113 0 110 0; #X connect 115 0 114 2; #X connect 116 0 114 1; #X connect 117 0 114 0; #X connect 119 0 118 2; #X connect 120 0 118 1; #X connect 121 0 118 0; #X connect 123 0 122 2; #X connect 124 0 122 1; #X connect 125 0 122 0; #X connect 127 0 126 2; #X connect 128 0 126 1; #X connect 129 0 126 0; #X connect 130 0 82 0; #X connect 130 0 97 0; #X connect 130 0 101 0; #X connect 130 0 105 0; #X connect 130 0 109 0; #X connect 130 0 129 0; #X connect 130 0 125 0; #X connect 130 0 121 0; #X connect 130 0 117 0; #X connect 130 0 113 0;