view newSwordAuto/sourceSpeed.pd @ 176:a297efeba5c0

Sword model - Calculated bases for the plane of the sword, the projection matrix and the position of the observer projected onto this plane. Then can calculate the elevation and the azimuth between source and observer.

Next - add additional sources along the blade length.

#N canvas 140 48 1008 758 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 text -89 -100 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X obj -202 498 loadbang;
#X obj -202 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -202 537 metro 10;
#X obj -202 559 snapshot~;
#X floatatom -202 579 5 0 0 0 - - -;
#X obj -121 595 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg -259 383 \$1 \$2;
#X obj -259 358 pack;
#X msg -89 415 0;
#X obj -260 335 f;
#X obj -281 291 r GO;
#X msg 50 417 0 \$1;
#X obj 49 340 t f b;
#X obj 50 368 delay;
#X obj -89 394 r setUp;
#X text -106 375 Start at 0 speed;
#X text 92 428 \$1 = time to reach speed of 0;
#X obj 64 293 r preswingTime;
#X text 2 253 Trigger once full speed;
#X obj -89 482 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 -322 414 \$1 = source speed;
#X text -322 430 \$2 = time to reach source speed;
#X obj -234 334 r preswingTime;
#X obj -215 73 r deltaPreCirc;
#X obj -230 94 *;
#X obj -230 135 +;
#X obj -215 114 r minPreCirc;
#X floatatom -293 156 5 0 0 0 - - -;
#X obj -215 156 r preswingTime;
#X obj -230 199 /;
#X obj -215 177 * 0.001;
#X obj -230 226 * 2;
#X text -187 206 Average Speed;
#X text -190 230 Top Speed for this source;
#X floatatom -283 252 5 0 0 0 - - -;
#X obj 107 357 r postswingTime;
#X floatatom 139 380 5 0 0 0 - - -;
#X obj 49 273 r GO;
#X obj 49 315 f;
#X obj 50 395 f;
#X floatatom -74 98 0 0 0 0 - - -;
#X floatatom -118 137 0 0 0 0 - - -;
#X floatatom -302 114 0 0 0 0 - - -;
#X floatatom -266 68 0 0 0 0 - - -;
#X obj -230 12 r \$0_thisGroup;
#X obj -215 31 r \$0_thisSource;
#X obj -230 52 +;
#X obj 272 482 vline~;
#X obj -89 449 vline~;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 11 0 57 0;
#X connect 12 0 11 0;
#X connect 13 0 57 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 57 0;
#X connect 17 0 18 1;
#X connect 17 1 18 0;
#X connect 18 0 48 0;
#X connect 19 0 13 0;
#X connect 22 0 47 1;
#X connect 25 0 27 0;
#X connect 26 0 28 0;
#X connect 31 0 12 1;
#X connect 32 0 33 1;
#X connect 32 0 49 0;
#X connect 33 0 34 0;
#X connect 33 0 51 0;
#X connect 34 0 36 0;
#X connect 34 0 38 0;
#X connect 35 0 34 1;
#X connect 35 0 50 0;
#X connect 37 0 39 0;
#X connect 38 0 40 0;
#X connect 39 0 38 1;
#X connect 40 0 43 0;
#X connect 40 0 14 1;
#X connect 44 0 45 0;
#X connect 44 0 48 1;
#X connect 46 0 47 0;
#X connect 47 0 17 0;
#X connect 48 0 16 0;
#X connect 53 0 55 0;
#X connect 54 0 55 1;
#X connect 55 0 33 0;
#X connect 57 0 8 0;
#X connect 57 0 24 0;