#N canvas 1 53 909 400 10;
#X obj 31 278 msd;
#X obj 31 34 inlet;
#X obj 31 57 t b f;
#X obj 31 352 outlet;
#X obj 358 34 inlet;
#X obj 710 41 inlet;
#X msg 710 88 setK lnk \$1;
#X obj 803 42 inlet;
#X msg 803 88 setD lnk \$1;
#X obj 113 352 outlet;
#N canvas 795 187 457 717 creation_corde 0;
#X obj 43 23 loadbang;
#X msg 163 94 reset \, mass M-0 0 1 0;
#X msg 143 117 0;
#X obj 143 142 f;
#X obj 143 193 + 1;
#X obj 143 169 moses \$1;
#X obj 165 220 t f f;
#X obj 175 649 t a;
#X obj 241 271 + 1;
#X obj 129 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 123 404 mass M-\$1 0 1 1;
#X obj 195 329 pack f f;
#X obj 195 247 t f f;
#X obj 241 248 \$1;
#X msg 195 352 mass M-\$1 1 1 \$2;
#X obj 225 300 /;
#X obj 123 378 + 1;
#X obj 123 355 \$1;
#X msg 121 580 link lnk M-\$1 M-\$2 \$3 \$4;
#X obj 121 552 pack f f \$2 \$3;
#X obj 69 418 f;
#X obj 69 495 + 1;
#X obj 69 445 moses \$1;
#X obj 91 522 t f f;
#X obj 69 470 t f f;
#X msg 69 391 -1;
#X obj 152 524 + 2;
#X obj 173 677 outlet;
#X msg 31 578 setL lnk 0;
#X obj 43 50 t b b b b b b;
#X connect 0 0 29 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 1 12 0;
#X connect 7 0 27 0;
#X connect 8 0 15 1;
#X connect 9 0 29 0;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 12 0 11 0;
#X connect 12 1 15 0;
#X connect 13 0 8 0;
#X connect 14 0 7 0;
#X connect 15 0 11 1;
#X connect 16 0 10 0;
#X connect 17 0 16 0;
#X connect 18 0 7 0;
#X connect 19 0 18 0;
#X connect 20 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 24 0;
#X connect 23 0 20 0;
#X connect 23 1 19 0;
#X connect 24 0 21 0;
#X connect 24 1 26 0;
#X connect 25 0 20 0;
#X connect 26 0 19 1;
#X connect 28 0 7 0;
#X connect 29 0 28 0;
#X connect 29 1 25 0;
#X connect 29 2 17 0;
#X connect 29 3 2 0;
#X connect 29 4 1 0;
#X connect 29 5 13 0;
#X restore 105 149 pd creation_corde;
#X msg 61 104 posX M-0 \$1;
#X obj 358 99 pack f f;
#X obj 409 33 loadbang;
#X obj 409 75 + 1;
#X msg 358 127 posX M-\$2 \$1;
#X obj 409 54 \$1;
#X obj 540 41 inlet;
#X msg 540 115 forceX M-\$1 \$2;
#X obj 31 300 route massesPos massesForces;
#X msg 31 81 bang \, get massesPos \, get massesForces;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 2 0 20 0;
#X connect 2 1 11 0;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 12 1;
#X connect 15 0 0 0;
#X connect 16 0 14 0;
#X connect 17 0 18 0;
#X connect 18 0 0 0;
#X connect 19 0 3 0;
#X connect 19 1 9 0;
#X connect 20 0 0 0;