view newSword/newSword.pd @ 303:8b51c20529a6

Edgetone development models

#N canvas 71 23 1283 702 10;
#X declare -lib mrpeach;
#X obj 586 149 freqCalcCyl3No_D2Mach;
#X obj 315 22 loadbang;
#X obj 315 44 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 315 85 s myMet;
#X msg -57 28 1;
#X obj -259 60 s NoOfSources;
#X obj -221 455 s topSpeed;
#X obj -273 429 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom -276 455 8 0 0 0 - - -;
#X text -24 27 Blade Length;
#X text -25 93 Arm Length;
#X text -231 37 Number of Sources;
#X text -165 433 Top Speed;
#X obj 21 248 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom 18 280 8 0 0 0 - - -;
#X obj -279 516 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj -280 601 hsl 100 20 0.0001 0.01 0 0 empty empty empty -2 -8
0 10 -262144 -1 -1 0 1;
#X floatatom -282 546 8 0 0 0 - - -;
#X floatatom -283 629 8 0 0 0 - - -;
#X obj -225 628 s tipThick;
#X text -165 518 Hilt Thickness;
#X text -173 602 Tip Thickness;
#X obj 143 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 143 126 s GO;
#X obj 143 27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 143 46 metro 200;
#X obj 197 22 hsl 100 20 500 30 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 83 73 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 83 126 s setUp;
#X obj -329 403 r setUp;
#X obj -40 228 r setUp;
#X obj -333 493 r setUp;
#X obj -334 581 r setUp;
#X obj -57 4 loadbang;
#X obj -59 73 loadbang;
#X obj -259 15 loadbang;
#X obj -276 403 r thisTS;
#X obj -282 493 r thisHT;
#X obj -283 581 r thisTT;
#X obj -312 17 r setUp;
#X obj -108 71 r setUp;
#X obj -109 6 r setUp;
#X obj 83 21 loadbang;
#X obj 83 45 delay 13;
#X obj 19 326 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X floatatom 16 358 8 0 0 0 - - -;
#X obj -42 306 r setUp;
#X obj 14 439 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 11 471 8 0 0 0 - - -;
#X obj -47 419 r setUp;
#X obj 12 517 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 9 549 8 0 0 0 - - -;
#X obj -49 497 r setUp;
#X obj 66 470 s presweepElev;
#X obj 160 492 s postsweepElev;
#X text 125 440 pre-sweep elevation;
#X text 123 517 post-sweep elevation;
#X text 132 249 pre-sweep azimuth;
#X text 130 327 post-sweep azimuth;
#X obj 73 279 s presweepAzim;
#X obj 166 301 s postsweepAzim;
#X obj -59 115 s start_armLength;
#X msg -59 94 0.35;
#X msg 87 225 80;
#X obj -274 139 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj -275 233 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj -275 324 hsl 100 20 -50 50 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj -277 162 s Xobs;
#X obj -278 253 s Yobs;
#X obj -278 351 s Zobs;
#X floatatom -317 162 5 0 0 0 - - -;
#X floatatom -317 254 5 0 0 0 - - -;
#X floatatom -318 346 5 0 0 0 - - -;
#X msg -269 115 0;
#X msg -269 298 0;
#X msg -271 209 0.7;
#X obj -322 113 r setUp;
#X obj -327 210 r setUp;
#X obj -331 301 r setUp;
#X msg -219 208 0;
#X msg 136 221 90;
#X msg -227 298 4;
#X msg -230 116 4;
#X msg 79 416 0;
#X msg 89 307 -60;
#X msg 126 416 50;
#X msg 79 494 -30;
#X msg -170 207 1.034;
#X msg -127 207 2.034;
#X msg -81 209 3;
#X msg -208 400 0.5;
#X msg -188 111 0.2;
#X msg -195 297 0.2;
#X obj 166 277 * -1;
#X obj 160 470 * -1;
#X msg -204 491 0.02;
#X msg -210 575 0.008;
#X msg -141 404 35;
#X obj -277 94 r thisXobs;
#X obj -278 186 r thisYobs;
#X obj -278 279 r thisZobs;
#X obj 18 227 r thisPrA;
#X obj 16 305 r thisPoA;
#X obj 11 418 r thisPrE;
#X obj 9 496 r thisPoE;
#X msg 175 222 10;
#X msg 206 221 0;
#X msg 109 492 0;
#X obj 384 23 sweepTime;
#X obj 384 45 centreAngles;
#N canvas 528 427 426 335 thickCalc 0;
#X obj 173 139 r NoOfSources;
#X obj 158 115 -;
#X obj 158 164 /;
#X floatatom 126 147 5 0 0 0 - - -;
#X floatatom 94 189 8 0 0 0 - - -;
#X obj 173 72 t f b;
#X obj 200 95 delay 9;
#X text 58 237 Calculates the difference in thickness between sources
;
#X text 59 254 based on the blade tapering in a straight line;
#X obj 158 19 r hiltThick;
#X obj 173 44 r tipThick;
#X obj 158 187 s deltaThick;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 2 0 11 0;
#X connect 5 0 1 1;
#X connect 5 1 6 0;
#X connect 6 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 5 0;
#X restore 384 67 pd thickCalc;
#N canvas 72 23 1360 722 maxCircCalc 0;
#X obj 440 104 +;
#X obj 468 128 s length;
#X obj 153 86 r presweepAzim;
#X obj 644 76 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
-1;
#X obj 644 129 s GO;
#X obj 584 76 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 584 129 s setUp;
#X obj 153 132 * 6.28312;
#X obj 153 110 / 360;
#X obj 153 174 *;
#X floatatom 91 198 5 0 0 0 - - -;
#X text 194 175 Circumference of the nearest source on blade;
#X text 307 191 up to 0 azimuth;
#X obj 153 200 s minPreCirc;
#X obj 437 279 * 6.28312;
#X obj 437 257 / 360;
#X obj 437 321 *;
#X floatatom 375 345 5 0 0 0 - - -;
#X text 478 322 Circumference of the nearest source on blade;
#X obj 437 233 r postsweepAzim;
#X obj 437 347 s minPostCirc;
#X obj 149 252 r presweepAzim;
#X obj 149 276 / 360;
#X obj 149 342 *;
#X floatatom 85 364 0 0 0 0 - - -;
#X obj 440 57 r bladeLen;
#X obj 455 81 r start_armLength;
#X obj 437 434 * 6.28312;
#X obj 437 412 / 360;
#X obj 437 478 *;
#X floatatom 399 501 5 0 0 0 - - -;
#X obj 437 388 r postsweepAzim;
#X obj 164 362 r minPreCirc;
#X obj 149 383 -;
#X obj 149 426 /;
#X floatatom 80 454 0 0 0 0 - - -;
#X obj 164 403 r NoOfSources;
#X obj 149 454 s deltaPreCirc;
#X obj 437 519 -;
#X obj 437 562 /;
#X obj 452 539 r NoOfSources;
#X obj 452 498 r minPostCirc;
#X obj 437 590 s deltaPostCirc;
#X floatatom 368 591 0 0 0 0 - - -;
#X text 33 334 Max Circumference;
#X text 323 472 Max Circumference;
#X obj 1076 361 r presweepElev;
#X obj 1091 384 r postsweepElev;
#X obj 1076 419 +;
#X obj 1076 441 * 0.5;
#X obj 1075 488 * 6.28312;
#X obj 1075 466 / 360;
#X obj 1074 514 cos;
#X floatatom 1022 579 0 0 0 0 - - -;
#X floatatom 1126 425 5 0 0 0 - - -;
#X obj 1074 536 *;
#X floatatom 531 128 5 0 0 0 - - -;
#X obj 1101 514 r start_armLength;
#X obj 149 298 * 6.28319;
#X obj 1074 562 s compSrcRadius;
#X obj 452 300 r compSrcRadius;
#X obj 168 153 r compSrcRadius;
#X obj 364 101 r arcConst;
#X obj 425 129 *;
#X floatatom 387 153 5 0 0 0 - - -;
#X obj 994 538 s arcConst;
#X obj 425 153 s compRadius;
#X obj 164 320 r compRadius;
#X obj 452 456 r compRadius;
#X connect 0 0 1 0;
#X connect 0 0 56 0;
#X connect 0 0 63 1;
#X connect 2 0 8 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 9 0 13 0;
#X connect 14 0 16 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 16 0 20 0;
#X connect 19 0 15 0;
#X connect 21 0 22 0;
#X connect 22 0 58 0;
#X connect 23 0 24 0;
#X connect 23 0 33 0;
#X connect 25 0 0 0;
#X connect 26 0 0 1;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 29 0 30 0;
#X connect 29 0 38 0;
#X connect 31 0 28 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 34 0 37 0;
#X connect 36 0 34 1;
#X connect 38 0 39 0;
#X connect 39 0 42 0;
#X connect 39 0 43 0;
#X connect 40 0 39 1;
#X connect 41 0 38 1;
#X connect 46 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 49 0;
#X connect 48 0 54 0;
#X connect 49 0 51 0;
#X connect 50 0 52 0;
#X connect 51 0 50 0;
#X connect 52 0 55 0;
#X connect 52 0 65 0;
#X connect 55 0 53 0;
#X connect 55 0 59 0;
#X connect 57 0 55 1;
#X connect 58 0 23 0;
#X connect 60 0 16 1;
#X connect 61 0 9 1;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 63 0 66 0;
#X connect 67 0 23 1;
#X connect 68 0 29 1;
#X restore 383 87 pd maxCircCalc;
#X obj 384 2 sourceSpeed;
#X text 836 -13 Wind Speed;
#X text 837 5 Diameter;
#X text 839 25 Length;
#X text 838 48 Distance;
#X text 838 72 Azimuth;
#X text 838 93 Elevation;
#X text 837 114 Pan;
#X text 836 132 X Rot;
#X text 838 154 Y Rot;
#X text 839 174 Z Rot;
#X text 836 193 TurbInt;
#N canvas 116 93 786 420 motion 0;
#X obj 60 202 s bladeLen;
#X obj 165 202 s hiltThick;
#X obj 299 121 route motion;
#X obj 299 143 route x y;
#X obj 299 100 cursor;
#X obj 299 82 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 299 61 loadbang;
#X obj 90 40 key;
#X obj 90 64 select 113 97 111 112;
#X obj 75 131 +;
#X obj 61 97 f;
#X msg 90 96 1;
#X floatatom 21 202 5 0 0 0 - - -;
#X msg 120 95 -1;
#X obj 165 130 +;
#X obj 151 96 f;
#X floatatom 129 202 5 0 0 0 - - -;
#X msg 180 95 -1;
#X msg 210 94 1;
#X obj 165 152 / 1000;
#X obj 165 175 max;
#X obj 209 152 r tipThick;
#X floatatom 362 309 0 0 0 0 - - -;
#X obj 75 151 / 100;
#X obj 75 174 max 0;
#X text 496 48 Q - Increase blade length;
#X text 497 63 A - Decrease blade length;
#X text 498 78 P - Increase blade thickness;
#X text 498 92 O - Decrease blade thickness;
#X obj 299 296 s azimuth;
#X obj 423 311 s elevation;
#X obj 299 203 - 1;
#X obj 299 226 * 3.1415;
#X floatatom 242 296 0 0 0 0 - - -;
#X obj 423 220 - 1;
#X obj 423 243 * 3.1415;
#X obj 423 198 * -1;
#X obj 423 176 / 899;
#X obj 423 267 cos;
#X obj 423 289 * -90;
#X obj 299 180 / 1439;
#X obj 299 250 cos;
#X obj 299 272 * 180;
#X connect 2 0 3 0;
#X connect 3 0 40 0;
#X connect 3 1 37 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 8 0 10 0;
#X connect 8 1 13 0;
#X connect 8 1 10 0;
#X connect 8 2 15 0;
#X connect 8 2 17 0;
#X connect 8 3 15 0;
#X connect 8 3 18 0;
#X connect 9 0 10 1;
#X connect 9 0 23 0;
#X connect 10 0 9 0;
#X connect 11 0 9 1;
#X connect 13 0 9 1;
#X connect 14 0 15 1;
#X connect 14 0 19 0;
#X connect 15 0 14 0;
#X connect 17 0 14 1;
#X connect 18 0 14 1;
#X connect 19 0 20 0;
#X connect 20 0 1 0;
#X connect 20 0 16 0;
#X connect 21 0 20 1;
#X connect 23 0 24 0;
#X connect 24 0 0 0;
#X connect 24 0 12 0;
#X connect 31 0 32 0;
#X connect 32 0 41 0;
#X connect 34 0 35 0;
#X connect 35 0 38 0;
#X connect 36 0 34 0;
#X connect 37 0 36 0;
#X connect 38 0 39 0;
#X connect 39 0 30 0;
#X connect 39 0 22 0;
#X connect 40 0 31 0;
#X connect 41 0 42 0;
#X connect 42 0 33 0;
#X connect 42 0 29 0;
#X restore 383 132 pd motion;
#N canvas 464 138 714 620 speedCalc 0;
#X obj -11 22 r azimuth;
#X obj 134 18 r elevation;
#X floatatom 218 40 5 0 0 0 - - -;
#X obj 250 19 r bladeLen;
#X obj 466 18 r hiltThick;
#X floatatom 161 41 5 0 0 0 - - -;
#X floatatom -80 46 0 0 0 0 - - -;
#X floatatom 484 42 5 0 0 0 - - -;
#X obj 543 19 r tipThick;
#X floatatom 556 43 5 0 0 0 - - -;
#X obj 265 38 r start_armLength;
#X floatatom 285 62 5 0 0 0 - - -;
#X obj 250 63 +;
#X floatatom 250 89 5 0 0 0 - - -;
#X obj 312 108 s totLength;
#X obj -11 118 -;
#X obj 4 45 t f b;
#X floatatom -56 164 5 0 0 0 - - -;
#X obj 31 68 delay 20;
#X obj -11 141 abs;
#X obj 136 144 -;
#X obj 151 71 t f b;
#X floatatom 91 190 5 0 0 0 - - -;
#X obj 178 94 delay 20;
#X obj 136 167 abs;
#X obj -11 167 *;
#X obj 137 192 *;
#X obj 10 218 +;
#X obj 16 261 sqrt;
#X floatatom -13 294 0 0 0 0 - - -;
#X obj 19 297 outlet;
#X obj 27 189 t f b;
#X obj 58 231 delay 10;
#X connect 0 0 6 0;
#X connect 0 0 15 0;
#X connect 0 0 16 0;
#X connect 1 0 5 0;
#X connect 1 0 20 0;
#X connect 1 0 21 0;
#X connect 3 0 2 0;
#X connect 3 0 12 0;
#X connect 4 0 7 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 10 0 12 1;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 15 0 19 0;
#X connect 16 0 15 1;
#X connect 16 1 18 0;
#X connect 18 0 15 0;
#X connect 19 0 17 0;
#X connect 19 0 25 0;
#X connect 19 0 25 1;
#X connect 20 0 24 0;
#X connect 21 0 20 1;
#X connect 21 1 23 0;
#X connect 23 0 20 0;
#X connect 24 0 22 0;
#X connect 24 0 26 0;
#X connect 24 0 26 1;
#X connect 25 0 27 0;
#X connect 26 0 31 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 30 0;
#X connect 31 0 27 1;
#X connect 31 1 27 0;
#X connect 31 1 32 0;
#X connect 32 0 27 0;
#X restore 384 155 pd speedCalc;
#X obj 326 541 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 389 541 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X text 386 450 Gain;
#X obj 334 421 loadbang;
#N canvas 555 179 313 396 opLevels 0;
#X obj 74 322 dac~;
#X obj 30 70 catch~ l;
#X obj 128 70 catch~ r;
#X obj 129 104 *~ 0.45;
#X obj 30 104 *~ 0.45;
#X obj 30 210 prvu~;
#X obj 129 211 prvu~;
#X obj 93 33 inlet;
#X obj 30 239 outlet;
#X obj 129 239 outlet;
#X obj 74 143 /~ 15;
#X obj 95 165 /~ 15;
#X obj 196 132 inlet;
#X obj 93 68 / 100;
#X obj 74 261 hip~ 100;
#X obj 95 280 hip~ 100;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 4 0 10 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 7 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 15 0;
#X connect 12 0 10 1;
#X connect 12 0 11 1;
#X connect 13 0 3 1;
#X connect 13 0 4 1;
#X connect 14 0 0 0;
#X connect 15 0 0 1;
#X restore 325 498 pd opLevels;
#X msg 334 444 5;
#X obj 328 469 hsl 100 25 0.1 1e+06 1 0 empty empty empty -2 -8 0 10
-262144 -1 -1 2403 1;
#X obj 445 472 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 442 426 loadbang;
#X text 507 451 No Of Sources;
#X obj 325 398 r GAIN;
#X msg 442 449 1;
#X floatatom 268 499 8 0 0 0 - - -;
#N canvas 527 86 899 624 PlayCont 0;
#X obj 206 41 hid;
#X msg 206 13 print;
#X obj 179 14 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 206 65 route abs;
#X obj 206 88 route abs_x abs_y;
#X floatatom 8 133 5 0 0 0 - - -;
#X obj 191 185 -;
#X obj 173 137 t f b;
#X floatatom 165 236 5 0 0 0 - - -;
#X obj 191 207 abs;
#X floatatom 141 186 5 0 0 0 - - -;
#X obj 200 159 delay 20;
#X obj 289 189 -;
#X obj 271 141 t f b;
#X floatatom 263 240 5 0 0 0 - - -;
#X obj 289 211 abs;
#X floatatom 239 190 5 0 0 0 - - -;
#X obj 298 163 delay 20;
#X msg 251 13 open 4;
#X obj 483 65 import mrpeach;
#X obj 511 225 unpackOSC;
#X obj 521 298 print;
#X floatatom 388 394 0 0 0 0 - - -;
#X floatatom 504 395 0 0 0 0 - - -;
#X obj 512 182 udpreceive 9000;
#X obj 367 324 OSCroute /wii/1/accel/xyz/1;
#X symbolatom 439 431 10 0 0 0 - - -;
#X floatatom 637 399 0 0 0 0 - - -;
#X obj 616 329 OSCroute /wii/1/accel/xyz/2;
#X obj 690 388 f;
#X obj 179 324 OSCroute /wii;
#X obj 180 349 OSCroute /1;
#X obj 180 372 OSCroute /accel;
#X obj 180 395 OSCroute /xyz;
#X obj 145 447 OSCroute /1;
#X obj 57 448 OSCroute /0;
#X obj 231 448 OSCroute /2;
#X obj 57 485 *;
#X obj 146 484 *;
#X obj 230 490 *;
#X obj 56 536 +;
#X obj 187 534 +;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 0 7 0;
#X connect 4 0 6 1;
#X connect 4 1 13 0;
#X connect 4 1 12 1;
#X connect 6 0 9 0;
#X connect 7 0 10 0;
#X connect 7 0 6 0;
#X connect 7 1 11 0;
#X connect 9 0 8 0;
#X connect 11 0 6 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 13 0 12 0;
#X connect 13 1 17 0;
#X connect 15 0 14 0;
#X connect 17 0 12 0;
#X connect 18 0 0 0;
#X connect 20 0 25 0;
#X connect 20 0 28 0;
#X connect 20 0 30 0;
#X connect 24 0 20 0;
#X connect 25 0 22 0;
#X connect 28 0 29 0;
#X connect 29 0 27 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 33 0 35 0;
#X connect 33 0 36 0;
#X connect 34 0 38 0;
#X connect 34 0 38 1;
#X connect 35 0 37 0;
#X connect 35 0 37 1;
#X connect 36 0 39 0;
#X connect 36 0 39 1;
#X connect 37 0 40 0;
#X connect 39 0 41 1;
#X restore 383 178 pd PlayCont;
#X msg 715 113 0;
#X msg 685 95 0.5;
#X obj 708 43 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 632 262 0 0 0 0 - - -;
#X msg 606 118 4;
#X obj 534 45 r deltaThick;
#N canvas 112 23 1347 721 Distance 0;
#X obj 51 47 r Xobs;
#X obj 103 47 r Yobs;
#X obj 152 47 r Zobs;
#X obj 51 73 *;
#X obj 103 71 *;
#X obj 152 71 *;
#X obj 88 99 +;
#X obj 88 131 +;
#X obj 88 158 sqrt;
#X floatatom 45 180 0 0 0 0 - - -;
#X text 26 23 Distance between observer and centre of arc;
#X obj 378 24 r azimuth;
#X obj 638 11 r elevation;
#X obj 378 105 cos;
#X obj 378 79 * 0.01745;
#X obj 638 50 - 90;
#X floatatom 558 182 5 0 0 0 - - -;
#X obj 638 71 * -1;
#X obj 638 120 cos;
#X obj 638 94 * 0.01745;
#X obj 638 164 *;
#X obj 653 141 r totLength;
#X text 693 168 z coordinate of tip;
#X obj 393 131 sin;
#X floatatom 408 230 5 0 0 0 - - -;
#X obj 393 176 *;
#X obj 408 153 r totLength;
#X obj 378 204 *;
#X obj 486 34 r azimuth;
#X obj 486 75 * 0.01745;
#X obj 501 127 sin;
#X floatatom 516 219 5 0 0 0 - - -;
#X obj 501 172 *;
#X obj 516 149 r totLength;
#X obj 486 200 *;
#X obj 486 101 sin;
#X text 465 17 x coordinate of tip;
#X text 248 153 y coordinate of tip;
#X obj 556 200 r Zobs;
#X obj 327 293 *;
#X obj 459 288 *;
#X obj 583 263 *;
#X obj 444 318 +;
#X obj 444 350 +;
#X obj 444 377 sqrt;
#X floatatom 401 399 0 0 0 0 - - -;
#X obj 327 264 -;
#X obj 342 241 t f b;
#X obj 459 264 -;
#X obj 474 241 t f b;
#X obj 583 239 -;
#X obj 598 216 t f b;
#X obj 355 397 outlet;
#X obj 623 347 r Zobs;
#X obj 623 393 -;
#X obj 638 370 t f b;
#X floatatom 664 416 5 0 0 0 - - -;
#X obj 623 419 /;
#X obj 623 444 atan;
#X obj 624 471 * 57.296;
#X floatatom 583 497 5 0 0 0 - - -;
#X obj 624 496 outlet;
#X obj 977 73 r elevation;
#X obj 884 74 r azimuth;
#X obj 1004 170 -;
#X obj 977 96 t f f;
#X obj 1004 119 t f b;
#X obj 1031 141 delay 25;
#X obj 911 171 -;
#X obj 884 97 t f f;
#X obj 911 120 t f b;
#X obj 938 142 delay 25;
#X obj 911 194 *;
#X obj 1004 192 *;
#X obj 989 216 +;
#X obj 989 239 sqrt;
#X floatatom 926 261 0 0 0 0 - - -;
#X obj 989 261 outlet;
#X obj 327 209 r Yobs;
#X obj 440 199 r Xobs;
#X msg 643 29 40;
#X msg 459 56 100;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 4 0;
#X connect 1 0 4 1;
#X connect 2 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 6 0;
#X connect 4 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 13 0 27 0;
#X connect 14 0 13 0;
#X connect 15 0 17 0;
#X connect 17 0 19 0;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 19 0 23 0;
#X connect 19 0 30 0;
#X connect 20 0 16 0;
#X connect 20 0 54 1;
#X connect 20 0 51 0;
#X connect 21 0 20 1;
#X connect 23 0 25 0;
#X connect 25 0 27 1;
#X connect 26 0 25 1;
#X connect 27 0 24 0;
#X connect 27 0 47 0;
#X connect 29 0 35 0;
#X connect 30 0 32 0;
#X connect 32 0 34 1;
#X connect 33 0 32 1;
#X connect 34 0 31 0;
#X connect 34 0 49 0;
#X connect 35 0 34 0;
#X connect 38 0 50 0;
#X connect 39 0 42 0;
#X connect 40 0 42 1;
#X connect 41 0 43 1;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 44 0 52 0;
#X connect 44 0 57 1;
#X connect 46 0 39 0;
#X connect 46 0 39 1;
#X connect 47 0 46 1;
#X connect 47 1 46 0;
#X connect 48 0 40 0;
#X connect 48 0 40 1;
#X connect 49 0 48 1;
#X connect 49 1 48 0;
#X connect 50 0 41 0;
#X connect 50 0 41 1;
#X connect 51 0 50 1;
#X connect 51 1 50 0;
#X connect 53 0 54 0;
#X connect 54 0 56 0;
#X connect 54 0 57 0;
#X connect 55 0 54 1;
#X connect 55 1 54 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 59 0 61 0;
#X connect 62 0 65 0;
#X connect 63 0 69 0;
#X connect 64 0 73 0;
#X connect 64 0 73 1;
#X connect 65 0 64 1;
#X connect 65 1 66 0;
#X connect 66 0 64 0;
#X connect 66 1 67 0;
#X connect 67 0 64 0;
#X connect 67 0 74 0;
#X connect 68 0 72 0;
#X connect 68 0 72 1;
#X connect 69 0 68 1;
#X connect 69 1 70 0;
#X connect 70 0 68 0;
#X connect 70 1 71 0;
#X connect 71 0 68 0;
#X connect 71 0 74 0;
#X connect 72 0 74 0;
#X connect 73 0 74 1;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 75 0 77 0;
#X connect 78 0 46 0;
#X connect 79 0 48 0;
#X connect 80 0 15 0;
#X connect 81 0 14 0;
#X connect 81 0 29 0;
#X restore 383 198 pd Distance;
#X obj -227 545 s hiltThick;
#X obj -58 48 s bladeLen;
#X msg -259 37 1;
#X obj 315 63 metro 25;
#X connect 1 0 2 0;
#X connect 2 0 150 0;
#X connect 4 0 148 0;
#X connect 7 0 6 0;
#X connect 7 0 8 0;
#X connect 13 0 14 0;
#X connect 13 0 59 0;
#X connect 13 0 93 0;
#X connect 15 0 17 0;
#X connect 15 0 147 0;
#X connect 16 0 18 0;
#X connect 16 0 19 0;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 22 0;
#X connect 26 0 25 1;
#X connect 27 0 28 0;
#X connect 29 0 7 0;
#X connect 30 0 13 0;
#X connect 31 0 15 0;
#X connect 32 0 16 0;
#X connect 33 0 4 0;
#X connect 34 0 62 0;
#X connect 35 0 149 0;
#X connect 36 0 7 0;
#X connect 37 0 15 0;
#X connect 38 0 16 0;
#X connect 39 0 149 0;
#X connect 40 0 62 0;
#X connect 41 0 4 0;
#X connect 42 0 43 0;
#X connect 43 0 27 0;
#X connect 44 0 45 0;
#X connect 46 0 44 0;
#X connect 47 0 48 0;
#X connect 47 0 53 0;
#X connect 47 0 94 0;
#X connect 49 0 47 0;
#X connect 50 0 51 0;
#X connect 52 0 50 0;
#X connect 62 0 61 0;
#X connect 63 0 13 0;
#X connect 64 0 67 0;
#X connect 64 0 70 0;
#X connect 65 0 68 0;
#X connect 65 0 71 0;
#X connect 66 0 69 0;
#X connect 66 0 72 0;
#X connect 73 0 64 0;
#X connect 74 0 66 0;
#X connect 75 0 65 0;
#X connect 76 0 64 0;
#X connect 77 0 65 0;
#X connect 78 0 66 0;
#X connect 79 0 65 0;
#X connect 80 0 13 0;
#X connect 81 0 66 0;
#X connect 82 0 64 0;
#X connect 83 0 47 0;
#X connect 84 0 44 0;
#X connect 85 0 47 0;
#X connect 86 0 50 0;
#X connect 87 0 65 0;
#X connect 88 0 65 0;
#X connect 89 0 65 0;
#X connect 90 0 7 0;
#X connect 91 0 64 0;
#X connect 92 0 66 0;
#X connect 93 0 60 0;
#X connect 94 0 54 0;
#X connect 95 0 15 0;
#X connect 96 0 16 0;
#X connect 97 0 7 0;
#X connect 98 0 64 0;
#X connect 99 0 65 0;
#X connect 100 0 66 0;
#X connect 101 0 13 0;
#X connect 103 0 47 0;
#X connect 104 0 50 0;
#X connect 105 0 13 0;
#X connect 106 0 13 0;
#X connect 107 0 50 0;
#X connect 129 0 131 0;
#X connect 130 0 126 0;
#X connect 130 1 127 0;
#X connect 131 0 132 0;
#X connect 132 0 130 0;
#X connect 132 0 138 0;
#X connect 133 0 130 1;
#X connect 134 0 137 0;
#X connect 136 0 132 0;
#X connect 137 0 133 0;
#X connect 140 0 0 10;
#X connect 140 0 0 9;
#X connect 140 0 0 8;
#X connect 140 0 0 7;
#X connect 141 0 0 6;
#X connect 142 0 140 0;
#X connect 142 0 141 0;
#X connect 142 0 144 0;
#X connect 144 0 0 2;
#X connect 145 0 0 1;
#X connect 146 0 0 3;
#X connect 146 1 0 5;
#X connect 146 2 0 0;
#X connect 146 2 143 0;
#X connect 149 0 5 0;
#X connect 150 0 3 0;