view MechAeolian/MA_Test.pd @ 281:dfd88add4725

Propeller: Reducing control on Audio channels Reduced the stereo spread for test purposes Pitch control added GUI Updated shh patch added to reduce audio spike when shifting start positions
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 07 Mar 2017 07:53:21 +0000
parents 2ae93fab838a
children
line wrap: on
line source
#N canvas 262 32 1139 792 10;
#X obj 249 -64 loadbang;
#X obj -164 205 delwrite~ varwind 3000;
#X obj -54 -46 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 200 1;
#X obj -163 -2 *~ 1;
#X obj -163 24 +~ 1;
#X obj 35 -90 loadbang;
#X obj 296 26 hsl 128 15 0.0001 0.3 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5395 1;
#X floatatom 303 52 8 0 0 0 - - -;
#X obj 364 302 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 394 331 5 0 0 0 - - -;
#X obj 337 184 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 6350 1;
#X floatatom 365 213 5 0 0 0 - - -;
#X obj 350 239 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9525 1;
#X floatatom 380 268 5 0 0 0 - - -;
#X obj 323 127 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
-1 -1 8877 1;
#X floatatom 339 156 5 0 0 0 - - -;
#X text 512 303 Pan Value;
#X obj -189 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -126 443 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text -129 352 Gain;
#X obj -181 323 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 79 184 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 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 4 1;
#X connect 7 0 3 1;
#X restore -190 400 pd opLevels;
#X msg -181 346 5;
#X obj -187 371 hsl 100 25 0.1 1e+12 1 0 empty empty empty -2 -8 0
10 -262144 -1 -1 8100 1;
#N canvas 20 383 344 123 machCalc 0;
#X text 107 15 Speed of Sound (dry air 20 Degs C);
#X obj 26 -14 vd~ varwind;
#X obj 26 33 s~ MY_MACH;
#X obj 26 9 /~ 343.56;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X restore 93 -33 pd machCalc;
#X obj 422 -121 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
-1;
#X msg 178 167 0;
#X msg 135 285 0.5;
#X obj 249 -40 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 309 84 hsl 128 15 0.01 20 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 248 1;
#X floatatom 331 103 8 0 0 0 - - -;
#X text -8 353 No Of Sources;
#X obj 422 -63 s SET_UP;
#X obj 294 7 r SET_UP;
#X obj 364 62 r SET_UP;
#X obj 434 101 r SET_UP;
#X obj 422 153 r SET_UP;
#X obj 432 213 r SET_UP;
#X obj 438 271 r SET_UP;
#X obj 382 360 hsl 128 15 0 10000 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9969 1;
#X floatatom 415 389 5 0 0 0 - - -;
#X obj 460 334 r SET_UP;
#X obj 391 420 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 635 1;
#X floatatom 410 447 5 0 0 0 - - -;
#X obj 484 388 r SET_UP;
#X obj 405 472 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6350 1;
#X floatatom 416 494 5 0 0 0 - - -;
#X obj 500 441 r SET_UP;
#X msg 74 450 0;
#X floatatom -16 -23 5 0 0 0 - - -;
#X msg 281 -21 0;
#X obj -400 248 unpack f f f f f f;
#X obj -295 294 s GAIN;
#X obj -190 300 r GAIN;
#X obj -337 380 s DIST;
#X obj 500 101 r DIST;
#X obj -358 422 s LEN;
#X obj 478 49 r LEN;
#X obj -379 461 s DIA;
#X obj 476 -4 r DIA;
#X obj -400 499 s SPEED;
#X obj -57 -70 r SPEED;
#X floatatom -247 401 8 0 0 0 - - -;
#X msg 207 206 90;
#X obj 496 209 r ELEV;
#X obj 529 261 s elev;
#N canvas 634 290 596 443 windDirection 0;
#X obj 183 0 inlet~;
#X obj 280 52 inlet;
#X obj 280 86 sig~;
#X obj 185 251 *~;
#X obj 185 279 outlet~;
#X obj 246 254 outlet~;
#X obj 200 195 cos~;
#X obj 200 135 +~;
#X obj 200 71 lop~ 1;
#X obj 246 194 *~ 360;
#X obj 200 91 lop~ 1;
#X obj 200 30 noise~;
#X obj 200 51 lop~ 1;
#X obj 200 157 /~ 360;
#X obj 200 113 *~ 800;
#X obj 200 221 abs~;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 6 0 15 0;
#X connect 7 0 13 0;
#X connect 8 0 10 0;
#X connect 9 0 5 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 12 0 8 0;
#X connect 13 0 6 0;
#X connect 13 0 9 0;
#X connect 14 0 7 0;
#X connect 15 0 3 1;
#X restore -129 88 pd windDirection;
#X obj -11 148 snapshot~;
#X floatatom -11 175 10 0 0 0 - - -;
#X text -14 193 Wind Speed;
#X obj -33 63 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 199 110 4;
#X obj 70 148 snapshot~;
#X floatatom 70 175 10 0 0 0 - - -;
#X text 67 193 Wind Direction;
#X obj -163 -32 WindGenD1;
#X msg -2 -69 20;
#X obj 618 -69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 618 -94 loadbang;
#X obj 618 -23 s myMet;
#X obj 70 125 r myMet;
#X obj -11 125 r myMet;
#X msg 158 222 45;
#X obj -316 338 s ELEV;
#X obj -115 119 TUCalc2;
#X msg 216 250 18.435;
#X msg 348 -33 0.019;
#X msg 349 -52 0.0254;
#X msg 349 -72 0.0127;
#X obj -94 -23 * 0.5;
#X obj -57 -23 * 0.88;
#X obj -295 275 line \$1 50;
#X obj -316 316 line \$1 50;
#X obj -337 358 line \$1 50;
#X obj -358 401 line \$1 50;
#X obj -379 442 line \$1 50;
#X obj -400 480 line \$1 50;
#X msg 253 183 0;
#X obj -115 143 s blust;
#X floatatom -64 141 0 0 0 0 - - -;
#X msg 251 101 12;
#X msg -400 130 23 0.006 5 4 85 1e+07;
#X msg -391 154 24 0.01 15 6 77 1e+07;
#X msg -379 182 17 0.0015 10 3 -100 1e+07;
#X msg -372 215 28 0.04 7 6 35 1e+07;
#X obj -75 284 sig~;
#X obj 293 577 MechAeolianD1;
#X msg 113 343 7850;
#X text 434 29 Diameter (m);
#X text 441 68 Length (m);
#X text 461 128 Obs Distance (m);
#X text 476 184 Obs Azimuth (degs);
#X text 489 240 Obs Elevation (degs);
#X text 526 361 Mass Desnity (kg / m^3);
#X text 541 415 Tension (N);
#X obj 422 -84 uzi 20;
#X msg 601 386 30.085;
#X msg 552 386 418;
#X obj 618 -47 metro 10;
#X msg 411 -27 0.00038;
#X msg 416 52 0.6477;
#X msg 629 429 86.3;
#X msg 236 11 0.003;
#X msg 215 67 0.4;
#X msg 93 397 50;
#X floatatom 208 600 0 0 0 0 - - -;
#X floatatom 342 604 0 0 0 0 - - -;
#X floatatom 394 603 0 0 0 0 - - -;
#X floatatom 260 605 0 0 0 0 - - -;
#X msg 35 -70 7;
#X msg -75 260 20;
#X msg 348 -16 0.004;
#X connect 0 0 28 0;
#X connect 2 0 49 0;
#X connect 2 0 89 0;
#X connect 2 0 90 0;
#X connect 3 0 4 0;
#X connect 4 0 1 0;
#X connect 4 0 67 0;
#X connect 5 0 129 0;
#X connect 6 0 7 0;
#X connect 6 0 106 0;
#X connect 8 0 9 0;
#X connect 8 0 106 5;
#X connect 10 0 11 0;
#X connect 10 0 106 3;
#X connect 12 0 13 0;
#X connect 12 0 65 0;
#X connect 12 0 106 4;
#X connect 14 0 15 0;
#X connect 14 0 106 2;
#X connect 20 0 22 0;
#X connect 21 0 17 0;
#X connect 21 1 18 0;
#X connect 22 0 23 0;
#X connect 23 0 21 0;
#X connect 23 0 62 0;
#X connect 25 0 115 0;
#X connect 26 0 10 0;
#X connect 27 0 8 0;
#X connect 28 0 50 0;
#X connect 28 0 122 0;
#X connect 28 0 71 0;
#X connect 28 0 26 0;
#X connect 28 0 82 0;
#X connect 28 0 27 0;
#X connect 28 0 123 0;
#X connect 28 0 107 0;
#X connect 28 0 124 0;
#X connect 28 0 48 0;
#X connect 29 0 30 0;
#X connect 29 0 106 1;
#X connect 33 0 6 0;
#X connect 34 0 29 0;
#X connect 35 0 14 0;
#X connect 36 0 10 0;
#X connect 37 0 12 0;
#X connect 38 0 8 0;
#X connect 39 0 40 0;
#X connect 39 0 106 7;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 42 0 106 6;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 47 0 45 0;
#X connect 48 0 45 0;
#X connect 51 0 96 0;
#X connect 51 1 95 0;
#X connect 51 2 94 0;
#X connect 51 3 93 0;
#X connect 51 4 92 0;
#X connect 51 5 91 0;
#X connect 53 0 23 0;
#X connect 55 0 14 0;
#X connect 57 0 29 0;
#X connect 59 0 6 0;
#X connect 61 0 2 0;
#X connect 63 0 12 0;
#X connect 64 0 12 0;
#X connect 66 0 84 0;
#X connect 66 1 72 0;
#X connect 67 0 68 0;
#X connect 70 0 66 1;
#X connect 71 0 14 0;
#X connect 72 0 73 0;
#X connect 75 0 3 0;
#X connect 76 0 2 0;
#X connect 77 0 118 0;
#X connect 78 0 77 0;
#X connect 80 0 72 0;
#X connect 81 0 67 0;
#X connect 82 0 12 0;
#X connect 84 0 98 0;
#X connect 84 0 99 0;
#X connect 85 0 12 0;
#X connect 86 0 6 0;
#X connect 87 0 6 0;
#X connect 88 0 6 0;
#X connect 89 0 3 1;
#X connect 90 0 4 1;
#X connect 91 0 52 0;
#X connect 92 0 83 0;
#X connect 93 0 54 0;
#X connect 94 0 56 0;
#X connect 95 0 58 0;
#X connect 96 0 60 0;
#X connect 97 0 12 0;
#X connect 100 0 14 0;
#X connect 101 0 51 0;
#X connect 102 0 51 0;
#X connect 103 0 51 0;
#X connect 104 0 51 0;
#X connect 106 0 125 0;
#X connect 106 1 128 0;
#X connect 106 2 126 0;
#X connect 106 3 127 0;
#X connect 107 0 39 0;
#X connect 115 0 32 0;
#X connect 116 0 42 0;
#X connect 117 0 42 0;
#X connect 118 0 79 0;
#X connect 119 0 6 0;
#X connect 120 0 29 0;
#X connect 121 0 106 6;
#X connect 122 0 6 0;
#X connect 123 0 29 0;
#X connect 124 0 42 0;
#X connect 129 0 2 0;
#X connect 130 0 105 0;
#X connect 131 0 6 0;