Mercurial > hg > weather-synthesis-prototyping

annotate SwordSounds2/sourceSpeed.pd @ 223:3829344821ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Test Aeolian harp added. 6 strings with various diameters, tensions, mass and lengths. More physics to be added but not too bad a starting place. Sigmoids added for the lock in region. No hysteresis yet. No dampening factor for higher harmonics yet. Could do with an indicator on harpD1 that shows the natural freq, strouhal freq, harmonic number and if on / off.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 28 May 2016 08:11:09 +0100
parents 6aaeb2789f99
children
rev   line source
r@165 1 #N canvas 140 48 1008 758 10;
r@165 2 #X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
r@165 3 -1 -1;
r@165 4 #X obj -219 -68 s GO;
r@165 5 #X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@165 6 -1 -1;
r@165 7 #X obj -279 -68 s setUp;
r@165 8 #X obj -98 420 line~;
r@165 9 #X text -89 -100 Start calculation with elevation = 0 \, arm length
r@165 10 is constant \, acceleration/deceleration is constant.;
r@165 11 #X obj -211 469 loadbang;
r@165 12 #X obj -211 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@165 13 1 1;
r@165 14 #X obj -211 508 metro 10;
r@165 15 #X obj -211 530 snapshot~;
r@165 16 #X floatatom -211 550 5 0 0 0 - - -;
r@165 17 #X obj -130 566 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
r@165 18 -1 -1 0 1;
r@165 19 #X msg -268 354 \$1 \$2;
r@165 20 #X obj -268 329 pack;
r@165 21 #X msg -98 386 0;
r@165 22 #X obj -269 306 f;
r@165 23 #X obj -269 261 r GO;
r@165 24 #X msg 41 388 0 \$1;
r@165 25 #X obj 40 311 t f b;
r@165 26 #X obj 41 339 delay;
r@165 27 #X obj -98 365 r setUp;
r@165 28 #X text -115 346 Start at 0 speed;
r@165 29 #X text 83 399 \$1 = time to reach speed of 0;
r@165 30 #X obj 55 264 r preswingTime;
r@165 31 #X text -7 224 Trigger once full speed;
r@165 32 #X obj -98 453 outlet~;
r@165 33 #X obj 233 -103 inlet;
r@165 34 #X obj 327 -105 inlet;
r@165 35 #X obj 233 -80 s \$0_thisGroup;
r@165 36 #X obj 327 -81 s \$0_thisSource;
r@165 37 #X text -331 385 \$1 = source speed;
r@165 38 #X text -331 401 \$2 = time to reach source speed;
r@165 39 #X obj -243 305 r preswingTime;
r@165 40 #X obj 236 16 r \$0_thisGroup;
r@165 41 #X obj 251 36 r \$0_thisSource;
r@165 42 #X obj 236 58 +;
r@165 43 #X floatatom 190 85 5 0 0 0 - - -;
r@165 44 #X obj 236 84 s \$0_mySourceNo;
r@165 45 #X obj -239 -39 r \$0_mySourceNo;
r@165 46 #X obj -224 -19 r deltaPreCirc;
r@165 47 #X obj -239 2 *;
r@165 48 #X obj -239 43 +;
r@165 49 #X obj -224 22 r minPreCirc;
r@165 50 #X floatatom -302 64 5 0 0 0 - - -;
r@165 51 #X obj -224 64 r preswingTime;
r@165 52 #X obj -239 107 /;
r@165 53 #X obj -224 85 * 0.001;
r@165 54 #X obj -239 134 * 2;
r@165 55 #X text -196 114 Average Speed;
r@165 56 #X text -199 138 Top Speed for this source;
r@165 57 #X floatatom -292 160 5 0 0 0 - - -;
r@165 58 #X obj -239 161 s \$0_myPreSourceSpeed;
r@165 59 #X obj -254 282 r \$0_myPreSourceSpeed;
r@165 60 #X obj 98 328 r postswingTime;
r@165 61 #X floatatom 130 351 5 0 0 0 - - -;
r@165 62 #X obj 40 244 r GO;
r@165 63 #X obj 40 286 f;
r@165 64 #X obj 41 366 f;
r@165 65 #X obj 436 7 r start_armLength;
r@165 66 #X obj 421 -15 r length;
r@165 67 #X obj 421 69 -;
r@165 68 #X obj 469 50 r NoOfSources;
r@165 69 #X obj 454 29 r \$0_mySourceNo;
r@165 70 #X obj 454 72 /;
r@165 71 #X obj 421 94 *;
r@165 72 #X floatatom 376 162 5 0 0 0 - - -;
r@165 73 #X obj 421 137 +;
r@165 74 #X obj 436 115 r start_armLength;
r@165 75 #X text 476 163 Distance from centre of arc;
r@165 76 #X obj 421 162 sig~;
r@165 77 #X obj 421 210 s~ \$0_srcCnt;
r@165 78 #X obj 457 331 r~ \$0_srcCnt;
r@165 79 #X text 453 373 Y;
r@165 80 #X text 465 374 X;
r@165 81 #X text 477 374 Z;
r@165 82 #X obj 457 360 thisPosition;
r@165 83 #X obj 427 538 outlet~;
r@165 84 #X obj 493 523 outlet~;
r@165 85 #X obj 468 402 thisAngle;
r@165 86 #X obj 586 532 outlet~;
r@165 87 #X obj 289 476 loadbang;
r@165 88 #X obj 289 497 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@165 89 1;
r@165 90 #X obj 289 515 metro 10;
r@165 91 #X obj 289 537 snapshot~;
r@165 92 #X floatatom 289 557 5 0 0 0 - - -;
r@165 93 #X connect 0 0 1 0;
r@165 94 #X connect 2 0 3 0;
r@165 95 #X connect 4 0 9 0;
r@165 96 #X connect 4 0 25 0;
r@165 97 #X connect 6 0 7 0;
r@165 98 #X connect 7 0 8 0;
r@165 99 #X connect 8 0 9 0;
r@165 100 #X connect 9 0 10 0;
r@165 101 #X connect 9 0 11 0;
r@165 102 #X connect 12 0 4 0;
r@165 103 #X connect 13 0 12 0;
r@165 104 #X connect 14 0 4 0;
r@165 105 #X connect 15 0 13 0;
r@165 106 #X connect 16 0 15 0;
r@165 107 #X connect 17 0 4 0;
r@165 108 #X connect 18 0 19 1;
r@165 109 #X connect 18 1 19 0;
r@165 110 #X connect 19 0 57 0;
r@165 111 #X connect 20 0 14 0;
r@165 112 #X connect 23 0 56 1;
r@165 113 #X connect 26 0 28 0;
r@165 114 #X connect 27 0 29 0;
r@165 115 #X connect 32 0 13 1;
r@165 116 #X connect 33 0 35 0;
r@165 117 #X connect 34 0 35 1;
r@165 118 #X connect 35 0 36 0;
r@165 119 #X connect 35 0 37 0;
r@165 120 #X connect 38 0 40 0;
r@165 121 #X connect 39 0 40 1;
r@165 122 #X connect 40 0 41 0;
r@165 123 #X connect 41 0 43 0;
r@165 124 #X connect 41 0 45 0;
r@165 125 #X connect 42 0 41 1;
r@165 126 #X connect 44 0 46 0;
r@165 127 #X connect 45 0 47 0;
r@165 128 #X connect 46 0 45 1;
r@165 129 #X connect 47 0 50 0;
r@165 130 #X connect 47 0 51 0;
r@165 131 #X connect 52 0 15 1;
r@165 132 #X connect 53 0 54 0;
r@165 133 #X connect 53 0 57 1;
r@165 134 #X connect 55 0 56 0;
r@165 135 #X connect 56 0 18 0;
r@165 136 #X connect 57 0 17 0;
r@165 137 #X connect 58 0 60 1;
r@165 138 #X connect 59 0 60 0;
r@165 139 #X connect 60 0 64 0;
r@165 140 #X connect 61 0 63 1;
r@165 141 #X connect 62 0 63 0;
r@165 142 #X connect 63 0 64 1;
r@165 143 #X connect 64 0 66 0;
r@165 144 #X connect 66 0 65 0;
r@165 145 #X connect 66 0 69 0;
r@165 146 #X connect 67 0 66 1;
r@165 147 #X connect 69 0 70 0;
r@165 148 #X connect 71 0 75 0;
r@165 149 #X connect 75 0 78 0;
r@165 150 #X connect 75 1 78 1;
r@165 151 #X connect 75 2 78 2;
r@165 152 #X connect 75 3 76 0;
r@165 153 #X connect 75 3 78 3;
r@165 154 #X connect 75 3 83 0;
r@165 155 #X connect 75 4 78 4;
r@165 156 #X connect 75 5 78 5;
r@165 157 #X connect 75 6 78 6;
r@165 158 #X connect 78 0 77 0;
r@165 159 #X connect 78 1 79 0;
r@165 160 #X connect 80 0 81 0;
r@165 161 #X connect 81 0 82 0;
r@165 162 #X connect 82 0 83 0;
r@165 163 #X connect 83 0 84 0;