1 files changed, 215 insertions, 0 deletions

diff --git a/examples/63_random_network.pd b/examples/63_random_network.pd
new file mode 100644
index 0000000..8fda0c2
--- /dev/null
+++ b/examples/63_random_network.pd
@@ -0,0 +1,215 @@
+#N canvas 199 680 543 322 10;
+#X declare -lib Gem;
+#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 679 299 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 msg 95 438 testLink remove_long_link lengthSup 0.15;
+#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 386 62 route remove_long_link fixing_corner mouse_move adapt_length
+;
+#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 connect 0 0 2 0;
+#X connect 1 0 2 0;
+#X connect 2 2 22 0;
+#X connect 2 4 21 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 41 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 4 0;
+#X connect 22 0 26 0;
+#X connect 22 0 23 0;
+#X connect 22 0 24 0;
+#X connect 22 0 25 0;
+#X connect 23 0 4 0;
+#X connect 24 0 4 0;
+#X connect 25 0 4 0;
+#X connect 26 0 4 0;
+#X connect 27 0 31 2;
+#X connect 28 0 31 1;
+#X connect 28 0 43 0;
+#X connect 28 1 27 0;
+#X connect 28 2 29 1;
+#X connect 28 2 37 0;
+#X connect 29 0 31 0;
+#X connect 30 0 4 0;
+#X connect 31 0 30 0;
+#X connect 32 0 4 0;
+#X connect 33 0 29 0;
+#X connect 33 0 40 1;
+#X connect 34 0 33 1;
+#X connect 34 1 35 0;
+#X connect 35 0 33 0;
+#X connect 37 0 38 0;
+#X connect 38 0 40 0;
+#X connect 40 0 45 0;
+#X connect 41 0 14 0;
+#X connect 41 1 32 0;
+#X connect 41 2 34 0;
+#X connect 41 3 44 0;
+#X connect 42 0 33 0;
+#X connect 43 0 42 0;
+#X connect 44 0 4 0;
+#X connect 45 0 4 0;
+#X restore 52 126 pd creation;
+#X obj 56 21 declare -lib Gem;
+#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 1 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, f 62;
+#X connect 0 0 12 0;
+#X connect 1 0 3 0;
+#X connect 2 0 3 0;
+#X connect 3 0 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 9 0;
+#X connect 7 0 10 0;
+#X connect 9 0 0 0;
+#X connect 11 0 13 0;
+#X connect 12 0 3 1;
+#X connect 12 1 3 1;
+#X connect 12 2 8 0;
+#X connect 13 0 0 0;