#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;