annotate scene demo/Draft2Aeolian/testBedD6.pd @ 227:b96e767d1b05

13 string harp demo added.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Wed, 15 Jun 2016 19:38:20 +0100
parents 451337700704
children
rev   line source
r@201 1 #N canvas 169 58 1119 756 10;
r@201 2 #X obj -154 215 delwrite~ varwind 3000;
r@201 3 #X obj -44 -36 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10 -262144
r@201 4 -1 -1 1693 1;
r@201 5 #X obj -153 8 *~ 1;
r@201 6 #X obj -153 34 +~ 1;
r@201 7 #X obj 45 -80 loadbang;
r@201 8 #X msg 45 -60 5;
r@201 9 #X obj -179 453 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201 10 #X obj -116 453 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@201 11 #X text -119 362 Gain;
r@201 12 #X obj -171 333 loadbang;
r@201 13 #N canvas 555 179 313 396 opLevels 0;
r@201 14 #X obj 79 184 dac~;
r@201 15 #X obj 30 70 catch~ l;
r@201 16 #X obj 128 70 catch~ r;
r@201 17 #X obj 129 104 *~ 0.45;
r@201 18 #X obj 30 104 *~ 0.45;
r@201 19 #X obj 30 210 prvu~;
r@201 20 #X obj 129 211 prvu~;
r@201 21 #X obj 93 33 inlet;
r@201 22 #X obj 30 239 outlet;
r@201 23 #X obj 129 239 outlet;
r@201 24 #X connect 1 0 4 0;
r@201 25 #X connect 2 0 3 0;
r@201 26 #X connect 3 0 6 0;
r@201 27 #X connect 3 0 0 1;
r@201 28 #X connect 4 0 5 0;
r@201 29 #X connect 4 0 0 0;
r@201 30 #X connect 5 0 8 0;
r@201 31 #X connect 6 0 9 0;
r@201 32 #X connect 7 0 4 1;
r@201 33 #X connect 7 0 3 1;
r@201 34 #X restore -180 410 pd opLevels;
r@201 35 #X msg -171 356 5;
r@201 36 #X obj -177 381 hsl 100 25 0.1 1e+09 1 0 empty empty empty -2 -8 0
r@201 37 10 -262144 -1 -1 7900 1;
r@201 38 #N canvas 20 383 344 123 machCalc 0;
r@201 39 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@201 40 #X obj 26 -14 vd~ varwind;
r@201 41 #X obj 26 33 s~ MY_MACH;
r@201 42 #X obj 26 9 /~ 343.56;
r@201 43 #X connect 1 0 3 0;
r@201 44 #X connect 3 0 2 0;
r@201 45 #X restore -264 -79 pd machCalc;
r@201 46 #X obj 140 -114 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
r@201 47 -1;
r@201 48 #X obj 140 -47 s SET_UP;
r@201 49 #X floatatom -6 -13 5 0 0 0 - - -;
r@201 50 #X obj -390 258 unpack f f f f f f;
r@201 51 #X obj -285 304 s GAIN;
r@201 52 #X obj -180 310 r GAIN;
r@201 53 #X obj -327 390 s DIST;
r@201 54 #X obj -348 432 s LEN;
r@201 55 #X obj -369 471 s DIA;
r@201 56 #X obj -390 509 s SPEED;
r@201 57 #X obj -47 -60 r SPEED;
r@201 58 #X floatatom -237 411 8 0 0 0 - - -;
r@201 59 #N canvas 634 290 596 443 windDirection 0;
r@201 60 #X obj 183 0 inlet~;
r@201 61 #X obj 280 52 inlet;
r@201 62 #X obj 280 86 sig~;
r@201 63 #X obj 185 251 *~;
r@201 64 #X obj 185 279 outlet~;
r@201 65 #X obj 246 254 outlet~;
r@201 66 #X obj 200 195 cos~;
r@201 67 #X obj 200 135 +~;
r@201 68 #X obj 200 71 lop~ 1;
r@201 69 #X obj 246 194 *~ 360;
r@201 70 #X obj 200 91 lop~ 1;
r@201 71 #X obj 200 30 noise~;
r@201 72 #X obj 200 51 lop~ 1;
r@201 73 #X obj 200 157 /~ 360;
r@201 74 #X obj 200 113 *~ 800;
r@201 75 #X obj 200 221 abs~;
r@201 76 #X connect 0 0 3 0;
r@201 77 #X connect 1 0 2 0;
r@201 78 #X connect 2 0 7 1;
r@201 79 #X connect 3 0 4 0;
r@201 80 #X connect 6 0 15 0;
r@201 81 #X connect 7 0 13 0;
r@201 82 #X connect 8 0 10 0;
r@201 83 #X connect 9 0 5 0;
r@201 84 #X connect 10 0 14 0;
r@201 85 #X connect 11 0 12 0;
r@201 86 #X connect 12 0 8 0;
r@201 87 #X connect 13 0 6 0;
r@201 88 #X connect 13 0 9 0;
r@201 89 #X connect 14 0 7 0;
r@201 90 #X connect 15 0 3 1;
r@201 91 #X restore -154 113 pd windDirection;
r@201 92 #X obj -335 -13 snapshot~;
r@201 93 #X floatatom -335 14 10 0 0 0 - - -;
r@201 94 #X text -338 32 Wind Speed;
r@201 95 #X obj -58 88 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@201 96 -1 -1 0 1;
r@201 97 #X obj -254 -13 snapshot~;
r@201 98 #X floatatom -254 14 10 0 0 0 - - -;
r@201 99 #X text -257 32 Wind Direction;
r@201 100 #X obj -153 -22 WindGenD1;
r@201 101 #X msg 8 -59 20;
r@201 102 #X obj -135 -125 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@201 103 1 1;
r@201 104 #X obj -135 -150 loadbang;
r@201 105 #X obj -135 -79 s myMet;
r@201 106 #X obj -254 -36 r myMet;
r@201 107 #X obj -335 -36 r myMet;
r@201 108 #X obj -306 348 s ELEV;
r@201 109 #X obj -140 144 TUCalc2;
r@201 110 #X obj -84 -13 * 0.5;
r@201 111 #X obj -47 -13 * 0.88;
r@201 112 #X obj -285 285 line \$1 50;
r@201 113 #X obj -306 326 line \$1 50;
r@201 114 #X obj -327 368 line \$1 50;
r@201 115 #X obj -348 411 line \$1 50;
r@201 116 #X obj -369 452 line \$1 50;
r@201 117 #X obj -390 490 line \$1 50;
r@201 118 #X obj -135 -103 metro 100;
r@201 119 #X obj -140 168 s blust;
r@201 120 #X floatatom -89 166 0 0 0 0 - - -;
r@201 121 #X obj -140 273 sig~;
r@201 122 #X msg -104 257 16.6;
r@201 123 #X msg -390 140 23 0.006 5 4 85 1e+07;
r@201 124 #X msg -381 164 24 0.01 15 6 77 1e+07;
r@201 125 #X msg -369 192 17 0.0015 10 2 -15 1e+07;
r@201 126 #X msg -362 225 28 0.04 7 6 35 1e+07;
r@201 127 #X obj 60 291 unpack f f f f f f;
r@201 128 #X obj 165 337 s GAIN;
r@201 129 #X obj 59 545 s SPEED;
r@201 130 #X obj 165 318 line \$1 50;
r@201 131 #X obj 144 359 line \$1 50;
r@201 132 #X obj 122 404 line \$1 50;
r@201 133 #X obj 101 447 line \$1 50;
r@201 134 #X obj 80 488 line \$1 50;
r@201 135 #X obj 59 526 line \$1 50;
r@201 136 #X msg 60 173 23 0.006 5 4 85 1e+07;
r@201 137 #X msg 69 197 24 0.01 15 6 77 1e+07;
r@201 138 #X msg 81 225 17 0.0015 10 2 -15 1e+07;
r@201 139 #X msg 88 258 28 0.04 7 6 35 1e+07;
r@201 140 #X obj 144 381 s ELEV2;
r@201 141 #X obj 122 426 s DIST2;
r@201 142 #X obj 101 468 s LEN2;
r@201 143 #X obj 80 507 s DIA2;
r@201 144 #X obj 140 -72 uzi 20;
r@201 145 #X msg 250 -110 0.009 2 4 45 0 0.2 200;
r@201 146 #N canvas 437 135 988 799 oneTone 0;
r@201 147 #X obj 266 -14 loadbang;
r@201 148 #X obj 313 76 hsl 128 15 0.001 0.3 1 0 empty empty empty -2 -8 0 10
r@201 149 -262144 -1 -1 8214 1;
r@201 150 #X floatatom 320 102 8 0 0 0 - - -;
r@201 151 #X obj 381 352 hsl 128 15 0.01 0.99 0 0 empty empty empty -2 -8 0 10
r@201 152 -262144 -1 -1 10238 1;
r@201 153 #X floatatom 411 381 5 0 0 0 - - -;
r@201 154 #X text 451 79 Diameter;
r@201 155 #X obj 354 234 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@201 156 -1 -1 7408 1;
r@201 157 #X floatatom 382 263 5 0 0 0 - - -;
r@201 158 #X obj 367 289 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201 159 -262144 -1 -1 7937 1;
r@201 160 #X floatatom 397 318 5 0 0 0 - - -;
r@201 161 #X obj 340 177 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@201 162 -1 -1 7759 1;
r@201 163 #X floatatom 356 206 5 0 0 0 - - -;
r@201 164 #X text 529 353 Pan Value;
r@201 165 #X msg 195 217 0;
r@201 166 #X msg 152 335 0.5;
r@201 167 #X obj 266 10 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
r@201 168 -1;
r@201 169 #X obj 326 134 hsl 128 15 1 20 0 0 empty empty empty -2 -8 0 10 -262144
r@201 170 -1 -1 4011 1;
r@201 171 #X floatatom 348 153 8 0 0 0 - - -;
r@201 172 #X msg 232 117 4;
r@201 173 #X text 458 118 Length;
r@201 174 #X obj 311 57 r SET_UP;
r@201 175 #X obj 381 112 r SET_UP;
r@201 176 #X obj 415 154 r SET_UP;
r@201 177 #X obj 439 203 r SET_UP;
r@201 178 #X obj 449 263 r SET_UP;
r@201 179 #X obj 455 321 r SET_UP;
r@201 180 #X text 478 178 Obs Distance;
r@201 181 #X obj 395 410 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201 182 -262144 -1 -1 6350 1;
r@201 183 #X floatatom 432 439 5 0 0 0 - - -;
r@201 184 #X obj 477 384 r SET_UP;
r@201 185 #X obj 408 470 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201 186 -262144 -1 -1 6350 1;
r@201 187 #X floatatom 427 497 5 0 0 0 - - -;
r@201 188 #X obj 501 438 r SET_UP;
r@201 189 #X obj 422 522 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@201 190 -262144 -1 -1 6350 1;
r@201 191 #X floatatom 433 544 5 0 0 0 - - -;
r@201 192 #X obj 517 491 r SET_UP;
r@201 193 #X msg 130 393 0;
r@201 194 #X msg 110 447 0;
r@201 195 #X msg 91 500 0;
r@201 196 #X text 558 465 Source Rotation Y;
r@201 197 #X text 574 518 Source Rotation Z;
r@201 198 #X msg 298 29 0;
r@201 199 #X text 506 290 Obs Elevation;
r@201 200 #X text 493 234 Obs Azimuth;
r@201 201 #X text 536 401 Source Rotation X;
r@201 202 #X msg 216 160 4;
r@201 203 #X msg 175 272 45;
r@201 204 #X msg 253 61 0.005;
r@201 205 #X obj 433 576 r blust;
r@201 206 #X obj 433 599 * 100;
r@201 207 #X floatatom 451 628 0 0 0 0 - - -;
r@201 208 #X text 481 598 Free Stream Turbulence Intensity (%);
r@201 209 #X obj 491 556 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@201 210 -1 -1 0 1;
r@201 211 #X obj 310 627 freqCalcCyl3No_D3Mach;
r@201 212 #X msg 216 547 200;
r@201 213 #X obj 216 581 vd~ varwind;
r@201 214 #X obj 742 -5 inlet;
r@201 215 #X obj 407 42 r \$0-sourceDia;
r@201 216 #X obj 742 169 s \$0-sourceDia;
r@201 217 #X obj 761 146 s \$0-sourceLen;
r@201 218 #X obj 453 99 r \$0-sourceLen;
r@201 219 #X obj 513 259 r \$0-sourecElev;
r@201 220 #X obj 527 323 r \$0-sourecPan;
r@201 221 #X obj 470 154 r \$0-sourceDis;
r@201 222 #X obj 781 124 s \$0-sourceDis;
r@201 223 #X obj 800 103 s \$0-sourceElev;
r@201 224 #X obj 839 62 s \$0-sourecPan;
r@201 225 #X obj 506 210 r \$0-sourecAzim;
r@201 226 #X obj 820 82 s \$0-sourecAzim;
r@201 227 #X obj 119 547 r \$0-soureceDel;
r@201 228 #X obj 742 17 unpack f f f f f f f;
r@201 229 #X obj 859 40 s \$0-soureceDel;
r@201 230 #X floatatom 119 581 0 0 0 0 - - -;
r@201 231 #X connect 0 0 15 0;
r@201 232 #X connect 1 0 2 0;
r@201 233 #X connect 1 0 53 1;
r@201 234 #X connect 3 0 4 0;
r@201 235 #X connect 3 0 53 6;
r@201 236 #X connect 6 0 7 0;
r@201 237 #X connect 6 0 53 4;
r@201 238 #X connect 8 0 9 0;
r@201 239 #X connect 8 0 53 5;
r@201 240 #X connect 10 0 11 0;
r@201 241 #X connect 10 0 53 3;
r@201 242 #X connect 13 0 6 0;
r@201 243 #X connect 14 0 3 0;
r@201 244 #X connect 15 0 41 0;
r@201 245 #X connect 15 0 47 0;
r@201 246 #X connect 15 0 45 0;
r@201 247 #X connect 15 0 13 0;
r@201 248 #X connect 15 0 46 0;
r@201 249 #X connect 15 0 14 0;
r@201 250 #X connect 15 0 18 0;
r@201 251 #X connect 15 0 36 0;
r@201 252 #X connect 15 0 37 0;
r@201 253 #X connect 15 0 38 0;
r@201 254 #X connect 15 0 54 0;
r@201 255 #X connect 16 0 17 0;
r@201 256 #X connect 16 0 53 2;
r@201 257 #X connect 18 0 16 0;
r@201 258 #X connect 20 0 1 0;
r@201 259 #X connect 21 0 16 0;
r@201 260 #X connect 22 0 10 0;
r@201 261 #X connect 23 0 6 0;
r@201 262 #X connect 24 0 8 0;
r@201 263 #X connect 25 0 3 0;
r@201 264 #X connect 27 0 28 0;
r@201 265 #X connect 27 0 53 7;
r@201 266 #X connect 29 0 27 0;
r@201 267 #X connect 30 0 31 0;
r@201 268 #X connect 30 0 53 8;
r@201 269 #X connect 32 0 30 0;
r@201 270 #X connect 33 0 34 0;
r@201 271 #X connect 33 0 53 9;
r@201 272 #X connect 35 0 33 0;
r@201 273 #X connect 36 0 27 0;
r@201 274 #X connect 37 0 30 0;
r@201 275 #X connect 38 0 33 0;
r@201 276 #X connect 45 0 10 0;
r@201 277 #X connect 46 0 8 0;
r@201 278 #X connect 47 0 1 0;
r@201 279 #X connect 48 0 49 0;
r@201 280 #X connect 49 0 50 0;
r@201 281 #X connect 49 0 53 10;
r@201 282 #X connect 54 0 55 0;
r@201 283 #X connect 55 0 53 0;
r@201 284 #X connect 56 0 70 0;
r@201 285 #X connect 57 0 1 0;
r@201 286 #X connect 60 0 16 0;
r@201 287 #X connect 61 0 8 0;
r@201 288 #X connect 62 0 3 0;
r@201 289 #X connect 63 0 10 0;
r@201 290 #X connect 67 0 6 0;
r@201 291 #X connect 69 0 55 0;
r@201 292 #X connect 69 0 72 0;
r@201 293 #X connect 70 0 58 0;
r@201 294 #X connect 70 1 59 0;
r@201 295 #X connect 70 2 64 0;
r@201 296 #X connect 70 3 65 0;
r@201 297 #X connect 70 4 68 0;
r@201 298 #X connect 70 5 66 0;
r@201 299 #X connect 70 6 71 0;
r@201 300 #X restore 423 -50 pd oneTone;
r@201 301 #X msg 423 -75 0.04 7 6 35 15 0.8 1000;
r@201 302 #X obj 250 -85 oneTone;
r@201 303 #X connect 1 0 16 0;
r@201 304 #X connect 1 0 43 0;
r@201 305 #X connect 1 0 44 0;
r@201 306 #X connect 2 0 3 0;
r@201 307 #X connect 3 0 26 0;
r@201 308 #X connect 4 0 5 0;
r@201 309 #X connect 5 0 1 0;
r@201 310 #X connect 9 0 11 0;
r@201 311 #X connect 10 0 6 0;
r@201 312 #X connect 10 1 7 0;
r@201 313 #X connect 11 0 12 0;
r@201 314 #X connect 12 0 10 0;
r@201 315 #X connect 12 0 25 0;
r@201 316 #X connect 14 0 77 0;
r@201 317 #X connect 17 0 50 0;
r@201 318 #X connect 17 1 49 0;
r@201 319 #X connect 17 2 48 0;
r@201 320 #X connect 17 3 47 0;
r@201 321 #X connect 17 4 46 0;
r@201 322 #X connect 17 5 45 0;
r@201 323 #X connect 19 0 12 0;
r@201 324 #X connect 24 0 1 0;
r@201 325 #X connect 26 0 42 0;
r@201 326 #X connect 26 0 27 0;
r@201 327 #X connect 26 0 0 0;
r@201 328 #X connect 26 1 31 0;
r@201 329 #X connect 27 0 28 0;
r@201 330 #X connect 30 0 26 1;
r@201 331 #X connect 31 0 32 0;
r@201 332 #X connect 34 0 2 0;
r@201 333 #X connect 35 0 1 0;
r@201 334 #X connect 36 0 51 0;
r@201 335 #X connect 37 0 36 0;
r@201 336 #X connect 39 0 31 0;
r@201 337 #X connect 40 0 27 0;
r@201 338 #X connect 42 0 52 0;
r@201 339 #X connect 42 0 53 0;
r@201 340 #X connect 43 0 2 1;
r@201 341 #X connect 44 0 3 1;
r@201 342 #X connect 45 0 18 0;
r@201 343 #X connect 46 0 41 0;
r@201 344 #X connect 47 0 20 0;
r@201 345 #X connect 48 0 21 0;
r@201 346 #X connect 49 0 22 0;
r@201 347 #X connect 50 0 23 0;
r@201 348 #X connect 51 0 38 0;
r@201 349 #X connect 55 0 54 0;
r@201 350 #X connect 56 0 17 0;
r@201 351 #X connect 57 0 17 0;
r@201 352 #X connect 58 0 17 0;
r@201 353 #X connect 59 0 17 0;
r@201 354 #X connect 60 0 68 0;
r@201 355 #X connect 60 1 67 0;
r@201 356 #X connect 60 2 66 0;
r@201 357 #X connect 60 3 65 0;
r@201 358 #X connect 60 4 64 0;
r@201 359 #X connect 60 5 63 0;
r@201 360 #X connect 63 0 61 0;
r@201 361 #X connect 64 0 73 0;
r@201 362 #X connect 65 0 74 0;
r@201 363 #X connect 66 0 75 0;
r@201 364 #X connect 67 0 76 0;
r@201 365 #X connect 68 0 62 0;
r@201 366 #X connect 69 0 60 0;
r@201 367 #X connect 70 0 60 0;
r@201 368 #X connect 71 0 60 0;
r@201 369 #X connect 72 0 60 0;
r@201 370 #X connect 77 0 15 0;
r@201 371 #X connect 78 0 81 0;
r@201 372 #X connect 80 0 79 0;