annotate June/woosh_D3.pd @ 306:c57f401165ca tip

New Decision tree added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 13 Jan 2018 14:47:35 +0000
parents 5c8267c02763
children
rev   line source
r@86 1 #N canvas 111 28 1171 835 10;
r@85 2 #X obj 541 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@85 3 #X obj 604 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@85 4 #X text 601 -194 Gain;
r@85 5 #X obj 540 -220 loadbang;
r@85 6 #N canvas 865 368 284 318 opLevels 0;
r@85 7 #X obj 85 188 dac~;
r@85 8 #X obj 30 70 catch~ l;
r@85 9 #X obj 155 76 catch~ r;
r@85 10 #X obj 155 106 *~ 0.45;
r@85 11 #X obj 30 104 *~ 0.45;
r@85 12 #X obj 30 210 prvu~;
r@85 13 #X obj 155 213 prvu~;
r@85 14 #X obj 100 69 / 127;
r@85 15 #X obj 100 34 inlet;
r@85 16 #X obj 30 239 outlet;
r@85 17 #X obj 155 241 outlet;
r@85 18 #X obj 155 30 r NoOfSources;
r@85 19 #X obj 30 131 /~ 15;
r@85 20 #X obj 155 132 /~ 15;
r@85 21 #X connect 1 0 4 0;
r@85 22 #X connect 2 0 3 0;
r@85 23 #X connect 3 0 13 0;
r@85 24 #X connect 4 0 12 0;
r@85 25 #X connect 5 0 9 0;
r@85 26 #X connect 6 0 10 0;
r@85 27 #X connect 7 0 3 1;
r@85 28 #X connect 7 0 4 1;
r@85 29 #X connect 8 0 7 0;
r@85 30 #X connect 11 0 12 1;
r@85 31 #X connect 11 0 13 1;
r@85 32 #X connect 12 0 0 0;
r@85 33 #X connect 12 0 5 0;
r@85 34 #X connect 13 0 0 1;
r@85 35 #X connect 13 0 6 0;
r@85 36 #X restore 540 -146 pd opLevels;
r@85 37 #X msg 540 -197 5;
r@85 38 #N canvas 601 144 807 545 speedCalc 0;
r@85 39 #X obj 59 -12 inlet;
r@85 40 #X obj 135 -11 inlet;
r@85 41 #X obj 217 -12 inlet;
r@85 42 #X obj 317 -12 inlet;
r@85 43 #X obj 59 11 s \$0_swLen;
r@85 44 #X obj 135 11 s \$0_armLen;
r@85 45 #X obj 317 10 s \$0_tipSpeed;
r@85 46 #X obj 142 237 r \$0_tipSpeed;
r@85 47 #X obj 211 437 outlet;
r@85 48 #X obj 211 414 r \$0_minSpeed;
r@85 49 #X obj 127 285 s \$0_minSpeed;
r@85 50 #X obj 310 414 r \$0_deltaSpeed;
r@85 51 #X obj 504 335 s \$0_deltaSpeed;
r@85 52 #X obj 310 437 outlet;
r@85 53 #X obj 212 104 r \$0_swLen;
r@85 54 #X obj 127 216 /;
r@85 55 #X floatatom 81 243 5 0 0 0 - - -;
r@85 56 #X obj 227 127 r \$0_armLen;
r@85 57 #X obj 212 194 +;
r@85 58 #X obj 227 149 t f b;
r@85 59 #X floatatom 212 216 5 0 0 0 - - -;
r@85 60 #X obj 99 143 r \$0_armLen;
r@85 61 #X obj 217 11 s \$0_sourceTot;
r@85 62 #X obj 519 274 r \$0_sourceTot;
r@85 63 #X obj 127 261 *;
r@85 64 #X floatatom 85 285 5 0 0 0 - - -;
r@85 65 #X obj 519 186 r \$0_minSpeed;
r@85 66 #X obj 504 253 -;
r@85 67 #X obj 504 163 r \$0_tipSpeed;
r@85 68 #X obj 504 296 /;
r@85 69 #X obj 519 207 t f b;
r@85 70 #X floatatom 521 315 5 0 0 0 - - -;
r@85 71 #X obj 546 230 delay 9;
r@85 72 #X text 244 198 Length of blade and arm;
r@85 73 #X obj 99 165 t f b;
r@85 74 #X obj 126 189 delay 9;
r@85 75 #X obj 254 173 delay 6;
r@85 76 #X text -49 216 Ratio of arm to total length;
r@85 77 #X text 69 308 Speed of blade at the hilt;
r@85 78 #X text 387 247 Difference between;
r@85 79 #X text 369 259 speed at tip and hilt;
r@85 80 #X text 459 357 Difference in speed for each source;
r@85 81 #X text 459 369 based on a linear scale;
r@85 82 #X text 417 16 as well as the difference in speed of each source;
r@85 83 #X text 431 2 Patch that calculates the minimum speed;
r@85 84 #X connect 0 0 4 0;
r@85 85 #X connect 1 0 5 0;
r@85 86 #X connect 2 0 22 0;
r@85 87 #X connect 3 0 6 0;
r@85 88 #X connect 7 0 24 1;
r@85 89 #X connect 9 0 8 0;
r@85 90 #X connect 11 0 13 0;
r@85 91 #X connect 14 0 18 0;
r@85 92 #X connect 15 0 16 0;
r@85 93 #X connect 15 0 24 0;
r@85 94 #X connect 17 0 19 0;
r@85 95 #X connect 18 0 20 0;
r@85 96 #X connect 18 0 15 1;
r@85 97 #X connect 19 0 18 1;
r@85 98 #X connect 19 1 36 0;
r@85 99 #X connect 21 0 34 0;
r@85 100 #X connect 23 0 29 1;
r@85 101 #X connect 24 0 10 0;
r@85 102 #X connect 24 0 25 0;
r@85 103 #X connect 26 0 30 0;
r@85 104 #X connect 27 0 29 0;
r@85 105 #X connect 28 0 27 0;
r@85 106 #X connect 29 0 31 0;
r@85 107 #X connect 29 0 12 0;
r@85 108 #X connect 30 0 27 1;
r@85 109 #X connect 30 1 32 0;
r@85 110 #X connect 32 0 27 0;
r@85 111 #X connect 34 0 15 0;
r@85 112 #X connect 34 1 35 0;
r@85 113 #X connect 35 0 15 0;
r@85 114 #X connect 36 0 18 0;
r@85 115 #X restore 534 140 pd speedCalc;
r@85 116 #X floatatom 443 164 8 0 0 0 - - -;
r@85 117 #X floatatom 688 162 8 0 0 0 - - -;
r@85 118 #X msg 14 -225 1;
r@85 119 #X msg 13 -94 100;
r@85 120 #X msg 12 -159 0.59;
r@85 121 #X obj 534 45 r bladeLen;
r@85 122 #X obj 557 68 r armLength;
r@85 123 #X obj 580 92 r NoOfSources;
r@85 124 #X obj 603 117 r topSpeed;
r@85 125 #X obj 14 -202 s bladeLen;
r@85 126 #X obj 12 -138 s armLength;
r@85 127 #X obj 13 -71 s NoOfSources;
r@85 128 #X obj 78 89 s topSpeed;
r@85 129 #X obj 26 63 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144
r@85 130 -1 -1 0 1;
r@85 131 #X floatatom 23 89 8 0 0 0 - - -;
r@85 132 #X text 47 -226 Blade Length;
r@85 133 #X text 46 -160 Arm Length;
r@85 134 #X text 41 -94 Number of Sources;
r@85 135 #X text 134 67 Top Speed;
r@85 136 #X obj 23 147 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@85 137 -1 -1 0 1;
r@85 138 #X floatatom 20 179 8 0 0 0 - - -;
r@85 139 #X obj 75 178 s sweepAngle;
r@85 140 #X text 134 148 Sweep Angle;
r@85 141 #X obj 370 -13 r sweepAngle;
r@85 142 #X obj 277 -57 r bladeLen;
r@85 143 #X obj 323 -34 r armLength;
r@85 144 #X obj 508 164 s firstSpeed;
r@85 145 #X obj 603 163 s deltaSpeed;
r@85 146 #X floatatom 220 38 8 0 0 0 - - -;
r@85 147 #X floatatom 458 36 8 0 0 0 - - -;
r@85 148 #N canvas 833 342 426 335 thickCalc 0;
r@85 149 #X obj 173 139 r NoOfSources;
r@85 150 #X obj 23 16 inlet;
r@85 151 #X obj 26 64 inlet;
r@85 152 #X obj 26 86 s \$0_tipThick;
r@85 153 #X obj 158 115 -;
r@85 154 #X obj 158 164 /;
r@85 155 #X obj 158 187 outlet;
r@85 156 #X obj 23 39 s \$0_hiltThick;
r@85 157 #X floatatom 126 147 5 0 0 0 - - -;
r@85 158 #X obj 173 44 r \$0_tipThick;
r@85 159 #X obj 158 19 r \$0_hiltThick;
r@85 160 #X floatatom 94 189 8 0 0 0 - - -;
r@85 161 #X obj 173 72 t f b;
r@85 162 #X obj 200 95 delay 9;
r@85 163 #X text 58 237 Calculates the difference in thickness between sources
r@85 164 ;
r@85 165 #X text 59 254 based on the blade tapering in a straight line;
r@85 166 #X connect 0 0 5 1;
r@85 167 #X connect 1 0 7 0;
r@85 168 #X connect 2 0 3 0;
r@85 169 #X connect 4 0 5 0;
r@85 170 #X connect 4 0 8 0;
r@85 171 #X connect 5 0 6 0;
r@85 172 #X connect 5 0 11 0;
r@85 173 #X connect 9 0 12 0;
r@85 174 #X connect 10 0 4 0;
r@85 175 #X connect 12 0 4 1;
r@85 176 #X connect 12 1 13 0;
r@85 177 #X connect 13 0 4 0;
r@85 178 #X restore 372 -123 pd thickCalc;
r@85 179 #X obj 372 -100 s deltaThick;
r@85 180 #X floatatom 317 -99 8 0 0 0 - - -;
r@85 181 #X obj 20 238 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144
r@85 182 -1 -1 0 1;
r@85 183 #X obj 19 323 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144
r@85 184 -1 -1 0 1;
r@85 185 #X floatatom 17 268 8 0 0 0 - - -;
r@85 186 #X obj 71 267 s hiltThick;
r@85 187 #X floatatom 16 351 8 0 0 0 - - -;
r@85 188 #X obj 74 350 s tipThick;
r@85 189 #X text 134 240 Hilt Thickness;
r@85 190 #X text 126 324 Tip Thickness;
r@85 191 #X obj 372 -168 r hiltThick;
r@85 192 #X obj 441 -146 r tipThick;
r@85 193 #X obj 214 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@85 194 -1;
r@85 195 #X obj 214 -127 s GO;
r@85 196 #X obj 775 -93 tenSource;
r@85 197 #X obj 19 405 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@85 198 -1 -1 0 1;
r@85 199 #X obj 15 490 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
r@85 200 -262144 -1 -1 0 1;
r@85 201 #X floatatom 16 431 8 0 0 0 - - -;
r@85 202 #X text 129 409 Distance to Observer;
r@85 203 #X floatatom 12 518 8 0 0 0 - - -;
r@85 204 #X text 137 484 Angle to Observer;
r@85 205 #X obj 809 -129 r distance;
r@85 206 #X obj 792 -150 r angle;
r@85 207 #X obj 775 -191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 208 -1 -1;
r@85 209 #X obj 214 -226 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@85 210 0 1;
r@85 211 #X obj 214 -207 metro 200;
r@85 212 #X obj 268 -231 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10
r@85 213 -262144 -1 -1 0 1;
r@85 214 #X obj 154 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@85 215 -1 -1;
r@85 216 #X obj 154 -127 s setUp;
r@85 217 #X obj -30 37 r setUp;
r@85 218 #X obj -38 127 r setUp;
r@85 219 #X obj -34 215 r setUp;
r@85 220 #X obj -35 303 r setUp;
r@85 221 #X obj -36 384 r setUp;
r@85 222 #X obj -39 468 r setUp;
r@85 223 #X obj 775 -219 r setUp;
r@85 224 #X obj 75 432 s obsDistance;
r@85 225 #X obj 71 519 s obsAngle;
r@85 226 #N canvas 427 69 911 675 circumferCalc 0;
r@85 227 #X obj 266 13 inlet;
r@85 228 #X floatatom 365 172 5 0 0 0 - - -;
r@85 229 #X obj 80 13 inlet;
r@85 230 #X obj 170 13 inlet;
r@85 231 #X obj 247 146 +;
r@85 232 #X obj 316 172 / 360;
r@85 233 #X obj 247 171 * 3.14159;
r@85 234 #X obj 247 219 *;
r@85 235 #X obj 247 195 * 2;
r@85 236 #X obj 80 36 s \$0_bladeLen;
r@85 237 #X obj 170 36 s \$0_armLength;
r@85 238 #X obj 266 36 s \$0_sweepAngle;
r@85 239 #X obj 247 99 r \$0_bladeLen;
r@85 240 #X obj 262 123 r \$0_armLength;
r@85 241 #X obj 316 148 r \$0_sweepAngle;
r@85 242 #X floatatom 734 192 5 0 0 0 - - -;
r@85 243 #X obj 685 192 / 360;
r@85 244 #X floatatom 628 168 5 0 0 0 - - -;
r@85 245 #X obj 616 191 * 3.14159;
r@85 246 #X obj 616 239 *;
r@85 247 #X floatatom 560 267 8 0 0 0 - - -;
r@85 248 #X obj 616 215 * 2;
r@85 249 #X obj 616 143 r \$0_armLength;
r@85 250 #X obj 685 168 r \$0_sweepAngle;
r@85 251 #X obj 616 267 s \$0_minCirc;
r@85 252 #X obj 265 459 r \$0_minCirc;
r@85 253 #X obj 265 481 outlet;
r@85 254 #X obj 262 279 r \$0_minCirc;
r@85 255 #X floatatom 188 339 8 0 0 0 - - -;
r@85 256 #X obj 247 305 -;
r@85 257 #X obj 247 341 /;
r@85 258 #X obj 277 317 r NoOfSources;
r@85 259 #X floatatom 185 370 8 0 0 0 - - -;
r@85 260 #X obj 247 367 s \$0_deltaCirc;
r@85 261 #X obj 354 459 r \$0_deltaCirc;
r@85 262 #X obj 354 481 outlet;
r@85 263 #X obj 260 246 s maxCirc;
r@85 264 #X obj 191 172 s length;
r@85 265 #X text 122 176 Arc radius;
r@85 266 #X text 318 195 % of circle;
r@85 267 #X text 323 242 Circumference of arc of tip;
r@85 268 #X text 692 210 % of circle;
r@85 269 #X text 601 289 Circumference of arc of hilt;
r@85 270 #X floatatom 187 243 8 0 0 0 - - -;
r@85 271 #X text 199 390 Difference of circumference length for each source
r@85 272 ;
r@85 273 #X text 199 405 based on linear spacing between sources;
r@85 274 #X connect 0 0 11 0;
r@85 275 #X connect 2 0 9 0;
r@85 276 #X connect 3 0 10 0;
r@85 277 #X connect 4 0 6 0;
r@85 278 #X connect 4 0 37 0;
r@85 279 #X connect 5 0 7 1;
r@85 280 #X connect 6 0 8 0;
r@85 281 #X connect 7 0 29 0;
r@85 282 #X connect 7 0 36 0;
r@85 283 #X connect 7 0 43 0;
r@85 284 #X connect 8 0 7 0;
r@85 285 #X connect 12 0 4 0;
r@85 286 #X connect 13 0 4 1;
r@85 287 #X connect 14 0 5 0;
r@85 288 #X connect 14 0 1 0;
r@85 289 #X connect 16 0 19 1;
r@85 290 #X connect 18 0 21 0;
r@85 291 #X connect 19 0 20 0;
r@85 292 #X connect 19 0 24 0;
r@85 293 #X connect 21 0 19 0;
r@85 294 #X connect 22 0 18 0;
r@85 295 #X connect 22 0 17 0;
r@85 296 #X connect 23 0 16 0;
r@85 297 #X connect 23 0 15 0;
r@85 298 #X connect 25 0 26 0;
r@85 299 #X connect 27 0 29 1;
r@85 300 #X connect 29 0 28 0;
r@85 301 #X connect 29 0 30 0;
r@85 302 #X connect 30 0 32 0;
r@85 303 #X connect 30 0 33 0;
r@85 304 #X connect 31 0 30 1;
r@85 305 #X connect 34 0 35 0;
r@85 306 #X restore 277 11 pd circumferCalc;
r@85 307 #X obj 277 37 s circumMin;
r@85 308 #X obj 370 36 s deltaCircum;
r@85 309 #N canvas 361 106 954 607 angleCalc 0;
r@85 310 #X obj -142 102 * 0.75;
r@85 311 #X obj 231 187 * 0.25;
r@85 312 #X obj -142 142 /;
r@85 313 #X msg -157 248 1 \$1;
r@85 314 #X obj -157 225 f;
r@85 315 #X obj -157 274 line 0;
r@85 316 #X obj -171 193 r GO;
r@85 317 #X msg -113 248 0;
r@85 318 #X obj -142 166 * 1000;
r@85 319 #X obj 169 334 line 0;
r@85 320 #X obj 169 207 delay \$1;
r@85 321 #X obj 142 155 f;
r@85 322 #X obj 142 112 r GO;
r@85 323 #X obj 142 181 t f b;
r@85 324 #X obj 169 283 i;
r@85 325 #X msg 169 305 1 \$1;
r@85 326 #X msg 214 305 0;
r@85 327 #X obj 231 229 /;
r@85 328 #X obj 231 251 * 1000;
r@85 329 #X obj -157 352 *;
r@85 330 #X obj -128 297 r sweepAngle;
r@85 331 #X obj -154 405 hsl 100 25 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@85 332 -1 -1 0 1;
r@85 333 #X obj -128 319 * -0.75;
r@85 334 #X obj -157 376 +;
r@85 335 #X obj -128 343 * -1;
r@85 336 #X obj -127 191 s \$0_thisDe;
r@85 337 #X obj 157 134 r \$0_thisDe;
r@85 338 #X obj 169 372 *;
r@85 339 #X obj 219 332 r sweepAngle;
r@85 340 #X obj 172 396 hsl 100 25 -360 360 0 0 empty empty empty -2 -8 0 10
r@85 341 -262144 -1 -1 0 1;
r@85 342 #X obj 214 283 r GO;
r@85 343 #X obj -142 78 r maxCirc;
r@85 344 #X obj 231 165 r maxCirc;
r@85 345 #X obj -127 121 r topSpeed;
r@85 346 #X obj 246 208 r topSpeed;
r@85 347 #X obj -35 535 s currentAngle;
r@85 348 #X obj -35 489 +;
r@85 349 #X floatatom -35 514 8 0 0 0 - - -;
r@85 350 #X obj -20 464 t f b;
r@85 351 #X obj 474 202 delay \$1;
r@85 352 #X obj 476 144 f;
r@85 353 #X obj 476 118 r GO;
r@85 354 #X obj 476 170 t f b;
r@85 355 #X obj 512 50 r maxCirc;
r@85 356 #X obj 527 72 r topSpeed;
r@85 357 #X obj 512 96 /;
r@85 358 #X obj 512 118 * 1000;
r@85 359 #X obj 474 224 s end;
r@85 360 #X obj -113 227 r end;
r@85 361 #X obj -20 431 r end;
r@85 362 #X obj 219 355 * -0.25;
r@85 363 #X text -206 42 0.75 represents the ratio of swing that;
r@85 364 #X text 106 71 0.25 represents the ratio of swing that;
r@85 365 #X text 106 85 the sword is decelerating;
r@85 366 #X text -115 146 Time taken for acceleration;
r@85 367 #X text -52 188 Send as a delay;
r@85 368 #X text 186 113 Recieve as a delay;
r@85 369 #X text -226 173 Start swing;
r@85 370 #X text -72 227 Reset angle;
r@85 371 #X text -72 239 once swing complete;
r@85 372 #X text -73 323 Start angle is;
r@85 373 #X text -73 335 3/4 of total angle;
r@85 374 #X text 452 243 Send bang message at the;
r@85 375 #X text 453 255 end of the swing to reset;
r@85 376 #X text 285 249 Time for last;
r@85 377 #X text 287 260 1/4 of swing;
r@85 378 #X text 245 294 Set to 0 at start;
r@85 379 #X text -206 56 the sword is before 0 degrees;
r@85 380 #X text -92 565 Output of complete swing \, split into 75% before 0
r@85 381 degrees and 25% past 0 degrees;
r@85 382 #X text 276 354 Once delay from start to 0 degrees complete;
r@85 383 #X text 276 366 count down from 0 to finish the total swing angle;
r@85 384 #X text 98 9 Patch that calculates the angle between 0 degrees for
r@85 385 the full length of the swing;
r@85 386 #X connect 0 0 2 0;
r@85 387 #X connect 1 0 17 0;
r@85 388 #X connect 2 0 8 0;
r@85 389 #X connect 3 0 5 0;
r@85 390 #X connect 4 0 3 0;
r@85 391 #X connect 5 0 19 0;
r@85 392 #X connect 6 0 4 0;
r@85 393 #X connect 7 0 5 0;
r@85 394 #X connect 8 0 4 1;
r@85 395 #X connect 8 0 25 0;
r@85 396 #X connect 9 0 27 0;
r@85 397 #X connect 10 0 14 0;
r@85 398 #X connect 11 0 13 0;
r@85 399 #X connect 12 0 11 0;
r@85 400 #X connect 13 0 10 1;
r@85 401 #X connect 13 1 10 0;
r@85 402 #X connect 14 0 15 0;
r@85 403 #X connect 15 0 9 0;
r@85 404 #X connect 16 0 9 0;
r@85 405 #X connect 17 0 18 0;
r@85 406 #X connect 18 0 14 1;
r@85 407 #X connect 19 0 23 0;
r@85 408 #X connect 20 0 22 0;
r@85 409 #X connect 21 0 36 0;
r@85 410 #X connect 22 0 24 0;
r@85 411 #X connect 22 0 19 1;
r@85 412 #X connect 23 0 21 0;
r@85 413 #X connect 24 0 23 1;
r@85 414 #X connect 26 0 11 1;
r@85 415 #X connect 27 0 29 0;
r@85 416 #X connect 28 0 50 0;
r@85 417 #X connect 29 0 38 0;
r@85 418 #X connect 30 0 16 0;
r@85 419 #X connect 31 0 0 0;
r@85 420 #X connect 32 0 1 0;
r@85 421 #X connect 33 0 2 1;
r@85 422 #X connect 34 0 17 1;
r@85 423 #X connect 36 0 37 0;
r@85 424 #X connect 37 0 35 0;
r@85 425 #X connect 38 0 36 1;
r@85 426 #X connect 38 1 36 0;
r@85 427 #X connect 39 0 47 0;
r@85 428 #X connect 40 0 42 0;
r@85 429 #X connect 41 0 40 0;
r@85 430 #X connect 42 0 39 1;
r@85 431 #X connect 42 1 39 0;
r@85 432 #X connect 43 0 45 0;
r@85 433 #X connect 44 0 45 1;
r@85 434 #X connect 45 0 46 0;
r@85 435 #X connect 46 0 40 1;
r@85 436 #X connect 48 0 7 0;
r@85 437 #X connect 49 0 38 0;
r@85 438 #X connect 50 0 27 1;
r@85 439 #X restore 431 -220 pd angleCalc;
r@85 440 #X obj 543 -175 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@86 441 -1 -1 390 1;
r@85 442 #X msg 775 -172 10;
r@85 443 #X obj 14 -249 loadbang;
r@85 444 #X obj 12 -180 loadbang;
r@85 445 #X obj 13 -116 loadbang;
r@85 446 #X obj 826 -113 r elev;
r@85 447 #X msg 15 -22 0;
r@85 448 #X obj 15 0 s elev;
r@85 449 #X text 134 496 (Azimuth);
r@85 450 #X obj 910 -81 tenSource;
r@85 451 #X obj 944 -117 r distance;
r@85 452 #X obj 927 -138 r angle;
r@85 453 #X obj 910 -179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 454 -1 -1;
r@85 455 #X obj 910 -207 r setUp;
r@85 456 #X obj 961 -101 r elev;
r@85 457 #X obj 774 72 tenSource;
r@85 458 #X obj 808 36 r distance;
r@85 459 #X obj 791 15 r angle;
r@85 460 #X obj 774 -26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 461 -1 -1;
r@85 462 #X obj 774 -54 r setUp;
r@85 463 #X obj 825 52 r elev;
r@85 464 #X obj 903 81 tenSource;
r@85 465 #X obj 937 45 r distance;
r@85 466 #X obj 920 24 r angle;
r@85 467 #X obj 903 -17 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 468 -1 -1;
r@85 469 #X obj 903 -45 r setUp;
r@85 470 #X obj 954 61 r elev;
r@85 471 #X obj 771 223 tenSource;
r@85 472 #X obj 805 187 r distance;
r@85 473 #X obj 788 166 r angle;
r@85 474 #X obj 771 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 475 -1 -1;
r@85 476 #X obj 771 97 r setUp;
r@85 477 #X obj 822 203 r elev;
r@85 478 #X obj 905 230 tenSource;
r@85 479 #X obj 939 194 r distance;
r@85 480 #X obj 922 173 r angle;
r@85 481 #X obj 905 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 482 -1 -1;
r@85 483 #X obj 905 104 r setUp;
r@85 484 #X obj 956 210 r elev;
r@85 485 #X msg 905 151 5;
r@85 486 #X msg 771 144 6;
r@85 487 #X msg 903 2 7;
r@85 488 #X msg 774 -7 8;
r@85 489 #X msg 910 -160 9;
r@85 490 #X obj 15 -45 loadbang;
r@85 491 #X obj 437 545 s thisTS;
r@85 492 #X obj 456 524 s thisSA;
r@85 493 #X obj 476 502 s thisHT;
r@85 494 #X obj 495 479 s thisTT;
r@85 495 #X obj 515 458 s thisOD;
r@85 496 #X obj 534 438 s thisOA;
r@85 497 #X obj 554 416 s thisG;
r@85 498 #X obj 23 37 r thisTS;
r@85 499 #X obj 20 126 r thisSA;
r@85 500 #X obj 17 215 r thisHT;
r@85 501 #X obj 16 303 r thisTT;
r@85 502 #X obj 16 384 r thisOD;
r@85 503 #X obj 13 469 r thisOA;
r@85 504 #X obj 488 -195 r thisG;
r@85 505 #X obj 437 392 unpack f f f f f f f;
r@85 506 #X msg 437 264 43 215 0.0085 0.0025 8 0 40;
r@85 507 #X msg 446 287 20 160 0.01 0.004 4 0 127;
r@85 508 #X obj 774 385 tenSource;
r@85 509 #X obj 808 349 r distance;
r@85 510 #X obj 791 328 r angle;
r@85 511 #X obj 774 287 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 512 -1 -1;
r@85 513 #X obj 774 259 r setUp;
r@85 514 #X obj 825 365 r elev;
r@85 515 #X obj 903 394 tenSource;
r@85 516 #X obj 937 358 r distance;
r@85 517 #X obj 920 337 r angle;
r@85 518 #X obj 903 296 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 519 -1 -1;
r@85 520 #X obj 903 268 r setUp;
r@85 521 #X obj 954 374 r elev;
r@85 522 #X obj 771 536 tenSource;
r@85 523 #X obj 805 500 r distance;
r@85 524 #X obj 788 479 r angle;
r@85 525 #X obj 771 438 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 526 -1 -1;
r@85 527 #X obj 771 410 r setUp;
r@85 528 #X obj 822 516 r elev;
r@85 529 #X obj 905 543 tenSource;
r@85 530 #X obj 939 507 r distance;
r@85 531 #X obj 922 486 r angle;
r@85 532 #X obj 905 445 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@85 533 -1 -1;
r@85 534 #X obj 905 417 r setUp;
r@85 535 #X obj 956 523 r elev;
r@85 536 #X msg 774 306 4;
r@85 537 #X msg 903 315 3;
r@85 538 #X msg 771 457 2;
r@85 539 #X msg 905 464 1;
r@85 540 #X msg 458 327 65 280 0.005 0.0025 20 60 20;
r@85 541 #X obj -37 -45 r setUp;
r@85 542 #X obj -40 -114 r setUp;
r@85 543 #X obj -37 -182 r setUp;
r@85 544 #X obj -38 -247 r setUp;
r@85 545 #X connect 3 0 5 0;
r@85 546 #X connect 4 0 0 0;
r@85 547 #X connect 4 1 1 0;
r@85 548 #X connect 5 0 80 0;
r@85 549 #X connect 6 0 7 0;
r@85 550 #X connect 6 0 33 0;
r@85 551 #X connect 6 1 8 0;
r@85 552 #X connect 6 1 34 0;
r@85 553 #X connect 9 0 16 0;
r@85 554 #X connect 10 0 18 0;
r@85 555 #X connect 11 0 17 0;
r@85 556 #X connect 12 0 6 0;
r@85 557 #X connect 13 0 6 1;
r@85 558 #X connect 14 0 6 2;
r@85 559 #X connect 15 0 6 3;
r@85 560 #X connect 20 0 19 0;
r@85 561 #X connect 20 0 21 0;
r@85 562 #X connect 26 0 27 0;
r@85 563 #X connect 26 0 28 0;
r@85 564 #X connect 30 0 76 2;
r@85 565 #X connect 31 0 76 0;
r@85 566 #X connect 32 0 76 1;
r@85 567 #X connect 37 0 38 0;
r@85 568 #X connect 37 0 39 0;
r@85 569 #X connect 40 0 42 0;
r@85 570 #X connect 40 0 43 0;
r@85 571 #X connect 41 0 44 0;
r@85 572 #X connect 41 0 45 0;
r@85 573 #X connect 48 0 37 0;
r@85 574 #X connect 49 0 37 1;
r@85 575 #X connect 50 0 51 0;
r@85 576 #X connect 53 0 55 0;
r@85 577 #X connect 53 0 74 0;
r@85 578 #X connect 54 0 57 0;
r@85 579 #X connect 54 0 75 0;
r@85 580 #X connect 59 0 52 2;
r@85 581 #X connect 60 0 52 1;
r@85 582 #X connect 61 0 81 0;
r@85 583 #X connect 62 0 63 0;
r@85 584 #X connect 63 0 50 0;
r@85 585 #X connect 64 0 63 1;
r@85 586 #X connect 65 0 66 0;
r@85 587 #X connect 67 0 20 0;
r@85 588 #X connect 68 0 26 0;
r@85 589 #X connect 69 0 40 0;
r@85 590 #X connect 70 0 41 0;
r@85 591 #X connect 71 0 53 0;
r@85 592 #X connect 72 0 54 0;
r@85 593 #X connect 73 0 61 0;
r@85 594 #X connect 76 0 35 0;
r@85 595 #X connect 76 0 77 0;
r@85 596 #X connect 76 1 36 0;
r@85 597 #X connect 76 1 78 0;
r@85 598 #X connect 80 0 4 0;
r@85 599 #X connect 81 0 52 0;
r@85 600 #X connect 82 0 9 0;
r@85 601 #X connect 83 0 11 0;
r@85 602 #X connect 84 0 10 0;
r@85 603 #X connect 85 0 52 3;
r@85 604 #X connect 86 0 87 0;
r@85 605 #X connect 90 0 89 2;
r@85 606 #X connect 91 0 89 1;
r@85 607 #X connect 92 0 123 0;
r@85 608 #X connect 93 0 92 0;
r@85 609 #X connect 94 0 89 3;
r@85 610 #X connect 96 0 95 2;
r@85 611 #X connect 97 0 95 1;
r@85 612 #X connect 98 0 122 0;
r@85 613 #X connect 99 0 98 0;
r@85 614 #X connect 100 0 95 3;
r@85 615 #X connect 102 0 101 2;
r@85 616 #X connect 103 0 101 1;
r@85 617 #X connect 104 0 121 0;
r@85 618 #X connect 105 0 104 0;
r@85 619 #X connect 106 0 101 3;
r@85 620 #X connect 108 0 107 2;
r@85 621 #X connect 109 0 107 1;
r@85 622 #X connect 110 0 120 0;
r@85 623 #X connect 111 0 110 0;
r@85 624 #X connect 112 0 107 3;
r@85 625 #X connect 114 0 113 2;
r@85 626 #X connect 115 0 113 1;
r@85 627 #X connect 116 0 119 0;
r@85 628 #X connect 117 0 116 0;
r@85 629 #X connect 118 0 113 3;
r@85 630 #X connect 119 0 113 0;
r@85 631 #X connect 120 0 107 0;
r@85 632 #X connect 121 0 101 0;
r@85 633 #X connect 122 0 95 0;
r@85 634 #X connect 123 0 89 0;
r@85 635 #X connect 124 0 86 0;
r@85 636 #X connect 132 0 20 0;
r@85 637 #X connect 133 0 26 0;
r@85 638 #X connect 134 0 40 0;
r@85 639 #X connect 135 0 41 0;
r@85 640 #X connect 136 0 53 0;
r@85 641 #X connect 137 0 54 0;
r@85 642 #X connect 138 0 80 0;
r@85 643 #X connect 139 0 125 0;
r@85 644 #X connect 139 1 126 0;
r@85 645 #X connect 139 2 127 0;
r@85 646 #X connect 139 3 128 0;
r@85 647 #X connect 139 4 129 0;
r@85 648 #X connect 139 5 130 0;
r@85 649 #X connect 139 6 131 0;
r@85 650 #X connect 140 0 139 0;
r@85 651 #X connect 141 0 139 0;
r@85 652 #X connect 143 0 142 2;
r@85 653 #X connect 144 0 142 1;
r@85 654 #X connect 145 0 166 0;
r@85 655 #X connect 146 0 145 0;
r@85 656 #X connect 147 0 142 3;
r@85 657 #X connect 149 0 148 2;
r@85 658 #X connect 150 0 148 1;
r@85 659 #X connect 151 0 167 0;
r@85 660 #X connect 152 0 151 0;
r@85 661 #X connect 153 0 148 3;
r@85 662 #X connect 155 0 154 2;
r@85 663 #X connect 156 0 154 1;
r@85 664 #X connect 157 0 168 0;
r@85 665 #X connect 158 0 157 0;
r@85 666 #X connect 159 0 154 3;
r@85 667 #X connect 161 0 160 2;
r@85 668 #X connect 162 0 160 1;
r@85 669 #X connect 163 0 169 0;
r@85 670 #X connect 164 0 163 0;
r@85 671 #X connect 165 0 160 3;
r@85 672 #X connect 166 0 142 0;
r@85 673 #X connect 167 0 148 0;
r@85 674 #X connect 168 0 154 0;
r@85 675 #X connect 169 0 160 0;
r@85 676 #X connect 170 0 139 0;
r@85 677 #X connect 171 0 86 0;
r@85 678 #X connect 172 0 10 0;
r@85 679 #X connect 173 0 11 0;
r@85 680 #X connect 174 0 9 0;