#N canvas 80 32 844 550 12;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 143 446 pd masse;
#X obj 62 214 s lia;
#X obj 27 239 s masse;
#X obj 397 308 s masse;
#X msg 184 199 setK \$1;
#X msg 399 149 setM \$1;
#X obj 184 231 s lia;
#X obj 399 177 s masse;
#X obj 184 173 / 10;
#X obj 184 147 + 1;
#X obj 508 151 gemwin;
#X msg 515 122 0 \, destroy;
#X floatatom 184 125 5 10 100 0 - - -;
#X floatatom 245 127 5 0 3 0 - - -;
#X floatatom 399 126 5 20 500 0 - - -;
#X msg 411 278 force2D 2000 0;
#X obj 27 163 metro 10;
#X obj 27 187 t b b;
#X msg 396 335 force2D 0 5000;
#X msg 184 101 50;
#X msg 245 101 1;
#X msg 399 102 200;
#X obj 868 143 world_light;
#X obj 868 84 gemhead;
#X obj 868 114 rotateXYZ;
#X msg 397 250 force2D 0 1000;
#X msg 245 150 setD \$1;
#X obj 27 9 loadbang;
#X msg 108 99 reset;
#X obj 108 126 s masse;
#X obj 27 40 t b b b b;
#X msg 49 100 resetF;
#X obj 49 127 s lia;
#X floatatom 321 127 5 0 3 0 - - -;
#X msg 321 101 1;
#X msg 321 150 setD2 \$1;
#N canvas 306 123 570 357 masse 0;
#X obj 24 99 outlet;
#X obj 145 98 gemhead;
#X obj 137 134 unpack s f f;
#X obj 143 190 translateXYZ 0 0 0;
#X obj 144 224 sphere 0.3;
#X obj 185 160 / 100;
#X obj 228 161 / 100;
#X obj 25 70 masse2D masse2 10 -300 0;
#X connect 1 0 3 0;
#X connect 2 1 5 0;
#X connect 2 2 6 0;
#X connect 3 0 4 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X restore 11 383 pd masse;
#X msg 396 366 force2D 5000 0;
#X text 461 7 2D string;
#X text 542 250 <- send Y force to all masses;
#X text 544 279 <- send X force to all masses;
#X text 540 335 <- send Y force to 2 masses;
#X text 542 364 <- send X force to 1 masses;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 281 449 pd masse;
#X obj 11 409 lia2D lia 30 1 1;
#X obj 158 408 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 432 446 pd masse;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 570 449 pd masse;
#X obj 300 409 lia2D lia 30 1 1;
#X obj 447 408 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 719 449 pd masse;
#X obj 596 408 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 870 446 pd masse;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 1008 449 pd masse;
#X obj 738 409 lia2D lia 30 1 1;
#X obj 885 408 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 156 589 pd masse;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 294 592 pd masse;
#X obj 24 552 lia2D lia 30 1 1;
#X obj 171 551 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 445 589 pd masse;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 583 592 pd masse;
#X obj 313 552 lia2D lia 30 1 1;
#X obj 460 551 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 732 592 pd masse;
#X obj 609 551 lia2D lia 30 1 1;
#N canvas 306 123 261 242 masse 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 883 589 pd masse;
#N canvas 306 123 265 246 masse 0;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 masse2D masse2 10 300;
#X connect 1 0 3 0;
#X connect 2 1 5 0;
#X connect 2 2 6 0;
#X connect 3 0 4 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X restore 1021 524 pd masse;
#X obj 751 552 lia2D lia 30 1 1;
#X obj 898 551 lia2D lia 30 1 1;
#X msg 508 95 reset \, lighting 1 \, create \, 1;
#X obj 112 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 325 23 masses are link together like in an elastic string.
;
#X text 30 652 The extrem right and extreme left masses are fixed :
the does not receive a force. they are neaded for the model to be link
to a special point in the screen.;
#X text 742 94 <- 1;
#X connect 0 0 44 1;
#X connect 0 0 45 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 11 0 10 0;
#X connect 12 0 9 0;
#X connect 13 0 26 0;
#X connect 14 0 5 0;
#X connect 15 0 3 0;
#X connect 16 0 17 0;
#X connect 17 0 2 0;
#X connect 17 1 1 0;
#X connect 18 0 0 0;
#X connect 18 0 43 0;
#X connect 19 0 12 0;
#X connect 20 0 13 0;
#X connect 21 0 14 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 3 0;
#X connect 26 0 6 0;
#X connect 27 0 30 0;
#X connect 28 0 29 0;
#X connect 30 0 16 0;
#X connect 30 1 31 0;
#X connect 30 2 28 0;
#X connect 30 3 19 0;
#X connect 30 3 20 0;
#X connect 30 3 21 0;
#X connect 30 3 34 0;
#X connect 31 0 32 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 6 0;
#X connect 36 0 44 0;
#X connect 37 0 46 0;
#X connect 43 0 45 1;
#X connect 43 0 48 0;
#X connect 44 1 0 0;
#X connect 45 0 0 0;
#X connect 45 1 43 0;
#X connect 46 0 48 1;
#X connect 46 0 49 0;
#X connect 47 0 49 1;
#X connect 47 0 51 0;
#X connect 48 0 43 0;
#X connect 48 1 46 0;
#X connect 49 0 46 0;
#X connect 49 1 47 0;
#X connect 50 0 51 1;
#X connect 50 0 54 0;
#X connect 51 0 47 0;
#X connect 51 1 50 0;
#X connect 52 0 54 1;
#X connect 52 0 55 0;
#X connect 53 0 55 1;
#X connect 53 0 58 0;
#X connect 54 0 50 0;
#X connect 54 1 52 0;
#X connect 55 0 52 0;
#X connect 55 1 53 0;
#X connect 56 0 58 1;
#X connect 56 0 59 0;
#X connect 57 0 59 1;
#X connect 57 0 62 0;
#X connect 58 0 53 0;
#X connect 58 1 56 0;
#X connect 59 0 56 0;
#X connect 59 1 57 0;
#X connect 60 0 62 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 61 0 65 0;
#X connect 62 0 57 0;
#X connect 62 1 60 0;
#X connect 63 0 60 0;
#X connect 63 1 61 0;
#X connect 64 0 65 1;
#X connect 64 0 68 0;
#X connect 65 0 61 0;
#X connect 65 1 64 0;
#X connect 66 0 68 1;
#X connect 66 0 69 0;
#X connect 67 0 69 1;
#X connect 68 0 64 0;
#X connect 68 1 66 0;
#X connect 69 0 66 0;
#X connect 70 0 10 0;
#X connect 71 0 30 0;