view SwordSounds/sourceSpeed.pd @ 98:84a9624cbe77

SwordSounds: Create version with only 10 sources, equally space over the length of the sword. Calculate elevation change as well as azimuth change over the swing time.

#N canvas 19 30 1408 813 10;
#X obj 133 -151 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 133 -98 s GO;
#X obj 73 -151 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj 73 -98 s setUp;
#X obj 254 390 line~;
#X text 263 -130 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X obj 141 439 loadbang;
#X obj 141 460 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 141 478 metro 10;
#X obj 141 500 snapshot~;
#X floatatom 141 520 5 0 0 0 - - -;
#X obj 222 536 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 84 324 \$1 \$2;
#X obj 84 299 pack;
#X msg 254 356 0;
#X obj 83 276 f;
#X obj 83 231 r GO;
#X msg 393 358 0 \$1;
#X obj 392 281 t f b;
#X obj 393 309 delay;
#X obj 254 335 r setUp;
#X text 237 316 Start at 0 speed;
#X text 435 369 \$1 = time to reach speed of 0;
#X obj 407 234 r preswingTime;
#X text 345 194 Trigger once full speed;
#X obj 254 423 outlet~;
#X obj 585 -133 inlet;
#X obj 679 -135 inlet;
#X obj 585 -110 s \$0_thisGroup;
#X obj 679 -111 s \$0_thisSource;
#X text 21 355 \$1 = source speed;
#X text 21 371 \$2 = time to reach source speed;
#X obj 109 275 r preswingTime;
#X obj 588 -14 r \$0_thisGroup;
#X obj 603 6 r \$0_thisSource;
#X obj 588 28 +;
#X floatatom 542 55 5 0 0 0 - - -;
#X obj 588 54 s \$0_mySourceNo;
#X obj 113 -69 r \$0_mySourceNo;
#X obj 128 -49 r deltaPreCirc;
#X obj 113 -28 *;
#X obj 113 13 +;
#X obj 128 -8 r minPreCirc;
#X floatatom 50 34 5 0 0 0 - - -;
#X obj 128 34 r preswingTime;
#X obj 113 77 /;
#X obj 128 55 * 0.001;
#X obj 113 104 * 2;
#X text 156 84 Average Speed;
#X text 153 108 Top Speed for this source;
#X floatatom 60 130 5 0 0 0 - - -;
#X obj 113 131 s \$0_myPreSourceSpeed;
#X obj 98 252 r \$0_myPreSourceSpeed;
#X obj 450 298 r postswingTime;
#X floatatom 482 321 5 0 0 0 - - -;
#X obj 392 214 r GO;
#X obj 392 256 f;
#X obj 393 336 f;
#X obj 788 -23 r start_armLength;
#X obj 773 -45 r length;
#X obj 773 39 -;
#X obj 821 20 r NoOfSources;
#X obj 806 -1 r \$0_mySourceNo;
#X obj 806 42 /;
#X obj 773 64 *;
#X floatatom 728 132 5 0 0 0 - - -;
#X obj 773 107 +;
#X obj 788 85 r start_armLength;
#X text 828 133 Distance from centre of arc;
#X obj 700 374 f;
#X obj 700 331 r GO;
#X obj 715 352 r preswingTime;
#X obj 862 432 line~;
#X obj 727 496 loadbang;
#X obj 727 517 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 727 535 metro 10;
#X obj 727 557 snapshot~;
#X floatatom 727 577 5 0 0 0 - - -;
#X obj 808 593 hsl 128 15 -90 270 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6318 1;
#X obj 862 331 r setUp;
#X text 845 312 Start at 0 speed;
#X obj 862 459 outlet~;
#X obj 877 352 r presweepAzim;
#X obj 862 375 f;
#X msg 862 398 \$1;
#X msg 700 397 0 \$1;
#X obj 986 276 t f b;
#X obj 987 304 delay;
#X obj 1001 231 r preswingTime;
#X obj 1008 353 r postswingTime;
#X obj 986 211 r GO;
#X obj 986 253 f;
#X obj 987 331 f;
#X obj 987 376 pack;
#X obj 1029 279 r postsweepAzim;
#X msg 987 402 \$1 \$2;
#X obj 1064 -89 r preswingTime;
#X obj 1049 -67 +;
#X obj 1036 34 delay;
#X obj 1034 -19 t f b;
#X obj 1034 -132 r GO;
#X obj 1034 -44 f;
#X obj 1063 11 + 5;
#X obj 1029 302 * -1;
#X obj 1049 -111 r postswingTime;
#X obj 1036 57 s myEnd;
#X obj 810 331 r myEnd;
#X obj 773 156 outlet~;
#X obj 773 132 sig~;
#X text 925 451 Current source Azimuth angle;
#X obj 1135 259 f;
#X obj 1135 216 r GO;
#X obj 1186 278 r preswingTime;
#X obj 1309 421 line~;
#X obj 1174 485 loadbang;
#X obj 1174 506 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1174 524 metro 10;
#X obj 1174 546 snapshot~;
#X floatatom 1174 566 5 0 0 0 - - -;
#X obj 1255 582 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj 1309 320 r setUp;
#X text 1292 301 Start at 0 speed;
#X obj 1309 448 outlet~;
#X obj 1309 364 f;
#X msg 1309 387 \$1;
#X obj 1433 265 t f b;
#X obj 1434 293 delay;
#X obj 1448 220 r preswingTime;
#X obj 1455 342 r postswingTime;
#X obj 1433 200 r GO;
#X obj 1433 242 f;
#X obj 1434 320 f;
#X obj 1434 365 pack;
#X msg 1434 391 \$1 \$2;
#X obj 1257 320 r myEnd;
#X text 1372 440 Current source Azimuth angle;
#X obj 1324 341 r presweepElev;
#X obj 1476 268 r postsweepElev;
#X obj 1258 -49 +;
#X obj 1243 -22 /;
#X obj 1216 -70 t f f;
#X floatatom 1189 9 5 0 0 0 - - -;
#X obj 1258 1 r presweepElev;
#X obj 1273 23 r postsweepElev;
#X obj 1258 -93 r postswingTime;
#X obj 1273 -71 r preswingTime;
#X obj 1258 52 +;
#X obj 1243 75 *;
#X floatatom 1206 102 5 0 0 0 - - -;
#X obj 1150 346 pack;
#X obj 1243 98 s midElev;
#X obj 1150 238 r midElev;
#X msg 1150 380 \$1 \$2;
#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 108 0;
#X connect 67 0 66 1;
#X connect 69 0 85 0;
#X connect 70 0 69 0;
#X connect 71 0 69 1;
#X connect 72 0 76 0;
#X connect 72 0 81 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 76 0 77 0;
#X connect 76 0 78 0;
#X connect 79 0 83 0;
#X connect 82 0 83 1;
#X connect 83 0 84 0;
#X connect 84 0 72 0;
#X connect 85 0 72 0;
#X connect 86 0 87 1;
#X connect 86 1 87 0;
#X connect 87 0 92 0;
#X connect 88 0 91 1;
#X connect 89 0 93 1;
#X connect 90 0 91 0;
#X connect 91 0 86 0;
#X connect 92 0 93 0;
#X connect 93 0 95 0;
#X connect 94 0 103 0;
#X connect 95 0 72 0;
#X connect 96 0 97 1;
#X connect 97 0 101 1;
#X connect 98 0 105 0;
#X connect 99 0 102 0;
#X connect 99 1 98 0;
#X connect 100 0 101 0;
#X connect 101 0 99 0;
#X connect 102 0 98 1;
#X connect 103 0 92 1;
#X connect 104 0 97 0;
#X connect 106 0 83 0;
#X connect 108 0 107 0;
#X connect 110 0 149 0;
#X connect 111 0 110 0;
#X connect 112 0 149 1;
#X connect 113 0 117 0;
#X connect 113 0 122 0;
#X connect 114 0 115 0;
#X connect 115 0 116 0;
#X connect 116 0 117 0;
#X connect 117 0 118 0;
#X connect 117 0 119 0;
#X connect 120 0 123 0;
#X connect 123 0 124 0;
#X connect 124 0 113 0;
#X connect 125 0 126 1;
#X connect 125 1 126 0;
#X connect 126 0 131 0;
#X connect 127 0 130 1;
#X connect 128 0 132 1;
#X connect 129 0 130 0;
#X connect 130 0 125 0;
#X connect 131 0 132 0;
#X connect 132 0 133 0;
#X connect 133 0 113 0;
#X connect 134 0 123 0;
#X connect 136 0 123 1;
#X connect 137 0 131 1;
#X connect 138 0 139 1;
#X connect 139 0 141 0;
#X connect 139 0 147 0;
#X connect 140 0 138 0;
#X connect 140 1 139 0;
#X connect 142 0 146 0;
#X connect 143 0 146 1;
#X connect 144 0 140 0;
#X connect 145 0 138 1;
#X connect 146 0 147 1;
#X connect 147 0 148 0;
#X connect 147 0 150 0;
#X connect 149 0 152 0;
#X connect 151 0 110 1;
#X connect 152 0 113 0;