Mercurial > hg > aeolian-tone
view ATT.pd @ 4:8db386825c9c tip
Minor change
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Sat, 07 Oct 2017 08:30:20 +0100 |
parents | e18dbd26468e |
children |
line wrap: on
line source
#N canvas 232 81 1108 790 10; #X obj 26 65 hsl 80 25 0.0005 0.5 1 0 empty empty Diameter 2 15 0 10 -261682 -1 -1 4842 1; #X floatatom 24 95 0 0 0 0 - - -; #X obj 24 322 hsl 80 25 0.01 0.99 0 0 empty empty Panning 2 15 0 10 -261682 -1 -1 3950 1; #X floatatom 21 351 0 0 0 0 - - -; #X obj 25 222 hsl 80 25 -90 90 0 0 empty empty Obs_Azimuth 2 15 0 10 -261682 -1 -1 3800 1; #X floatatom 22 251 0 0 0 0 - - -; #X obj 25 272 hsl 80 25 -180 180 0 0 empty empty Obs_Elevation 2 15 0 10 -261682 -1 -1 3400 1; #X floatatom 22 301 0 0 0 0 - - -; #X obj 26 171 hsl 80 25 100 1 1 0 empty empty Obs_Distance 2 15 0 10 -261682 -1 -1 5522 1; #X floatatom 24 200 0 0 0 0 - - -; #X obj 157 291 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #X obj 220 291 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0; #N canvas 555 179 313 396 opLevels 0; #X obj 70 187 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 93 33 inlet; #X obj 30 239 outlet; #X obj 129 239 outlet; #X obj 93 68 / 100; #X connect 1 0 4 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 3 0 0 1; #X connect 4 0 5 0; #X connect 4 0 0 0; #X connect 5 0 8 0; #X connect 6 0 9 0; #X connect 7 0 10 0; #X connect 10 0 3 1; #X connect 10 0 4 1; #X restore 316 239 pd opLevels; #X obj 24 371 hsl 100 25 0.1 1e+11 1 0 empty empty Gain 2 15 0 10 -203904 -1 -1 400 1; #X obj 27 117 hsl 80 25 1 20 0 0 empty empty Length 2 15 0 10 -261682 -1 -1 1663 1; #X floatatom 24 149 0 0 0 0 - - -; #X obj -352 309 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -315 338 5 0 0 0 - - -; #X obj -270 283 r SET_UP; #X obj -339 369 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -320 396 5 0 0 0 - - -; #X obj -246 337 r SET_UP; #X obj -325 421 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X floatatom -314 443 5 0 0 0 - - -; #X obj -230 390 r SET_UP; #X text -189 364 Source Rotation Y; #X text -173 417 Source Rotation Z; #X obj 508 363 s GAIN; #X obj -59 344 r GAIN; #X obj 466 449 s DIST; #X obj -45 140 r DIST; #X obj 445 491 s LEN; #X obj -41 92 r LEN; #X obj 424 530 s DIA; #X obj -36 32 r DIA; #X obj 403 568 s SPEED; #X floatatom 21 400 0 0 0 0 - - -; #X obj -54 236 r ELEV; #X text -204 310 Source Rotation X; #X obj -267 -67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X obj -267 -87 loadbang; #X obj -267 -27 s myMet; #X obj 487 407 s ELEV; #X obj 508 344 line \$1 50; #X obj 487 385 line \$1 50; #X obj 466 427 line \$1 50; #X obj 445 470 line \$1 50; #X obj 424 511 line \$1 50; #X obj 403 549 line \$1 50; #X obj -267 -48 metro 100; #X obj -314 475 r blust; #X obj -314 498 * 100; #X floatatom -313 519 0 0 0 0 - - -; #X text -266 497 Free Stream Turbulence Intensity (%); #X obj -256 455 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144 -1 -1 0 1; #X obj -156 162 delwrite~ varwind 3000; #X obj -145 116 TUCalc2; #X obj -145 140 s blust; #X msg -156 65 \$1 50; #X obj -156 85 line~; #X obj 26 14 hsl 80 25 0.1 400 0 0 empty empty Air_Speed 2 15 0 10 -204800 -1 -1 2000 1; #X floatatom 23 43 0 0 0 0 - - -; #X text 154 155 Frequency; #X floatatom 156 172 0 0 0 0 - - -; #X floatatom 155 211 0 0 0 0 - - -; #X text 153 194 Reynolds number; #X floatatom 155 249 0 0 0 0 - - -; #X text 153 232 Strouhal number; #X obj -31 497 snapshot~; #X obj -31 474 r myMet; #X obj 160 506 snapshot~; #X obj 160 483 r myMet; #X obj 250 523 snapshot~; #X obj 250 500 r myMet; #X obj 154 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1; #X text 150 18 Preset 1; #X obj 215 37 bng 15 250 50 0 empty empty empty 17 7 0 10 -260097 -1 -1; #X text 211 18 Preset 2; #X obj 154 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -1 -1; #X obj 215 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1; #X text 150 56 Preset 3; #X text 211 56 Preset 4; #X obj -41 -25 r SPEED; #X obj -47 198 r AZIM; #X obj 147 -35 loadbang; #X obj -64 280 r PAN; #X obj 529 304 line \$1 50; #X obj 529 323 s PAN; #X obj 419 239 unpack f f f f f f f f; #X obj 548 263 line \$1 50; #X obj 548 282 s AZIM; #X obj 183 113 bng 15 250 50 0 empty empty empty 17 7 0 10 -258113 -1 -1; #X text 178 95 Stop; #X msg 460 208 0.1 0.008 7 6 90 0 0.5 0; #X text 364 -94 Holding patch for all the elements required to generate the Aeolian tone sound.; #X text 637 118 Presets; #X text 7 566 Patch that performs the calculations \, holds the noise sources and filters.; #X text -398 240 Additional objects should 3D rotation of the source be required; #X msg 418 101 23 0.006 5 4 85 700000 0.5 0; #X msg 427 125 24 0.01 15 6 20 700000 0.4 -20; #X msg 439 153 17 0.003 10 3 -100 700000 0.8 55; #X msg 446 186 28 0.033 7 6 35 700000 0.45 -5; #X obj 59 540 freqCalcCyl4No_D4Mach; #X connect 0 0 1 0; #X connect 0 0 102 0; #X connect 2 0 3 0; #X connect 2 0 102 5; #X connect 4 0 5 0; #X connect 4 0 102 3; #X connect 6 0 7 0; #X connect 6 0 102 4; #X connect 8 0 9 0; #X connect 8 0 102 2; #X connect 12 0 10 0; #X connect 12 1 11 0; #X connect 13 0 12 0; #X connect 13 0 36 0; #X connect 14 0 15 0; #X connect 14 0 102 1; #X connect 16 0 17 0; #X connect 18 0 16 0; #X connect 19 0 20 0; #X connect 21 0 19 0; #X connect 22 0 23 0; #X connect 24 0 22 0; #X connect 28 0 13 0; #X connect 30 0 8 0; #X connect 32 0 14 0; #X connect 34 0 0 0; #X connect 37 0 6 0; #X connect 39 0 49 0; #X connect 40 0 39 0; #X connect 43 0 27 0; #X connect 44 0 42 0; #X connect 45 0 29 0; #X connect 46 0 31 0; #X connect 47 0 33 0; #X connect 48 0 35 0; #X connect 49 0 41 0; #X connect 50 0 51 0; #X connect 51 0 52 0; #X connect 56 0 57 0; #X connect 58 0 59 0; #X connect 59 0 55 0; #X connect 59 0 56 0; #X connect 60 0 58 0; #X connect 60 0 61 0; #X connect 68 0 63 0; #X connect 69 0 68 0; #X connect 70 0 64 0; #X connect 71 0 70 0; #X connect 72 0 66 0; #X connect 73 0 72 0; #X connect 74 0 98 0; #X connect 76 0 99 0; #X connect 78 0 100 0; #X connect 79 0 101 0; #X connect 82 0 60 0; #X connect 83 0 4 0; #X connect 84 0 74 0; #X connect 85 0 2 0; #X connect 86 0 87 0; #X connect 88 0 48 0; #X connect 88 1 47 0; #X connect 88 2 46 0; #X connect 88 3 45 0; #X connect 88 4 44 0; #X connect 88 5 43 0; #X connect 88 6 86 0; #X connect 88 7 89 0; #X connect 89 0 90 0; #X connect 91 0 93 0; #X connect 93 0 88 0; #X connect 98 0 88 0; #X connect 99 0 88 0; #X connect 100 0 88 0; #X connect 101 0 88 0; #X connect 102 0 68 0; #X connect 102 1 70 0; #X connect 102 2 72 0; #X coords 0 -1 1 1 270 430 2 0 0;