#N canvas 454 264 543 322 10;
#X declare -lib Gem -path ../;
#X obj 52 193 pmpd2d;
#X obj 52 78 loadbang;
#X obj 64 101 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 263 169 1137 609 creation 0;
#X obj 41 20 inlet;
#X obj 51 48 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 41 77 t b b b b b b b b b b b;
#X msg 255 110 reset;
#X obj 67 581 outlet;
#X obj 162 153 until;
#X obj 162 185 f;
#X obj 234 237 + 1;
#X msg 192 183 0;
#X obj 162 356 pack f f;
#X msg 162 381 mass net 1 1 \$1 \$2;
#X msg 309 553 print;
#X msg 122 407 link link net net 0.1 0.02;
#X obj 386 40 inlet;
#X msg 386 85 setInactive \$1 \, setLinkId \$1 inactive;
#X obj 189 258 random 1000;
#X obj 189 280 / 1000;
#X obj 162 308 random 1000;
#X obj 162 330 / 1000;
#X obj 162 232 t b b f;
#X msg 162 131 200;
#X obj 42 434 t b;
#X msg 57 484 testMass fixing_corner distanceCircleInf 0 1 0.15;
#X msg 47 504 testMass fixing_corner distanceCircleInf 1 0 0.15;
#X msg 37 524 testMass fixing_corner distanceCircleInf 1 1 0.15;
#X msg 67 464 testMass fixing_corner distanceCircleInf 0 0 0.15;
#X obj 610 317 + 1;
#X obj 583 271 gemmouse 1 -1;
#X obj 555 244 spigot;
#X msg 555 368 setFixed \$1 \, setPos \$1 \$2 \$3;
#X obj 555 339 pack f f f;
#X msg 478 117 setFixed \$1 \, setMassId corned;
#X obj 555 192 f;
#X obj 570 145 t f b;
#X obj 597 165 delay 0;
#X text 596 189 select only 1 mass;
#X obj 659 450 change -1;
#X obj 659 474 sel 0;
#X text 702 476 when releasing the mass moved by the mouse \, adapt
lenght of the link connected to this mass to curent length;
#X obj 659 499 f;
#X obj 670 316 delay 1;
#X obj 667 294 t b;
#X msg 651 86 setLCurrent \$1;
#X msg 658 523 testLink adapt_length Id link connectedTo \$1 \, setMobile
\$1;
#X msg 27 228 delLink inactive;
#X msg 95 438 testLink remove_long_link lengthSup 0.15;
#X obj 388 58 route remove_long_link fixing_corner mouse_move adapt_length
;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 44 0;
#X connect 2 2 21 0;
#X connect 2 4 45 0;
#X connect 2 6 12 0;
#X connect 2 9 20 0;
#X connect 2 10 3 0;
#X connect 2 10 8 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 19 0;
#X connect 7 0 6 1;
#X connect 8 0 6 1;
#X connect 9 0 10 0;
#X connect 10 0 4 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 46 0;
#X connect 14 0 4 0;
#X connect 15 0 16 0;
#X connect 16 0 9 1;
#X connect 17 0 18 0;
#X connect 18 0 9 0;
#X connect 19 0 17 0;
#X connect 19 1 15 0;
#X connect 19 2 7 0;
#X connect 20 0 5 0;
#X connect 21 0 25 0;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 21 0 24 0;
#X connect 22 0 4 0;
#X connect 23 0 4 0;
#X connect 24 0 4 0;
#X connect 25 0 4 0;
#X connect 26 0 30 2;
#X connect 27 0 30 1;
#X connect 27 0 41 0;
#X connect 27 1 26 0;
#X connect 27 2 28 1;
#X connect 27 2 36 0;
#X connect 28 0 30 0;
#X connect 29 0 4 0;
#X connect 30 0 29 0;
#X connect 31 0 4 0;
#X connect 32 0 28 0;
#X connect 32 0 39 1;
#X connect 33 0 32 1;
#X connect 33 1 34 0;
#X connect 34 0 32 0;
#X connect 36 0 37 0;
#X connect 37 0 39 0;
#X connect 39 0 43 0;
#X connect 40 0 32 0;
#X connect 41 0 40 0;
#X connect 42 0 4 0;
#X connect 43 0 4 0;
#X connect 44 0 4 0;
#X connect 45 0 4 0;
#X connect 46 0 14 0;
#X connect 46 1 31 0;
#X connect 46 2 33 0;
#X connect 46 3 42 0;
#X restore 52 126 pd creation;
#X obj 186 77 gemhead;
#X obj 186 100 t b;
#X obj 54 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#N canvas 1157 484 591 562 linkrender 0;
#X obj 150 9 inlet;
#X obj 67 285 separator;
#X obj 150 148 t b f;
#X obj 67 368 curve 2;
#X obj 177 178 pack f f;
#X msg 177 201 \$1 \$2 0;
#X obj 261 177 pack f f;
#X msg 261 200 \$1 \$2 0;
#X obj 146 97 unpack f f f f f;
#X obj 67 224 gemhead 45;
#X obj 67 116 loadbang;
#X msg 67 174 0;
#X msg 77 337 res 2;
#X obj 77 311 loadbang;
#X obj 145 53 route link;
#X obj 68 246 scaleXYZ 8 8 0;
#X obj 68 265 translateXYZ -0.5 -0.5 0;
#X connect 0 0 14 0;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 2 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 3 1;
#X connect 6 0 7 0;
#X connect 7 0 3 2;
#X connect 8 1 2 0;
#X connect 8 2 4 1;
#X connect 8 3 6 0;
#X connect 8 4 6 1;
#X connect 9 0 15 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 3 0;
#X connect 13 0 12 0;
#X connect 14 0 8 0;
#X connect 15 0 16 0;
#X connect 16 0 1 0;
#X restore 174 241 pd linkrender;
#X msg 186 122 bang \, linkEnd link;
#N canvas 716 693 763 327 create_gem 0;
#X msg 137 179 0 \, destroy;
#X obj 118 200 gemwin;
#X obj 118 104 inlet;
#X obj 118 129 sel 1 0;
#X msg 118 156 reset \, create \, 1;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 1 0;
#X restore 75 45 pd create_gem;
#N canvas 1169 453 413 534 gemmouse 0;
#X obj 65 218 outlet;
#X obj 95 145 + 1;
#X obj 60 43 gemmouse 1 -1;
#X obj 98 89 sel 1;
#X obj 97 69 change -1;
#X obj 68 167 pack 0 0;
#X obj 70 144 f;
#X obj 97 115 delay 0;
#X msg 66 191 \$1 \$2;
#X connect 1 0 5 1;
#X connect 2 0 6 1;
#X connect 2 1 1 0;
#X connect 2 2 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X restore 188 148 pd gemmouse;
#X obj 52 216 route testLink testMass linkEnd;
#X msg 188 170 testMass mouse_move distanceCircleInf \$1 \$2 0.05;
#X text 50 283 click and drag connection point with mouse to destrod
the net;
#X obj 56 21 declare -lib Gem -path ../;
#X connect 0 0 11 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 9 0;
#X connect 8 0 0 0;
#X connect 10 0 12 0;
#X connect 11 0 3 1;
#X connect 11 1 3 1;
#X connect 11 2 7 0;
#X connect 12 0 0 0;