view SwordSounds/sourceSpeed.pd @ 102:c64c81777e76

Brain melt over calculating the angle between source and observer. Looked at source having own axis with lift and drag normal to the axis of the sword.

#N canvas 0 23 1408 813 10;
#X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
-1 -1;
#X obj -219 -68 s GO;
#X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -279 -68 s setUp;
#X obj -98 420 line~;
#X text -89 -100 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X obj -211 469 loadbang;
#X obj -211 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -211 508 metro 10;
#X obj -211 530 snapshot~;
#X floatatom -211 550 5 0 0 0 - - -;
#X obj -130 566 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg -268 354 \$1 \$2;
#X obj -268 329 pack;
#X msg -98 386 0;
#X obj -269 306 f;
#X obj -269 261 r GO;
#X msg 41 388 0 \$1;
#X obj 40 311 t f b;
#X obj 41 339 delay;
#X obj -98 365 r setUp;
#X text -115 346 Start at 0 speed;
#X text 83 399 \$1 = time to reach speed of 0;
#X obj 55 264 r preswingTime;
#X text -7 224 Trigger once full speed;
#X obj -98 453 outlet~;
#X obj 233 -103 inlet;
#X obj 327 -105 inlet;
#X obj 233 -80 s \$0_thisGroup;
#X obj 327 -81 s \$0_thisSource;
#X text -331 385 \$1 = source speed;
#X text -331 401 \$2 = time to reach source speed;
#X obj -243 305 r preswingTime;
#X obj 236 16 r \$0_thisGroup;
#X obj 251 36 r \$0_thisSource;
#X obj 236 58 +;
#X floatatom 190 85 5 0 0 0 - - -;
#X obj 236 84 s \$0_mySourceNo;
#X obj -239 -39 r \$0_mySourceNo;
#X obj -224 -19 r deltaPreCirc;
#X obj -239 2 *;
#X obj -239 43 +;
#X obj -224 22 r minPreCirc;
#X floatatom -302 64 5 0 0 0 - - -;
#X obj -224 64 r preswingTime;
#X obj -239 107 /;
#X obj -224 85 * 0.001;
#X obj -239 134 * 2;
#X text -196 114 Average Speed;
#X text -199 138 Top Speed for this source;
#X floatatom -292 160 5 0 0 0 - - -;
#X obj -239 161 s \$0_myPreSourceSpeed;
#X obj -254 282 r \$0_myPreSourceSpeed;
#X obj 98 328 r postswingTime;
#X floatatom 130 351 5 0 0 0 - - -;
#X obj 40 244 r GO;
#X obj 40 286 f;
#X obj 41 366 f;
#X obj 436 7 r start_armLength;
#X obj 421 -15 r length;
#X obj 421 69 -;
#X obj 469 50 r NoOfSources;
#X obj 454 29 r \$0_mySourceNo;
#X obj 454 72 /;
#X obj 421 94 *;
#X floatatom 376 162 5 0 0 0 - - -;
#X obj 421 137 +;
#X obj 436 115 r start_armLength;
#X text 476 163 Distance from centre of arc;
#X obj 421 162 sig~;
#X obj 421 210 s~ \$0_srcCnt;
#X obj 618 324 loadbang;
#X obj 618 345 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 618 363 metro 10;
#X obj 618 385 snapshot~;
#X floatatom 618 405 5 0 0 0 - - -;
#X obj 457 331 r~ \$0_srcCnt;
#X obj 457 360 thisPosition;
#X text 446 376 Y;
#X text 472 376 X;
#X text 494 376 Z;
#X obj 615 431 loadbang;
#X obj 615 452 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 615 470 metro 10;
#X obj 615 492 snapshot~;
#X floatatom 615 512 5 0 0 0 - - -;
#X obj 322 414 loadbang;
#X obj 322 435 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 322 453 metro 10;
#X obj 322 475 snapshot~;
#X floatatom 322 495 5 0 0 0 - - -;
#X obj 333 304 loadbang;
#X obj 333 325 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 333 343 metro 10;
#X obj 333 365 snapshot~;
#X floatatom 333 385 5 0 0 0 - - -;
#X obj 467 402 thisAngle;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 4 0 9 0;
#X connect 4 0 25 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 12 0 4 0;
#X connect 13 0 12 0;
#X connect 14 0 4 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 4 0;
#X connect 18 0 19 1;
#X connect 18 1 19 0;
#X connect 19 0 57 0;
#X connect 20 0 14 0;
#X connect 23 0 56 1;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 32 0 13 1;
#X connect 33 0 35 0;
#X connect 34 0 35 1;
#X connect 35 0 36 0;
#X connect 35 0 37 0;
#X connect 38 0 40 0;
#X connect 39 0 40 1;
#X connect 40 0 41 0;
#X connect 41 0 43 0;
#X connect 41 0 45 0;
#X connect 42 0 41 1;
#X connect 44 0 46 0;
#X connect 45 0 47 0;
#X connect 46 0 45 1;
#X connect 47 0 50 0;
#X connect 47 0 51 0;
#X connect 52 0 15 1;
#X connect 53 0 54 0;
#X connect 53 0 57 1;
#X connect 55 0 56 0;
#X connect 56 0 18 0;
#X connect 57 0 17 0;
#X connect 58 0 60 1;
#X connect 59 0 60 0;
#X connect 60 0 64 0;
#X connect 61 0 63 1;
#X connect 62 0 63 0;
#X connect 63 0 64 1;
#X connect 64 0 66 0;
#X connect 66 0 65 0;
#X connect 66 0 69 0;
#X connect 67 0 66 1;
#X connect 69 0 70 0;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 76 0 77 0;
#X connect 77 0 94 0;
#X connect 77 0 96 0;
#X connect 77 1 89 0;
#X connect 77 1 96 1;
#X connect 77 2 84 0;
#X connect 77 2 96 2;
#X connect 77 3 74 0;
#X connect 77 3 96 3;
#X connect 81 0 82 0;
#X connect 82 0 83 0;
#X connect 83 0 84 0;
#X connect 84 0 85 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 88 0 89 0;
#X connect 89 0 90 0;
#X connect 91 0 92 0;
#X connect 92 0 93 0;
#X connect 93 0 94 0;
#X connect 94 0 95 0;