Mercurial > hg > weather-synthesis-prototyping

annotate SwordSounds/sourceSpeed.pd @ 115:61d267c71a18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M. angleCalc converted to an object for both control and audio.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 31 Jul 2015 07:15:40 +0100
parents 899f8e554fa6
children 11f39050c282
rev   line source
r@103 1 #N canvas 73 53 1408 813 10;
r@101 2 #X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
r@95 3 -1 -1;
r@101 4 #X obj -219 -68 s GO;
r@101 5 #X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@101 6 -1 -1;
r@101 7 #X obj -279 -68 s setUp;
r@101 8 #X obj -98 420 line~;
r@101 9 #X text -89 -100 Start calculation with elevation = 0 \, arm length
r@95 10 is constant \, acceleration/deceleration is constant.;
r@101 11 #X obj -211 469 loadbang;
r@101 12 #X obj -211 490 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@101 13 1 1;
r@101 14 #X obj -211 508 metro 10;
r@101 15 #X obj -211 530 snapshot~;
r@101 16 #X floatatom -211 550 5 0 0 0 - - -;
r@101 17 #X obj -130 566 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
r@101 18 -1 -1 0 1;
r@101 19 #X msg -268 354 \$1 \$2;
r@101 20 #X obj -268 329 pack;
r@101 21 #X msg -98 386 0;
r@101 22 #X obj -269 306 f;
r@101 23 #X obj -269 261 r GO;
r@101 24 #X msg 41 388 0 \$1;
r@101 25 #X obj 40 311 t f b;
r@101 26 #X obj 41 339 delay;
r@101 27 #X obj -98 365 r setUp;
r@101 28 #X text -115 346 Start at 0 speed;
r@101 29 #X text 83 399 \$1 = time to reach speed of 0;
r@101 30 #X obj 55 264 r preswingTime;
r@101 31 #X text -7 224 Trigger once full speed;
r@101 32 #X obj -98 453 outlet~;
r@101 33 #X obj 233 -103 inlet;
r@101 34 #X obj 327 -105 inlet;
r@101 35 #X obj 233 -80 s \$0_thisGroup;
r@101 36 #X obj 327 -81 s \$0_thisSource;
r@101 37 #X text -331 385 \$1 = source speed;
r@101 38 #X text -331 401 \$2 = time to reach source speed;
r@101 39 #X obj -243 305 r preswingTime;
r@101 40 #X obj 236 16 r \$0_thisGroup;
r@101 41 #X obj 251 36 r \$0_thisSource;
r@101 42 #X obj 236 58 +;
r@101 43 #X floatatom 190 85 5 0 0 0 - - -;
r@101 44 #X obj 236 84 s \$0_mySourceNo;
r@101 45 #X obj -239 -39 r \$0_mySourceNo;
r@101 46 #X obj -224 -19 r deltaPreCirc;
r@101 47 #X obj -239 2 *;
r@101 48 #X obj -239 43 +;
r@101 49 #X obj -224 22 r minPreCirc;
r@101 50 #X floatatom -302 64 5 0 0 0 - - -;
r@101 51 #X obj -224 64 r preswingTime;
r@101 52 #X obj -239 107 /;
r@101 53 #X obj -224 85 * 0.001;
r@101 54 #X obj -239 134 * 2;
r@101 55 #X text -196 114 Average Speed;
r@101 56 #X text -199 138 Top Speed for this source;
r@101 57 #X floatatom -292 160 5 0 0 0 - - -;
r@101 58 #X obj -239 161 s \$0_myPreSourceSpeed;
r@101 59 #X obj -254 282 r \$0_myPreSourceSpeed;
r@101 60 #X obj 98 328 r postswingTime;
r@101 61 #X floatatom 130 351 5 0 0 0 - - -;
r@101 62 #X obj 40 244 r GO;
r@101 63 #X obj 40 286 f;
r@101 64 #X obj 41 366 f;
r@101 65 #X obj 436 7 r start_armLength;
r@101 66 #X obj 421 -15 r length;
r@101 67 #X obj 421 69 -;
r@101 68 #X obj 469 50 r NoOfSources;
r@101 69 #X obj 454 29 r \$0_mySourceNo;
r@101 70 #X obj 454 72 /;
r@101 71 #X obj 421 94 *;
r@101 72 #X floatatom 376 162 5 0 0 0 - - -;
r@101 73 #X obj 421 137 +;
r@101 74 #X obj 436 115 r start_armLength;
r@101 75 #X text 476 163 Distance from centre of arc;
r@101 76 #X obj 421 162 sig~;
r@101 77 #X obj 421 210 s~ \$0_srcCnt;
r@101 78 #X obj 457 331 r~ \$0_srcCnt;
r@101 79 #X obj 457 360 thisPosition;
r@101 80 #X text 446 376 Y;
r@101 81 #X text 472 376 X;
r@101 82 #X text 494 376 Z;
r@101 83 #X obj 467 402 thisAngle;
r@95 84 #X connect 0 0 1 0;
r@95 85 #X connect 2 0 3 0;
r@95 86 #X connect 4 0 9 0;
r@95 87 #X connect 4 0 25 0;
r@95 88 #X connect 6 0 7 0;
r@95 89 #X connect 7 0 8 0;
r@95 90 #X connect 8 0 9 0;
r@95 91 #X connect 9 0 10 0;
r@95 92 #X connect 9 0 11 0;
r@95 93 #X connect 12 0 4 0;
r@95 94 #X connect 13 0 12 0;
r@95 95 #X connect 14 0 4 0;
r@95 96 #X connect 15 0 13 0;
r@95 97 #X connect 16 0 15 0;
r@95 98 #X connect 17 0 4 0;
r@95 99 #X connect 18 0 19 1;
r@95 100 #X connect 18 1 19 0;
r@98 101 #X connect 19 0 57 0;
r@95 102 #X connect 20 0 14 0;
r@98 103 #X connect 23 0 56 1;
r@95 104 #X connect 26 0 28 0;
r@95 105 #X connect 27 0 29 0;
r@95 106 #X connect 32 0 13 1;
r@95 107 #X connect 33 0 35 0;
r@95 108 #X connect 34 0 35 1;
r@95 109 #X connect 35 0 36 0;
r@95 110 #X connect 35 0 37 0;
r@95 111 #X connect 38 0 40 0;
r@95 112 #X connect 39 0 40 1;
r@95 113 #X connect 40 0 41 0;
r@95 114 #X connect 41 0 43 0;
r@95 115 #X connect 41 0 45 0;
r@95 116 #X connect 42 0 41 1;
r@95 117 #X connect 44 0 46 0;
r@95 118 #X connect 45 0 47 0;
r@95 119 #X connect 46 0 45 1;
r@95 120 #X connect 47 0 50 0;
r@98 121 #X connect 47 0 51 0;
r@98 122 #X connect 52 0 15 1;
r@95 123 #X connect 53 0 54 0;
r@98 124 #X connect 53 0 57 1;
r@98 125 #X connect 55 0 56 0;
r@98 126 #X connect 56 0 18 0;
r@98 127 #X connect 57 0 17 0;
r@98 128 #X connect 58 0 60 1;
r@98 129 #X connect 59 0 60 0;
r@98 130 #X connect 60 0 64 0;
r@98 131 #X connect 61 0 63 1;
r@98 132 #X connect 62 0 63 0;
r@98 133 #X connect 63 0 64 1;
r@98 134 #X connect 64 0 66 0;
r@98 135 #X connect 66 0 65 0;
r@100 136 #X connect 66 0 69 0;
r@98 137 #X connect 67 0 66 1;
r@101 138 #X connect 69 0 70 0;
r@101 139 #X connect 71 0 72 0;
r@103 140 #X connect 72 0 76 0;
r@103 141 #X connect 72 1 76 1;
r@103 142 #X connect 72 2 76 2;
r@103 143 #X connect 72 3 76 3;
r@103 144 #X connect 72 4 76 4;