1 files changed, 92 insertions, 0 deletions
diff --git a/examples/51_pmpd_test.pd b/examples/51_pmpd_test.pd
new file mode 100644
index 0000000..c231d97
--- /dev/null
+++ b/examples/51_pmpd_test.pd
@@ -0,0 +1,92 @@
+#N canvas 392 22 616 594 10;
+#X obj 20 33 loadbang;
+#X obj 401 197 print msd;
+#X obj 309 58 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X text 329 56 ON / OFF;
+#X obj 33 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 83 113 reset;
+#X msg 35 229 Xmax 100 \, Xmin 0;
+#X msg 128 372 setD souple 0.01;
+#X msg 18 371 setK souple 1;
+#X msg 128 394 setD souple 1;
+#X msg 18 393 setK souple 2;
+#X obj 331 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6350 1;
+#X obj 354 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6350 1;
+#X obj 308 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6350 1;
+#X msg 308 538 posX fix \$1;
+#X obj 401 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6350 1;
+#X obj 377 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6350 1;
+#X msg 20 256 0 1 \, 1 2 \, 2 3 \, 3 4;
+#X obj 308 347 unpack f f f f f;
+#X obj 308 325 route massesPosL;
+#X msg 309 103 bang \, massesPosL;
+#X msg 20 278 link souple \$1 \$2 10 10;
+#X obj 309 31 loadbang;
+#X obj 20 77 t b b b b b;
+#X text 50 55 reset;
+#X text 18 10 creation : 5 masses and 4 links;
+#X text 308 10 compute and get masses positions;
+#X text 16 349 set rigidity and viscosity of links;
+#X text 17 452 add force on all mobile masses;
+#X text 443 440 move first slider;
+#X text 429 453 to move the fixed mass;
+#X msg 19 503 forceX mob 300;
+#X msg 19 479 forceX mob -300;
+#X text 307 279 display and interaction;
+#X msg 51 201 mass mob 1 100 50;
+#X msg 51 159 4;
+#X obj 51 180 until;
+#X msg 67 139 mass fix 0 100 50;
+#X obj 309 167 pmpd;
+#X obj 83 314 s \$0-pmpdin;
+#X obj 19 421 s \$0-pmpdin;
+#X obj 18 530 s \$0-pmpdin;
+#X obj 319 138 r \$0-pmpdin;
+#X obj 309 197 s \$0-pmpdout;
+#X obj 308 302 r \$0-pmpdout;
+#X obj 308 560 s \$0-pmpdin;
+#X obj 309 80 metro 20;
+#X text 23 566 COPYRIGHT : Nicolas Montgermont 2010;
+#X connect 0 0 23 0;
+#X connect 2 0 46 0;
+#X connect 4 0 23 0;
+#X connect 5 0 39 0;
+#X connect 6 0 39 0;
+#X connect 7 0 40 0;
+#X connect 8 0 40 0;
+#X connect 9 0 40 0;
+#X connect 10 0 40 0;
+#X connect 13 0 14 0;
+#X connect 14 0 45 0;
+#X connect 17 0 21 0;
+#X connect 18 0 13 0;
+#X connect 18 1 11 0;
+#X connect 18 2 12 0;
+#X connect 18 3 16 0;
+#X connect 18 4 15 0;
+#X connect 19 0 18 0;
+#X connect 20 0 38 0;
+#X connect 21 0 39 0;
+#X connect 22 0 2 0;
+#X connect 23 0 17 0;
+#X connect 23 1 6 0;
+#X connect 23 2 35 0;
+#X connect 23 3 37 0;
+#X connect 23 4 5 0;
+#X connect 31 0 41 0;
+#X connect 32 0 41 0;
+#X connect 34 0 39 0;
+#X connect 35 0 36 0;
+#X connect 36 0 34 0;
+#X connect 37 0 39 0;
+#X connect 38 0 43 0;
+#X connect 42 0 38 0;
+#X connect 44 0 19 0;
+#X connect 46 0 20 0;