#N canvas 30 91 877 678 12;
#X declare -lib Gem;
#X obj 9 18 t b b;
#X obj 9 -30 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 158 -6 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 238 46 0 \, destroy;
#X msg 204 21 reset \, create \, 1;
#N canvas 623 135 504 293 init 0;
#X obj 49 50 loadbang;
#X msg 44 84 Xmin -3.8;
#X msg 58 110 Xmax 3.8;
#X msg 81 131 Ymin -3.8;
#X msg 95 157 Ymax 3.8;
#X obj 47 201 s \$0-mass;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X restore 401 -8 pd init;
#X obj 88 -11 loadbang;
#X msg 139 45 reset;
#X msg 113 69 resetL;
#X msg 88 93 resetF;
#X obj 88 18 t b b b;
#X obj 9 -9 metro 50;
#X obj 204 74 gemwin;
#X text 90 152 negative Y force (gravity);
#X text 86 266 positive Y force;
#X obj 23 498 gemhead;
#X obj 43 524 unpack s f f;
#X obj 42 551 translateXYZ 0 0 0;
#X obj 42 583 sphere 0.3;
#X obj 173 498 gemhead;
#X obj 193 524 unpack s f f;
#X obj 192 551 translateXYZ 0 0 0;
#X obj 192 583 sphere 0.3;
#X obj 330 499 gemhead;
#X obj 350 525 unpack s f f;
#X obj 349 552 translateXYZ 0 0 0;
#X obj 349 584 sphere 0.3;
#X obj 479 499 gemhead;
#X obj 499 525 unpack s f f;
#X obj 498 552 translateXYZ 0 0 0;
#X obj 498 584 sphere 0.3;
#X obj 628 499 gemhead;
#X obj 648 525 unpack s f f;
#X obj 647 552 translateXYZ 0 0 0;
#X obj 647 584 sphere 0.3;
#X obj 44 465 mass2D foo 1 -2 3;
#X obj 193 465 mass2D foo2 1 -1 3;
#X obj 350 465 mass2D foo3 1 0 3;
#X obj 499 465 mass2D foo4 1 1 3;
#X obj 648 465 mass2D foo 1 2 3;
#X obj 9 123 s mass;
#X obj 55 437 r mass;
#X obj 193 438 r mass;
#X obj 350 436 r mass;
#X obj 499 436 r mass;
#X obj 648 437 r mass;
#X obj 52 174 iAmbient2D foo 0 -0.1;
#X obj 63 201 iAmbient2D foo2 0 -0.1;
#X obj 76 227 iAmbient2D foo3 0 -0.1;
#X text 268 173 force is apply to mass named foo \, foo2 and foo3;
#X text 344 287 a positive forece is apply to foo2 \, and to foo3 (according
to pd link). this force allows mass 2 and 3 to stay at Y=0.;
#X obj 529 657 iAmbient2D;
#X obj 530 684 iLine2D;
#X obj 530 710 iSeg2D;
#X obj 530 737 iCircle2D;
#X msg 17 406 reset;
#X obj 17 379 sel 1;
#X obj 17 351 tSquare2D -4 4 -10000 -4;
#X text 260 345 tSquare is a test : test if the position of the mass
is in a specific square. This test is used to reset the mass to it's
initial state if the mass go out of the screen.;
#X obj 44 292 iSeg2D foo2 -3 0 3 0 3 0 0 0.5 1;
#X text 398 -34 This patch explain how interactors works;
#X text 283 195 but not to foo4 \, so it will not move.;
#X text 201 -10 <- reset;
#X text 348 50 interactor are design to be a kind of link beetween
masss and a simple object.;
#X text 347 85 interactors can be a link to all mass with the same
name. It's easier to patch than putting a link object for all link.
;
#X text 41 655 for more informations about interactors or test \, see
the help file :;
#X obj 623 683 tLine2D;
#X obj 623 709 tSeg2D;
#X obj 623 736 tCircle2D;
#X obj 622 656 tSquare2D;
#X text 356 20 <- 1 GEM window;
#X text 34 -37 <- 2 begin simulation;
#X obj 466 -8 declare -lib Gem;
#X connect 0 0 40 0;
#X connect 0 1 46 0;
#X connect 0 1 47 0;
#X connect 0 1 48 0;
#X connect 0 1 59 0;
#X connect 1 0 11 0;
#X connect 2 0 10 0;
#X connect 3 0 12 0;
#X connect 4 0 12 0;
#X connect 6 0 10 0;
#X connect 7 0 40 0;
#X connect 10 0 9 0;
#X connect 10 1 8 0;
#X connect 10 2 7 0;
#X connect 11 0 0 0;
#X connect 15 0 17 0;
#X connect 16 1 17 1;
#X connect 16 2 17 2;
#X connect 17 0 18 0;
#X connect 19 0 21 0;
#X connect 20 1 21 1;
#X connect 20 2 21 2;
#X connect 21 0 22 0;
#X connect 23 0 25 0;
#X connect 24 1 25 1;
#X connect 24 2 25 2;
#X connect 25 0 26 0;
#X connect 27 0 29 0;
#X connect 28 1 29 1;
#X connect 28 2 29 2;
#X connect 29 0 30 0;
#X connect 31 0 33 0;
#X connect 32 1 33 1;
#X connect 32 2 33 2;
#X connect 33 0 34 0;
#X connect 35 0 16 0;
#X connect 35 0 57 0;
#X connect 36 0 20 0;
#X connect 37 0 24 0;
#X connect 38 0 28 0;
#X connect 39 0 32 0;
#X connect 41 0 35 0;
#X connect 42 0 36 0;
#X connect 43 0 37 0;
#X connect 44 0 38 0;
#X connect 45 0 39 0;
#X connect 55 0 35 0;
#X connect 56 0 55 0;
#X connect 57 0 56 0;
#X connect 59 0 37 0;