map_polygon.pd

#N canvas 300 51 983 706 10;
#X obj 8 7 inlet;
#X obj 597 78 unpack f f;
#X obj 578 100 translateXYZ;
#X msg 596 138 draw line;
#X obj 32 450 sel 1;
#X obj 138 630 s select;
#X obj 137 608 f \$0;
#X obj -12 250 sel \$0;
#X obj -12 225 r select;
#X obj -4 329 s \$0-sel;
#X obj 381 3 r \$0-sel;
#X msg 27 288 0;
#X msg -15 286 1;
#X obj 596 119 loadbang;
#X obj 147 570 spigot 0;
#X obj 438 6 r vertex_switch;
#X obj 46 254 r reset;
#N canvas 766 347 450 300 stred 0;
#X obj 139 167 stred_bodov;
#X obj 213 215 stred_bodov;
#X obj 144 248 stred_bodov;
#X obj 143 277 outlet;
#X obj 137 137 r LH-\$0;
#X obj 200 131 r PD-\$0;
#X obj 214 187 r PH-\$0;
#X obj 282 178 r LD-\$0;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X connect 6 0 1 0;
#X connect 7 0 1 1;
#X restore 251 417 pd stred;
#X obj 21 535 &&;
#X obj 17 402 r gmouse;
#X obj 24 593 relativier;
#X obj 440 24 t b f;
#X obj 53 545 r \$0-sel;
#X msg 9 49 reset;
#X msg 115 653 rel_mov \$1 \$2;
#X msg 409 74 sel \$1;
#X obj 278 85 r \$0-vert_set;
#X obj 278 109 t a;
#X obj 8 71 s \$0-vert_set;
#X obj 22 675 s \$0-vert_set;
#X obj 27 618 route bang;
#X msg 23 646 rel_mov bang;
#N canvas 507 249 865 420 curveset_main 0;
#X msg 678 223 draw line;
#X obj 647 179 loadbang;
#X obj 500 69 r \$0-sel;
#X obj 568 53 r vertex_switch;
#X obj 572 76 t b f;
#X obj 554 99 && 1;
#X obj 521 119 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 55 379 outlet;
#X obj 55 75 r LH-\$0;
#X obj 148 170 r PH-\$0;
#X obj 222 231 r PD-\$0;
#X obj 325 233 r LD-\$0;
#X obj 676 96 r skeleton;
#X obj 559 143 ||;
#X obj 595 112 t b f;
#X obj 559 223 t a;
#X obj 559 183 ortho;
#X msg 647 199 compat 0;
#X obj 559 163 gemhead -9;
#X obj 554 324 polygon 4;
#X obj 143 381 outlet;
#X obj 211 379 outlet;
#X obj 291 380 outlet;
#X msg 324 255 \$1 \$2 0;
#X msg 223 254 \$1 \$2 0;
#X msg 148 193 \$1 \$2 0;
#X msg 54 96 \$1 \$2 0;
#X connect 0 0 19 0;
#X connect 1 0 0 0;
#X connect 1 0 17 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 6 0;
#X connect 5 0 13 0;
#X connect 8 0 26 0;
#X connect 9 0 25 0;
#X connect 10 0 24 0;
#X connect 11 0 23 0;
#X connect 12 0 14 0;
#X connect 13 0 18 0;
#X connect 14 0 13 0;
#X connect 14 1 13 1;
#X connect 15 0 19 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 16 0;
#X connect 23 0 22 0;
#X connect 23 0 19 4;
#X connect 24 0 21 0;
#X connect 24 0 19 3;
#X connect 25 0 20 0;
#X connect 25 0 19 2;
#X connect 26 0 7 0;
#X connect 26 0 19 1;
#X restore 125 21 pd curveset_main;
#X obj 17 423 route b3;
#X obj 393 516 r \$0-vert_set;
#X obj 411 94 s \$0-vert_set;
#X obj 22 569 && 0;
#X obj 47 234 loadbang;
#X obj 117 123 r \$0-sel;
#X obj 135 200 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -262144;
#X msg 117 180 color \$1;
#X obj 117 141 sel 0 1;
#X obj 405 52 && 1;
#X msg 252 442 set \$1 \$2;
#X obj 253 462 spigot 1;
#X obj 289 377 == 0;
#X obj 578 157 circle 0.08;
#X obj -7 589 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 393 538 route sel;
#X msg 472 615 lock \$1;
#X obj 472 594 == 0;
#X obj 472 573 r \$0-sel;
#X msg 456 554 sel \$1;
#X obj 456 535 r vertex_switch;
#X obj 472 641 t a;
#X obj 9 27 route reset sel;
#X obj 107 79 outlet;
#N canvas 289 14 966 465 save 0;
#X obj 135 416 t b l;
#X obj 135 386 list;
#N canvas 368 173 893 617 save 0;
#X msg 42 214 write \$1;
#X msg 342 162 read \$1;
#X obj 290 231 coll;
#C restore;
#N canvas 289 235 339 244 stokage 0;
#X obj 115 140 list append;
#X obj 115 180 outlet;
#X obj 115 33 inlet;
#X obj 178 33 inlet;
#X obj 115 93 1;
#X connect 0 0 1 0;
#X connect 2 0 4 0;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X restore 119 43 pd stokage;
#X obj 42 -51 inlet;
#X obj 176 15 inlet;
#X obj 42 -24 t b b;
#X obj 248 693 r C-i-\$1;
#X msg 59 449 set \$1 \$2;
#X obj 59 428 pack f f;
#X msg 127 451 set \$1 \$2;
#X obj 127 430 pack f f;
#X msg 194 453 set \$1 \$2;
#X obj 194 432 pack f f;
#X msg 269 456 set \$1 \$2;
#X obj 269 435 pack f f;
#X obj 290 4 r load_positions;
#X obj 290 52 symbol \$1;
#X obj 42 65 symbol \$1;
#X obj 356 194 print;
#X obj 290 71 t b s b;
#X obj 261 32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 336 117 makefilename position/pos-%s.txt;
#X obj 42 142 makefilename position/pos-%s.txt;
#X obj 585 245 inlet;
#X obj 60 471 s LH-i-\$0;
#X obj 127 473 s PH-i-\$0;
#X obj 194 474 s PD-i-\$0;
#X obj 268 477 s LD-i-\$0;
#X obj 290 262 unpack f f f f f f f f;
#X obj 585 266 route 1 2 3 4;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 1 0 19 0;
#X connect 2 0 29 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 6 1 3 0;
#X connect 8 0 25 0;
#X connect 9 0 8 0;
#X connect 10 0 26 0;
#X connect 11 0 10 0;
#X connect 12 0 27 0;
#X connect 13 0 12 0;
#X connect 14 0 28 0;
#X connect 15 0 14 0;
#X connect 16 0 17 0;
#X connect 17 0 20 0;
#X connect 18 0 23 0;
#X connect 20 0 2 0;
#X connect 20 1 22 0;
#X connect 21 0 17 0;
#X connect 22 0 1 0;
#X connect 23 0 0 0;
#X connect 24 0 30 0;
#X connect 29 0 9 0;
#X connect 29 1 9 1;
#X connect 29 2 11 0;
#X connect 29 3 11 1;
#X connect 29 4 13 0;
#X connect 29 5 13 1;
#X connect 29 6 15 0;
#X connect 29 7 15 1;
#X connect 30 0 8 0;
#X connect 30 1 10 0;
#X connect 30 2 12 0;
#X connect 30 3 14 0;
#X restore 135 441 pd save;
#X obj 248 416 r reset;
#X obj 34 335 r save_positions;
#X text 449 426 http://www.yamatierea.org/papatchs;
#X text 449 414 based on tunning made by Olivier Baudu.;
#X obj 676 388 outlet;
#X obj 156 95 unpack f f;
#X obj 254 105 unpack f f;
#X obj 324 106 unpack f f;
#X obj 394 105 unpack f f;
#X obj 73 158 inlet;
#X msg 507 320 1 \$1 \$2;
#X msg 547 300 2 \$1 \$2;
#X msg 587 280 3 \$1 \$2;
#X msg 627 260 4 \$1 \$2;
#X obj 126 38 r LH-\$0;
#X obj 226 49 r PH-\$0;
#X obj 366 49 r LD-\$0;
#X obj 296 49 r PD-\$0;
#X obj 126 59 t l l;
#X obj 227 69 t b l l;
#X obj 297 70 t b l l;
#X obj 367 69 t b l l;
#X obj 156 335 pack f f f f f f f f;
#X connect 0 0 2 0;
#X connect 0 1 2 1;
#X connect 1 0 0 0;
#X connect 4 0 1 0;
#X connect 8 0 25 0;
#X connect 8 1 25 1;
#X connect 9 0 25 2;
#X connect 9 1 25 3;
#X connect 10 0 25 4;
#X connect 10 1 25 5;
#X connect 11 0 25 6;
#X connect 11 1 25 7;
#X connect 12 0 2 2;
#X connect 13 0 7 0;
#X connect 14 0 7 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 21 0;
#X connect 18 0 22 0;
#X connect 19 0 24 0;
#X connect 20 0 23 0;
#X connect 21 0 13 0;
#X connect 21 1 8 0;
#X connect 22 0 25 0;
#X connect 22 1 14 0;
#X connect 22 2 9 0;
#X connect 23 0 25 0;
#X connect 23 1 15 0;
#X connect 23 2 10 0;
#X connect 24 0 25 0;
#X connect 24 1 16 0;
#X connect 24 2 11 0;
#X connect 25 0 1 1;
#X restore 256 48 pd save;
#X obj 160 508 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 256 67 outlet;
#X text 183 52 <<<<;
#X obj 296 183 vertex 1 1;
#X obj 198 174 vertex -1 1;
#X obj 384 644 vertex 0 0;
#X obj 506 181 vertex -1 -1;
#X obj 392 178 vertex 1 -1;
#X msg 145 161 22;
#X msg 117 161 0;
#X obj 182 278 r \$0-sel;
#X obj 182 298 == 0;
#X obj 144 327 spigot 0;
#X obj 144 347 sel 1;
#X obj 199 137 r LH-i-\$0;
#X obj 301 157 r PH-i-\$0;
#X obj 394 157 r PD-i-\$0;
#X obj 513 156 r LD-i-\$0;
#X obj 199 205 s LH-\$0;
#X obj 296 213 s PH-\$0;
#X obj 392 210 s PD-\$0;
#X obj 509 213 s LD-\$0;
#X obj 384 602 r C-i-\$0;
#X obj 384 665 s C-\$0;
#X obj 597 60 r C-\$0;
#X floatatom 172 109 5 0 0 0 - - -;
#X msg 144 367 1;
#X text 654 708 created by Jakub Pisek 2011 \, kubriel@gmail.com;
#X obj 578 28 ortho;
#X obj 663 13 loadbang;
#X msg 663 33 compat 0;
#X obj 578 8 gemhead -3;
#X msg 199 234 1;
#X text 224 234 ?;
#X obj 250 790 text3d;
#X msg 277 671 text \$1;
#X obj 218 559 loadbang;
#X msg 218 579 0;
#X obj 277 644 symbol \$1;
#X obj 319 597 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 289 766 5 0 0 0 - - -;
#X obj 252 737 translateXYZ;
#X obj 353 701 unpack f f;
#X msg 373 759 justify left;
#X msg 197 717 3;
#X obj 312 712 + 0.15;
#X obj 413 725 + 0.04;
#X obj 263 535 &&;
#X obj 250 507 t b f;
#X msg 222 625 font vera.ttf;
#X obj 256 7 inlet;
#X obj 256 27 t b a b;
#X msg 321 48 1;
#X obj 107 50 polygon 4;
#X obj 239 606 gemhead -11;
#X obj 252 682 ortho;
#X obj 325 665 loadbang;
#X msg 325 685 compat 0;
#X connect 0 0 55 0;
#X connect 1 0 2 1;
#X connect 1 1 2 2;
#X connect 2 0 46 0;
#X connect 3 0 46 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 12 0;
#X connect 7 1 11 0;
#X connect 8 0 7 0;
#X connect 10 0 42 0;
#X connect 11 0 9 0;
#X connect 12 0 9 0;
#X connect 13 0 3 0;
#X connect 14 0 6 0;
#X connect 15 0 21 0;
#X connect 16 0 11 0;
#X connect 17 0 43 0;
#X connect 18 0 36 0;
#X connect 19 0 33 0;
#X connect 20 0 30 0;
#X connect 21 0 42 0;
#X connect 21 1 42 1;
#X connect 22 0 36 1;
#X connect 23 0 28 0;
#X connect 24 0 29 0;
#X connect 25 0 35 0;
#X connect 26 0 27 0;
#X connect 27 0 61 0;
#X connect 27 0 62 0;
#X connect 27 0 64 0;
#X connect 27 0 65 0;
#X connect 30 0 31 0;
#X connect 30 1 24 0;
#X connect 31 0 29 0;
#X connect 32 0 111 1;
#X connect 32 1 111 2;
#X connect 32 2 111 3;
#X connect 32 3 111 4;
#X connect 33 0 4 0;
#X connect 33 0 18 0;
#X connect 34 0 48 0;
#X connect 36 0 20 0;
#X connect 36 0 45 0;
#X connect 36 0 47 0;
#X connect 37 0 11 0;
#X connect 38 0 41 0;
#X connect 39 0 6 0;
#X connect 39 0 90 0;
#X connect 40 0 39 0;
#X connect 41 0 67 0;
#X connect 41 1 66 0;
#X connect 42 0 25 0;
#X connect 42 0 89 0;
#X connect 43 0 44 0;
#X connect 44 0 63 0;
#X connect 45 0 44 1;
#X connect 48 1 54 0;
#X connect 49 0 54 0;
#X connect 50 0 49 0;
#X connect 51 0 50 0;
#X connect 52 0 54 0;
#X connect 53 0 52 0;
#X connect 53 0 105 0;
#X connect 54 0 63 0;
#X connect 55 0 23 0;
#X connect 55 1 12 0;
#X connect 55 2 111 0;
#X connect 57 0 59 0;
#X connect 58 0 14 1;
#X connect 58 0 18 1;
#X connect 58 0 70 0;
#X connect 58 0 106 0;
#X connect 61 0 77 0;
#X connect 62 0 76 0;
#X connect 63 0 81 0;
#X connect 63 0 100 0;
#X connect 63 1 58 0;
#X connect 64 0 79 0;
#X connect 65 0 78 0;
#X connect 66 0 40 0;
#X connect 67 0 40 0;
#X connect 68 0 69 0;
#X connect 69 0 70 1;
#X connect 70 0 71 0;
#X connect 71 0 84 0;
#X connect 71 1 40 0;
#X connect 72 0 62 0;
#X connect 73 0 61 0;
#X connect 74 0 65 0;
#X connect 75 0 64 0;
#X connect 80 0 63 0;
#X connect 82 0 1 0;
#X connect 83 0 40 0;
#X connect 84 0 40 0;
#X connect 86 0 2 0;
#X connect 87 0 88 0;
#X connect 88 0 86 0;
#X connect 89 0 86 0;
#X connect 93 0 92 0;
#X connect 94 0 95 0;
#X connect 94 0 96 0;
#X connect 94 0 102 0;
#X connect 94 0 101 0;
#X connect 94 0 107 0;
#X connect 95 0 112 0;
#X connect 96 0 93 0;
#X connect 97 0 96 0;
#X connect 98 0 92 1;
#X connect 99 0 92 0;
#X connect 100 0 103 0;
#X connect 100 1 104 0;
#X connect 101 0 92 0;
#X connect 102 0 98 0;
#X connect 103 0 99 1;
#X connect 104 0 99 2;
#X connect 105 0 112 0;
#X connect 106 0 105 0;
#X connect 106 1 105 1;
#X connect 107 0 92 0;
#X connect 108 0 109 0;
#X connect 109 1 57 0;
#X connect 109 2 110 0;
#X connect 111 0 56 0;
#X connect 112 0 113 0;
#X connect 113 0 99 0;
#X connect 114 0 115 0;
#X connect 115 0 113 0;
#X coords 0 -1 1 1 140 15 1 10 200;