#N canvas -37 0 1271 948 12;
#X declare -lib Gem;
#X declare -lib pmpd -path pmpd;
#X obj 275 60 declare -lib Gem;
#X msg 21 47 reset \, create \, 1;
#X obj 21 72 gemwin;
#X msg 84 72 destroy;
#X obj 275 85 declare -lib pmpd -path pmpd;
#X obj 370 514 gemhead;
#X obj 370 579 sphere 0.1;
#X obj 370 547 translateXYZ;
#X obj 289 407 unpack s f f;
#X text 60 687 [link2D <name> <length:L> <rigidity:K> <linkdamping:D> <massdamp:D2>, f 68;
#X text 60 706 [mass2D <name> <mass:M> <X> <Y> <minX> <maxX> <minY> <maxY> <seuil:T> <damp:D>], f 79;
#X msg 487 222 bang;
#X obj 487 247 s \$0-link;
#X msg 313 198 bang;
#X obj 336 282 s \$0-mass;
#X obj 23 306 mass2D 0 10 0 0;
#X msg 364 142 bang;
#X obj 364 167 t b b b;
#X obj 521 106 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 521 131 metro 20;
#X floatatom 240 283 5 0 0 0 - - - 0;
#X msg 240 307 force2D \$1 0;
#X msg 229 232 10;
#X text 90 745 [iAmbient2D <name> Fx Fy rndFx rndFy damp:D Xmin Xmax Ymin Ymax dX dY], f 70;
#X msg 473 351 setD \$1;
#X floatatom 471 318 5 0 0 0 - - - 0;
#X msg 269 252 bang;
#X obj 423 126 t b b;
#X obj 287 356 mass2D \$0-mass 3000 0 -2;
#X msg 395 208 force2D 0 -2;
#X msg 373 318 setXY 0 0;
#X obj 86 350 link2D \$0-link 2 300;
#X msg 493 286 10;
#X msg 409 246 reset;
#X connect 1 0 2 0;
#X connect 3 0 2 0;
#X connect 5 0 7 0;
#X connect 7 0 6 0;
#X connect 8 1 7 1;
#X connect 8 2 7 2;
#X connect 11 0 12 0;
#X connect 13 0 14 0;
#X connect 15 0 31 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 17 1 29 0;
#X connect 17 2 11 0;
#X connect 18 0 19 0;
#X connect 19 0 27 0;
#X connect 20 0 21 0;
#X connect 21 0 28 0;
#X connect 22 0 20 0;
#X connect 24 0 28 0;
#X connect 25 0 24 0;
#X connect 26 0 20 0;
#X connect 27 1 17 0;
#X connect 28 0 8 0;
#X connect 28 0 31 1;
#X connect 29 0 14 0;
#X connect 30 0 28 0;
#X connect 31 1 28 0;
#X connect 32 0 25 0;
#X connect 33 0 14 0;
#X connect 33 0 12 0;