#N canvas 512 272 695 581 12;
#X declare -lib Gem;
#N canvas 381 0 941 947 forme 0;
#X obj 22 676 translateXYZ;
#X obj 16 646 unpack s f f f;
#X obj 22 705 sphere 0.3;
#X obj 143 676 translateXYZ;
#X obj 137 646 unpack s f f f;
#X obj 143 705 sphere 0.3;
#X obj 391 677 translateXYZ;
#X obj 385 647 unpack s f f f;
#X obj 391 706 sphere 0.3;
#X obj 264 678 translateXYZ;
#X obj 258 648 unpack s f f f;
#X obj 264 707 sphere 0.3;
#X obj 303 15 inlet;
#X obj 11 762 gemhead;
#X obj 22 605 gemhead;
#X obj 142 606 gemhead;
#X obj 264 604 gemhead;
#X obj 390 604 gemhead;
#X msg 31 811 \$1 \$2 \$3;
#X msg 62 788 \$1 \$2 \$3;
#X obj 235 766 gemhead;
#X msg 269 816 \$1 \$2 \$3;
#X msg 286 788 \$1 \$2 \$3;
#X obj 360 764 gemhead;
#X msg 394 814 \$1 \$2 \$3;
#X msg 411 790 \$1 \$2 \$3;
#X obj 475 764 gemhead;
#X msg 509 813 \$1 \$2 \$3;
#X msg 526 789 \$1 \$2 \$3;
#X obj 581 763 gemhead;
#X msg 615 813 \$1 \$2 \$3;
#X msg 632 789 \$1 \$2 \$3;
#X obj 11 842 curve 2;
#X obj 236 846 curve 2;
#X obj 360 844 curve 2;
#X obj 581 843 curve 2;
#X obj 120 761 gemhead;
#X msg 140 810 \$1 \$2 \$3;
#X msg 171 787 \$1 \$2 \$3;
#X obj 120 841 curve 2;
#X obj 718 762 gemhead;
#X msg 738 811 \$1 \$2 \$3;
#X obj 718 842 curve 2;
#X obj 475 843 curve 2;
#X obj 27 283 mass3D mass 10 -1 0 0;
#X obj 107 123 link3D link 1 3 1 0.1;
#X obj 322 63 mass3D mass 10 1 0 0;
#X obj 422 138 link3D link 1 3 1 0.1;
#X obj 289 246 link3D link 1 3 1 0.1;
#X obj 276 306 link3D link 1 3 1 0.1;
#X obj 91 403 link3D link 1 3 1 0.1;
#X obj 287 486 mass3D mass 10 0 1 0;
#X obj 458 375 link3D link 1 3 1 0.1;
#X obj 570 273 mass3D mass 10 0 0;
#X obj 758 271 link3D link2 1 0.6 0 0;
#X connect 0 0 2 0;
#X connect 1 1 0 1;
#X connect 1 2 0 2;
#X connect 1 3 0 3;
#X connect 3 0 5 0;
#X connect 4 1 3 1;
#X connect 4 2 3 2;
#X connect 4 3 3 3;
#X connect 6 0 8 0;
#X connect 7 1 6 1;
#X connect 7 2 6 2;
#X connect 7 3 6 3;
#X connect 9 0 11 0;
#X connect 10 1 9 1;
#X connect 10 2 9 2;
#X connect 10 3 9 3;
#X connect 12 0 46 0;
#X connect 13 0 32 0;
#X connect 14 0 0 0;
#X connect 15 0 3 0;
#X connect 16 0 9 0;
#X connect 17 0 6 0;
#X connect 18 0 32 1;
#X connect 19 0 32 2;
#X connect 20 0 33 0;
#X connect 21 0 33 1;
#X connect 22 0 33 2;
#X connect 23 0 34 0;
#X connect 24 0 34 1;
#X connect 25 0 34 2;
#X connect 26 0 43 0;
#X connect 27 0 43 1;
#X connect 28 0 43 2;
#X connect 29 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 35 2;
#X connect 36 0 39 0;
#X connect 37 0 39 1;
#X connect 38 0 39 2;
#X connect 40 0 42 0;
#X connect 41 0 42 1;
#X connect 44 0 50 0;
#X connect 44 0 45 0;
#X connect 44 0 48 0;
#X connect 44 0 1 0;
#X connect 44 0 18 0;
#X connect 44 0 37 0;
#X connect 44 0 21 0;
#X connect 45 0 44 0;
#X connect 45 1 46 0;
#X connect 46 0 45 1;
#X connect 46 0 47 0;
#X connect 46 0 49 1;
#X connect 46 0 4 0;
#X connect 46 0 22 0;
#X connect 46 0 28 0;
#X connect 46 0 30 0;
#X connect 47 0 46 0;
#X connect 47 1 53 0;
#X connect 48 0 44 0;
#X connect 48 1 53 0;
#X connect 49 0 51 0;
#X connect 49 1 46 0;
#X connect 50 0 44 0;
#X connect 50 1 51 0;
#X connect 51 0 50 1;
#X connect 51 0 52 0;
#X connect 51 0 49 0;
#X connect 51 0 10 0;
#X connect 51 0 19 0;
#X connect 51 0 24 0;
#X connect 51 0 27 0;
#X connect 52 0 51 0;
#X connect 52 1 53 0;
#X connect 53 0 52 1;
#X connect 53 0 48 1;
#X connect 53 0 7 0;
#X connect 53 0 38 0;
#X connect 53 0 25 0;
#X connect 53 0 31 0;
#X connect 53 0 41 0;
#X connect 53 0 47 1;
#X connect 53 0 54 0;
#X connect 54 0 53 0;
#X restore 39 472 pd forme;
#X obj 10 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 78 105 s link;
#X obj 10 104 s mass;
#X obj 36 343 s mass;
#X obj 10 47 metro 50;
#X msg 193 73 destroy;
#X msg 166 48 reset \, create \, 1 \, lighting 1;
#X obj 166 106 gemwin;
#X obj 458 107 world_light;
#X obj 78 129 s link2;
#X msg 36 242 force3D 0 0 1;
#X msg 44 266 force3D 0 1 0;
#X msg 53 290 force3D 1 0 0;
#X obj 458 82 gemhead 1;
#X msg 39 385 force3D 0 0 10;
#X msg 45 409 force3D 0 10 0;
#X msg 54 433 force3D 10 0 0;
#X msg 61 314 force3D 2 1 1;
#X obj 10 73 t b b;
#N canvas 518 337 782 499 change 0;
#X msg 102 189 setK \$1;
#X msg 170 189 setD \$1;
#X msg 33 73 setM \$1;
#X floatatom 102 162 5 0 0 0 - - -;
#X floatatom 170 162 5 0 0 0 - - -;
#X floatatom 33 50 5 5 100 0 - - -;
#X obj 33 216 s link;
#X obj 33 99 s mass;
#X floatatom 33 163 5 0 0 0 - - -;
#X msg 33 189 setL \$1;
#X obj 36 380 s link2;
#X floatatom 36 297 5 0 0 0 - - -;
#X msg 36 319 setL \$1;
#X msg 33 140 1;
#X msg 171 140 1;
#X msg 102 139 3;
#X msg 33 26 10;
#X msg 102 319 setK \$1;
#X msg 170 319 setD \$1;
#X floatatom 102 293 5 0 0 0 - - -;
#X floatatom 170 293 5 0 0 0 - - -;
#X text 106 27 <- default value;
#X text 109 100 weight of the mass;
#X text 317 137 <- default values;
#X text 315 189 pyramide linkison properties;
#X text 257 270 <- default values;
#X text 258 318 linkison beetween the pyramide and a fixed point (0
\, 0 \, 0);
#X msg 36 273 1;
#X msg 102 270 0.6;
#X msg 171 271 0;
#X floatatom 238 162 5 0 0 0 - - -;
#X msg 238 189 setD2 \$1;
#X msg 239 140 0.1;
#X text 36 429 take care to extrem values;
#X connect 0 0 6 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 8 0;
#X connect 14 0 4 0;
#X connect 15 0 3 0;
#X connect 16 0 5 0;
#X connect 17 0 10 0;
#X connect 18 0 10 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 27 0 11 0;
#X connect 28 0 19 0;
#X connect 29 0 20 0;
#X connect 30 0 31 0;
#X connect 31 0 6 0;
#X connect 32 0 30 0;
#X restore 459 44 pd change physical properties;
#X text 215 262 <- send forces to the 4 masss;
#X text 225 378 <- send forces to a masss;
#X text 227 474 <- structure and gem stuff;
#X text 76 168 4 masss are all link together \, with the same kind
of link.;
#X text 73 193 A link is add to a mass \, for the structure to stay
in the screen.;
#X text 89 552 If the line does not display corectly \, you sould upgrade
GEM;
#X text 44 22 <- 1;
#X text 399 48 <- 2;
#X obj 161 14 declare -lib Gem;
#X connect 1 0 5 0;
#X connect 5 0 19 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 4 0;
#X connect 14 0 9 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 4 0;
#X connect 19 0 3 0;
#X connect 19 1 2 0;
#X connect 19 1 10 0;