2dAngle.pd

#N canvas 232 25 1012 720 10;
#X obj 284 457 atan;
#X obj 165 182 inlet;
#X obj 316 177 inlet;
#X text 203 184 x y;
#X obj 178 211 unpack;
#X obj 294 208 unpack;
#X obj 208 253 - \$1;
#X obj 287 252 - \$2;
#X obj 281 436 /;
#X obj 288 411 swap;
#X obj 364 387 < 0;
#X obj 275 366 t f f;
#X obj 427 558 *;
#X obj 480 571 +;
#X obj 420 403 pack;
#X obj 372 354 t f f;
#X obj 422 373 > 0;
#X obj 449 427 route 1;
#X obj 448 455 sel 0 1;
#X obj 427 598 *;
#X obj 238 278 pack;
#X obj 292 334 unpack;
#X obj 238 302 route 0;
#X obj 168 343 moses 0;
#X obj 348 679 outlet;
#X obj 378 639 * 57.2958;
#X obj 202 407 / 2;
#X obj 104 420 / -2;
#X obj 567 439 t b b;
#X obj 383 476 t b b;
#X msg 560 462 1;
#X msg 605 461 0;
#X msg 379 499 -1;
#X msg 526 512 1;
#X obj 516 491 t b b;
#X obj 104 392 hcs/pi;
#X obj 202 385 hcs/pi;
#X obj 438 481 hcs/pi;
#X obj 628 491 hcs/pi;
#X connect 0 0 12 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 4 1 7 0;
#X connect 5 0 6 1;
#X connect 5 1 7 1;
#X connect 6 0 20 0;
#X connect 7 0 20 1;
#X connect 8 0 0 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 10 0 14 0;
#X connect 11 0 9 0;
#X connect 11 1 10 0;
#X connect 12 0 13 0;
#X connect 13 0 19 0;
#X connect 14 0 17 0;
#X connect 15 0 9 1;
#X connect 15 1 16 0;
#X connect 16 0 14 1;
#X connect 17 0 18 0;
#X connect 17 1 28 0;
#X connect 18 0 29 0;
#X connect 18 1 34 0;
#X connect 19 0 25 0;
#X connect 20 0 22 0;
#X connect 21 0 11 0;
#X connect 21 1 15 0;
#X connect 22 0 23 0;
#X connect 22 1 21 0;
#X connect 23 0 35 0;
#X connect 23 1 36 0;
#X connect 25 0 24 0;
#X connect 26 0 25 0;
#X connect 27 0 25 0;
#X connect 28 0 30 0;
#X connect 28 1 31 0;
#X connect 29 0 32 0;
#X connect 29 1 37 0;
#X connect 30 0 12 1;
#X connect 30 0 19 1;
#X connect 31 0 13 1;
#X connect 32 0 12 1;
#X connect 32 0 19 1;
#X connect 33 0 12 1;
#X connect 33 0 19 1;
#X connect 34 0 33 0;
#X connect 34 1 38 0;
#X connect 35 0 27 0;
#X connect 36 0 26 0;
#X connect 37 0 13 1;
#X connect 38 0 13 1;