#N canvas 716 344 590 388 10;
#X text 191 337 1 : distance between the 2 masses;
#X text 191 309 2 : elongation speed of the link;
#X text 191 281 3 : orientation of the link;
#X text 192 257 4 : position of the center of the link;
#X text 216 12 link between 2 masses;
#X msg 57 131 bang;
#X msg 58 162 position2D $f1 $f2;
#X msg 64 194 position2D $f1 $f2;
#X text 187 194 position of mass 2;
#X obj 25 220 tLink2D;
#X floatatom 25 339 5 0 0 0 - - -;
#X floatatom 38 311 5 0 0 0 - - -;
#X floatatom 51 284 5 0 0 0 - - -;
#X obj 64 255 unpack s f f;
#X text 188 78 1 : Name;
#X text 185 119 computes and outputs forces \, according to the last
masses positions;
#X text 187 162 changes position of mass 1;
#X text 180 38 link2D : gets position of masses \, outputs forces.
;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 7 0 9 1;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 9 2 12 0;
#X connect 9 3 13 0;