Mercurial > hg > weather-synthesis-prototyping

annotate SwordSounds/sourceSpeed.pd @ 100:cb211bfa6029

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Swordsounds: position of the point sounce source wrt the centre of the sphere is calculated. Distance between the source and a point representing an observer is calculated. Still to calculate the angle between line joining the source and observer and the sword.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 24 Jul 2015 22:21:07 +0100
parents 6f2ab99a4420
children 7f67b04e6c5d
rev   line source
r@96 1 #N canvas 19 30 1408 813 10;
r@96 2 #X obj 133 -151 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@95 3 -1;
r@96 4 #X obj 133 -98 s GO;
r@96 5 #X obj 73 -151 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@95 6 -1 -1;
r@96 7 #X obj 73 -98 s setUp;
r@96 8 #X obj 254 390 line~;
r@96 9 #X text 263 -130 Start calculation with elevation = 0 \, arm length
r@95 10 is constant \, acceleration/deceleration is constant.;
r@96 11 #X obj 141 439 loadbang;
r@96 12 #X obj 141 460 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@95 13 1;
r@96 14 #X obj 141 478 metro 10;
r@96 15 #X obj 141 500 snapshot~;
r@96 16 #X floatatom 141 520 5 0 0 0 - - -;
r@96 17 #X obj 222 536 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
r@95 18 -1 -1 0 1;
r@96 19 #X msg 84 324 \$1 \$2;
r@96 20 #X obj 84 299 pack;
r@96 21 #X msg 254 356 0;
r@96 22 #X obj 83 276 f;
r@96 23 #X obj 83 231 r GO;
r@96 24 #X msg 393 358 0 \$1;
r@96 25 #X obj 392 281 t f b;
r@96 26 #X obj 393 309 delay;
r@96 27 #X obj 254 335 r setUp;
r@96 28 #X text 237 316 Start at 0 speed;
r@96 29 #X text 435 369 \$1 = time to reach speed of 0;
r@96 30 #X obj 407 234 r preswingTime;
r@96 31 #X text 345 194 Trigger once full speed;
r@96 32 #X obj 254 423 outlet~;
r@96 33 #X obj 585 -133 inlet;
r@96 34 #X obj 679 -135 inlet;
r@96 35 #X obj 585 -110 s \$0_thisGroup;
r@96 36 #X obj 679 -111 s \$0_thisSource;
r@96 37 #X text 21 355 \$1 = source speed;
r@96 38 #X text 21 371 \$2 = time to reach source speed;
r@96 39 #X obj 109 275 r preswingTime;
r@96 40 #X obj 588 -14 r \$0_thisGroup;
r@96 41 #X obj 603 6 r \$0_thisSource;
r@96 42 #X obj 588 28 +;
r@96 43 #X floatatom 542 55 5 0 0 0 - - -;
r@96 44 #X obj 588 54 s \$0_mySourceNo;
r@96 45 #X obj 113 -69 r \$0_mySourceNo;
r@96 46 #X obj 128 -49 r deltaPreCirc;
r@96 47 #X obj 113 -28 *;
r@96 48 #X obj 113 13 +;
r@96 49 #X obj 128 -8 r minPreCirc;
r@96 50 #X floatatom 50 34 5 0 0 0 - - -;
r@96 51 #X obj 128 34 r preswingTime;
r@96 52 #X obj 113 77 /;
r@96 53 #X obj 128 55 * 0.001;
r@96 54 #X obj 113 104 * 2;
r@96 55 #X text 156 84 Average Speed;
r@96 56 #X text 153 108 Top Speed for this source;
r@96 57 #X floatatom 60 130 5 0 0 0 - - -;
r@96 58 #X obj 113 131 s \$0_myPreSourceSpeed;
r@96 59 #X obj 98 252 r \$0_myPreSourceSpeed;
r@96 60 #X obj 450 298 r postswingTime;
r@96 61 #X floatatom 482 321 5 0 0 0 - - -;
r@96 62 #X obj 392 214 r GO;
r@96 63 #X obj 392 256 f;
r@96 64 #X obj 393 336 f;
r@96 65 #X obj 788 -23 r start_armLength;
r@96 66 #X obj 773 -45 r length;
r@96 67 #X obj 773 39 -;
r@96 68 #X obj 821 20 r NoOfSources;
r@96 69 #X obj 806 -1 r \$0_mySourceNo;
r@96 70 #X obj 806 42 /;
r@96 71 #X obj 773 64 *;
r@96 72 #X floatatom 728 132 5 0 0 0 - - -;
r@96 73 #X obj 773 107 +;
r@96 74 #X obj 788 85 r start_armLength;
r@96 75 #X text 828 133 Distance from centre of arc;
r@96 76 #X obj 773 132 sig~;
r@100 77 #X obj 761 268 r~ currentElev;
r@100 78 #X obj 1073 383 r~ currentAzim;
r@100 79 #X obj 773 180 s~ \$0_srcCnt;
r@100 80 #X obj 761 292 /~ 360;
r@100 81 #X obj 761 315 sin~;
r@100 82 #X obj 761 358 *~;
r@100 83 #X obj 776 335 r~ \$0_srcCnt;
r@100 84 #X obj 1058 270 r~ currentElev;
r@100 85 #X obj 1058 294 /~ 360;
r@100 86 #X obj 1058 360 *~;
r@100 87 #X obj 1073 337 r~ \$0_srcCnt;
r@100 88 #X obj 1058 317 cos~;
r@100 89 #X obj 1073 428 cos~;
r@100 90 #X obj 1073 407 /~ 360;
r@100 91 #X obj 1058 453 *~;
r@100 92 #X obj 914 387 r~ currentAzim;
r@100 93 #X obj 899 274 r~ currentElev;
r@100 94 #X obj 899 298 /~ 360;
r@100 95 #X obj 899 364 *~;
r@100 96 #X obj 914 341 r~ \$0_srcCnt;
r@100 97 #X obj 914 411 /~ 360;
r@100 98 #X obj 899 457 *~;
r@100 99 #X obj 899 321 cos~;
r@100 100 #X obj 914 432 sin~;
r@100 101 #X text 1029 246 Z position of source;
r@100 102 #X obj 711 400 sig~;
r@100 103 #X obj 761 426 -~;
r@100 104 #X obj 856 502 sig~;
r@100 105 #X obj 899 524 -~;
r@100 106 #X obj 1014 497 sig~;
r@100 107 #X obj 1058 521 -~;
r@100 108 #X obj 1014 474 r Zobs;
r@100 109 #X obj 761 455 *~;
r@100 110 #X obj 899 549 *~;
r@100 111 #X obj 1058 546 *~;
r@100 112 #X obj 819 565 +~;
r@100 113 #X obj 1043 593 +~;
r@100 114 #X obj 1043 617 sqrt~;
r@100 115 #X obj 1153 498 loadbang;
r@100 116 #X obj 1153 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@100 117 1 1;
r@100 118 #X obj 1153 537 metro 10;
r@100 119 #X obj 1153 559 snapshot~;
r@100 120 #X floatatom 1153 579 5 0 0 0 - - -;
r@100 121 #X text 751 245 Y position of source;
r@100 122 #X text 892 247 X position of source;
r@100 123 #X obj 856 479 r Xobs;
r@100 124 #X obj 711 377 r Yobs;
r@100 125 #X text 671 610 Distance between the observer as a point in 3D space
r@100 126 and the sound source.;
r@100 127 #X obj 1043 640 outlet~;
r@95 128 #X connect 0 0 1 0;
r@95 129 #X connect 2 0 3 0;
r@95 130 #X connect 4 0 9 0;
r@95 131 #X connect 4 0 25 0;
r@95 132 #X connect 6 0 7 0;
r@95 133 #X connect 7 0 8 0;
r@95 134 #X connect 8 0 9 0;
r@95 135 #X connect 9 0 10 0;
r@95 136 #X connect 9 0 11 0;
r@95 137 #X connect 12 0 4 0;
r@95 138 #X connect 13 0 12 0;
r@95 139 #X connect 14 0 4 0;
r@95 140 #X connect 15 0 13 0;
r@95 141 #X connect 16 0 15 0;
r@95 142 #X connect 17 0 4 0;
r@95 143 #X connect 18 0 19 1;
r@95 144 #X connect 18 1 19 0;
r@98 145 #X connect 19 0 57 0;
r@95 146 #X connect 20 0 14 0;
r@98 147 #X connect 23 0 56 1;
r@95 148 #X connect 26 0 28 0;
r@95 149 #X connect 27 0 29 0;
r@95 150 #X connect 32 0 13 1;
r@95 151 #X connect 33 0 35 0;
r@95 152 #X connect 34 0 35 1;
r@95 153 #X connect 35 0 36 0;
r@95 154 #X connect 35 0 37 0;
r@95 155 #X connect 38 0 40 0;
r@95 156 #X connect 39 0 40 1;
r@95 157 #X connect 40 0 41 0;
r@95 158 #X connect 41 0 43 0;
r@95 159 #X connect 41 0 45 0;
r@95 160 #X connect 42 0 41 1;
r@95 161 #X connect 44 0 46 0;
r@95 162 #X connect 45 0 47 0;
r@95 163 #X connect 46 0 45 1;
r@95 164 #X connect 47 0 50 0;
r@98 165 #X connect 47 0 51 0;
r@98 166 #X connect 52 0 15 1;
r@95 167 #X connect 53 0 54 0;
r@98 168 #X connect 53 0 57 1;
r@98 169 #X connect 55 0 56 0;
r@98 170 #X connect 56 0 18 0;
r@98 171 #X connect 57 0 17 0;
r@98 172 #X connect 58 0 60 1;
r@98 173 #X connect 59 0 60 0;
r@98 174 #X connect 60 0 64 0;
r@98 175 #X connect 61 0 63 1;
r@98 176 #X connect 62 0 63 0;
r@98 177 #X connect 63 0 64 1;
r@98 178 #X connect 64 0 66 0;
r@98 179 #X connect 66 0 65 0;
r@100 180 #X connect 66 0 69 0;
r@98 181 #X connect 67 0 66 1;
r@100 182 #X connect 69 0 72 0;
r@100 183 #X connect 70 0 73 0;
r@100 184 #X connect 71 0 83 0;
r@95 185 #X connect 73 0 74 0;
r@100 186 #X connect 74 0 75 0;
r@100 187 #X connect 75 0 96 1;
r@100 188 #X connect 76 0 75 1;
r@100 189 #X connect 77 0 78 0;
r@100 190 #X connect 78 0 81 0;
r@100 191 #X connect 79 0 84 0;
r@100 192 #X connect 80 0 79 1;
r@100 193 #X connect 81 0 79 0;
r@100 194 #X connect 82 0 84 1;
r@100 195 #X connect 83 0 82 0;
r@100 196 #X connect 84 0 100 1;
r@100 197 #X connect 85 0 90 0;
r@100 198 #X connect 86 0 87 0;
r@100 199 #X connect 87 0 92 0;
r@100 200 #X connect 88 0 91 0;
r@100 201 #X connect 89 0 88 1;
r@100 202 #X connect 90 0 93 0;
r@100 203 #X connect 91 0 98 1;
r@100 204 #X connect 92 0 88 0;
r@100 205 #X connect 93 0 91 1;
r@100 206 #X connect 95 0 96 0;
r@100 207 #X connect 96 0 102 0;
r@100 208 #X connect 96 0 102 1;
r@100 209 #X connect 97 0 98 0;
r@100 210 #X connect 98 0 103 0;
r@100 211 #X connect 98 0 103 1;
r@100 212 #X connect 99 0 100 0;
r@100 213 #X connect 100 0 104 0;
r@100 214 #X connect 100 0 104 1;
r@100 215 #X connect 101 0 99 0;
r@100 216 #X connect 102 0 105 0;
r@100 217 #X connect 103 0 105 1;
r@100 218 #X connect 104 0 106 1;
r@100 219 #X connect 105 0 106 0;
r@100 220 #X connect 106 0 107 0;
r@100 221 #X connect 107 0 111 0;
r@100 222 #X connect 107 0 118 0;
r@100 223 #X connect 108 0 109 0;
r@100 224 #X connect 109 0 110 0;
r@100 225 #X connect 110 0 111 0;
r@100 226 #X connect 111 0 112 0;
r@100 227 #X connect 115 0 97 0;
r@100 228 #X connect 116 0 95 0;