#N canvas 547 78 860 677 10;
#X obj 52 15 loadbang;
#X obj 314 431 print msd;
#X obj 647 56 gemwin;
#X msg 647 34 0 \, destroy;
#X obj 554 709 gemhead;
#X obj 554 732 world_light;
#X msg 647 11 reset \, create \, lighting 1 \, 1;
#X obj 135 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
-1;
#X msg 193 65 reset;
#X text 173 21 reset;
#X msg 135 132 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
#X obj 53 300 gemhead;
#X obj 53 323 t b;
#N canvas 787 83 608 525 masses 0;
#X obj 109 15 inlet;
#X obj 122 400 outlet;
#X msg 170 89 mass fix 0 100 10 50;
#X msg 150 113 mass fix 0 100 90 50;
#X obj 131 184 until 17;
#X obj 200 405 print;
#X obj 174 210 + 1;
#X obj 131 235 + 11;
#X msg 131 160 79;
#X obj 207 211 % 79;
#X obj 131 210 f 0;
#X msg 131 259 mass corde 1 50 \$1 50;
#X obj 112 64 t b b b b;
#X msg 112 338 mass zero 0 1 0 50;
#X text 331 106 extremites;
#X text 310 221 masses mobiles;
#X text 263 340 nul masse for the tlink;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 4 0 10 0;
#X connect 6 0 9 0;
#X connect 7 0 11 0;
#X connect 8 0 4 0;
#X connect 9 0 10 1;
#X connect 10 0 6 0;
#X connect 10 0 7 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 12 1 8 0;
#X connect 12 2 3 0;
#X connect 12 3 2 0;
#X connect 13 0 1 0;
#X restore 173 87 pd masses;
#N canvas 494 99 809 593 link 0;
#X obj 157 35 inlet;
#X obj 185 490 outlet;
#X msg 176 320 link souple \$1 \$2 10 10;
#X obj 204 213 + 1;
#X obj 176 293 pack f f;
#X obj 176 269 + 2;
#X obj 203 269 + 3;
#X obj 253 493 print;
#X obj 176 241 t f f f;
#X obj 176 188 until 14;
#X msg 215 88 link souple 0 2 10 10;
#X msg 195 112 link souple 1 80 10 10;
#X msg 176 165 78;
#X obj 232 213 % 78;
#X obj 176 212 f 0;
#X obj 157 64 t b b b b;
#X msg 157 403 tLink D2 zero corde 0 0 0 1;
#X text 392 105 fixed extremities;
#X text 305 254 mobile mass links;
#X text 384 406 tlink for a general vertical damping;
#X connect 0 0 15 0;
#X connect 2 0 1 0;
#X connect 3 0 13 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 4 1;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X connect 8 2 3 0;
#X connect 9 0 14 0;
#X connect 10 0 1 0;
#X connect 11 0 1 0;
#X connect 12 0 9 0;
#X connect 13 0 14 1;
#X connect 14 0 8 0;
#X connect 15 0 16 0;
#X connect 15 1 12 0;
#X connect 15 2 11 0;
#X connect 15 3 10 0;
#X connect 16 0 1 0;
#X restore 154 111 pd link;
#X msg 362 247 setK souple \$1;
#X obj 365 225 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X msg 204 247 setD D2 \$1;
#X obj 207 225 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 9800 1;
#X msg 53 345 bang \, get massesPos \, get massesSpeeds;
#X obj 53 465 route massesPos massesSpeeds;
#N canvas 643 123 331 315 corde 0;
#X obj 127 22 inlet;
#X obj 48 203 translateXYZ;
#X obj 127 86 / 12.5;
#X obj 127 109 - 4;
#X obj 192 87 / 12.5;
#X obj 48 177 separator;
#X obj 48 153 any;
#X obj 125 136 t b f;
#X obj 127 57 unpack f f f;
#X obj 64 114 gemhead 45;
#X obj 48 229 color 1 1 1;
#X obj 48 260 cube 0.02;
#X obj 192 110 - 4;
#X connect 0 0 8 0;
#X connect 1 0 10 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 12 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 1 1;
#X connect 8 1 2 0;
#X connect 8 2 4 0;
#X connect 9 0 6 1;
#X connect 10 0 11 0;
#X connect 12 0 1 2;
#X restore 53 522 pd corde;
#N canvas 643 123 605 590 position 0;
#X obj 127 22 inlet;
#X obj 62 312 translateXYZ;
#X obj 141 195 / 12.5;
#X obj 141 218 - 4;
#X obj 206 196 / 12.5;
#X obj 62 286 separator;
#X obj 62 262 any;
#X obj 139 245 t b f;
#X obj 78 223 gemhead 45;
#X obj 127 79 unpack f f f;
#X obj 141 167 + 9;
#X obj 97 123 sel 0 1;
#X obj 244 312 translateXYZ;
#X obj 323 195 / 12.5;
#X obj 323 218 - 4;
#X obj 388 196 / 12.5;
#X obj 244 286 separator;
#X obj 244 262 any;
#X obj 321 245 t b f;
#X obj 260 223 gemhead 45;
#X obj 309 79 unpack f f f;
#X obj 323 167 + 9;
#X obj 279 123 sel 0 1;
#X obj 323 143 t f f;
#X obj 377 154 -;
#X obj 62 364 cube 0.02;
#X obj 244 369 cube 0.02;
#X obj 62 341 color 1 0 0;
#X obj 244 340 color 1 0 0;
#X obj 416 26 inlet;
#X obj 127 52 spigot;
#X obj 388 219 + 2;
#X obj 206 219 - 5.5;
#X connect 0 0 30 0;
#X connect 1 0 27 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 32 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 1 1;
#X connect 8 0 6 1;
#X connect 9 0 11 0;
#X connect 9 2 4 0;
#X connect 10 0 2 0;
#X connect 11 2 10 0;
#X connect 12 0 28 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 15 0 31 0;
#X connect 16 0 12 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 18 1 12 1;
#X connect 19 0 17 1;
#X connect 20 0 22 0;
#X connect 20 1 24 1;
#X connect 21 0 13 0;
#X connect 22 2 23 0;
#X connect 23 0 21 0;
#X connect 23 1 24 0;
#X connect 24 0 15 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 30 1;
#X connect 30 0 9 0;
#X connect 30 0 20 0;
#X connect 31 0 12 2;
#X connect 32 0 1 2;
#X restore 147 552 pd position;
#N canvas 643 123 605 590 vitesse 0;
#X obj 127 22 inlet;
#X obj 62 333 translateXYZ;
#X obj 141 216 / 12.5;
#X obj 141 239 - 4;
#X obj 62 307 separator;
#X obj 62 283 any;
#X obj 139 266 t b f;
#X obj 78 244 gemhead 45;
#X obj 62 398 cube 0.01;
#X obj 127 100 unpack f f f;
#X obj 141 188 + 9;
#X obj 97 144 sel 0 1;
#X obj 266 337 translateXYZ;
#X obj 345 220 / 12.5;
#X obj 345 243 - 4;
#X obj 266 311 separator;
#X obj 266 287 any;
#X obj 343 270 t b f;
#X obj 282 248 gemhead 45;
#X obj 266 402 cube 0.01;
#X obj 331 104 unpack f f f;
#X obj 345 171 + 9;
#X obj 301 148 sel 0 1;
#X obj 62 369 color 0 1 0;
#X obj 266 369 color 0 1 0;
#X obj 431 25 inlet;
#X obj 236 46 spigot;
#X obj 195 193 / 0.2;
#X obj 418 291 / 0.2;
#X obj 195 216 + 2;
#X obj 418 314 - 2;
#X connect 0 0 26 0;
#X connect 1 0 23 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 5 0;
#X connect 6 1 1 1;
#X connect 7 0 5 1;
#X connect 9 0 11 0;
#X connect 9 1 27 0;
#X connect 10 0 2 0;
#X connect 11 2 10 0;
#X connect 12 0 24 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 12 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 17 1 12 1;
#X connect 18 0 16 1;
#X connect 20 0 22 0;
#X connect 20 2 28 0;
#X connect 21 0 13 0;
#X connect 22 2 21 0;
#X connect 23 0 8 0;
#X connect 24 0 19 0;
#X connect 25 0 26 1;
#X connect 26 0 9 0;
#X connect 26 0 20 0;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 29 0 1 2;
#X connect 30 0 12 2;
#X restore 148 509 pd vitesse;
#X obj 213 489 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 219 531 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 135 160 s msd;
#X obj 72 372 r msd;
#X obj 135 42 t b b b b;
#X obj 204 273 s msd;
#X obj 362 273 s msd;
#X msg 53 249 forceY corde \$1;
#X obj 53 272 s msd;
#X obj 56 226 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 600 1;
#X obj 53 201 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 514 225 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 511 273 s msd;
#X msg 511 247 setD souple \$1;
#X obj 692 314 s msd;
#N canvas 212 304 632 378 forces_rythme 0;
#X obj 461 349 outlet;
#X obj 181 112 tgl 15 0 empty empty ON/OFF -39 6 1 8 -258699 -1 -1
0 1;
#X obj 248 96 metro 65;
#X msg 267 271 posY fix \$1;
#X obj 267 248 + 50;
#X obj 359 171 sin;
#X obj 267 224 *;
#X obj 378 94 % 360;
#X obj 313 95 f 0;
#X obj 312 124 / 360;
#X obj 359 124 * 6.28319;
#X floatatom 109 140 5 0 0 1 AMPLITUDE - -;
#X floatatom 109 160 5 0 0 1 SPEED - -;
#X obj 345 95 + 2;
#X obj 310 29 loadbang;
#X msg 376 29 65;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 8 1;
#X connect 8 0 9 0;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 5 0;
#X connect 11 0 6 1;
#X connect 12 0 2 1;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X coords 0 -1 1 1 105 80 1 100 100;
#X restore 692 227 pd forces_rythme;
#X obj 53 406 msd2D --------------------------------;
#X text 252 82 CREATION : 2 fixed mass (fix) \, 80 mobiles (corde)
\, 80 link (souple) \, 78 tLink (D2);
#X text 198 203 General damping;
#X text 363 204 Link rigidity;
#X text 511 202 Link damping;
#X text 79 201 Send force;
#X text 684 202 Sinus extremity force;
#X text 230 511 Display speeds (vx up \, vy down);
#X text 233 556 Display positions (X up \, Y down);
#X connect 0 0 28 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 26 0;
#X connect 10 0 26 0;
#X connect 11 0 12 0;
#X connect 12 0 19 0;
#X connect 13 0 26 0;
#X connect 14 0 26 0;
#X connect 15 0 30 0;
#X connect 16 0 15 0;
#X connect 17 0 29 0;
#X connect 18 0 17 0;
#X connect 19 0 40 0;
#X connect 20 0 21 0;
#X connect 20 0 22 0;
#X connect 20 1 23 0;
#X connect 24 0 23 1;
#X connect 25 0 22 1;
#X connect 27 0 40 0;
#X connect 28 0 10 0;
#X connect 28 1 14 0;
#X connect 28 2 13 0;
#X connect 28 3 8 0;
#X connect 31 0 32 0;
#X connect 33 0 31 0;
#X connect 34 0 33 0;
#X connect 35 0 37 0;
#X connect 37 0 36 0;
#X connect 39 0 38 0;
#X connect 40 0 20 0;
#X connect 40 1 1 0;