annotate SwordSounds2/obsPosition.pd @ 223:3829344821ce

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 203 146 1178 769 10;
r@165 2 #X obj -117 35 inlet;
r@165 3 #X obj 296 -12 r bladeLen;
r@165 4 #X obj 311 94 r armLength;
r@165 5 #X obj -117 58 s \$0_sourceNo;
r@165 6 #X obj 310 9 r NoOfSources;
r@165 7 #X obj 296 119 +;
r@165 8 #X obj 296 29 /;
r@165 9 #X obj 296 73 *;
r@165 10 #X obj 311 50 r \$0_sourceNo;
r@165 11 #X text 322 117 Distance from centre of arc to the source;
r@165 12 #X obj 30 58 r~ swordAngle;
r@165 13 #X obj -116 -15 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@165 14 -1 -1;
r@165 15 #X obj -61 -14 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@165 16 -1 -1;
r@165 17 #X obj -116 10 s setUp;
r@165 18 #X obj -61 10 s GO;
r@165 19 #X floatatom 260 146 5 0 0 0 - - -;
r@165 20 #X obj 30 88 /~ 360;
r@165 21 #X obj 30 138 *~ 1;
r@165 22 #X obj 30 114 cos~;
r@165 23 #X obj -61 115 r obsDistance;
r@165 24 #X obj -61 136 sig~;
r@165 25 #X obj 15 173 -~;
r@165 26 #X obj 72 143 r~ swordAngle;
r@165 27 #X obj 72 170 /~ 360;
r@165 28 #X obj 72 194 sin~;
r@165 29 #X obj 296 144 s \$0_thisLength;
r@165 30 #X obj 72 220 *~ 1;
r@165 31 #X obj 107 193 r \$0_thisLength;
r@165 32 #X obj 15 245 *~;
r@165 33 #X obj 72 247 *~;
r@165 34 #X obj 15 273 +~;
r@165 35 #X obj 15 296 sqrt~;
r@165 36 #X obj -64 302 metro 10;
r@165 37 #X obj -64 333 snapshot~;
r@165 38 #X floatatom -65 357 8 0 0 0 - - -;
r@165 39 #X obj -64 271 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@165 40 1;
r@165 41 #X obj -64 246 loadbang;
r@165 42 #X obj 70 115 r \$0_thisLength;
r@165 43 #X obj 404 216 r \$0_thisLength;
r@165 44 #X obj 404 239 sig~;
r@165 45 #X obj 404 264 *~;
r@165 46 #X obj 612 220 r obsDistance;
r@165 47 #X obj 612 241 sig~;
r@165 48 #X obj 612 265 *~;
r@165 49 #X obj 15 330 s~ \$0sourceDist;
r@165 50 #X obj 509 220 r~ \$0sourceDist;
r@165 51 #X obj 509 262 *~;
r@165 52 #X text 422 194 l;
r@165 53 #X text 552 197 B;
r@165 54 #X text 644 198 Z;
r@165 55 #X obj 494 293 +~;
r@165 56 #X obj 494 319 -~;
r@165 57 #X obj 524 323 r \$0_thisLength;
r@165 58 #X obj 524 346 sig~;
r@165 59 #X obj 625 323 r~ \$0sourceDist;
r@165 60 #X obj 625 346 *~ 2;
r@165 61 #X obj 524 375 *~;
r@165 62 #X obj 494 398 /~;
r@165 63 #X obj 394 386 loadbang;
r@165 64 #X obj 394 409 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@165 65 1;
r@165 66 #X obj 394 430 metro 10;
r@165 67 #X obj 394 453 snapshot~;
r@165 68 #X floatatom 394 477 5 0 0 0 - - -;
r@165 69 #X obj 494 424 arccos~;
r@165 70 #X connect 0 0 3 0;
r@165 71 #X connect 1 0 6 0;
r@165 72 #X connect 2 0 5 1;
r@165 73 #X connect 4 0 6 1;
r@165 74 #X connect 5 0 15 0;
r@165 75 #X connect 5 0 25 0;
r@165 76 #X connect 6 0 7 0;
r@165 77 #X connect 7 0 5 0;
r@165 78 #X connect 8 0 7 1;
r@165 79 #X connect 10 0 16 0;
r@165 80 #X connect 11 0 13 0;
r@165 81 #X connect 12 0 14 0;
r@165 82 #X connect 16 0 18 0;
r@165 83 #X connect 17 0 21 1;
r@165 84 #X connect 18 0 17 0;
r@165 85 #X connect 19 0 20 0;
r@165 86 #X connect 20 0 21 0;
r@165 87 #X connect 21 0 28 0;
r@165 88 #X connect 21 0 28 1;
r@165 89 #X connect 22 0 23 0;
r@165 90 #X connect 23 0 24 0;
r@165 91 #X connect 24 0 26 0;
r@165 92 #X connect 26 0 29 0;
r@165 93 #X connect 26 0 29 1;
r@165 94 #X connect 27 0 26 1;
r@165 95 #X connect 28 0 30 0;
r@165 96 #X connect 29 0 30 1;
r@165 97 #X connect 30 0 31 0;
r@165 98 #X connect 31 0 33 0;
r@165 99 #X connect 31 0 44 0;
r@165 100 #X connect 32 0 33 0;
r@165 101 #X connect 33 0 34 0;
r@165 102 #X connect 35 0 32 0;
r@165 103 #X connect 36 0 35 0;
r@165 104 #X connect 37 0 17 1;
r@165 105 #X connect 38 0 39 0;
r@165 106 #X connect 39 0 40 0;
r@165 107 #X connect 39 0 40 1;
r@165 108 #X connect 40 0 50 0;
r@165 109 #X connect 41 0 42 0;
r@165 110 #X connect 42 0 43 0;
r@165 111 #X connect 42 0 43 1;
r@165 112 #X connect 43 0 51 1;
r@165 113 #X connect 45 0 46 0;
r@165 114 #X connect 45 0 46 1;
r@165 115 #X connect 46 0 50 1;
r@165 116 #X connect 50 0 51 0;
r@165 117 #X connect 51 0 57 0;
r@165 118 #X connect 52 0 53 0;
r@165 119 #X connect 53 0 56 0;
r@165 120 #X connect 54 0 55 0;
r@165 121 #X connect 55 0 56 1;
r@165 122 #X connect 56 0 57 1;
r@165 123 #X connect 57 0 63 0;
r@165 124 #X connect 58 0 59 0;
r@165 125 #X connect 59 0 60 0;
r@165 126 #X connect 60 0 61 0;
r@165 127 #X connect 61 0 62 0;
r@165 128 #X connect 63 0 61 0;