#N canvas 111 480 772 393 10;
#X declare -lib Gem;
#X obj 52 8 loadbang;
#X obj 64 31 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 1227 349 692 614 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 162 473 outlet;
#X obj 162 153 until;
#X obj 162 185 f;
#X obj 287 230 + 1;
#X msg 192 183 0;
#X msg 220 418 print;
#X obj 162 232 t b f;
#X msg 162 293 mass mobil 1 10 0;
#X msg 126 328 mass fix_0 0 1 0 \, mass fix_1 0 1 1;
#X msg 71 360 link tab_force mobil fix_1 0 0 \, link raz mobil fix_0
1 5;
#X msg 162 131 100;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 3 13 0;
#X connect 2 7 12 0;
#X connect 2 9 14 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 10 0;
#X connect 7 0 6 1;
#X connect 8 0 6 1;
#X connect 9 0 4 0;
#X connect 10 0 11 0;
#X connect 10 1 7 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 4 0;
#X connect 14 0 5 0;
#X restore 52 56 pd creation;
#X obj 54 -49 declare -lib Gem;
#X obj 146 7 gemhead;
#X obj 146 30 t b;
#X obj 54 -25 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#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 -25 pd create_gem;
#X obj 52 126 route massPos;
#N canvas 1019 484 425 448 mass_render 0;
#X obj 146 49 inlet;
#X obj 67 285 separator;
#X obj 67 224 gemhead 45;
#X obj 67 116 loadbang;
#X msg 67 174 0;
#X obj 146 73 route mobil;
#X obj 67 311 translateXYZ;
#X obj 146 101 unpack f f;
#X obj 287 72 gemhead 1;
#X obj 285 96 t b;
#X obj 206 182 f;
#X obj 146 124 t b b;
#X msg 285 122 -2.5;
#X obj 223 211 + 0.05;
#X obj 68 265 translateXYZ 0 0 0;
#X obj 67 340 circle 0.05;
#X obj 68 246 scaleXYZ 1 1 1;
#X connect 0 0 5 0;
#X connect 1 0 6 0;
#X connect 2 0 16 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 7 0;
#X connect 6 0 15 0;
#X connect 7 0 11 0;
#X connect 7 1 6 2;
#X connect 8 0 9 0;
#X connect 9 0 12 0;
#X connect 10 0 13 0;
#X connect 10 0 6 1;
#X connect 11 0 2 0;
#X connect 11 1 10 0;
#X connect 12 0 10 1;
#X connect 13 0 10 1;
#X connect 14 0 1 0;
#X connect 16 0 14 0;
#X restore 52 147 pd mass_render;
#X obj 52 103 pmpd;
#N canvas 0 50 450 250 (subpatch) 0;
#X array force 100 float 2;
#X coords 0 1 99 -1 200 140 1;
#X restore 491 3 graph;
#X text 404 -56 draw in the table to change link rigidity independendy
of each link;
#N canvas 0 50 450 250 (subpatch) 0;
#X array K 100 float 2;
#X coords 0 1 99 -1 200 140 1;
#X restore 489 165 graph;
#X msg 146 52 setK tab_force K \, bang \, massPos mobil;
#X msg 163 81 force mobil force;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 4 0 5 0;
#X connect 5 0 14 0;
#X connect 6 0 7 0;
#X connect 8 0 9 0;
#X connect 10 0 8 0;
#X connect 14 0 10 0;
#X connect 15 0 10 0;