#N struct mass float x float y float mid float mob;
#N struct fixmass float x float y float mid;
#N canvas 445 254 669 506 10;
#X obj 352 260 pointer;
#X obj 86 83 spigot;
#X obj 400 20 bng 15 250 50 0 \$0-create empty Create 22 6 0 10 -258113
-1 -1;
#X obj 316 76 r \$0-create;
#X obj 123 50 r \$0-listen;
#X obj 533 184 s \$0-listen;
#X msg 533 159 1;
#X obj 316 98 t b b b b b;
#X obj 199 217 s \$0-listen;
#X msg 199 191 0;
#N canvas 0 22 870 770 \$0-anim 0;
#X scalar mass 501.859 143.462 2 0 \;;
#X scalar mass 385.528 207.845 3 0 \;;
#X scalar mass 563.885 96.7994 4 0 \;;
#X scalar mass 436.681 183.23 5 0 \;;
#X scalar mass 677.97 25.7242 6 0 \;;
#X scalar mass 635.854 51.7641 7 0 \;;
#X scalar fixmass 287 68 0 \;;
#X scalar fixmass 56 223 1 \;;
#X restore 220 25 pd \$0-anim;
#X obj 446 329 makefilename pd-%s;
#X obj 446 283 loadbang;
#X msg 446 261 bang;
#X obj 446 353 s \$0-cnv;
#X obj 400 137 symbol;
#X obj 407 98 r \$0-cnv;
#X obj 352 137 symbol;
#X msg 352 228 traverse \$1 \, bang;
#X obj 86 27 inlet;
#X obj 400 35 tgl 15 0 empty empty poll 22 6 0 10 -262144 -1 -1 1 1
;
#X msg 400 160 \; \$1 clear \;;
#X obj 464 376 r \$0-cnv;
#X obj 413 403 pack 0 s;
#X msg 413 434 \; \$2 vis \$1;
#X obj 59 376 metro 40;
#X obj 59 401 s \$0-create;
#X obj 284 221 outlet;
#X obj 446 305 symbol \$1;
#N canvas 683 281 568 586 make_link 0;
#X obj 165 35 inlet;
#X obj 367 438 inlet;
#X obj 236 135 s \$0-mass2;
#X obj 334 305 r \$0-mass2;
#X obj 293 283 r \$0-mass1;
#X obj 203 159 s \$0-mass1;
#N canvas 0 22 591 644 look4mass2 0;
#X msg 228 199 next;
#X obj 228 463 spigot;
#X obj 228 386 pack 0 0;
#X obj 228 508 unpack 0 0;
#X obj 295 411 r \$0-mass2;
#X obj 228 562 outlet;
#X obj 293 564 outlet;
#X obj 228 68 inlet;
#X obj 228 90 t b b;
#X obj 437 327 select 0;
#X obj 137 319 get mass x y mid;
#X obj 281 317 get fixmass x y mid;
#X obj 265 437 == -1;
#X obj 367 247 print lookmass1;
#X msg 404 136 traverse pd-data \, next;
#X obj 228 229 pointer;
#X connect 0 0 15 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 12 1;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 8 1 14 0;
#X connect 9 0 0 0;
#X connect 10 0 2 0;
#X connect 10 1 2 1;
#X connect 10 2 12 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 11 2 12 0;
#X connect 12 0 1 1;
#X connect 12 0 9 0;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
#X connect 15 0 11 0;
#X connect 15 1 13 0;
#X restore 184 267 pd look4mass2;
#X obj 165 67 t b b a a;
#X msg 203 113 \$3;
#X msg 236 113 \$4;
#N canvas 0 22 591 644 look4mass1 0;
#X msg 228 199 next;
#X obj 228 463 spigot;
#X obj 228 386 pack 0 0;
#X obj 228 508 unpack 0 0;
#X obj 228 562 outlet;
#X obj 293 564 outlet;
#X obj 228 68 inlet;
#X obj 228 90 t b b;
#X obj 437 327 select 0;
#X obj 228 229 pointer mass fixmass;
#X obj 137 319 get mass x y mid;
#X obj 281 317 get fixmass x y mid;
#X obj 295 384 r \$0-mass1;
#X obj 265 437 == -1;
#X msg 404 136 traverse pd-data \, bang;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X connect 7 1 14 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 10 0 2 0;
#X connect 10 1 2 1;
#X connect 10 2 13 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 11 2 13 0;
#X connect 12 0 13 1;
#X connect 13 0 1 1;
#X connect 13 0 8 0;
#X connect 14 0 9 0;
#X restore 160 241 pd look4mass1;
#X obj 121 463 append liaison x1 y1 x2 y2 mid1 mid2;
#X obj 159 358 pack 0 0 0 0 0 0;
#X obj 167 417 print linklist;
#X connect 0 0 7 0;
#X connect 1 0 11 6;
#X connect 3 0 12 5;
#X connect 4 0 12 4;
#X connect 6 0 12 2;
#X connect 6 1 12 3;
#X connect 7 0 10 0;
#X connect 7 1 6 0;
#X connect 7 2 8 0;
#X connect 7 3 9 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 12 0;
#X connect 10 1 12 1;
#X connect 12 0 11 0;
#X connect 12 0 13 0;
#X restore 273 411 pd make_link;
#X text 216 384 LATER:;
#X obj 86 113 route Mass linksPos;
#X msg 284 198 infosL \, get linksPos;
#X obj 192 345 append liaison x1 y1 x2 y2;
#X msg 195 325 \$2 \$3 \$4 \$5;
#X obj 141 257 append mass mid x y;
#X msg 141 168 \$1 \$5 \$6;
#X obj 86 142 t a a;
#X msg 62 166 \$3;
#X obj 62 283 set mass mob;
#X obj 62 229 * 0;
#X obj 400 50 tgl 15 0 empty empty view 22 6 0 10 -262144 -1 -1 0 1
;
#X connect 0 0 29 1;
#X connect 0 0 33 4;
#X connect 0 0 35 3;
#X connect 1 0 31 0;
#X connect 3 0 7 0;
#X connect 4 0 1 1;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 7 1 32 0;
#X connect 7 2 17 0;
#X connect 7 3 15 0;
#X connect 7 4 6 0;
#X connect 7 4 13 0;
#X connect 9 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 28 0;
#X connect 13 0 28 0;
#X connect 15 0 21 0;
#X connect 16 0 15 1;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 0 0;
#X connect 19 0 1 0;
#X connect 20 0 25 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 28 0 11 0;
#X connect 31 0 37 0;
#X connect 31 1 34 0;
#X connect 32 0 27 0;
#X connect 34 0 33 0;
#X connect 35 0 39 1;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 37 1 36 0;
#X connect 38 0 40 0;
#X connect 40 0 39 0;
#X connect 41 0 23 0;
#X coords 0 -1 1 1 120 65 1 400 0;