#N canvas 257 49 711 558 10;
#X obj 10 15 inlet polygon;
#X obj 22 92 f;
#X obj 22 54 loadbang;
#X obj 229 200 #polygon_each_edge;
#X obj 229 219 #t;
#X obj 47 92 s \$0-precision;
#X obj 281 242 #unpack;
#X obj 281 261 t f f;
#X obj 281 366 f;
#X obj 281 347 until;
#X obj 205 325 sel;
#X obj 205 344 s \$0-stop;
#X obj 311 328 r \$0-stop;
#X obj 331 366 mod;
#X obj 356 366 r \$0-precision;
#X obj 306 366 +;
#X msg 281 328 666;
#X obj 2 331 outlet radial_map;
#X obj 259 423 tabread \$0-table;
#X obj 220 463 pack;
#X obj 220 482 s \$0-table;
#X obj 252 463 +;
#N canvas 0 0 450 238 directions-of-points 0;
#X obj 20 25 inlet;
#X obj 20 115 # *;
#X obj 45 115 r \$0-precision;
#X obj 20 134 # / 36000;
#X obj 45 153 r \$0-precision;
#X obj 20 153 # %;
#N canvas 480 317 313 169 #split 0;
#X obj 34 28 inlet;
#X obj 34 123 outlet;
#X obj 50 85 outlet;
#X obj 34 47 #t;
#X text 58 48 split;
#X obj 50 66 #inner (0 1);
#X obj 34 104 #inner (1 0);
#X connect 0 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X restore 20 44 pd #split 2;
#X obj 20 172 outlet;
#X obj 20 96 # atan2cd;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 8 0;
#X connect 6 1 8 1;
#X connect 8 0 1 0;
#X restore 281 223 pd directions-of-points;
#N canvas 642 350 344 210 closest-turn 0;
#X obj 27 23 inlet;
#X obj 52 68 r \$0-precision;
#X obj 27 144 outlet;
#X obj 27 49 -;
#X obj 27 68 mod;
#X obj 52 87 / 2;
#X obj 77 23 inlet;
#X obj 27 106 * 2;
#X obj 27 125 - 1;
#X obj 27 87 >;
#X text 25 3 figure out clockwise vs counterclockwise;
#X connect 0 0 3 0;
#X connect 1 0 4 1;
#X connect 1 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 9 1;
#X connect 6 0 3 1;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 7 0;
#X restore 313 283 pd closest-turn;
#X obj 259 404 /;
#X obj 284 404 r \$0-precision;
#N canvas 637 343 450 300 find-intersection 0;
#X obj 21 20 inlet edge;
#X obj 110 21 inlet direction;
#X obj 21 259 outlet;
#X text 109 4 float;
#X text 20 4 2x2 matrix;
#X obj 21 63 #rotate;
#X obj 21 128 #ravel;
#X obj 21 147 #unpack 4;
#X obj 110 40 * -1;
#X obj 21 240 expr $f2 - $f1*($f4-$f2)/($f3-$f1);
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 7 1 9 1;
#X connect 7 2 9 2;
#X connect 7 3 9 3;
#X connect 8 0 5 1;
#X connect 9 0 2 0;
#X restore 77 407 pd find-intersection;
#X obj 77 388 #store;
#X obj 259 385 * 36000;
#X obj 22 130 s \$0-table;
#X msg 22 111 resize \$1;
#X obj 77 359 t b f;
#X obj 220 385 t f f;
#X obj 220 423 t f f;
#X obj 2 255 for 0 0 1;
#X obj 31 236 r \$0-precision;
#X obj 83 293 r \$0-precision;
#X obj 2 312 #import (1);
#X msg 83 312 list \$1;
#X obj 258 181 s \$0-table;
#X msg 258 162 const 0;
#X obj 2 274 tabread \$0-table;
#X obj 210 162 t a a b;
#X obj 2 217 #finished;
#X msg 22 73 256;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-table 256 float 2;
#X coords 0 100 256 0 200 140 1;
#X restore 475 29 graph;
#X obj 77 426 *;
#X obj 10 34 route precision;
#X obj 134 15 args;
#X text 164 16 because of " \, precision";
#X connect 0 0 47 0;
#X connect 1 0 30 0;
#X connect 1 0 5 0;
#X connect 2 0 44 0;
#X connect 3 0 4 0;
#X connect 4 0 22 0;
#X connect 4 1 27 1;
#X connect 6 0 7 0;
#X connect 6 1 10 1;
#X connect 6 1 23 1;
#X connect 7 0 16 0;
#X connect 7 1 8 1;
#X connect 7 1 23 0;
#X connect 8 0 10 0;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 32 0;
#X connect 12 0 9 1;
#X connect 13 0 8 1;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 21 0 19 1;
#X connect 22 0 6 0;
#X connect 23 0 15 1;
#X connect 23 0 46 1;
#X connect 24 0 31 0;
#X connect 25 0 24 1;
#X connect 26 0 46 0;
#X connect 27 0 26 0;
#X connect 28 0 24 0;
#X connect 30 0 29 0;
#X connect 31 0 27 0;
#X connect 31 1 26 1;
#X connect 32 0 33 0;
#X connect 32 1 28 0;
#X connect 33 0 19 0;
#X connect 33 1 18 0;
#X connect 34 0 41 0;
#X connect 35 0 34 1;
#X connect 36 0 38 0;
#X connect 37 0 17 0;
#X connect 38 0 37 1;
#X connect 40 0 39 0;
#X connect 41 0 37 0;
#X connect 42 0 43 0;
#X connect 42 1 3 0;
#X connect 42 2 40 0;
#X connect 43 0 34 0;
#X connect 44 0 1 0;
#X connect 46 0 21 1;
#X connect 47 0 1 0;
#X connect 47 1 42 0;
#X coords 0 0 1 1 85 60 0;