#N canvas 583 82 572 750 10;
#X obj 4 309 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 5 705 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 14 339 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 14 624 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 4 567 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 4 602 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 5 655 cnv 15 550 20 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 5 675 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 460 50 901 640 More_Info 0;
#X text 96 12 pmpd : mass - spring - damper model;
#X obj 426 -5 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 426 294 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 0 50 450 300 (subpatch) 0;
#X array rigidity1 4 float 1;
#A 0 -1 0 1 2;
#X array - 4 float 1;
#A 0 0 0 0 0;
#X coords 0 3 3 -3 200 150 1;
#X restore 31 428 graph;
#X text 89 585 L0;
#N canvas 94 50 956 727 figure 0;
#X obj 284 53 loadbang;
#X msg 293 125 \; rigidity1 resize 1 \; rigidity1 resize 4 \; rigidity1
bounds 0 3 3 -3 \; rigidity1 0 -1 0 1 2 \; rigidity1 ylabel -0.5 \;
rigidity1 xlabel -3.5 \; rigidity1 xticks 0 1 1 \; rigidity1 yticks
0 0.1 5;
#X obj 388 574 sqrt;
#X obj 316 651 tabwrite rigidity3;
#X obj 343 464 - 20;
#X obj 316 609 f;
#X obj 316 579 t b f;
#X obj 343 494 moses 0;
#X obj 343 517 * -1;
#X obj 343 538 sqrt;
#X obj 343 559 * -1;
#X obj 481 479 - 20;
#X obj 453 662 f;
#X obj 453 632 t b f;
#X obj 481 509 moses 0;
#X obj 481 532 * -1;
#X obj 480 612 * -1;
#X obj 528 622 *;
#X obj 480 591 *;
#X obj 525 590 t f f;
#X obj 480 564 t f f;
#X obj 453 683 tabwrite rigidity4;
#X obj 181 235 t b b;
#X obj 620 552 f;
#X obj 620 522 t b f;
#X obj 620 623 tabwrite rigidity2;
#X msg 763 574 0;
#X obj 679 437 - 50;
#X obj 751 491 moses 40;
#X obj 681 510 moses -40;
#X obj 620 586 * 1.5;
#X obj 680 462 moses 10;
#X obj 680 488 moses -10;
#X msg 55 419 \; rigidity2 resize 101 \; rigidity2 xticks 1 10 5 \;
rigidity2 yticks 0 5 5 \; rigidity3 resize 51 \; rigidity3 xticks 0
1 5 \; rigidity3 yticks 0 1 5 \; rigidity4 resize 51 \; rigidity4 xticks
0 1 5 \; rigidity4 yticks 0 100 5;
#X obj 631 315 f;
#X obj 648 394 + 1;
#X obj 632 367 t f f;
#X obj 375 333 f;
#X obj 375 360 moses 50.5;
#X obj 392 411 + 1;
#X obj 376 384 t f f;
#X obj 176 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 371 310 0;
#X msg 627 286 0;
#X obj 631 343 moses 100.5;
#X connect 0 0 1 0;
#X connect 0 0 22 0;
#X connect 2 0 5 1;
#X connect 4 0 7 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 6 1 3 1;
#X connect 7 0 8 0;
#X connect 7 1 2 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 5 1;
#X connect 11 0 14 0;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 21 1;
#X connect 14 0 15 0;
#X connect 14 1 19 0;
#X connect 15 0 20 0;
#X connect 16 0 12 1;
#X connect 17 0 12 1;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 19 1 17 1;
#X connect 20 0 18 0;
#X connect 20 1 18 1;
#X connect 22 0 42 0;
#X connect 22 1 33 0;
#X connect 22 1 43 0;
#X connect 23 0 30 0;
#X connect 24 0 23 0;
#X connect 24 1 25 1;
#X connect 26 0 23 1;
#X connect 27 0 31 0;
#X connect 28 0 23 1;
#X connect 28 1 26 0;
#X connect 29 0 26 0;
#X connect 29 1 23 1;
#X connect 30 0 25 0;
#X connect 31 0 32 0;
#X connect 31 1 28 0;
#X connect 32 0 29 0;
#X connect 32 1 26 0;
#X connect 34 0 44 0;
#X connect 35 0 34 0;
#X connect 36 0 35 0;
#X connect 36 1 27 0;
#X connect 36 1 24 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 39 0;
#X connect 40 1 4 0;
#X connect 40 1 6 0;
#X connect 40 1 13 0;
#X connect 40 1 11 0;
#X connect 41 0 22 0;
#X connect 42 0 37 0;
#X connect 43 0 34 0;
#X connect 44 0 36 0;
#X restore 27 304 pd figure;
#X text 105 375 Rigidity;
#N canvas 0 50 450 300 (subpatch) 0;
#X array rigidity2 101 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 -60 -58.5 -57 -55.5 -54 -52.5 -51 -49.5 -48
-46.5 -45 -43.5 -42 -40.5 -39 -37.5 -36 -34.5 -33 -31.5 -30 -28.5 -27
-25.5 -24 -22.5 -21 -19.5 -18 -16.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 15 16.5 18 19.5 21 22.5 24 25.5 27 28.5 30 31.5 33 34.5 36
37.5 39 40.5 42 43.5 45 46.5 48 49.5 51 52.5 54 55.5 57 58.5 0 0 0
0 0 0 0 0 0 0 0;
#X array - 101 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0;
#X coords 0 100 100 -100 200 150 1;
#X restore 449 428 graph;
#X text 547 583 L0;
#X text 466 374 Rigidity with Lmin and Lmax;
#X text 563 583 Lmin;
#X text 625 582 Lmax;
#N canvas 0 50 450 300 (subpatch) 0;
#X array rigidity3 51 float 1;
#A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555
-3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2
-1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575
2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311
4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615
5.2915 5.38516 5.47723;
#X array - 51 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 6 50 -6 200 150 1;
#X restore 241 428 graph;
#X text 314 581 L0;
#X text 257 375 Rigidity with power = 1/2;
#N canvas 0 50 450 300 (subpatch) 0;
#X array rigidity4 51 float 1;
#A 0 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64
-49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169
196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841;
#X array - 51 float 1;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1000 50 -1000 200 150 1;
#X restore 657 428 graph;
#X text 730 582 L0;
#X text 688 373 Rigidity with power = 2;
#X text 571 12 The equations are :;
#X text 497 36 if Lmin<|L[n]-L[0]|<Lmax;
#X text 496 75 else;
#X text 496 95 F[n] = D(L[n]-L[n-1]);
#X text 496 54 F[n] = K(L[n] - L[0])^P + D(L[n] - L[n-1]);
#X text 495 124 For oriented links \, the force F[n] is projected onto
a vector which is given during the creation of the link using x1y1
coordinates.;
#X text 496 206 x1x2 + y1y2 = 0;
#X text 28 41 pmpd is the 2D object of the pmpd objects collection.
;
#X text 27 155 Be careful : if masses are deleted \, list messages
won't work;
#X text 27 216 Rigidity \, damping and power are defined by the creation
messages. The lenght is initialised to the distance between the two
masses at creation.;
#X text 27 257 Links can be created in one shot between multiple masses
\, instead of creation number \, the masses linked are defined by their
Id.;
#X text 495 169 For normal vectors \, the direction is calculated using
the scalar product :;
#X text 495 248 You can build specific links using different link messages
defining the characteristics step by step.;
#X text 28 187 Links connect masses two by two. They've got 4 physical
parameters : length \, rigidity \, damping and power.;
#X text 27 60 It is designed to implement particle physical models
in PD.The model is based on a two element type : mass and link. The
pmpd masses are the principal objects of the model. They've got only
one physical parameter \, the value of their mass. They can be mobile
or fixed \, in this case forces applied to them automatically \, by
links \, or manually \, by messages \, don't do anything.;
#X connect 1 0 2 0;
#X restore 16 713 pd More_Info;
#X text 12 76 Examples:;
#X text 9 309 Inlets:;
#X text 19 338 - Left:;
#X text 10 566 Arguments:;
#X text 11 602 Outlets:;
#X text 19 657 See Also:;
#X text 74 48 Full Name:;
#N canvas 54 145 262 70 Related_Objects 0;
#X obj 3 10 cnv 15 250 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 3 30 cnv 15 250 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 5 10 Externals and libraries;
#X obj 44 37 pmpd;
#X obj 141 39 pmpd3d;
#X restore 122 713 pd Related_Objects;
#N canvas 257 262 759 345 init 0;
#X obj 89 215 t a;
#X obj 89 33 loadbang;
#X obj 89 241 s \$0-in;
#X obj 89 59 t b b b b b;
#X msg 161 80 reset;
#X obj 44 13 inlet;
#X msg 143 100 mass fix 0 10 0 0;
#X msg 89 187 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
#X msg 125 120 mass mob 1 100 0 -2 \, mass mob 1 100 2 0 \, mass mob
1 100 0 2 \, mass mob 1 100 -2 0;
#X msg 107 161 link souple fix mob 10 10 \, link souple mob mob 10
10;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 9 0;
#X connect 3 2 8 0;
#X connect 3 3 6 0;
#X connect 3 4 4 0;
#X connect 4 0 0 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 0 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X restore 17 136 pd init;
#X obj 18 271 s \$0-out;
#X obj 18 222 r \$0-in;
#X obj 393 267 s \$0-in;
#N canvas 565 515 355 193 compute 0;
#X obj 27 29 inlet;
#X obj 27 127 s \$0-in;
#X msg 27 96 bang \, get massesPos \, get linksPos;
#X obj 27 66 gemhead;
#X obj 160 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X restore 17 189 pd compute;
#X obj 17 161 tgl 15 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
0 1;
#X obj 172 220 r \$0-out;
#X obj 17 106 bng 15 250 50 0 empty empty reset 25 10 1 10 -262144
-1 -1;
#X text 162 428 To set the model parameters after creation.;
#X text 162 407 To create the model masses and links.;
#X text 103 582 None;
#X text 18 623 - Left:;
#X text 101 624 Outputs the model parameters asked with the attributes
messages.;
#X text 101 370 Messages - Different messages are used to control the
pmpd object. They are of three types :;
#X text 9 679 CATEGORY: control;
#X text 10 689 KEYWORDS: physical model mass spring damper link;
#X text 12 8 HELP: pmpd2d;
#X obj 157 48 pmpd2d;
#X obj 18 246 pmpd2d;
#N canvas 731 296 450 300 gemmouse 0;
#X obj 189 77 gemmouse;
#X obj 189 184 pack f f;
#X obj 189 218 spigot;
#X obj 109 243 outlet;
#X obj 109 36 inlet;
#X obj 109 98 t b;
#X obj 238 131 + 4;
#X msg 57 182 posX fix \$1;
#X msg 57 203 posY fix \$2;
#X obj 189 108 / 62.5;
#X obj 237 107 / -62.5;
#X obj 189 131 - 4;
#X obj 109 125 list 0 0;
#X connect 0 0 9 0;
#X connect 0 1 10 0;
#X connect 0 2 2 1;
#X connect 1 0 2 0;
#X connect 2 0 12 1;
#X connect 4 0 5 0;
#X connect 5 0 12 0;
#X connect 6 0 1 1;
#X connect 7 0 3 0;
#X connect 8 0 3 0;
#X connect 9 0 11 0;
#X connect 10 0 6 0;
#X connect 11 0 1 0;
#X connect 12 0 7 0;
#X connect 12 0 8 0;
#X restore 393 245 pd gemmouse;
#X obj 393 224 gemhead;
#X obj 346 196 gemwin;
#X msg 357 173 0 \, destroy;
#N canvas 470 263 550 319 gemrender 0;
#X obj 48 203 translateXYZ;
#X obj 48 229 sphere 0.1;
#X obj 127 24 inlet;
#X obj 359 12 inlet;
#X obj 275 232 curve 2;
#X msg 431 81 \$4 \$5 0;
#X msg 359 77 \$2 \$3 0;
#X obj 359 105 t b a;
#X obj 127 62 unpack f f f;
#X obj 166 88 t b f;
#X msg 48 110 0;
#X obj 48 77 loadbang;
#X obj 48 137 gemhead;
#X msg 275 160 0;
#X obj 275 127 loadbang;
#X obj 275 187 gemhead;
#X obj 359 42 t a a;
#X connect 0 0 1 0;
#X connect 2 0 8 0;
#X connect 3 0 16 0;
#X connect 5 0 4 2;
#X connect 6 0 7 0;
#X connect 7 0 15 0;
#X connect 7 1 4 1;
#X connect 8 1 9 0;
#X connect 8 2 0 2;
#X connect 9 0 12 0;
#X connect 9 1 0 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 0 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 4 0;
#X connect 16 0 6 0;
#X connect 16 1 5 0;
#X restore 172 270 pd gemrender;
#X msg 346 129 reset \, create \, 1;
#X text 135 98 Sorry \, you need GEM for this example...;
#X text 170 129 1 Create window -->;
#X text 169 150 2 Drag the structure with the mouse;
#X text 169 171 3 Destroy the window -->;
#X obj 172 244 route massesPos linksPosNo;
#X text 11 19 DESCRIPTION: Physical modeling for Pd in 2d;
#X text 265 709 - Cyrille Henry 2011;
#X text 265 721 based on MSD by Nicolas Montgermont \, 2005;
#N canvas 44 50 1228 704 links_attributes 0;
#X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 8 260 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 2 239 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 7 2 ATTRIBUTES Messages;
#X text 5 239 Lists :;
#X obj 9 374 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 9 487 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 611 26 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 605 5 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 612 140 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 612 253 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X text 833 502 \$2 (optional): Masses Id;
#X text 832 489 \$1 : table name;
#X text 608 5 tables :;
#X text 168 304 Output all links x or y in a list on outlet No 1;
#X obj 10 603 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 612 369 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X msg 9 290 linkPosXL [\$1];
#X msg 10 309 linkPosYL [\$1];
#X msg 10 327 linkPosNormL [\$1];
#X msg 11 381 linkLengthL [\$1];
#X msg 11 400 linkLengthXL [\$1];
#X msg 11 419 linkLengthYL [\$1];
#X msg 14 494 linkPosSpeedL [\$1];
#X msg 14 513 linkPosSpeedXL [\$1];
#X msg 13 532 linkPosSpeedYL [\$1];
#X msg 12 550 linkPosSpeedNormL [\$1];
#X msg 12 610 linkLengthSpeedL [\$1];
#X msg 12 629 linkLengthSpeedXL [\$1];
#X msg 12 648 linkLengthSpeedYL [\$1];
#X msg 615 38 linkPosT \$1 [\$2];
#X msg 615 57 linkPosXT \$1 [\$2];
#X msg 615 75 linkPosYT \$1 [\$2];
#X msg 614 94 linkPosNormT \$1 [\$2];
#X msg 616 152 linkLengthT \$1 [\$2];
#X msg 616 171 linkLengthXT \$1 [\$2];
#X msg 616 190 linkLengthYT \$1 [\$2];
#X msg 615 208 linkLengthNormT \$1 [\$2];
#X msg 616 259 linkPosSpeedT \$1 [\$2];
#X msg 616 278 linkPosSpeedXT \$1 [\$2];
#X msg 616 297 linkPosSpeedYT \$1 [\$2];
#X msg 616 315 linkPosSpeedNormT \$1 [\$2];
#X msg 614 376 linkLengthSpeedT \$1 [\$2];
#X msg 613 395 linkLengthSpeedXT \$1 [\$2];
#X msg 614 414 linkLengthSpeedYT \$1 [\$2];
#X obj 8 88 cnv 15 150 100 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 172 93 \$1 : id float or symbol of masses (nothing for all)
;
#X text 172 153 \$1 : id float or symbol of masses (nothing for all)
;
#X msg 12 96 linkPos [\$1];
#X msg 12 156 linkEnd [\$1];
#X obj 2 69 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 5 69 generic :;
#X msg 10 437 linkLengthNormL [\$1];
#X msg 13 667 linkLengthSpeedNormL [\$1];
#X msg 615 433 linkLengthSpeedNormT \$1 [\$2];
#X obj 614 543 cnv 15 150 200 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 608 522 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 611 522 tables :;
#X msg 628 551 linkEndT \$1 [\$2];
#X msg 640 571 linkEnd1T \$1 [\$2];
#X msg 639 591 linkEnd2T \$1 [\$2];
#X msg 638 612 linkEndXT \$1 [\$2];
#X msg 638 631 linkEnd1XT \$1 [\$2];
#X msg 638 651 linkEnd2XT \$1 [\$2];
#X msg 639 673 linkEndYT \$1 [\$2];
#X msg 641 693 linkEnd1YT \$1 [\$2];
#X msg 640 713 linkEnd2YT \$1 [\$2];
#X msg 9 271 linkPosL [\$1);
#X text 202 130 linkPos symbolId number centerX centerY;
#X text 172 189 linkEnd symbolId number posX1 posY1 posX2 posY2;
#X text 795 583 table is posX1 posY1 posX2 posY2 ....;
#X text 17 26 The attributes messages ask the object to output some
of its internal parameters. They can be output as lists for positions
and forces of links;
#X text 173 113 output a message for every link :;
#X text 173 173 output a message for every link :;
#X text 794 35 Output all links center positions on a table [\$1];
#X text 794 67 Output all links center positions x or y on a table
[\$1];
#X text 793 105 Output all norm of links center positions vector (sqrt(x*x+y*y))
on a table [\$1];
#X text 797 154 Output all link lengths in a list on outlet No 1;
#X text 796 181 Output all link lengths in x or y in a list on outlet
No 1;
#X text 799 218 Output all norm of link length vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 182 674 Output all norm of link lenght deformation speed vectors
(sqrt(x*x+y*y)) in a list on outlet No 1;
#X text 182 647 Output all link lenghts deformation speed in x or y
in a list on outlet No 1;
#X text 182 611 Output all links lenghts deformation speed in a list
on outlet No 1;
#X text 192 567 Output all norm of link center speed vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 173 531 Output all link center speeds in x or y in a list on
outlet No 1;
#X text 169 501 Output all link center speeds in a list on outlet No
1;
#X text 179 446 Output all norm of link lenght vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 170 418 Output all link lenghts in x or y in a list on outlet
No 1;
#X text 168 385 Output all link lenghts in a list on outlet No 1;
#X text 168 332 Output all norm of position vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 168 272 Output all link center positions in a list on outlet
No 1;
#X text 799 294 Output all link center speeds in x or y in a list on
outlet No 1;
#X text 795 264 Output all link center speeds in a list on outlet No
1;
#X text 815 326 Output all norm of link center speed vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 808 377 Output all link lenght deformation speeds in a list
on outlet No 1;
#X text 808 413 Output all link lenght deformation speeds in x or y
in a list on outlet No 1;
#X text 838 441 Output all norm of link lenght deformation speed vectors
(sqrt(x*x+y*y)) in a list on outlet No 1;
#X text 790 551 Put position of the 2 link ends on a table [\$1] \,
filter on link id is possible;
#X restore 12 466 pd links_attributes ___;
#N canvas 280 143 935 531 creation____________ 0;
#X obj 5 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 5 3 cnv 15 900 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 17 2 CREATION Messages;
#X obj 4 157 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 3 291 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X msg 32 104 reset;
#X text 164 186 Add a mass;
#X text 208 216 \$1 : Id (symbol);
#X text 208 236 \$2 : fixed or mobile (0/1);
#X text 208 254 \$3 : mass;
#X text 7 157 Masses :;
#X text 7 74 Reset :;
#X text 99 105 Delete all masses \, links and internal variables;
#X text 6 291 Links :;
#X text 207 357 \$1 : Id (symbol);
#X text 207 410 \$4 : rigidity;
#X text 207 357 \$1 : Id (symbol);
#X text 207 410 \$4 : rigidity;
#X text 207 375 \$2 : creation No/Id of mass1;
#X text 207 393 \$3 : creation No/Id of mass2;
#X text 266 324 Add link(s);
#X text 207 428 \$5 : damping;
#X text 10 28 Creation messages are used to define the structure of
the model. Messages create links and masses or destroy them.;
#X msg 30 187 mass \$1 \$2 \$3 \$4 \$5;
#X text 208 272 \$4 \, \$5 : initial position;
#X obj 468 76 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 671 179 \$1 : Id (symbol);
#X text 671 232 \$4 : rigidity;
#X text 671 179 \$1 : Id (symbol);
#X text 671 232 \$4 : rigidity;
#X text 671 197 \$2 : creation No/Id of mass1;
#X text 671 215 \$3 : creation No/Id of mass2;
#X text 671 250 \$5 : damping;
#X text 747 153 Add tangential link(s);
#X text 670 269 \$6 \, \$7 : tangential vector (x \, y);
#X text 471 75 Oriented links :;
#X msg 464 372 tabLink \$1 \$2 \$3 \$4 \$5 \$6 \$7;
#X text 673 397 \$1 : Id (symbol);
#X text 673 397 \$1 : Id (symbol);
#X text 673 414 \$2 : creation No/Id of mass1;
#X text 673 430 \$3 : creation No/Id of mass2;
#X text 655 374 Add non linear link(s);
#X text 673 447 \$4 : table name for the rigidity;
#X text 673 463 \$5 : length of the table;
#X text 673 478 \$6 : table name for the damping;
#X text 673 494 \$7 : length of the table;
#X obj 461 351 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 464 351 Table links :;
#X msg 32 131 print;
#X msg 30 324 link \$1 \$2 \$3 \$4 \$5 [\$6 [\$7 [\$8]]];
#X msg 474 153 tLink \$1 \$2 \$3 \$4 \$5 \$6 \$7 [\$8 [\$9 [\$10]]]
;
#X text 668 288 [\$8] : Power of the rigidity distance;
#X text 668 307 [\$9] : minimum lenght of link;
#X text 668 324 [\$10] : maximum lenght of link;
#X text 204 446 [\$6] : Power of the rigidity distance;
#X text 204 465 [\$7] : minimum lenght of link;
#X text 204 482 [\$8] : maximum lenght of link;
#X text 101 131 post current physical model topology;
#X text 472 99 In 2D (and 3D) there are two specials links : oriented
links. They work as general links but their calculation is made following
a vector.;
#X restore 12 407 pd creation____________;
#N canvas 98 50 1133 700 dynamic 0;
#X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 10 85 cnv 15 150 750 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 4 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 574 86 cnv 15 130 740 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 567 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 7 62 Masses :;
#X text 570 62 Links :;
#X text 7 2 DYNAMIC SETTINGS Messages;
#X msg 30 183 forceX \$1 \$2;
#X text 190 114 \$1 : Id (symbol) or No;
#X text 193 185 \$1 : Id (symbol) or No;
#X msg 29 311 setMobile \$1;
#X msg 29 332 setFixed \$1;
#X text 190 96 Set position of fixed mass(es);
#X text 177 248 Set minimimum and maximum position of all masses;
#X text 188 311 Set mass to mobile or fixed;
#X msg 593 150 setD \$1 \$2;
#X text 748 136 \$2 : New value;
#X msg 593 99 setK \$1 \$2;
#X text 748 192 \$2 : New value;
#X text 748 245 \$2 : New value;
#X text 742 100 Set rigidity of link(s);
#X text 742 156 Set damping of link(s);
#X msg 593 205 setL \$1 \$2;
#X text 742 209 Set initial lenght of link(s);
#X text 748 118 \$1 : Id (symbol) or No;
#X text 748 174 \$1 : Id (symbol) or No;
#X text 748 227 \$1 : Id (symbol) or No;
#X text 191 328 \$1 : Id (symbol) or No;
#X msg 29 358 grabMass \$1 \$2 \$3;
#X msg 30 204 forceY \$1 \$2;
#X text 191 445 \$2 : New Id;
#X msg 30 413 setMassId \$1 \$2;
#X text 182 412 Change the Id of a mass;
#X text 192 428 \$1 : mass (number or Id);
#X msg 23 530 setSpeed \$1 \$2;
#X text 186 482 \$1 : Id (symbol) or No;
#X text 183 465 set force on mass(es);
#X text 185 549 \$1 : Id (symbol) or No;
#X text 182 532 set speed of a mass(es);
#X text 184 610 \$1 : Id (symbol) or No;
#X text 181 593 add pos of a mass(es);
#X text 183 654 grab a mass \, and move it;
#X text 196 388 \$3 : grab or not (0 or 1);
#X msg 24 462 setForce \$1 \$2 \$3;
#X text 186 500 \$2 / \$3 : Value;
#X msg 24 482 setForceX \$1 \$2;
#X msg 24 501 setForceY \$1 \$2;
#X text 190 132 \$2 / \$3 : Value;
#X msg 30 163 force \$1 \$2 \$3;
#X text 191 203 \$2 / \$3 : Value;
#X text 180 264 \$1 / \$2 : Value;
#X msg 23 549 setSpeedX \$1 \$2;
#X msg 23 568 setSpeedY \$1 \$2;
#X text 185 566 \$2 / \$3 : Value;
#X text 185 628 \$2 / \$3 : Value;
#X msg 24 593 addPos \$1 \$2 \$3;
#X msg 588 346 setLinkId \$1 \$2;
#X text 742 347 Change the Id of a link;
#X text 746 381 \$2 : New Id;
#X msg 586 406 setLKTab \$1 \$2;
#X text 745 406 change the table (K) size of a non linear link;
#X text 747 443 \$2 : New KL;
#X msg 586 468 setLDTab \$1 \$2;
#X text 745 468 change the table (D) size of a non linear link;
#X text 747 505 \$2 : New DL;
#X msg 31 225 min \$1 \$2;
#X msg 31 245 max \$1 \$2;
#X msg 24 612 addPosX \$1 \$2;
#X msg 24 632 addPosY \$1 \$2;
#X text 186 769 \$2 : damping;
#X text 185 754 \$1 : Id (symbol) or No;
#X msg 22 738 setDEnvOffset \$1 \$2;
#X text 174 738 Change environement damping offset;
#X text 173 683 Change environement damping;
#X msg 23 683 setDEnv \$1 \$2;
#X text 185 714 \$2 : damping;
#X text 184 699 \$1 : Id (symbol) or No;
#X msg 31 265 minX \$1;
#X msg 90 265 maxX \$1;
#X msg 31 287 minY \$1;
#X msg 90 287 maxY \$1;
#X msg 31 96 setPos \$1 \$2 \$3;
#X msg 31 116 setPosX \$1 \$2;
#X msg 31 137 setPosY \$1 \$2;
#X text 721 272 Set initial lenght of link(s);
#X text 727 290 \$1 : Id (symbol) or No;
#X msg 581 271 setLCurrent \$1 [\$2];
#X text 727 308 \$2 : mix between link size (0) and curent length (1)
;
#X msg 586 576 setActive \$1 \$2;
#X msg 585 532 setInactive \$1 \$2;
#X text 745 576 compute the link at each bang;
#X msg 586 620 setOverdamp \$1 \$2;
#X text 741 677 \$2 : overdamp value;
#X msg 588 705 setEnd \$1 \$2 \$3;
#X text 742 740 \$2 : mass number for end 1;
#X text 742 707 Change the masses a link is connected to;
#X text 741 756 \$3 : mass number for end 2;
#X msg 600 728 setEnd1 \$1 \$2;
#X msg 600 750 setEnd2 \$1 \$2;
#X text 181 352 Grab nearest mass and move it;
#X text 196 372 \$1 \$2 : position;
#X text 10 25 Dynamic settings messages allow the user to redefine
internal parameters of links and masses.;
#X text 191 168 Add force to mass(es);
#X text 722 326 if no \$2 arg is provided \, then L is set to current
length;
#X text 744 532 do not compute a link anymore;
#X text 740 621 Change the overdamp of a link. i.e a strange parameter
that amplifies forces opposed to movment. Use at your own risk.;
#X text 580 778 if only 1 argument is provided \, message generally
uses this argument as the value applied to all masses (or links);
#X text 741 363 \$1 : link (Id (symbol) or No);
#X text 746 426 \$1 : link (Id (symbol) or No);
#X text 747 488 \$1 : link (Id (symbol) or No);
#X text 745 552 \$1 : link (Id (symbol) or No);
#X text 746 596 \$1 : link (Id (symbol) or No);
#X text 741 663 \$1 : link (Id (symbol) or No);
#X text 743 724 \$1 : link (Id (symbol) or No);
#X restore 12 427 pd dynamic settings ___;
#X text 112 658 54_pmpd2dtest.pd;
#X obj 325 272 print;
#N canvas 16 50 1221 700 masses_attributes___ 0;
#X obj 5 75 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 10 378 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 4 357 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 7 74 General :;
#X text 7 2 ATTRIBUTES Messages;
#X text 7 357 Lists :;
#X text 170 422 Output all masses x or y in a list on outlet No 1;
#X obj 11 492 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 11 605 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 611 26 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 605 5 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X obj 612 140 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 612 253 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X text 174 718 \$1 (optional): Masses Id;
#X text 815 376 \$2 (optional): Masses Id;
#X text 814 363 \$1 : table name;
#X text 608 5 tables :;
#X obj 10 157 cnv 15 150 150 empty empty empty 20 12 0 14 -233017 -66577
0;
#X msg 14 165 massPos [\$1];
#X text 187 166 \$1 : id float or symbol of masses (nothing for all)
;
#X text 218 203 massPos symbolId number posX posY posZ;
#X text 187 226 \$1 : id float or symbol of masses (nothing for all)
;
#X text 218 263 massPos symbolId number speedX speedY speedZ;
#X text 187 285 \$1 : id float or symbol of masses (nothing for all)
;
#X msg 14 284 massForce [\$1];
#X text 218 318 massPos symbolId number forceX forceY forceZ;
#X msg 14 225 massSpeed [\$1];
#X msg 13 383 massPosL [\$1];
#X msg 13 402 massPosXL [\$1];
#X msg 13 421 massPosYL [\$1];
#X msg 13 439 massesPosNormL [\$1];
#X msg 14 498 massSpeedL [\$1];
#X msg 15 517 massSpeedXL [\$1];
#X msg 14 535 massSpeedYL [\$1];
#X msg 15 554 massSpeedsNormL [\$1];
#X msg 18 611 massForceL [\$1];
#X msg 16 630 massForceXL [\$1];
#X msg 16 649 massForceYL [\$1];
#X msg 15 667 massForceNormL [\$1];
#X msg 619 38 massPosT \$1 [\$2];
#X msg 619 57 massPosXT \$1 [\$2];
#X msg 619 76 massPosYT \$1 [\$2];
#X msg 618 94 massPosNormT \$1 [\$2];
#X msg 620 152 massSpeedsT \$1 [\$2];
#X msg 620 171 massSpeedsXT \$1 [\$2];
#X msg 620 190 massSpeedsYT \$1 [\$2];
#X msg 620 208 massSpeedsNormT \$1 [\$2];
#X msg 621 259 massForcesT \$1 [\$2];
#X msg 620 278 massForcesXT \$1 [\$2];
#X msg 620 297 massForcesYT \$1 [\$2];
#X msg 620 315 massSpeedsNormT \$1 [\$2];
#X obj 611 561 cnv 15 150 110 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 609 539 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 790 568 output the closest mass;
#X text 612 539 others :;
#X text 789 582 \$1 : x -position;
#X text 789 597 \$2 : y -position;
#X msg 618 647 massDistance [\$1 [\$2]];
#X text 796 662 distance mass1 mass2 distanceX \, distanceY \, distanceZ
\, distance;
#X obj 608 410 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 768 464 \$1 : table name;
#X text 767 483 \$2 : masses name;
#X obj 609 431 cnv 15 150 80 empty empty empty 20 12 0 14 -233017 -66577
0;
#X msg 617 438 forceXT \$1 [\$2];
#X msg 618 458 forceYT \$1 [\$2];
#X msg 622 570 closestMass \$1 \$2 \$3 [\$4];
#X text 611 410 Table in:;
#X text 789 614 \$3 : none or Id;
#X text 15 30 The attributes messages ask the object to output some
of its internal parameters. They can be output as lists for positions
and forces of masses.;
#X text 188 186 output a message for every mass :;
#X text 188 246 output a message for every mass :;
#X text 188 301 output a message for every mass :;
#X text 172 619 Output all forces applied to masses in a list on outlet
No 1;
#X text 799 263 Output all forces applied to masses on a table;
#X text 766 441 apply a force to masses. Force comes from a table;
#X text 781 648 output a series of messages :;
#X text 170 390 Output all mass positions in a list on outlet No 1
;
#X text 171 451 Output all norm of position vectors (sqrt(x*x+y*y))
in a list on outlet No 1;
#X text 171 504 Output all mass speeds in a list on outlet No 1;
#X text 172 536 Output all mass speeds in x or y in a list on outlet
No 1;
#X text 171 564 Output all norm of speed vectors (sqrt(x*x+y*y)) in
a list on outlet No 1;
#X text 175 649 Output all mass forces in x or y in a list on outlet
No 1;
#X text 171 677 Output all norm of force vectors (sqrt(x*x+y*y)) in
a list on outlet No 1;
#X text 792 38 Output all mass positions on a table (\$1);
#X text 794 67 Output all mass x or y on a table (\$1);
#X text 794 95 Output all norm of position vectors (sqrt(x*x+y*y))
on a table (\$1);
#X text 795 149 Output all mass speeds on a table;
#X text 796 181 Output all mass speeds in x or y on a table;
#X text 801 209 Output all norm of speed vectors (sqrt(x*x+y*y)) on
a table;
#X text 798 294 Output all mass forces in x or y on a table;
#X text 804 322 Output all norm of force vectors (sqrt(x*x+y*y)) on
a table;
#X restore 12 447 pd masses_attributes___;
#N canvas 308 76 770 592 tests 0;
#X msg 20 26 testMass testId filterId filter_parametter ...;
#X text 265 52 testMass testId mass_number;
#X text 344 125 testMassL filterID 0/1 0/1 0/1 ...;
#X msg 22 154 testMassT tab_name filterId filter_parametter ...;
#X msg 22 93 testMassL testId filterId filter_parametter ....;
#X text 38 191 masses test can be :;
#X msg 19 344 testLink testId filterId filter_parametter ...;
#X msg 21 411 testLinkL testId filterId filter_parametter ....;
#X msg 21 472 testLinkT tab_name filterId filter_parametter ...;
#X text 264 370 testLink testId mass_number;
#X text 342 442 testLinkL filterID 0/1 0/1 0/1 ...;
#X text 35 509 links test can be :;
#X text 180 191 Id \$1 / posXSup \$1 / posXInf \$1 / posYSup \$1 /
posYInf \$1 / speedXSup \$1 / speedXInf \$1 / speedYSup \$1 / speedYInf
\$1 / speedSup \$1 / speedInf \$1 / distanceCircleSup \$1 \$2 \$3 \$4
(centerX \, centerY \, distance) / distanceCircleInf \$1 \$2 \$3 \$4
(centerX \, centerY \, distance) / massSup \$1 / massInf \$1 / forceSup
\$1 / forceInf \$1 / forceXSup \$1 / forceXInf \$1 / forceYSup \$1
/ forceYInf \$1;
#X text 177 509 Id \$1 / forceSup \$1 / forceInf \$1 / forceXSup \$1
/ forceXInf \$1 / forceYSup \$1 / forceYInf \$1 / lengthSup \$1 / lengthInf
\$1 / lengthXSup \$1 / lengthXInf \$1 / lengthYSup \$1 / lengthYInf
\$1 / connectedTo \$1 (symbol or float);
#X text 315 29 output a message for every mass that passes all the
tests:;
#X text 327 92 output a list with 0 or 1 for every mass depending on
whether it passes all tests or not;
#X text 341 153 Put in a table 0 or 1 depending on whether masses pass
all tests;
#X text 314 347 output a message for every link that passes all the
tests:;
#X text 326 410 output a list with 0 or 1 for every link depending
on whether it passes all tests or not;
#X text 340 471 Put in a table 0 or 1 depending on whether links pass
all tests;
#X restore 12 486 pd tests ______________;
#N canvas 93 109 547 405 interactors 0;
#X text 27 71 \$2 \$3 : center of the circle;
#X text 26 85 \$4 : circle radius;
#X text 26 99 \$5 : K;
#X text 26 112 \$6 : power of the force;
#X text 24 231 \$1 : mass Id (float or symbol) to apply this interactor
;
#X text 22 258 \$4 \$5 : 2nd point of the line;
#X text 23 272 \$6 : K;
#X text 23 287 \$7 : power of the force;
#X text 22 302 \$8 : minimum profund of the interactor;
#X text 21 317 \$9 : maximum profund of the interactor;
#X msg 12 206 iLine \$1 \$2 \$3 \$4 \$5 \$6 [\$7 [\$8 [\$9 ]]];
#X text 26 126 \$7 : K tengential;
#X text 26 140 \$8 : power of the tengential force;
#X text 25 156 \$9 : minimum radius of the interactor;
#X text 24 170 \$10 : maximum radius of the interactor;
#X msg 16 24 iCircle \$1 \$2 \$3 \$4 \$5 [\$6 [\$7 [\$8 [\$9 [\$10
]]]]];
#X text 28 58 \$1 : mass Id (float or symbol) to apply this interactor
;
#X text 23 244 \$2 \$3 : 1st point of the line;
#X restore 12 505 pd interactors ________;
#N canvas 294 50 700 700 statistics 0;
#X obj 25 41 cnv 15 150 270 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 19 21 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 185 70 \$1 : none or Id;
#X text 186 113 \$1 : none or Id;
#X text 185 163 \$1 : none or Id;
#X text 187 194 \$1 : none or Id;
#X text 185 242 \$1 : none or Id;
#X text 186 279 \$1 : none or Id;
#X msg 30 54 massPosMean;
#X msg 31 92 massPosStd \$1;
#X msg 30 141 massForceMean;
#X msg 30 179 massForceStd \$1;
#X msg 31 228 massSpeedMean;
#X msg 30 262 massSpeedStd \$1;
#X text 181 54 output the average position of masses and center distance
;
#X text 22 21 masses :;
#X obj 29 357 cnv 15 150 350 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 23 337 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
0;
#X text 191 389 \$1 : none or Id;
#X text 190 421 \$1 : none or Id;
#X text 192 467 \$1 : none or Id;
#X text 194 504 \$1 : none or Id;
#X text 187 562 \$1 : none or Id;
#X text 193 597 \$1 : none or Id;
#X msg 38 402 linkPosStd \$1;
#X msg 37 489 linkLengthStd \$1;
#X msg 37 572 linkPosSpeedStd \$1;
#X text 194 637 \$1 : none or Id;
#X text 196 674 \$1 : none or Id;
#X msg 38 658 linkLengthSpeedStd \$1;
#X msg 37 364 linkPosMean \$1;
#X msg 37 450 linkLengthMean \$1;
#X msg 38 538 linkPosSpeedMean \$1;
#X msg 39 618 linkLengthSpeedMean \$1;
#X text 26 337 links :;
#X text 181 226 output the average velocity of masses (X \, Y \, Norm)
;
#X text 188 536 output the average center position velocity of links
(X \, Y \, Norm);
#X text 182 91 output the standard deviation of mass positions and
center distance;
#X text 181 141 output the average force applied to masses (X \, Y
and Norm);
#X text 182 178 output the standard deviation of mass forces;
#X text 181 263 output the standard deviation of mass velocities;
#X text 189 404 output the standard deviation of link center positions
;
#X text 188 451 output the average link lengths (X \, Y \, L);
#X text 189 488 output the standard deviation of link lengths;
#X text 192 572 output the standard deviation of link center position
velocities;
#X text 190 619 output the average change in link lengths (X \, Y \,
Norm);
#X text 191 658 output the standard deviation of link lengths change
;
#X text 188 361 output the average position of link centers (X \, Y
\, center disdance);
#X restore 12 525 pd statistics _________;
#X text 164 507 To send complex forces;
#X text 163 526 To get statistical data of the simulation;
#X text 101 338 Bang - A bang at the left inlet computes the new model
state based on previous time step.;
#X text 164 488 To test specific parameters;
#X text 163 448 To get the model parameters (masses).;
#X text 163 468 To get the model parameters (links).;
#X connect 21 0 37 0;
#X connect 24 0 23 0;
#X connect 25 0 48 0;
#X connect 26 0 19 0;
#X connect 37 0 20 0;
#X connect 38 0 22 0;
#X connect 39 0 38 0;
#X connect 41 0 40 0;
#X connect 43 0 40 0;
#X connect 48 0 42 0;
#X connect 48 1 42 1;
#X connect 48 2 56 0;